[elpa] externals/rec-mode 87abd92 49/98: rec-mode: new command rec-cmd-statistics.

[Stefan Monnier]

branch: externals/rec-mode
commit 87abd92d1de76fa0b59c1d0e94b3330e9fb40cac
Author: Jose E. Marchesi <jemarch@gnu.org>
Commit: Antoine Kalmbach <ane@iki.fi>

    rec-mode: new command rec-cmd-statistics.
---
 etc/rec-mode.el | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/etc/rec-mode.el b/etc/rec-mode.el
index b77d304..e1f988d 100644
--- a/etc/rec-mode.el
+++ b/etc/rec-mode.el
@@ -171,6 +171,7 @@ hidden by default in navigation mode.")
 ;;    (define-key map [remap move-beginning-of-line] 
'rec-cmd-beginning-of-line)
     (define-key map [remap undo] 'rec-cmd-undo)
     (define-key map "#" 'rec-cmd-count)
+    (define-key map "%" 'rec-cmd-statistic)
     (define-key map (kbd "RET") 'rec-cmd-jump)
     (define-key map (kbd "TAB") 'rec-cmd-goto-next-field)
     (define-key map (kbd "SPC") 'rec-cmd-toggle-field-visibility)
@@ -1903,6 +1904,36 @@ expression."
                             (when (and sex (not (equal sex "")))
                               (concat " with sex " sex)))))))
 
+(defun rec-cmd-statistic ()
+  "Display a statistic on the occurrence of the value contained
+  in the field under point in the minibuffer, if any.
+
+This command is especially useful with enumerated types."
+  (interactive)
+  (let* ((field (rec-current-field))
+         (field-name (rec-field-name field))
+         (type (rec-field-type field-name))
+         (type-kind (when type (rec-type-kind type))))
+    (cond ((equal type-kind 'enum)
+           (let* ((keys (rec-type-data type))
+                  (total (rec-count (rec-record-type)))
+                  (percentages (mapcar (lambda (key)
+                                         (let ((key-count (rec-count 
(rec-record-type)
+                                                                     (concat 
field-name " = '" key "'"))))
+                                           (list key key-count (/ (* key-count 
100) total))))
+                                       keys))
+                  str)
+             (mapcar (lambda (occurrence)
+                       (setq str (concat str
+                                         (number-to-string (nth 1 occurrence))
+                                         " "
+                                         (nth 0 occurrence)
+                                         " ("
+                                         (number-to-string (nth 2 occurrence))
+                                         "%) ")))
+                     percentages)
+             (message "%s" str))))))
+    
 (defun rec-cmd-append-field ()
   "Goto the end of the record and switch to edit record mode."
   (interactive)