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

handle dates

Browse source
This commit is contained in:
Óscar Nájera 2018-03-23 23:00:17 +01:00
parent b7a9c500d5
commit ca364bca8a
1 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
ox-cv.el
View file

@ -141,14 +141,29 @@ holding export options."
;; Document end.
"\\end{document}")))
(defun org-cv-timestamp-to-shortdate (date_str)
"e.g. <2002-08-12 Mon> => Aug 2012"
(let* ((abbreviate 't)
(dte (org-parse-time-string date_str))
(month (nth 4 dte))
(year (nth 5 dte)));;'(02 07 2015)))
(concat (calendar-month-name month abbreviate)
" "
(number-to-string year))))
(defun org-cv-cventry (headline contents info)
(let ((from-date (org-element-property :FROM headline))
(to-date (org-element-property :TO headline))
(location (org-element-property :LOCATION headline))
(title (org-element-property :title headline))
(note (org-element-property :NOTE headline))
(employer (org-element-property :EMPLOYER headline)))
(format "\\cventry{%s}{%s}{%s}{%s}{%s}{%s}\n"
"start" title employer location "de paso" contents)))
(concat (org-cv-timestamp-to-shortdate from-date)
" -- "
(org-cv-timestamp-to-shortdate to-date))
title employer location note contents)))
;;;; Headline