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

mailaddress first in altacv

Browse source
This commit is contained in:
Óscar Nájera 2018-03-30 01:51:35 +02:00
parent 2b1ba7a2de
commit a1ca17842e
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
ox-altacv.el
View file

@ -133,6 +133,10 @@ holding export options."
(when (org-string-nw-p photo) (format "\\photo{2.8cm}{%s}\n" photo))) (when (org-string-nw-p photo) (format "\\photo{2.8cm}{%s}\n" photo)))
"\\personalinfo{\n" "\\personalinfo{\n"
;; address
(let ((address (org-export-data (plist-get info :address) info)))
(when address (format "\\mailaddress{%s}\n" (mapconcat (lambda (line) (format "%s" line))
(split-string address "\n") " -- "))))
;; 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))))
@ -143,10 +147,6 @@ holding export options."
;; homepage ;; homepage
(let ((homepage (org-export-data (plist-get info :homepage) info))) (let ((homepage (org-export-data (plist-get info :homepage) info)))
(when homepage (format "\\homepage{%s}\n" homepage))) (when homepage (format "\\homepage{%s}\n" homepage)))
;; address
(let ((address (org-export-data (plist-get info :address) info)))
(when address (format "\\mailaddress{%s}\n" (mapconcat (lambda (line) (format "%s" line))
(split-string address "\n") " -- "))))
(mapconcat (lambda (social-network) (mapconcat (lambda (social-network)
(let ((command (org-export-data (plist-get info (let ((command (org-export-data (plist-get info
(car social-network)) (car social-network))