mirrors/org-cv
1
0
Fork 1
mirror of https://gitlab.com/Titan-C/org-cv.git synced 2024-11-15 02:58:29 +00:00
Code Issues Projects Releases Packages Wiki Activity

generator for social network tags

Browse source
This commit is contained in:
Óscar Nájera 2018-03-23 15:13:59 +01:00
parent 92a81a6fd0
commit f18303ec72
1 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
ox-cv.el
View file

@ -84,18 +84,21 @@ 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)))
;; github
(let ((github (org-export-data (plist-get info :github) info)))
(when github (format "\\social[github]{%s}\n" github)))
;; gitlab
(let ((gitlab (org-export-data (plist-get info :gitlab) info)))
(when gitlab (format "\\social[gitlab]{%s}\n" gitlab)))
;; linkedin
(let ((linkedin (org-export-data (plist-get info :linkedin) info)))
(when linkedin (format "\\social[linkedin]{%s}\n" linkedin)))
;; address ;; address
(let ((address (org-export-data (plist-get info :address) info))) (let ((address (org-export-data (plist-get info :address) info)))
(when address (format "\\address{%s}\n" (org-cv--add-latex-newlines address)))) (when address (format "\\address{%s}\n" (org-cv--add-latex-newlines address))))
(mapconcat (lambda (social-network)
(let ((command (org-export-data (plist-get info
(car social-network))
info)))
(and command (format "\\social[%s]{%s}\n"
(nth 1 social-network)
command))))
'((:github "github")
(:gitlab "gitlab")
(:linkedin "linkedin"))
"")
;; Date. ;; Date.
(let ((date (and (plist-get info :with-date) (org-export-get-date info)))) (let ((date (and (plist-get info :with-date) (org-export-get-date info))))
(format "\\date{%s}\n" (org-export-data date info))) (format "\\date{%s}\n" (org-export-data date info)))