cv style and color option keywords

This commit is contained in:
Óscar Nájera 2018-03-23 02:05:30 +01:00
parent df20a24976
commit bce5558259

View file

@ -22,7 +22,10 @@
;;; Define Back-End ;;; Define Back-End
(org-export-define-derived-backend 'orgcv 'latex (org-export-define-derived-backend 'orgcv 'latex
:options-alist :options-alist
'((:mobile "MOBILE" nil nil parse) '(
(:cvstyle "CVSTYLE" nil "classic" t)
(:cvcolor "CVCOLOR" nil "blue" t)
(:mobile "MOBILE" nil nil parse)
(:homepage "HOMEPAGE" nil nil parse) (:homepage "HOMEPAGE" nil nil parse)
(:address "ADDRESS" nil nil newline) (:address "ADDRESS" nil nil newline)
(:gitlab "GITLAB" nil nil parse) (:gitlab "GITLAB" nil nil parse)
@ -56,6 +59,12 @@ holding export options."
;;(org-latex--insert-compiler info) ;;(org-latex--insert-compiler info)
;; Document class and packages. ;; Document class and packages.
(org-latex-make-preamble info) (org-latex-make-preamble info)
;; cvstyle
(let ((cvstyle (org-export-data (plist-get info :cvstyle) info)))
(when cvstyle (format "\\moderncvstyle{%s}\n" cvstyle)))
;; cvcolor
(let ((cvcolor (org-export-data (plist-get info :cvcolor) info)))
(when cvcolor (format "\\moderncvcolor{%s}\n" cvcolor)))
;; Possibly limit depth for headline numbering. ;; Possibly limit depth for headline numbering.
(let ((sec-num (plist-get info :section-numbers))) (let ((sec-num (plist-get info :section-numbers)))
(when (integerp sec-num) (when (integerp sec-num)