Default sep to "" if nil

master
Kaushal Modi 8 years ago
parent a8d3eb0630
commit 849c8957c8
  1. 7
      ox-hugo.el

@ -1580,7 +1580,8 @@ If the property is present but empty, the return value is the
empty string. If the property is not present at all, nil is
returned. In any other case, return the value as a string.
Search is case-insensitive."
(let ((value-no-concat (org-entry-get pom property :inherit)))
(let ((sep (or sep ""))
(value-no-concat (org-entry-get pom property :inherit)))
;; (message "[ox-hugo section concat DBG] value-no-concat: %S" value-no-concat)
(if value-no-concat
;; Get the value of PROPERTY from the parent relative to
@ -1616,7 +1617,9 @@ and the concatenated \"EXPORT_HUGO_SECTION*\" values as a path.
Else, return the \"HUGO_SECTION\" path.
The function always returns a string."
The function always returns a string.
INFO is a plist used as a communication channel."
(let* ((hugo-section-kwd
(directory-file-name (plist-get info :hugo-section))) ;Remove trailing slash if any
(hugo-section-frag-prop (org-entry-get nil "EXPORT_HUGO_SECTION*" :inherit))

Loading…
Cancel
Save