mirrors/org-cv
1
0
Fork 1
mirror of https://gitlab.com/Titan-C/org-cv.git synced 2025-04-16 18:29:29 +00:00
Code Issues Projects Releases Packages Wiki Activity

feat(ox-moderncv.el): Use of moderncv LaTeX template emphasized last name(s)

Browse source
This commit is contained in:
Louis.vgn 2025-01-24 11:15:59 +00:00 • committed by Óscar Nájera
parent 33c8844589
commit a070efaf2e
2 changed files with 14 additions and 5 deletions

4
.gitignore vendored
View file

@ -1,2 +1,6 @@
*.elc
/dev.org
.dir-locals.el
Makefile
*~
test/

15
ox-moderncv.el
View file

@ -64,6 +64,8 @@
(:github "GITHUB" nil nil parse)
(:linkedin "LINKEDIN" nil nil parse)
(:with-email nil "email" t t)
(:firstname "FIRSTNAME" nil nil t)
(:lastname "LASTNAME" nil nil t)
)
:translate-alist '((template . org-moderncv-template)
(headline . org-moderncv-headline)))
@ -98,11 +100,14 @@ holding export options."
(let ((sec-num (plist-get info :section-numbers)))
(when (integerp sec-num)
(format "\\setcounter{secnumdepth}{%d}\n" sec-num)))
;; Author.
(let ((author (and (plist-get info :with-author)
(let ((auth (plist-get info :author)))
(and auth (org-export-data auth info))))))
(format "\\name{%s}{}\n" author))
;; Author. If FIRSTNAME or LASTNAME are not given, try to deduct
;; their values by splitting AUTHOR on white space.
(let* ((author (split-string (org-export-data (plist-get info :author) info)))
(first-name-prop (org-export-data (plist-get info :firstname) info))
(last-name-prop (org-export-data (plist-get info :lastname) info))
(first-name (or (org-string-nw-p first-name-prop) (car author)))
(last-name (or (org-string-nw-p last-name-prop) (cadr author))))
(format "\\name{%s}{%s}\n" first-name last-name))
;; photo
(let ((photo (org-export-data (plist-get info :photo) info)))
(when (org-string-nw-p photo)