forked from mirrors/org-cv
organizing headline logic
This commit is contained in:
parent
ca364bca8a
commit
c61aed42af
1 changed files with 7 additions and 9 deletions
12
ox-cv.el
12
ox-cv.el
|
@ -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))
|
||||||
"ahead\n\n"
|
(t (concat (format "%s %s %s %s %s\n" level tags frame-level environment
|
||||||
|
contents)
|
||||||
|
))))))
|
||||||
))))
|
|
||||||
|
|
Loading…
Reference in a new issue