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

Updated org-cv-utils--format-time-window

Browse source 
If both dates are the same, return only one of them, without the dash.
This commit is contained in:
Diego Zamboni 2019-12-07 20:01:43 +01:00
parent dcbe20b52d
commit 91e5a55fe1
1 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
org-cv-utils.el
View file

@ -45,14 +45,19 @@ today => today"
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)
"Join date strings in a time window. "Join date strings in a time window.
FROM-DATE -- TO-DATE FROM-DATE -- TO-DATE
in case TO-DATE is nil return Present" in case TO-DATE is nil return Present.
(concat If both dates are the same, return just FROM-DATE"
(org-cv-utils-org-timestamp-to-shortdate from-date) (let ((from (when from-date (org-cv-utils-org-timestamp-to-shortdate from-date)))
" -- " (to (if (not to-date) "Present"
(if (not to-date) "Present" (org-cv-utils-org-timestamp-to-shortdate to-date))))
(org-cv-utils-org-timestamp-to-shortdate to-date))))
(if from
(if (string= from to)
from
(concat from " -- " to))
"")))
(provide 'org-cv-utils) (provide 'org-cv-utils)
;;; org-cv-utils ends here ;;; org-cv-utils ends here