include profile photo

This commit is contained in:
Óscar Nájera 2018-03-24 01:42:52 +01:00
parent 5a08fb8333
commit 9129f0c504

View file

@ -28,9 +28,11 @@
(:mobile "MOBILE" nil nil parse) (: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)
(:photo "PHOTO" nil nil parse)
(:gitlab "GITLAB" nil nil parse) (:gitlab "GITLAB" nil nil parse)
(:github "GITHUB" nil nil parse) (:github "GITHUB" nil nil parse)
(:linkedin "LINKEDIN" nil nil parse) (:linkedin "LINKEDIN" nil nil parse)
(:with-email nil "email" t t)
) )
:translate-alist '((template . org-cv-template) :translate-alist '((template . org-cv-template)
(headline . org-cv-headline))) (headline . org-cv-headline)))
@ -75,6 +77,9 @@ holding export options."
(let ((auth (plist-get info :author))) (let ((auth (plist-get info :author)))
(and auth (org-export-data auth info)))))) (and auth (org-export-data auth info))))))
(format "\\name{%s}{}\n" author)) (format "\\name{%s}{}\n" author))
;; photo
(let ((photo (org-export-data (plist-get info :photo) info)))
(when (org-string-nw-p photo) (format "\\photo{%s}\n" photo)))
;; email ;; email
(let ((email (and (plist-get info :with-email) (let ((email (and (plist-get info :with-email)
(org-export-data (plist-get info :email) info)))) (org-export-data (plist-get info :email) info))))