Bug fix: Don't post-fix todo keywords with spaces

That caused the member match in org-todo-keywords to always fail in
org-html--todo.
master
Kaushal Modi 8 years ago
parent 4e016b56ed
commit 76f350ced4
  1. 11
      ox-hugo.el

@ -1480,10 +1480,8 @@ a communication channel."
(let* ((numbers (org-hugo--get-headline-number headline info nil))
(level (org-export-get-relative-level headline info))
(title (org-export-data (org-element-property :title headline) info)) ;`org-export-data' required
(todo (let ((todo1 (and (org-hugo--plist-get-true-p info :with-todo-keywords)
(org-element-property :todo-keyword headline))))
(when (stringp todo1)
(format "%s " todo1))))
(todo (and (org-hugo--plist-get-true-p info :with-todo-keywords)
(org-element-property :todo-keyword headline)))
(tags (and (org-hugo--plist-get-true-p info :with-tags)
(let ((tag-list (org-export-get-tags headline info)))
(and tag-list
@ -1493,8 +1491,6 @@ a communication channel."
(and (org-hugo--plist-get-true-p info :with-priority)
(let ((char (org-element-property :priority headline)))
(and char (format "[#%c] " char)))))
;; Headline text without tags.
(heading (concat todo priority title))
(style (plist-get info :md-headline-style)))
;; (message "[ox-hugo-headline DBG] num: %s" numbers)
(cond
@ -1508,7 +1504,8 @@ a communication channel."
(concat (number-to-string
(car (last (org-export-get-headline-number
headline info))))
"."))))
".")))
(heading (concat todo " " priority title))) ;Headline text without tags
(concat bullet (make-string (- 4 (length bullet)) ?\s) heading tags "\n\n"
(and contents (replace-regexp-in-string "^" " " contents)))))
(t

Loading…
Cancel
Save