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

Implements custom dates for coverletter headers

Browse source
This commit is contained in:
Roger Welsh 2021-03-20 20:00:02 +13:00
parent 7c06e78fb4
commit e8eb9d9bc4
1 changed files with 25 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
ox-awesomecv.el
View file

@ -247,7 +247,11 @@ as a communication channel."
(label-str (if label (format "%s\\hfill{}" label) "")) (label-str (if label (format "%s\\hfill{}" label) ""))
;; Other Coverletter properties ;; Other Coverletter properties
(recipient (or (org-element-property :RECIPIENT headline) "")) (recipient (or (org-element-property :RECIPIENT headline) ""))
(letter-date (format "\\letterdate{%s}" (or date "\\today"))) (letter-date
(format "\\letterdate{%s}"
(if date
(format "%s" (org-awesomecv-org-timestamp-to-dateformat date))
"\\today")))
(letter-opening (or (format "\\letteropening{%s}" (org-element-property :LETTER_OPENING headline)) "")) (letter-opening (or (format "\\letteropening{%s}" (org-element-property :LETTER_OPENING headline)) ""))
(letter-closing (or (format "\\letterclosing{%s}" (org-element-property :LETTER_CLOSING headline)) "")) (letter-closing (or (format "\\letterclosing{%s}" (org-element-property :LETTER_CLOSING headline)) ""))
(letter-attached (or (format "\\letterenclosure[Attached]{%s}" (org-element-property :LETTER_ATTACHED headline)) "")) (letter-attached (or (format "\\letterenclosure[Attached]{%s}" (org-element-property :LETTER_ATTACHED headline)) ""))
@ -379,5 +383,25 @@ This does not make sense in the AwesomeCV format, so it only
returns an empty string." returns an empty string."
nil) nil)
(defun org-awesomecv-org-timestamp-to-dateformat (date_str &optional FORMAT-STRING)
"Format orgmode timestamp DATE_STR into a date format FORMAT-STRING.
Uses defaults that are consistent with awesomecv.
Other strings are just returned unmodified
e.g. <2002-08-12 Mon> => August 12th, 2012
today => today"
(if (string-match (org-re-timestamp 'active) date_str)
(let* ((dte (org-parse-time-string date_str))
(time (encode-time dte))
(format-string (or FORMAT-STRING
(if (eql calendar-date-style 'american)
"%B %e, %Y"
"%e %B, %Y")))
)
(format-time-string format-string time))
date_str))
(provide 'ox-awesomecv) (provide 'ox-awesomecv)
;;; ox-awesomecv ends here ;;; ox-awesomecv ends here