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

clean up comments.

Browse Source
This commit is contained in:
Justin Abrahms 2020-11-07 16:20:34 -08:00
parent 1387e3205b
commit 79bf58e41f
2 changed files with 4 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.org
View File

@ -1,6 +1,6 @@
* ox-gemini * ox-gemini
This adds support for exporting org files in gemini format. This adds support for exporting org files in gemini format. Many things in here were taken from the ascii exporter, from which this one derives.
Read more about gemini here: https://gemini.circumlunar.space/ Read more about gemini here: https://gemini.circumlunar.space/
Read more about org-mode here: https://orgmode.org/ Read more about org-mode here: https://orgmode.org/

32
ox-gemini.el
View File

@ -20,37 +20,11 @@
)) ))
:translate-alist '( :translate-alist '(
(code . org-gemini-code-inline) (code . org-gemini-code-inline)
;; (export-block . org-gemini-identity)
;; (center-block . org-gemini-identity)
;; (code . org-gemini-identity)
;; (drawer . org-gemini-identity)
;; (dynamic-block . org-gemini-identity)
;; (example-block . org-gemini-identity)
;; (export-block . org-gemini-identity)
;; (fixed-width . org-gemini-identity)
(headline . org-gemini-headline) (headline . org-gemini-headline)
;; (horizontal-rule . org-gemini-identity)
;; (inline-src-block . org-gemini-code-inline)
;; (inlinetask . org-gemini-identity)
;; (inner-template . org-gemini-identity)
;; (italic . org-gemini-identity)
;; (item . org-gemini-identity)
;; (keyword . org-gemini-identity)
;; (line-break . org-gemini-identity)
(link . org-gemini-link) (link . org-gemini-link)
;; (node-property . org-gemini-identity)
;; (paragraph . org-gemini-identity)
;; (plain-list . org-gemini-identity)
;; (plain-text . org-gemini-identity)
;; (property-drawer . org-gemini-identity)
;; (quote-block . org-gemini-identity)
(section . org-gemini-section) (section . org-gemini-section)
;; (special-block . org-gemini-identity)
(src-block . org-gemini-code-block) (src-block . org-gemini-code-block)
;; (table . org-gemini-identity)
(template . org-gemini-template) (template . org-gemini-template)
;; (verbatim . org-gemini-identity
) )
) )
@ -90,7 +64,7 @@
(defun org-gemini-section (section contents info) (defun org-gemini-section (section contents info)
"Transcode a SECTION element from Org to ASCII. "Transcode a SECTION element from Org to GEMINI.
CONTENTS is the contents of the section. INFO is a plist holding CONTENTS is the contents of the section. INFO is a plist holding
contextual information." contextual information."
(let ((links (let ((links
@ -124,7 +98,7 @@ contextual information."
(defun org-gemini-headline (headline contents info) (defun org-gemini-headline (headline contents info)
"Transcode a HEADLINE element from Org to ASCII. "Transcode a HEADLINE element from Org to GEMINI.
CONTENTS holds the contents of the headline. INFO is a plist CONTENTS holds the contents of the headline. INFO is a plist
holding contextual information." holding contextual information."
;; Don't export footnote section, which will be handled at the end ;; Don't export footnote section, which will be handled at the end
@ -176,7 +150,7 @@ holding contextual information."
(concat title "\n" pre-blanks body))))) (concat title "\n" pre-blanks body)))))
(defun org-gemini-template (contents info) (defun org-gemini-template (contents info)
"Return complete document string after ASCII conversion. "Return complete document string after GEMINI conversion.
CONTENTS is the transcoded contents string. INFO is a plist CONTENTS is the transcoded contents string. INFO is a plist
holding export options." holding export options."
(let ((global-margin (plist-get info :ascii-global-margin))) (let ((global-margin (plist-get info :ascii-global-margin)))