Move review-stats function to algorithm implementation

org-fc-algo-sm2.el

@@ -28,6 +28,7 @@
 (require 'eieio-base)
 
 (require 'org-fc-core)
+(require 'org-fc-awk)
 
 (defmacro org-fc-property (symbol standard doc &rest args)
   (let (defcustom-args property)
@@ -209,6 +210,20 @@ INTERVAL is by a random factor between `org-fc-algo-sm2-fuzz-min' and
      nil
      org-fc-review-history-file)))
 
+(cl-defmethod org-fc-algo-review-stats ((_algo org-fc-algo-sm2))
+  "Statistics for all card reviews.
+Return nil if there is no history file."
+  (when (file-exists-p org-fc-review-history-file)
+    (let ((output
+           (shell-command-to-string
+            (org-fc-awk--command
+             "awk/stats_reviews.awk"
+             :input org-fc-review-history-file
+	     :variables `(("min_box" . ,org-fc-stats-review-min-box))))))
+      (if (string-prefix-p "(" output)
+          (read output)
+        (error "Org-fc shell error: %s" output)))))
+
 ;;; Footer
 
 (provide 'org-fc-algo-sm2)

org-fc-awk.el

@@ -136,20 +136,6 @@ ITAGS and LTAGS are strings `\":tag1:tag2:\"'"
          (read (concat "(" output ")")))
       (error "Org-fc shell error: %s" output))))
 
-(defun org-fc-awk-stats-reviews ()
-  "Statistics for all card reviews.
-Return nil there is no history file."
-  (when (file-exists-p org-fc-review-history-file)
-    (let ((output
-	   (shell-command-to-string
-	    (org-fc-awk--command
-	     "awk/stats_reviews.awk"
-	     :input org-fc-review-history-file
-	     :variables `(("min_box" . ,org-fc-stats-review-min-box))))))
-      (if (string-prefix-p "(" output)
-	  (read output)
-	(error "Org-fc shell error: %s" output)))))
-
 ;;; Footer
 
 (provide 'org-fc-awk)

org-fc-dashboard.el

@@ -344,7 +344,7 @@ environment without svg support."
     (insert "\n")))
 
 (defun org-fc-dashboard-insert-review-stats ()
-  (let ((reviews-stats (org-fc-awk-stats-reviews)))
+  (let ((reviews-stats (org-fc-algo-review-stats (org-fc-algo-sm2))))
     (insert "\n")
     (if reviews-stats
 	(progn