From b222cda5853f9e0f78c6fe567d5e7ada0218e7bb Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 31 Dec 2020 13:15:59 +0530
Subject: Prefer pcase to car, cdr.

* ksh-forms-improved.el (set-values, form-entry,
ksh-forms-org-keyword): Rewrite using pcase instead of car, cdr.
---
 ksh-forms-improved.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/ksh-forms-improved.el b/ksh-forms-improved.el
index cfa72b9..83fa0e0 100644
--- a/ksh-forms-improved.el
+++ b/ksh-forms-improved.el
@@ -22,14 +22,16 @@
 ;; Utilities
 (defun set-values (record values)
   "Set record RECORD to values in alist VALUES"
-  (mapc (lambda (field-value)
-	  (aset record (car field-value) (cdr field-value))) values))
+  (seq-do (pcase-lambda (`(,field . ,value))
+            (aset record field value))
+          values))
 
 ;; Entry creation functions for form display
 (defun form-entry (label-field)
-  (list (format "%s\n" (car label-field))
-	(cdr label-field) "\n\n"))
-
+  (pcase label-field
+    (`(,label . ,field)
+     (list (format "%s\n" label)
+           field"\n\n"))))
 
 (defun new-record-filter (record)
   (set-values record default-field-values)
@@ -61,8 +63,10 @@
   (if (and text (not (string-blank-p text)))
       (princ (format "%s\n\n" text))))
 
-  (princ (format "#+%s: %s\n" (car keyword-value) (cdr keyword-value))))
 (defun ksh-forms-org-keyword (keyword-value)
+  (pcase keyword-value
+    (`(,keyword . ,value)
+     (princ (format "#+%s: %s\n" keyword value)))))
 
 (defun ksh-forms-org-latex-header (header)
   (ksh-forms-org-keyword (cons "LATEX_HEADER" header)))
-- 
cgit v1.2.3