From 0aee0a36313fcfe04f09b1ec891ad07d088c79b6 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Thu, 24 Jun 2021 21:09:22 -0700 Subject: [PATCH] Move date conversion into a function --- tekuti.el | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) diff --git a/tekuti.el b/tekuti.el index 55a3f63..bf9a805 100644 --- a/tekuti.el +++ b/tekuti.el @@ -39,26 +39,24 @@ ;;; Code: +(defun tekuti--format-date (date) + "Format DATE into a date that tekuti understands." + (format-time-string "%a, %d %b %Y %H:%M:%S %Z" + (org-timestamp-to-time + (org-timestamp-from-string date)) + t)) + (defun tekuti-build-data-from-org () (append (mapcar (lambda (pair) (pcase pair (`("DATE" ,date) - (list "DATE" - (format-time-string - "%a, %d %b %Y %H:%M:%S %Z" - (org-timestamp-to-time - (org-timestamp-from-string date)) - t))) + (list "DATE" (tekuti--format-date date))) (`("COMMENTS_DATE" ,date) (list "COMMENTS-CLOSED-DATE" (and (not (string-empty-p date)) - (format-time-string - "%a, %d %b %Y %H:%M:%S %Z" - (org-timestamp-to-time - (org-timestamp-from-string date)) - t)))) + (tekuti--format-date date)))) (_ pair))) (org-collect-keywords '("TITLE" "TAGS" "STATUS" "COMMENTS" "DATE" "COMMENTS_DATE"))) (list