From 8bbc1c9f6dc363571350b2e2b727b99fc3592aa3 Mon Sep 17 00:00:00 2001 From: Omar Polo Date: Wed, 11 Aug 2021 08:04:33 +0000 Subject: [PATCH] leave a blank line after the link blocks Signed-off-by: Justin Abrahms --- ox-gemini.el | 33 ++++++++++++++++++--------------- 1 file changed, 18 insertions(+), 15 deletions(-) diff --git a/ox-gemini.el b/ox-gemini.el index 9b95ac5..7329e0d 100644 --- a/ox-gemini.el +++ b/ox-gemini.el @@ -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)