don't leave # when there isn't a title

and while there ensure that there's an empty line following the
document title.

Signed-off-by: Justin Abrahms <justin@abrah.ms>
This commit is contained in:
Omar Polo 2021-08-11 07:57:46 +00:00 committed by Justin Abrahms
parent 8bbc1c9f6d
commit 1e4cabf98a
1 changed files with 7 additions and 9 deletions

View File

@ -29,7 +29,6 @@
;; TODO:
;; Sublists aren't supported in gemini
;; There's a trailing space after inline code samples
;; If you don't have a title, it leaves a blank # in the gmi
;; If you link a file to an absolute path, the links break
;; bare links don't work (e.g. directly linking https://google.com
;;
@ -207,14 +206,13 @@ holding contextual information."
"Return complete document string after GEMINI conversion.
CONTENTS is the transcoded contents string. INFO is a plist
holding export options."
(concat
;; Build title block.
(format "# %s\n" (org-export-data
(when (plist-get info :with-title) (plist-get info :title)) info))
;; Document's body.
contents))
(let ((title (org-export-data (when (plist-get info :with-title)
(plist-get info :title))
info)))
(concat
(unless (string= title "")
(format "# %s\n\n" title))
contents)))
(defun org-gemini-export-to-buffer (&optional async subtreep visible-only body-only ext-plist)
"Export an org file to a new buffer.