phundrak/ox-gemini
1
0
Fork 0
Code Issues 3 Pull Requests Packages Projects Releases Wiki Activity

leave a blank line after the link blocks

Browse Source 
Signed-off-by: Justin Abrahms <justin@abrah.ms>
This commit is contained in:
Omar Polo 2021-08-11 08:04:33 +00:00 committed by Justin Abrahms
parent 4572682a99
commit 8bbc1c9f6d
1 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
ox-gemini.el
View File

@ -83,21 +83,24 @@
"Describe links is the footer-portion of the link data.
It's output just before each section. LINKS is a list of each link. INFO is a plist."
(mapconcat
(lambda (link)
(let* ((raw-path (org-element-property :raw-link link))
(link-type (org-element-property :type link))
(is-org-file-link (and (string= "file" link-type)
(string= ".org" (downcase (file-name-extension raw-path ".")))))
(path (if is-org-file-link
(concat (file-name-sans-extension (org-element-property :path link)) ".gmi")
raw-path))
(desc (org-element-contents link))
(anchor (org-export-data
(or desc (org-element-property :raw-link link))
info)))
(format "=> %s %s\n" path anchor)))
links ""))
(concat
(mapconcat
(lambda (link)
(let* ((raw-path (org-element-property :raw-link link))
(link-type (org-element-property :type link))
(is-org-file-link (and (string= "file" link-type)
(string= ".org" (downcase (file-name-extension raw-path ".")))))
(path (if is-org-file-link
(concat (file-name-sans-extension (org-element-property :path link)) ".gmi")
raw-path))
(desc (org-element-contents link))
(anchor (org-export-data
(or desc (org-element-property :raw-link link))
info)))
(format "=> %s %s\n" path anchor)))
links "")
(when (car links)
"\n")))
(defun org-gemini-link (_link desc _info)