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

Checkdoc pass. Melpazoid checks pass.

Browse Source
This commit is contained in:
cnngimenez 2022-04-18 11:33:45 -03:00
parent d0f2cabb2b
commit 168f820ea4
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ox-gemini.el
View File

@ -57,7 +57,9 @@
"\n")) "\n"))
(defun org-gemini-item (item contents info) (defun org-gemini-item (item contents info)
"CONTENTS is the text of the individual item." "Generate a Gemtext item from the org CONTENTS.
CONTENTS is the text of the individual item.
ITEM is the parsed-org element with all properties."
(concat "* " (concat "* "
;; vv Code from ox-md! vv ;; vv Code from ox-md! vv
(pcase (org-element-property :checkbox item) (pcase (org-element-property :checkbox item)
@ -76,7 +78,8 @@
(replace-regexp-in-string "\n\\'" "" contents))) (replace-regexp-in-string "\n\\'" "" 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." "Generate an inline code in Gemtext from the parsed INPUT.
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)))
@ -300,12 +303,16 @@ CONTENTS is nil. INFO is a plist holding contextual information."
(org-remove-indentation (org-element-property :value export-block)))) (org-remove-indentation (org-element-property :value export-block))))
(defun org-gemini-table (table contents info) (defun org-gemini-table (table contents info)
"Use the `org-ascii-table' but surrounded by backticks." "Generate a Gemtext table from the parsed Org.
Use the `org-ascii-table' but surrounded by backticks.
Parameters: TABLE is the parsed org-element table. CONTENTS is the text with
properties. INFO is a plist with export options."
(let ((name (or (caaar (org-element-property :caption table)) (let ((name (or (caaar (org-element-property :caption table))
(org-element-property :name table)))) (org-element-property :name table))))
(concat (format "```%s\n" (or name "")) (format "```%s\n%s\n```\n"
(org-ascii-table table contents info) (or name "")
"\n```\n"))) (org-ascii-table table contents info))))
(provide 'ox-gemini) (provide 'ox-gemini)
;;; ox-gemini.el ends here ;;; ox-gemini.el ends here