From db45b66f341bd36ed4ed9b0feb141cced956e2cf Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Fri, 11 Sep 2026 22:14:51 +0100 Subject: Add gemini link type. --- ennum-link.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/ennum-link.el b/ennum-link.el index 4c514b5..920a181 100644 --- a/ennum-link.el +++ b/ennum-link.el @@ -12,6 +12,18 @@ property list INFO." `(ennum-with-current-directory (ennum-setting :working-directory) (find-file ,path))) +(defun ennum-link-export-gemini (path desc backend info) + (let ((url (format "gemini:%s" path))) + (pcase backend + ((or 'ennum-html 'html) + (xmlgen `(a :href ,url + ,(or desc url)))) + ((or 'ennum-gemini 'gemini) + (format "=> %s %s" url desc))))) + +(defun ennum-link-follow-gemini (path) + (browse-url (format "gemini:%s" path))) + ;; TODO: Pass title through org-export-data-with-backend or something ;; similar in order to export org syntax in title ;; See fist-2017 post @@ -113,6 +125,11 @@ property list INFO." ((or 'ennum-gemini 'gemini) (format "=> %s.gmi %s" tag-url (or desc tag)))))) +(org-link-set-parameters + "gemini" + :export 'ennum-link-export-gemini + :follow 'ennum-link-follow-gemini) + (org-link-set-parameters "post" :export 'ennum-link-export-post -- cgit 1.4.1