mirror of
https://gitlab.com/Titan-C/org-cv.git
synced 2024-11-21 21:48:34 +00:00
processing a headline into a cventry
Just for first level headings
This commit is contained in:
parent
f18303ec72
commit
e5f7cb8378
1 changed files with 34 additions and 1 deletions
35
ox-cv.el
35
ox-cv.el
|
@ -32,7 +32,8 @@
|
|||
(:github "GITHUB" nil nil parse)
|
||||
(:linkedin "LINKEDIN" nil nil parse)
|
||||
)
|
||||
:translate-alist '((template . org-cv-template)))
|
||||
:translate-alist '((template . org-cv-template)
|
||||
(headline . org-cv-headline)))
|
||||
|
||||
(defun org-cv--add-latex-newlines (string)
|
||||
"Replace regular newlines with LaTeX newlines (i.e. `\\\\')"
|
||||
|
@ -139,3 +140,35 @@ holding export options."
|
|||
(concat (plist-get info :creator) "\n"))
|
||||
;; Document end.
|
||||
"\\end{document}")))
|
||||
|
||||
(defun org-cv-cventry (headline contents info)
|
||||
(let ((from-date (org-element-property :FROM headline))
|
||||
(to-date (org-element-property :TO headline))
|
||||
(location (org-element-property :LOCATION headline))
|
||||
(title (org-element-property :title headline))
|
||||
(employer (org-element-property :EMPLOYER headline)))
|
||||
(format "\\cventry{%s}{%s}{%s}{%s}{%s}{%s}\n"
|
||||
"start" title employer location "de paso" contents)))
|
||||
|
||||
|
||||
;;;; Headline
|
||||
(defun org-cv-headline (headline contents info)
|
||||
"Transcode HEADLINE element into Beamer code.
|
||||
CONTENTS is the contents of the headline. INFO is a plist used
|
||||
as a communication channel."
|
||||
(unless (org-element-property :footnote-section-p headline)
|
||||
(let ((level (org-export-get-relative-level headline info))
|
||||
(frame-level (org-beamer--frame-level headline info))
|
||||
(tags (org-export-get-tags headline info))
|
||||
|
||||
(environment (let ((env (org-element-property :CV_ENV headline)))
|
||||
(or (org-string-nw-p env) "block"))))
|
||||
(concat (format "%s %s %s %s" level tags frame-level environment)
|
||||
;; is a cv entry
|
||||
"jumping"
|
||||
(and (equal environment "cventry")
|
||||
(org-cv-cventry headline contents info))
|
||||
"ahead\n\n"
|
||||
|
||||
|
||||
))))
|
||||
|
|
Loading…
Reference in a new issue