mirrors/org-cv
1
0
Fork 1
mirror of https://gitlab.com/Titan-C/org-cv.git synced 2024-11-23 14:38:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

Utils date parsing

Browse source
This commit is contained in:
Óscar Nájera 2022-08-22 14:17:04 +02:00
parent 24bcd82348
commit 332c72880d
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
org-cv-utils.el
View file

@ -28,20 +28,20 @@
;;; Code: ;;; Code:
(require 'org) (require 'org)
(require 'org-element)
(defun org-cv-utils-org-timestamp-to-shortdate (date_str) (defun org-cv-utils-org-timestamp-to-shortdate (date_str)
"Format orgmode timestamp DATE_STR into a short form date. "Format orgmode timestamp DATE_STR into a short form date.
Other strings are just returned unmodified Other strings are just returned unmodified
e.g. <2002-08-12 Mon> => Aug 2012 e.g. <2012-08-12 Mon> => Aug 2012
today => today" today => today"
(if (string-match (org-re-timestamp 'active) date_str) (if (string-match (org-re-timestamp 'all) date_str)
(let* ((abbreviate 't) (let* ((dte (org-parse-time-string date_str))
(dte (org-parse-time-string date_str))
(month (nth 4 dte)) (month (nth 4 dte))
(year (nth 5 dte))) ;;'(02 07 2015))) (year (nth 5 dte))) ;;'(02 07 2015)))
(concat (concat
(calendar-month-name month abbreviate) " " (number-to-string year))) (calendar-month-name month 'abbreviate) " " (number-to-string year)))
date_str)) date_str))
(defun org-cv-utils--format-time-window (from-date to-date) (defun org-cv-utils--format-time-window (from-date to-date)
@ -60,9 +60,8 @@ If both dates are the same, return just FROM-DATE"
""))) "")))
(defun org-cv-utils--parse-cventry (headline info) (defun org-cv-utils--parse-cventry (headline info)
"Return alist describing the entry "Return alist describing the entry in HEADLINE.
INFO is a plist used INFO is a plist used as a communication channel."
as a communication channel."
(let ((title (org-export-data (org-element-property :title headline) info))) (let ((title (org-export-data (org-element-property :title headline) info)))
`((title . ,title) `((title . ,title)
(from-date . ,(or (org-element-property :FROM headline) (from-date . ,(or (org-element-property :FROM headline)
@ -72,4 +71,4 @@ as a communication channel."
(location . ,(or (org-element-property :LOCATION headline) ""))))) (location . ,(or (org-element-property :LOCATION headline) "")))))
(provide 'org-cv-utils) (provide 'org-cv-utils)
;;; org-cv-utils ends here ;;; org-cv-utils.el ends here