| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313\314\315\316\317& \210\320\321\322\323\324DD\325\312\305\326\327&\210\320\330\322\323\331DD\332\312\305\326\333\314\334\316\335& \210\320\336\322\323\337DD\340\312\305\326\333\314\334\316\341& \210\342\343\344\345\346\347\350\351\352\353\354&\n\207" [require cl-lib ox-html ox-publish custom-declare-group org-export-md nil "Options specific to Markdown export back-end." :tag "Org Markdown" :group org-export :version "24.4" :package-version (Org . "8.0") custom-declare-variable org-md-headline-style funcall function #[0 "\300\207" [atx] 1] "Style used to format headlines.\nThis variable can be set to either `atx' or `setext'." :type (choice (const :tag "Use \"atx\" style" atx) (const :tag "Use \"Setext\" style" setext)) org-md-footnotes-section #[0 "\300\207" [#1="%s%s"] 1 #1#] "Format string for the footnotes section.\nThe first %s placeholder will be replaced with the localized Footnotes section\nheading, the second with the contents of the Footnotes section." string "26.1" (Org . "9.0") org-md-footnote-format #[0 "\300\207" [#2="<sup>%s</sup>"] 1 #2#] "Format string for the footnote reference.\nThe %s will be replaced by the footnote reference itself." (Org . "9.0") org-export-define-derived-backend md html :filters-alist ((:filter-parse-tree . org-md-separate-elements)) :menu-entry (109 "Export to Markdown" ((77 "To temporary buffer" (lambda (a s v b) (org-md-export-as-markdown a s v))) (109 "To file" (lambda (a s v b) (org-md-export-to-markdown a s v))) (111 "To file and open" (lambda (a s v b) (if a (org-md-export-to-markdown t s v) (org-open-file (org-md-export-to-markdown nil s v))))))) :translate-alist ((bold . org-md-bold) (code . org-md-verbatim) (example-block . org-md-example-block) (export-block . org-md-export-block) (fixed-width . org-md-example-block) (headline . org-md-headline) (horizontal-rule . org-md-horizontal-rule) (inline-src-block . org-md-verbatim) (inner-template . org-md-inner-template) (italic . org-md-italic) (item . org-md-item) (keyword . org-md-keyword) (line-break . org-md-line-break) (link . org-md-link) (node-property . org-md-node-property) (paragraph . org-md-paragraph) (plain-list . org-md-plain-list) (plain-text . org-md-plain-text) (property-drawer . org-md-property-drawer) (quote-block . org-md-quote-block) (section . org-md-section) (src-block . org-md-example-block) (template . org-md-template) (verbatim . org-md-verbatim)) :options-alist ((:md-footnote-format nil nil org-md-footnote-format) (:md-footnotes-section nil nil org-md-footnotes-section) (:md-headline-style nil nil org-md-headline-style))] 12) | |
| 16 | #@501 Fix blank lines between elements. | |
| 17 | ||
| 18 | TREE is the parse tree being exported. BACKEND is the export | |
| 19 | back-end used. INFO is a plist used as a communication channel. | |
| 20 | ||
| 21 | Enforce a blank line between elements. There are two exceptions | |
| 22 | to this rule: | |
| 23 | ||
| 24 | 1. Preserve blank lines between sibling items in a plain list, | |
| 25 | ||
| 26 | 2. In an item, remove any blank line before the very first | |
| 27 | paragraph and the next sub-list when the latter ends the | |
| 28 | current item. | |
| 29 | ||
| 30 | Assume BACKEND is `md'. | |
| 31 | ||
| 32 | (fn TREE BACKEND INFO) | |
| 33 | (defalias 'org-md-separate-elements #[771 "\301\302\303\"\304\305\306\307\310!\311\"\312\313%#\210\207" [org-element-all-elements org-element-map remq item make-byte-code 257 "\211\301\211:\204 \211;\205 \302\202 \211@9\205 \211@\262\303=\203\213 \304\211;\203/ \305\306#\2025 \307A@\"\266\202\211:\204E \211;\205M \302\202M \211@9\205M \211@\262\310=\203\213 \311\300\"\203\213 \312\300\"\211\211:\204n \211;\205v \302\202v \211@9\205v \211@\262\313=\205\202 \312\300\"?\262\203\213 \306\202\214 \314;\203\232 \315\316$\202\246 A\317A@#\240\210\207" vconcat vector [:post-blank plain-text paragraph :parent get-text-property 0 plist-get item org-export-first-sibling-p org-export-get-next-element plain-list 1 org-add-props nil plist-put] 9 "\n\n(fn E)"] 12 (#$ . 3085)]) | |
| 34 | #@161 Transcode BOLD object into Markdown format. | |
| 35 | CONTENTS is the text within bold markup. INFO is a plist used as | |
| 36 | a communication channel. | |
| 37 | ||
| 38 | (fn BOLD CONTENTS INFO) | |
| 39 | (defalias 'org-md-bold #[771 "\300\301\"\207" [format "**%s**"] 6 (#$ . 4396)]) | |
| 40 | #@145 Transcode VERBATIM object into Markdown format. | |
| 41 | CONTENTS is nil. INFO is a plist used as a communication | |
| 42 | channel. | |
| 43 | ||
| 44 | (fn VERBATIM CONTENTS INFO) | |
| 45 | (defalias 'org-md-verbatim #[771 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304\305\306\"\204# \307\2026 \310\306\"\2041 \311\306\"\2035 \312\2026 \313\"\207" [:value get-text-property 0 plist-get format string-match "`" "`%s`" string-prefix-p string-suffix-p "`` %s ``" "``%s``"] 9 (#$ . 4644)]) | |
| 46 | #@156 Transcode EXAMPLE-BLOCK element into Markdown format. | |
| 47 | CONTENTS is nil. INFO is a plist used as a communication | |
| 48 | channel. | |
| 49 | ||
| 50 | (fn EXAMPLE-BLOCK CONTENTS INFO) | |
| 51 | (defalias 'org-md-example-block #[771 "\300\301\302\303\304\"!#\207" [replace-regexp-in-string "^" " " org-remove-indentation org-export-format-code-default] 10 (#$ . 5106)]) | |
| 52 | #@155 Transcode a EXPORT-BLOCK element from Org to Markdown. | |
| 53 | CONTENTS is nil. INFO is a plist holding contextual information. | |
| 54 | ||
| 55 | (fn EXPORT-BLOCK CONTENTS INFO) | |
| 56 | (defalias 'org-md-export-block #[771 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304\235\2036 \305\306\211;\203, \301\302#\2022 \303A@\"\266\202!\207\307\310$\207" [:type get-text-property 0 plist-get ("MARKDOWN" "MD") org-remove-indentation :value org-export-with-backend html] 10 (#$ . 5450)]) | |
| 57 | #@164 Transcode HEADLINE element into Markdown format. | |
| 58 | CONTENTS is the headline contents. INFO is a plist used as | |
| 59 | a communication channel. | |
| 60 | ||
| 61 | (fn HEADLINE CONTENTS INFO) | |
| 62 | (defalias 'org-md-headline #[771 "\300\211;\203 \301\302#\202 \303A@\"\266\202?\205M\304\"\305\306\211;\203/ \301\302#\2025 \303A@\"\266\202\"\303\307\"\205c \310\211;\203O \301\302#\202U \303A@\"\266\202\211\205a \305\"\311P\262\303\312\"\205} \313\"\211\205{ \314\315\316\317\320#\"\262\303\321\"\205\246 \322\211;\203\224 \301\302#\202\232 \303A@\"\266\202\211\205\244 \314\323\"\262Q\303\324\"\325\n \"\204\330 \211\326>\203\330 \211\327=\203\313 \330V\204\330 \211\331=\203\332V\203\333\n \"\204\345 \334\202\362 \335\336\337\f \"!@!\340P\211\341\342GZ\343\"\344\205 \345\346\347#\260\262\202K\350\n \"\205=\314\351\352\f\211;\203+\301\302#\2021\303A@\"\266\202\206<\353\f \"\"\354 %\nP\262\266\207\207" [:footnote-section-p get-text-property 0 plist-get org-export-get-relative-level org-export-data :title :with-todo-keywords :todo-keyword " " :with-tags org-export-get-tags format " :%s:" mapconcat identity ":" :with-priority :priority "[#%c] " :md-headline-style org-export-low-level-p (atx setext) atx 6 setext 2 org-export-numbered-headline-p "-" number-to-string last org-export-get-headline-number "." make-string 4 32 "\n\n" replace-regexp-in-string "^" " " org-md--headline-referred-p "<a id=\"%s\"></a>" :CUSTOM_ID org-export-get-reference org-md--headline-title] 20 (#$ . 5924)]) | |
| 63 | #@167 Non-nil when HEADLINE is being referred to. | |
| 64 | INFO is a plist used as a communication channel. Links and table | |
| 65 | of contents can refer to headlines. | |
| 66 | ||
| 67 | (fn HEADLINE INFO) | |
| 68 | (defalias 'org-md--headline-referred-p #[514 "\300\211;\203 \301\302#\202 \303A@\"\266\202?\205] \303\304\"\203. \305\303\304\"\">\206] \306\307\310\311\312\313\"\314\"\315\316%\317!\"\206] \320\303\321\"\322\307\310\323\312\313 \"\324\"\325\326%\327%\207" [:footnote-section-p get-text-property 0 plist-get :with-toc org-export-collect-headlines cl-some make-byte-code 257 "\211\211:\204\n \302\202 \211@9\203 \211AA\202 \211\262@\211\211:\204) \211;\2051 \303\2021 \211@9\2051 \211@\262\304=\205K \305\306\307\310\311\312\313\300\301\"\314\"\315\316%\301\317%\207" vconcat vector [nil plain-text section org-element-map keyword make-byte-code 257 "\304\211;\203 \305\306#\202 \307A@\"\266\202\310\232\205q \311\312\211;\203, \305\306#\2022 \307A@\"\266\202\313\314\311\315#)\266\203\205n \315\316\"\205S \317\320\306\"!\321\314\311\315#)\266\203\300\322\301\205j #>\266\202)\266\202\207" vconcat vector [case-fold-search inhibit-changing-match-data :key get-text-property 0 plist-get "TOC" t :value "\\<headlines\\>" nil string-match "\\<[0-9]+\\>" string-to-number match-string "\\<local\\>" org-export-collect-headlines] 11 "\n\n(fn KEYWORD)" t] 12 "\n\n(fn H)" org-element-lineage org-element-map :parse-tree link "\300\302\211;\203 \303\304#\202 \305A@\"\266\202\211\306\235\203% \307\301\"\2023 \211\310\232\2032 \311\301\"\2023 \312\262=\207" [:type get-text-property 0 plist-get ("id" "custom-id") org-export-resolve-id-link "fuzzy" org-export-resolve-fuzzy-link nil] 8 "\n\n(fn LINK)" t] 12 (#$ . 7491)]) | |
| 69 | #@322 Generate a headline title in the preferred Markdown headline style. | |
| 70 | STYLE is the preferred style (`atx' or `setext'). LEVEL is the | |
| 71 | header level. TITLE is the headline title. ANCHOR is the HTML | |
| 72 | anchor tag for the section as a string. TAGS are the tags set on | |
| 73 | the section. | |
| 74 | ||
| 75 | (fn STYLE LEVEL TITLE &optional ANCHOR TAGS) | |
| 76 | (defalias 'org-md--headline-title #[1283 "\205 \300P\301=\2035 \302W\2035 \303U\203 \304\202 \305\306G\"\307P\307\307\307\260\266\202\202F \306\310\"\307\311\300\260\262\207" ["\n\n" setext 3 1 61 45 make-string "\n" 35 " "] 15 (#$ . 9246)]) | |
| 77 | #@185 Transcode HORIZONTAL-RULE element into Markdown format. | |
| 78 | CONTENTS is the horizontal rule contents. INFO is a plist used | |
| 79 | as a communication channel. | |
| 80 | ||
| 81 | (fn HORIZONTAL-RULE CONTENTS INFO) | |
| 82 | (defalias 'org-md-horizontal-rule #[771 "\300\207" ["---"] 4 (#$ . 9842)]) | |
| 83 | #@167 Transcode ITALIC object into Markdown format. | |
| 84 | CONTENTS is the text within italic markup. INFO is a plist used | |
| 85 | as a communication channel. | |
| 86 | ||
| 87 | (fn ITALIC CONTENTS INFO) | |
| 88 | (defalias 'org-md-italic #[771 "\300\301\"\207" [format "*%s*"] 6 (#$ . 10108)]) | |
| 89 | #@152 Transcode ITEM element into Markdown format. | |
| 90 | CONTENTS is the item contents. INFO is a plist used as | |
| 91 | a communication channel. | |
| 92 | ||
| 93 | (fn ITEM CONTENTS INFO) | |
| 94 | (defalias 'org-md-item #[771 "\300\301\211;\203 \302\303#\202 \304A@\"\266\202\262\211;\203( \302\303#\202. \304A@\"\266\202\305\211;\203? \302\303#\202E \304A@\"\266\202\306=\204Q \307\202{ \310\311\312\313\211;\203d \302\303#\202j \304A@\"\266\202\314!\315!$!@!\316P\211\317\320GZ\321\"\322\211;\203\223 \302\303#\202\231 \304A@\"\266\202\211\323\267\202\255 \324\202\256 \325\202\256 \326\202\256 \327\262\330 \211;\203\300 \302\303#\202\306 \304A@\"\266\202\211\205\324 \331\332\333 \"\"\262\205\366 \334\335\336 #\327\334\203\353 \337\202\354 \340\341\334\342\341##\266\202\260\207" [:type :parent get-text-property 0 plist-get :structure ordered "-" number-to-string last org-list-get-item-number :begin org-list-prevs-alist org-list-parents-alist "." make-string 4 32 :checkbox #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (on 161 trans 165 off 169)) "[X] " "[-] " "[ ] " nil :tag format "**%s:** " org-export-data replace-regexp-in-string "^" " " "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'"] 19 (#$ . 10363)]) | |
| 95 | #@146 Transcode a KEYWORD element into Markdown format. | |
| 96 | CONTENTS is nil. INFO is a plist used as a communication | |
| 97 | channel. | |
| 98 | ||
| 99 | (fn KEYWORD CONTENTS INFO) | |
| 100 | (defalias 'org-md-keyword #[771 "\302\211;\203 \303\304#\202 \305A@\"\266\202\211\306\235\2037 \307\211;\203, \303\304#\2022 \305A@\"\266\202\202\231 \211\310\232\203\223 \311\307\211;\203M \303\304#\202S \305A@\"\266\202\312\313\311\314#)\266\203\205\215 \314\315\"\205t \316\317\304\"!\320\313\311\314#)\266\203\321\322 $!\266\202)\266\202\202\231 \323\324$\207" [case-fold-search inhibit-changing-match-data :key get-text-property 0 plist-get ("MD" "MARKDOWN") :value "TOC" t "\\<headlines\\>" nil string-match "\\<[0-9]+\\>" string-to-number match-string "\\<local\\>" org-remove-indentation org-md--build-toc org-export-with-backend html] 14 (#$ . 11642)]) | |
| 101 | #@149 Transcode LINE-BREAK object into Markdown format. | |
| 102 | CONTENTS is nil. INFO is a plist used as a communication | |
| 103 | channel. | |
| 104 | ||
| 105 | (fn LINE-BREAK CONTENTS INFO) | |
| 106 | (defalias 'org-md-line-break #[771 "\300\207" [" \n"] 4 (#$ . 12495)]) | |
| 107 | #@162 Transcode LINE-BREAK object into Markdown format. | |
| 108 | CONTENTS is the link's description. INFO is a plist used as | |
| 109 | a communication channel. | |
| 110 | ||
| 111 | (fn LINK CONTENTS INFO) | |
| 112 | (defalias 'org-md-link #[771 "\301\302\211;\203 \303\304#\202 \305A@\"\266\202\306\307#\206\341\211\310\235\203 \211\311\230\2033 \312\"\2027 \313\"\211\211:\204F \211;\205N \314\202N \211@9\205N \211@\262\211\315\267\202\314 !\204e \316\317\"\202k \316\320#\262\202\316\321\322!\206\251 \323\"\203\216 \324\325\326\n\"\327#\202\251 \330\331\211;\203\236 \303\304#\202\244 \305A@\"\266\202\"\332\211;\203\270 \303\304#\202\276 \305A@\"\266\202\206\310 \333 \"#\202\322!\206\362 \334\"\211\204\340 \335\202\360 \211:\204\353 \325!\202\360 \324\325\327#\262\211\205 \316\321\333\n\"#\262\262\262\202\341\336\"\203c\337\211;\203 \303\304#\202%\305A@\"\266\202\340\232\2044\341Q\202A\342!\204>\211\202A\343!\262\330\344\345!!\"\316\346\322!\204X\202]\316\347#\"\266\202\202\341\211\350\230\203\221\337\211;\203x\303\304#\202~\305A@\"\266\202\316\351\"\352\"\"\262\202\341\211\353\232\203\233\202\341\337\211;\203\252\303\304#\202\260\305A@\"\266\202\354\235\203\277\341Q\202\316\340\230\203\315\355!!\202\316\211\204\331\316\317\"\202\337\316\320#\266\202\207" [org-html-inline-image-rules #[257 "\300\301\"\227\302\230\203 \303!\304P\207\207" [file-name-extension "." ".org" file-name-sans-extension ".md"] 4 "\n\n(fn RAW-PATH)"] :type get-text-property 0 plist-get org-export-custom-protocol-maybe md ("custom-id" "id" "fuzzy") "fuzzy" org-export-resolve-fuzzy-link org-export-resolve-id-link plain-text #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (plain-text 86 headline 112)) format "<%s>" "[%s](%s)" "[%s](#%s)" org-string-nw-p org-export-numbered-headline-p mapconcat number-to-string org-export-get-headline-number "." org-export-data :title :CUSTOM_ID org-export-get-reference org-export-get-ordinal nil org-export-inline-image-p :path "file" ":" file-name-absolute-p expand-file-name org-export-get-caption org-export-get-parent-element "" "%s \"%s\"" "coderef" org-export-get-coderef-format org-export-resolve-coderef "radio" ("http" "https" "ftp" "mailto" "irc") org-export-file-uri] 16 (#$ . 12722)]) | |
| 113 | #@157 Transcode a NODE-PROPERTY element into Markdown syntax. | |
| 114 | CONTENTS is nil. INFO is a plist holding contextual | |
| 115 | information. | |
| 116 | ||
| 117 | (fn NODE-PROPERTY CONTENTS INFO) | |
| 118 | (defalias 'org-md-node-property #[771 "\300\301\302\211;\203 \303\304#\202 \305A@\"\266\202\306\211;\203) \303\304#\202/ \305A@\"\266\202\211\203; \307P\202< \310\262#\207" [format "%s:%s" :key get-text-property 0 plist-get :value " " ""] 12 (#$ . 15094)]) | |
| 119 | #@167 Transcode PARAGRAPH element into Markdown format. | |
| 120 | CONTENTS is the paragraph contents. INFO is a plist used as | |
| 121 | a communication channel. | |
| 122 | ||
| 123 | (fn PARAGRAPH CONTENTS INFO) | |
| 124 | (defalias 'org-md-paragraph #[771 "\211:\204\n \300\202 \211@9\203 \211AA\202 \211\262@\211;\203, \301\302\"\203, \303P\202- \207" [nil string-prefix-p "#" "\\"] 7 (#$ . 15529)]) | |
| 125 | #@170 Transcode PLAIN-LIST element into Markdown format. | |
| 126 | CONTENTS is the plain-list contents. INFO is a plist used as | |
| 127 | a communication channel. | |
| 128 | ||
| 129 | (fn PLAIN-LIST CONTENTS INFO) | |
| 130 | (defalias 'org-md-plain-list #[771 "\207" [] 4 (#$ . 15889)]) | |
| 131 | #@145 Transcode a TEXT string into Markdown format. | |
| 132 | TEXT is the string to transcode. INFO is a plist holding | |
| 133 | contextual information. | |
| 134 | ||
| 135 | (fn TEXT INFO) | |
| 136 | (defalias 'org-md-plain-text #[514 "\300\301\"\203 \302\303#\262\304\305\306#\262\304\307\310#\262\304\311\312\313\211\314&\262\300\315\"\2033 \316!\262\300\317\"\203A \304\320\321#\262\207" [plist-get :with-smart-quotes org-export-activate-smart-quotes :html replace-regexp-in-string "[`*_\\]" "\\\\\\&" "\n#" "\n\\\\#" "\\(!\\)\\[" "\\\\!" nil 1 :with-special-strings org-html-convert-special-strings :preserve-breaks "[ ]*\n" " \n"] 9 (#$ . 16128)]) | |
| 137 | #@187 Transcode a PROPERTY-DRAWER element into Markdown format. | |
| 138 | CONTENTS holds the contents of the drawer. INFO is a plist | |
| 139 | holding contextual information. | |
| 140 | ||
| 141 | (fn PROPERTY-DRAWER CONTENTS INFO) | |
| 142 | (defalias 'org-md-property-drawer #[771 "\300!\205 \301\302\303#\207" [org-string-nw-p replace-regexp-in-string "^" " "] 7 (#$ . 16753)]) | |
| 143 | #@173 Transcode QUOTE-BLOCK element into Markdown format. | |
| 144 | CONTENTS is the quote-block contents. INFO is a plist used as | |
| 145 | a communication channel. | |
| 146 | ||
| 147 | (fn QUOTE-BLOCK CONTENTS INFO) | |
| 148 | (defalias 'org-md-quote-block #[771 "\300\301\302\300\303\304##\207" [replace-regexp-in-string "^" "> " "\n\\'" ""] 10 (#$ . 17090)]) | |
| 149 | #@161 Transcode SECTION element into Markdown format. | |
| 150 | CONTENTS is the section contents. INFO is a plist used as | |
| 151 | a communication channel. | |
| 152 | ||
| 153 | (fn SECTION CONTENTS INFO) | |
| 154 | (defalias 'org-md-section #[771 "\207" [] 4 (#$ . 17405)]) | |
| 155 | #@430 Return a table of contents. | |
| 156 | ||
| 157 | INFO is a plist used as a communication channel. | |
| 158 | ||
| 159 | Optional argument N, when non-nil, is an integer specifying the | |
| 160 | depth of the table. | |
| 161 | ||
| 162 | Optional argument KEYWORD specifies the TOC keyword, if any, from | |
| 163 | which the table of contents generation has been initiated. | |
| 164 | ||
| 165 | When optional argument LOCAL is non-nil, build a table of | |
| 166 | contents according to the current headline. | |
| 167 | ||
| 168 | (fn INFO &optional N KEYWORD LOCAL) | |
| 169 | (defalias 'org-md--build-toc #[1025 "\211?\205 \300\301\"\302\303\"\304\305\306$\266\202\307\310\311\312\313\314\n!\315\"\316\317%\320\2050 #\321#\321Q\207" [plist-get :md-headline-style org-html--translate "Table of Contents" org-md--headline-title 1 nil mapconcat make-byte-code 257 "\301\302\300\"S\303_\304\"\305\300\"\204 \306\202/ \307\310\311\300\"\312!@\262\"\211\301\313\303GZ]\304\"P\262\307\314\315\316\300\"\317\320!\300#\321\211;\203L \322\323#\202R \324A@\"\266\202\206\\ \325\300\"#\324\300\326\"\205\200 \324\300\326\"\327=?\205\200 \330\300\"\211\205~ \307\331\332\333\334#\"\262R\207" vconcat vector [make-string org-export-get-relative-level 4 32 org-export-numbered-headline-p "- " format "%d." org-export-get-headline-number last 1 "[%s](#%s)" org-export-data-with-backend org-export-get-alt-title org-export-toc-entry-backend md :CUSTOM_ID get-text-property 0 plist-get org-export-get-reference :with-tags not-in-toc org-export-get-tags ":%s:" mapconcat identity ":"] 12 "\n\n(fn HEADLINE)" org-export-collect-headlines "\n"] 12 (#$ . 17632)]) | |
| 170 | #@167 Formats a single footnote entry FOOTNOTE. | |
| 171 | FOOTNOTE is a cons cell of the form (number . definition). | |
| 172 | INFO is a plist with contextual information. | |
| 173 | ||
| 174 | (fn FOOTNOTE INFO) | |
| 175 | (defalias 'org-md--footnote-formatted #[514 "@A\300\301\"\302\303\"\302\304\"\305 $\302\"\306\307R\207" [plist-get :md-footnote-format format "fn.%d" " href=\"#fnr.%d\"" org-html--anchor " " "\n"] 12 (#$ . 19176)]) | |
| 176 | #@90 Format the footnote section. | |
| 177 | INFO is a plist used as a communication channel. | |
| 178 | ||
| 179 | (fn INFO) | |
| 180 | (defalias 'org-md--footnote-section #[257 "\300!\211\301\211\211\211\211:\203M @\262\211A\262\242\262\211A\262\242\262@\262\302\n\"\301\303\2036 \304\2027 \305\306\303\307\306##\266\202BB\262A\262\202 \211\237\266\206\310\311\"\312\313\"\205{ \314\310\315\"\316\317#\320\321\322\323\324\325 !\326\"\327\330%\331##\207" [org-export-collect-footnote-definitions nil org-export-data replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" plist-get :md-headline-style org-html--translate "Footnotes" format :md-footnotes-section org-md--headline-title 1 mapconcat make-byte-code 257 "\301\300\"\207" vconcat vector [org-md--footnote-formatted] 4 "\n\n(fn FN)" "\n"] 18 (#$ . 19577)]) | |
| 181 | #@170 Return body of document after converting it to Markdown syntax. | |
| 182 | CONTENTS is the transcoded contents string. INFO is a plist | |
| 183 | holding export options. | |
| 184 | ||
| 185 | (fn CONTENTS INFO) | |
| 186 | (defalias 'org-md-inner-template #[514 "\300\301\"\211\205 \302\303!\205 \"\304P\262\304\305!R\207" [plist-get :with-toc org-md--build-toc wholenump "\n" org-md--footnote-section] 7 (#$ . 20408)]) | |
| 187 | #@174 Return complete document string after Markdown conversion. | |
| 188 | CONTENTS is the transcoded contents string. INFO is a plist used | |
| 189 | as a communication channel. | |
| 190 | ||
| 191 | (fn CONTENTS INFO) | |
| 192 | (defalias 'org-md-template #[514 "\207" [] 3 (#$ . 20790)]) | |
| 193 | #@740 Export current buffer to a Markdown buffer. | |
| 194 | ||
| 195 | If narrowing is active in the current buffer, only export its | |
| 196 | narrowed part. | |
| 197 | ||
| 198 | If a region is active, export that region. | |
| 199 | ||
| 200 | A non-nil optional argument ASYNC means the process should happen | |
| 201 | asynchronously. The resulting buffer should be accessible | |
| 202 | through the `org-export-stack' interface. | |
| 203 | ||
| 204 | When optional argument SUBTREEP is non-nil, export the sub-tree | |
| 205 | at point, extracting information from the headline properties | |
| 206 | first. | |
| 207 | ||
| 208 | When optional argument VISIBLE-ONLY is non-nil, don't export | |
| 209 | contents of hidden elements. | |
| 210 | ||
| 211 | Export is done in a buffer named "*Org MD Export*", which will | |
| 212 | be displayed when `org-export-show-temporary-export-buffer' is | |
| 213 | non-nil. | |
| 214 | ||
| 215 | (fn &optional ASYNC SUBTREEP VISIBLE-ONLY) | |
| 216 | (defalias 'org-md-export-as-markdown #[768 "\300\301\302\303\211\304&\207" [org-export-to-buffer md "*Org MD Export*" nil #[0 "\300 \207" [text-mode] 1]] 12 (#$ . 21031) nil]) | |
| 217 | #@219 Assume the current region has Org syntax, and convert it to Markdown. | |
| 218 | This can be used in any buffer. For example, you can write an | |
| 219 | itemized list in Org syntax in a Markdown buffer and use | |
| 220 | this command to convert it. | |
| 221 | (defalias 'org-md-convert-region-to-md #[0 "\300\301!\207" [org-export-replace-region-by md] 2 (#$ . 21957) nil]) | |
| 222 | #@628 Export current buffer to a Markdown file. | |
| 223 | ||
| 224 | If narrowing is active in the current buffer, only export its | |
| 225 | narrowed part. | |
| 226 | ||
| 227 | If a region is active, export that region. | |
| 228 | ||
| 229 | A non-nil optional argument ASYNC means the process should happen | |
| 230 | asynchronously. The resulting file should be accessible through | |
| 231 | the `org-export-stack' interface. | |
| 232 | ||
| 233 | When optional argument SUBTREEP is non-nil, export the sub-tree | |
| 234 | at point, extracting information from the headline properties | |
| 235 | first. | |
| 236 | ||
| 237 | When optional argument VISIBLE-ONLY is non-nil, don't export | |
| 238 | contents of hidden elements. | |
| 239 | ||
| 240 | Return output file's name. | |
| 241 | ||
| 242 | (fn &optional ASYNC SUBTREEP VISIBLE-ONLY) | |
| 243 | (defalias 'org-md-export-to-markdown #[768 "\300\301\"\302\303%\207" [org-export-output-file-name ".md" org-export-to-file md] 10 (#$ . 22296) nil]) | |
| 244 | #@237 Publish an org file to Markdown. | |
| 245 | ||
| 246 | FILENAME is the filename of the Org file to be published. PLIST | |
| 247 | is the property list for the given project. PUB-DIR is the | |
| 248 | publishing directory. | |
| 249 | ||
| 250 | Return output file name. | |
| 251 | ||
| 252 | (fn PLIST FILENAME PUB-DIR) | |
| 253 | (defalias 'org-md-publish-to-md #[771 "\300\301\302%\207" [org-publish-org-to md ".md"] 9 (#$ . 23087)]) | |
| 254 | (provide 'ox-md) | |
