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

organizing headline logic

Browse source
This commit is contained in:
Óscar Nájera 2018-03-23 23:06:31 +01:00
parent ca364bca8a
commit c61aed42af
1 changed files with 7 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
ox-cv.el
View file

@ -178,12 +178,10 @@ as a communication channel."
(environment (let ((env (org-element-property :CV_ENV headline))) (environment (let ((env (org-element-property :CV_ENV headline)))
(or (org-string-nw-p env) "block")))) (or (org-string-nw-p env) "block"))))
(concat (format "%s %s %s %s" level tags frame-level environment) (cond
;; is a cv entry ;; is a cv entry
"jumping" ((equal environment "cventry")
(and (equal environment "cventry") (org-cv-cventry headline contents info))
(org-cv-cventry headline contents info)) (t (concat (format "%s %s %s %s %s\n" level tags frame-level environment
"ahead\n\n" contents)
))))))
))))