From c61aed42aff7f6553e45e33753e15135149e7132 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C3=93scar=20N=C3=A1jera?= Date: Fri, 23 Mar 2018 23:06:31 +0100 Subject: [PATCH] organizing headline logic --- ox-cv.el | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/ox-cv.el b/ox-cv.el index ad95d26..cba7765 100644 --- a/ox-cv.el +++ b/ox-cv.el @@ -178,12 +178,10 @@ as a communication channel." (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" - - - )))) + (cond + ;; is a cv entry + ((equal environment "cventry") + (org-cv-cventry headline contents info)) + (t (concat (format "%s %s %s %s %s\n" level tags frame-level environment + contents) + ))))))