checkdoc passes now
This commit is contained in:
parent
4e8f298baa
commit
577652feec
14
ox-gemini.el
14
ox-gemini.el
@ -50,23 +50,28 @@
|
||||
(template . org-gemini-template)))
|
||||
|
||||
(defun org-gemini-paragraph (paragraph _contents _info)
|
||||
"PARAGRAPH is the text of the paragraph."
|
||||
paragraph)
|
||||
|
||||
(defun org-gemini-item (_input contents _info)
|
||||
"CONTENTS is the text of the individual item."
|
||||
(format "* %s" contents))
|
||||
|
||||
(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 ``
|
||||
(format "`%s`" (org-export-format-code-default input info)))
|
||||
|
||||
(defun org-gemini-code-block (example-block _contents info)
|
||||
"EXAMPLE-BLOCK is a codeblock. INFO is a plist."
|
||||
(org-remove-indentation
|
||||
(format "```\n%s```"
|
||||
(org-export-format-code-default example-block info))))
|
||||
|
||||
(defun org-gemini--describe-links (links _width info)
|
||||
"Describe links is the footer-portion of the link data. It's
|
||||
output just before each section."
|
||||
"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))
|
||||
@ -87,6 +92,8 @@ output just before each section."
|
||||
(defun org-gemini-link (_link desc _info)
|
||||
"Simple link generation.
|
||||
|
||||
DESC is the link text
|
||||
|
||||
Note: the footer with the actual links are handled in
|
||||
org-gemini--describe-links"
|
||||
(if (org-string-nw-p desc)
|
||||
@ -115,6 +122,9 @@ contextual information."
|
||||
|
||||
(defun org-gemini--build-title
|
||||
(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))
|
||||
(text
|
||||
(org-trim
|
||||
|
Loading…
Reference in New Issue
Block a user