mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-25 07:27:57 +00:00
Code

org-md: Fix spurious white space in Setext style

Browse Source 
* contrib/lisp/org-md.el (org-md-headline): Fix spurious white space
  in Setext style.
This commit is contained in:
Nicolas Goaziou 2012-07-27 22:58:49 +02:00
parent 7b6e6e9ff5
commit 029e499939
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
contrib/lisp/org-md.el
View File

@ -160,9 +160,9 @@ a communication channel."
(mapconcat 'identity tag-list ":"))))))
(priority (and (plist-get info :with-priority)
(org-element-property :priority headline)))
(heading (concat (and todo (concat " " todo))
(and priority (concat " " priority))
" " title)))
(heading (concat (and todo (concat todo " "))
(and priority (concat priority " "))
title)))
(cond
;; Cannot create an headline. Fall-back to a list.
((or (org-export-low-level-p headline info)
@ -186,7 +186,9 @@ a communication channel."
"\n\n"
contents))
;; Use "atx" style.
(t (concat (make-string level ?#) heading (and tags (concat " " tags))
(t (concat (make-string level ?#) " "
heading
(and tags (concat " " tags))
"\n\n"
contents))))))