[elpa] externals/rec-mode d4ff2b1 32/98: rec-mode: support editing boolean fields as special enum values.

[Stefan Monnier]

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

    rec-mode: support editing boolean fields as special enum values.
---
 etc/rec-mode.el | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

diff --git a/etc/rec-mode.el b/etc/rec-mode.el
index e0f17fa..ffa585c 100644
--- a/etc/rec-mode.el
+++ b/etc/rec-mode.el
@@ -1218,14 +1218,21 @@ buffer"
          (prev-buffer (current-buffer)))
     (if field-value
         (cond
-         ((equal (rec-type-kind field-type) 'enum)
+         ((equal field-type-kind 'enum)
           (let* ((data (rec-type-data field-type))
                  (i -1)
-                 (fast-selection-data (mapcar
-                                       (lambda (elem)
-                                         (setq i (+ i 1))
-                                         (list elem (+ i ?a)))
-                                       data))
+                 (fast-selection-data
+                  (cond
+                   ((equal field-type-kind 'enum)
+                    (mapcar
+                     (lambda (elem)
+                       (setq i (+ i 1))
+                       (list elem (+ i ?a)))
+                     data))
+                   ((equal field-type-kind 'bool)
+                    '(("yes" ?y) ("no" ?n) ("1" ?o) ("0" ?z) ("true" ?t) 
("false" ?f)))
+                   (t
+                    (error "Invalid kind of type"))))
                  (letter (rec-fast-selection fast-selection-data "New value")))
             (when letter
               (let ((buffer-read-only nil)