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

Support for #+BEGIN_EXPORT gemini. Byte-compile is happy.

Browse Source
This commit is contained in:
cnngimenez 2022-01-16 00:40:58 -03:00
parent 5420b6cea8
commit 07882c1987
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ox-gemini.el
View File

@ -40,6 +40,7 @@
(lambda (a s v b) (lambda (a s v b)
(org-gemini-export-to-file a s v b nil))))) (org-gemini-export-to-file a s v b nil)))))
:translate-alist '((code . org-gemini-code-inline) :translate-alist '((code . org-gemini-code-inline)
(export-block . org-gemini-export-block)
(paragraph . org-gemini-paragraph) (paragraph . org-gemini-paragraph)
(headline . org-gemini-headline) (headline . org-gemini-headline)
(link . org-gemini-link) (link . org-gemini-link)
@ -81,7 +82,8 @@
(defun org-gemini--describe-links (links _width info) (defun org-gemini--describe-links (links _width info)
"Describe links is the footer-portion of the link data. "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." It's output just before each section. LINKS is a list of each link.
INFO is a plist."
(concat (concat
(mapconcat (mapconcat
(lambda (link) (lambda (link)
@ -139,7 +141,8 @@ contextual information."
(element info _text-width &optional _underline _notags toc) (element info _text-width &optional _underline _notags toc)
"Build a title heading. "Build a title heading.
ELEMENT is an org-element. TOC is whether to show the table of contents. INFO is unimportant." ELEMENT is an org-element. TOC is whether to show the table of contents.
INFO is unimportant."
(let ((number (org-element-property :level element)) (let ((number (org-element-property :level element))
(text (text
(org-trim (org-trim
@ -277,6 +280,14 @@ Return output file name."
(org-publish-org-to (org-publish-org-to
'gemini filename ".gmi" plist pub-dir)) 'gemini filename ".gmi" plist pub-dir))
(defun org-gemini-export-block (export-block _contents _info)
"Transcode a EXPORT-BLOCK element from Org to Markdown.
CONTENTS is nil. INFO is a plist holding contextual information."
(when (member (org-element-property :type export-block) '("GEMINI" "GMI"
"GEMTEXT"))
(org-remove-indentation (org-element-property :value export-block))))
(provide 'ox-gemini) (provide 'ox-gemini)
;;; ox-gemini.el ends here ;;; ox-gemini.el ends here