Extract data parsing into separate function

1 files changed, 12 insertions, 9 deletions

diff --git a/tekuti.el b/tekuti.el
index c859396..9fbbbf9 100644
--- a/tekuti.el
+++ b/tekuti.el
@@ -56,6 +56,17 @@ with a ‘/’.")
                         (date-to-time date))
                       t))
 
+(defun tekuti--parse-data-keyword (pair)
+  "Ensure that both the key and value in PAIR match what tekuti needs."
+  (pcase pair
+    (`("DATE" ,date)
+     (list "DATE" (tekuti--format-date date)))
+    (`("COMMENTS_DATE" ,date)
+     (list "COMMENTS-CLOSED-DATE"
+           (and (not (string-empty-p date))
+                (tekuti--format-date date))))
+    (_ pair)))
+
 (defun tekuti-build-data-from-org ()
   "Parse the current org buffer to collect the necessary metadata."
   (let ((defaults `(("TITLE")
@@ -67,15 +78,7 @@ with a ‘/’.")
                     ("BODY")))
         (data (append
                (mapcar
-                (lambda (pair)
-                  (pcase pair
-                    (`("DATE" ,date)
-                     (list "DATE" (tekuti--format-date date)))
-                    (`("COMMENTS_DATE" ,date)
-                     (list "COMMENTS-CLOSED-DATE"
-                           (and (not (string-empty-p date))
-                                (tekuti--format-date date))))
-                    (_ pair)))
+                #'tekuti--parse-data-keyword
                 (org-collect-keywords '("TITLE" "TAGS" "STATUS" "COMMENT_STATUS" "DATE" "COMMENTS_DATE")))
                (list
                 (list "BODY"