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

checkdoc passes now

Browse Source
This commit is contained in:
Justin Abrahms 2020-11-25 09:03:30 -08:00
parent 4e8f298baa
commit 577652feec
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ox-gemini.el
View File

@ -50,23 +50,28 @@
(template . org-gemini-template))) (template . org-gemini-template)))
(defun org-gemini-paragraph (paragraph _contents _info) (defun org-gemini-paragraph (paragraph _contents _info)
"PARAGRAPH is the text of the paragraph."
paragraph) paragraph)
(defun org-gemini-item (_input contents _info) (defun org-gemini-item (_input contents _info)
"CONTENTS is the text of the individual item."
(format "* %s" contents)) (format "* %s" contents))
(defun org-gemini-code-inline (input _contents info) (defun org-gemini-code-inline (input _contents info)
"INPUT is either a 'src-block' or 'example-block' element. INFO is a plist."
;; there's a bug here where there's a trailing space in the `` ;; there's a bug here where there's a trailing space in the ``
(format "`%s`" (org-export-format-code-default input info))) (format "`%s`" (org-export-format-code-default input info)))
(defun org-gemini-code-block (example-block _contents info) (defun org-gemini-code-block (example-block _contents info)
"EXAMPLE-BLOCK is a codeblock. INFO is a plist."
(org-remove-indentation (org-remove-indentation
(format "```\n%s```" (format "```\n%s```"
(org-export-format-code-default example-block info)))) (org-export-format-code-default example-block info))))
(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. It's "Describe links is the footer-portion of the link data.
output just before each section."
It's output just before each section. LINKS is a list of each link. INFO is a plist."
(mapconcat (mapconcat
(lambda (link) (lambda (link)
(let* ((raw-path (org-element-property :raw-link link)) (let* ((raw-path (org-element-property :raw-link link))
@ -87,6 +92,8 @@ output just before each section."
(defun org-gemini-link (_link desc _info) (defun org-gemini-link (_link desc _info)
"Simple link generation. "Simple link generation.
DESC is the link text
Note: the footer with the actual links are handled in Note: the footer with the actual links are handled in
org-gemini--describe-links" org-gemini--describe-links"
(if (org-string-nw-p desc) (if (org-string-nw-p desc)
@ -115,6 +122,9 @@ contextual information."
(defun org-gemini--build-title (defun org-gemini--build-title
(element info _text-width &optional _underline _notags toc) (element info _text-width &optional _underline _notags toc)
"Build a title heading.
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