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

Fixed #2. Fixed #1 too.

Browse Source
This commit is contained in:
cnngimenez 2022-02-04 15:54:19 -03:00
parent 2046ff20b8
commit 7465109046
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ox-gemini.el
View File

@ -48,7 +48,8 @@
(section . org-gemini-section) (section . org-gemini-section)
(src-block . org-gemini-code-block) (src-block . org-gemini-code-block)
(item . org-gemini-item) (item . org-gemini-item)
(template . org-gemini-template))) (template . org-gemini-template)
(table . org-gemini-table)))
(defun org-gemini-paragraph (_paragraph contents _info) (defun org-gemini-paragraph (_paragraph contents _info)
"CONTENTS is the text of the paragraph." "CONTENTS is the text of the paragraph."
@ -58,12 +59,14 @@
(defun org-gemini-item (item contents info) (defun org-gemini-item (item contents info)
"CONTENTS is the text of the individual item." "CONTENTS is the text of the individual item."
(concat "* " (concat "* "
;; vv Code from ox-md! vv
(pcase (org-element-property :checkbox item) (pcase (org-element-property :checkbox item)
(`on "[X] ") (`on "[X] ")
(`trans "[-] ") (`trans "[-] ")
(`off "[ ] ")) (`off "[ ] "))
(let ((tag (org-element-property :tag item))) (let ((tag (org-element-property :tag item)))
(and tag (format "%s :: "(org-export-data tag info)))) (and tag (format "%s :: " (org-export-data tag info))))
;; ^^ ^^
contents)) contents))
(defun org-gemini-quote-block (_input contents _info) (defun org-gemini-quote-block (_input contents _info)
@ -294,7 +297,13 @@ CONTENTS is nil. INFO is a plist holding contextual information."
'("GEMINI" "GMI" "GEMTEXT")) '("GEMINI" "GMI" "GEMTEXT"))
(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)
"Use the `org-ascii-table' but surrounded by backticks."
(let ((name (or (caaar (org-element-property :caption table))
(org-element-property :name table))))
(concat (format "```%s\n" (or name ""))
(org-ascii-table table contents info)
"\n```\n")))
(provide 'ox-gemini) (provide 'ox-gemini)
;;; ox-gemini.el ends here ;;; ox-gemini.el ends here