ryuslash/tekuti-el
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Move date conversion into a function

Browse source
This commit is contained in:
Tom Willemse 2021-06-24 21:09:22 -07:00
parent 80ab0599af
commit 0aee0a3631
1 changed files with 9 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
tekuti.el
View file

@ -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