[elpa] externals/rec-mode 4413688 38/98: rec-mode: new functions returning properties of the current record set.

[Stefan Monnier]

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

    rec-mode: new functions returning properties of the current record set.
---
 etc/rec-mode.el | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/etc/rec-mode.el b/etc/rec-mode.el
index 04643bd..9b286e6 100644
--- a/etc/rec-mode.el
+++ b/etc/rec-mode.el
@@ -69,6 +69,12 @@ hidden by default in navigation mode.")
   ;; value!!
   "Rec keyword.")
 
+(defconst rec-keyword-key (concat rec-keyword-prefix "key")
+  "Key keyword.")
+
+(defconst rec-keyword-mandatory (concat rec-keyword-prefix "mandatory")
+  "Mandatory keyword.")
+
 (defvar rec-comment-re "^#.*"
   "regexp denoting a comment line")
 
@@ -811,6 +817,24 @@ Return nil if the point is not on a record."
           descriptor
         ""))))
 
+(defun rec-mandatory-fields ()
+  "Return a list with the names of the mandatory fields in the
+current record set."
+  (let ((descriptor (cadr (rec-record-descriptor))))
+    (when descriptor
+      (let ((fields-str (rec-record-assoc rec-keyword-mandatory descriptor)))
+        (when fields-str
+          (split-string (car fields-str)))))))
+
+(defun rec-key ()
+  "Return the name of the field declared as the key of the
+current record set, if any.  Otherwise return `nil'."
+  (let ((descriptor (cadr (rec-record-descriptor))))
+    (when descriptor
+      (let ((key (rec-record-assoc rec-keyword-key descriptor)))
+        (when key
+          (car key))))))
+
 ;;;; Navigation
 
 (defun rec-show-type (type &optional show-descriptor)
@@ -1836,6 +1860,15 @@ expression."
         (rec-unfold-field)
       (rec-fold-field))))
 
+;; (defun rec-cmd-create-new-record ()
+;;   "Create a new record with some default fields in the current
+;; record set."
+;;   (interactive)
+;;   (let ((key (rec-key))
+;;         (mandatory (rec-mandatory-fields))
+;;         fields record)
+;;     (when (not (member key mandatory))
+
 ;;;; Definition of modes
 
 (defun rec-mode ()