ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ox-md.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315& \210\316\317\320\321\310\303\322\323&\210\324\325\326\327\330\331\332\333\334\335\336&\n\207" [require ox-html 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 'atx "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-export-define-derived-backend md html :export-block ("MD" "MARKDOWN") :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) (comment lambda (&rest args) #1="") (comment-block lambda (&rest args) #1#) (example-block . org-md-example-block) (fixed-width . org-md-example-block) (footnote-definition . ignore) (footnote-reference . ignore) (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) (line-break . org-md-line-break) (link . org-md-link) (paragraph . org-md-paragraph) (plain-list . org-md-plain-list) (plain-text . org-md-plain-text) (quote-block . org-md-quote-block) (quote-section . org-md-example-block) (section . org-md-section) (src-block . org-md-example-block) (template . org-md-template) (verbatim . org-md-verbatim))] 12)
#@530 Fix blank lines between elements.
TREE is the parse tree being exported. BACKEND is the export
back-end used. INFO is a plist used as a communication channel.
Enforce a blank line between elements. There are three
exceptions to this rule:
1. Preserve blank lines between sibling items in a plain list,
2. Outside of plain lists, preserve blank lines between
a paragraph and a plain list,
3. In an item, remove any blank line before the very first
paragraph and the next sub-list.
Assume BACKEND is `md'.
(defalias 'org-md-separate-elements #[(tree backend info) "\302\303\304 \"\305#\210\207" [tree org-element-all-elements org-element-map remq item #[(e) "\211:\204 ;\205 \305\202 @9\205 @)\306=\203? \307\n\"\211:\2041 ;\2059 \305\2029 @9\2059 @)\310=\204a \311\312 \211;\203S \313 \314\f $\202_ A\315 A@\f #\240\210 +\207\316 ;\203r \317\320\f #\202x \321 A@\f\"*\211:\204\210 ;\205\220 \305\202\220 @9\205\220 @)\322=?\206\303 \311\323\n\"\203\244 \312\202\245 \320 \211;\203\266 \313 \314\f $\202\302 A\315 A@\f #\240\210 +\207" [e element info value property plain-text paragraph org-export-get-next-element plain-list :post-blank 1 org-add-props nil plist-put :parent get-text-property 0 plist-get item org-export-get-previous-element] 6]] 5 (#$ . 2295)])
#@136 Transcode BOLD object into Markdown format.
CONTENTS is the text within bold markup. INFO is a plist used as
a communication channel.
(defalias 'org-md-bold #[(bold contents info) "\301\302\"\207" [contents format "**%s**"] 3 (#$ . 3622)])
#@116 Transcode VERBATIM object into Markdown format.
CONTENTS is nil. INFO is a plist used as a communication
channel.
(defalias 'org-md-verbatim #[(verbatim contents info) "\304 ;\203 \305\306\n #\202 \307 A@\n\"*\310\311\312 \"\204% \313\2028 \311\314 \"\2043 \311\315 \"\2037 \316\2028 \317 \")\207" [verbatim element property value :value get-text-property 0 plist-get format string-match "`" "`%s`" "\\``" "`\\'" "`` %s ``" "``%s``"] 4 (#$ . 3871)])
#@122 Transcode EXAMPLE-BLOCK element into Markdown format.
CONTENTS is nil. INFO is a plist used as a communication
channel.
(defalias 'org-md-example-block #[(example-block contents info) "\302\303\304\305\306 \"!#\207" [example-block info replace-regexp-in-string "^" " " org-remove-indentation org-export-format-code-default] 7 (#$ . 4335)])
#@135 Transcode HEADLINE element into Markdown format.
CONTENTS is the headline contents. INFO is a plist used as
a communication channel.
(defalias 'org-md-headline #[(headline contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*?\205\205\312 \" \313\314 ;\2033 \307\310\n #\2029 \311 A@\n\"* \" \311 \315\"\205j \316 ;\203U \307\310\n #\202[ \311 A@\n\"*\211 6\205i \3136 \"\317P) 6\311 \320\"\205\207 \321 \"\211 7\205\206 \322\323\324\3257\326#\") 8\311 \327\"\205\264 \330 ;\203\241 \307\310\n #\202\247 \311 A@\n\"*\211 9\205\263 \322\3319\") :\311 \332\"\205\344 \333\334 ;\203\317 \307\310\n #\202\325 \311 A@\n\"*\206\343 \335\324\336\337 \"\340#P! ;6:
Q <\341 \"\204=\342>\203=\343=\203 \f\344V\204=\345=\203M\f\346V\203M\347 \"\204!\340\202,\336\350\337 \"!@!\351P\211 >\352\353>GZ\354\"<8\355?\205G\356\357\360?#\260)\202\203=\345=\203s<8;\361\352<G\f\362U\203i\363\202j\364\"\355?\260\202\203\352\f\365\"\317<8;\355?\260.\207" [headline element property info level title :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] " :with-toc org-html--anchor :CUSTOM_ID "sec-" number-to-string org-export-get-headline-number "-" org-export-low-level-p (atx setext) atx 6 setext 2 org-export-numbered-headline-p last "." make-string 4 32 "\n\n" replace-regexp-in-string "^" " " "\n" 1 61 45 35 todo tag-list tags char priority anchor heading org-md-headline-style bullet contents] 10 (#$ . 4687)])
#@149 Transcode HORIZONTAL-RULE element into Markdown format.
CONTENTS is the horizontal rule contents. INFO is a plist used
as a communication channel.
(defalias 'org-md-horizontal-rule #[(horizontal-rule contents info) "\300\207" ["---"] 1 (#$ . 6361)])
#@140 Transcode ITALIC object into Markdown format.
CONTENTS is the text within italic markup. INFO is a plist used
as a communication channel.
(defalias 'org-md-italic #[(italic contents info) "\301\302\"\207" [contents format "*%s*"] 3 (#$ . 6619)])
#@127 Transcode ITEM element into Markdown format.
CONTENTS is the item contents. INFO is a plist used as
a communication channel.
(defalias 'org-md-item #[(item contents info) "\306\307 \n;\203 \310\311 \n#\202 \312\nA@ \"+\n;\203* \310\311 \n#\2020 \312\nA@ \"* \313\n;\203C \310\311 \n#\202I \312\nA@ \"* \f\314=\204U \315\202} \316\317\320\321\n;\203i \310\311 \n#\202o \312\nA@ \"*
\322
!\323
!$!@!\324P\211 (\325\326(GZ\327\"\330\n;\203\231 \310\311 \n#\202\237 \312\nA@ \"* )\331)\332\"\203\256 \333\202\303 \331)\334\"\203\272 \335\202\303 \331)\336\"\205\303 \337)\340\n;\203\325 \310\311 \n#\202\333 \312\nA@ \"*\211 *\205\353 \341\342\343*+\"\"),\205\371 \344\345\346\347,#!\260+\207" [item blob element property type struct :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 eql on "[X] " trans "[-] " off "[ ] " :tag format "**%s:** " org-export-data org-trim replace-regexp-in-string "^" " " bullet #1=#:temp tag info contents] 10 (#$ . 6874)])
#@118 Transcode LINE-BREAK object into Markdown format.
CONTENTS is nil. INFO is a plist used as a communication
channel.
(defalias 'org-md-line-break #[(line-break contents info) "\300\207" [" \n"] 1 (#$ . 8012)])
#@137 Transcode LINE-BREAK object into Markdown format.
CONTENTS is the link's description. INFO is a plist used as
a communication channel.
(defalias 'org-md-link #[(link contents info) "\306\307 ;\203 \310\311\n #\202 \312 A@\n\"* \313\235\203k \314
\"\211 3;\203J \f3! 45\204? \315\3164\"\202F \315\31754#)\202g 5\205S 5\320P\315\321\315\322\323\324
#\325\326\3273
\"\330#\"\"P)\202\325\3316\"\203\304 \332 ;\203\204 \310\311\n #\202\212 \312 A@\n\"* 7\3337!\204\231 7\202\235 \3347!)\335\336\337!!
\" 8 4\315\340\3418!\204\270 4\202\277 \315\34248#\"*\202\325 \343\230\203\365 \332 ;\203\333 \310\311\n #\202\341 \312 A@\n\"* 9\315\34495\"\3459
\"\")\202\325 \346\232\203 5\202\325 \347\232\203@\350
\" 3\3415!\2035\202<3\205<\3513
\"\211 :\205;::\2045\326:!\202;\325\326:\330#))\202\325\352\353 ;\"8 <\354<!\205p<\355\332 ;\203d\310\311\n #\202j\312 A@\n\"*!5\356#)\206\325\332 ;\203\205\310\311\n #\202\213\312 A@\n\"* 7 \357\235\203\234 \3607Q\202\276 \361\230\203\274\f7! 4\3334!\204\2644\202\270\3624P)\202\2767 45\204\315\315\3164\"\202\324\315\31754#**\207" [link element property type link-org-files-as-md info #[(raw-path) "\301\302\"\227\303\230\203 \304!\305P\207\207" [raw-path file-name-extension "." ".org" file-name-sans-extension ".md"] 3] :type get-text-property 0 plist-get ("custom-id" "id") org-export-resolve-id-link format "<%s>" "[%s](%s)" " " "(%s)" org-export-translate "See section %s" :html mapconcat number-to-string org-export-get-headline-number "." org-export-inline-image-p :path file-name-absolute-p expand-file-name org-export-data org-export-get-caption org-export-get-parent-element "" org-string-nw-p "%s \"%s\"" "coderef" org-export-get-coderef-format org-export-resolve-coderef "radio" "fuzzy" org-export-resolve-fuzzy-link org-export-get-ordinal 2 assoc functionp org-link-unescape md ("http" "https" "ftp") ":" "file" "file:" destination path contents org-html-inline-image-rules raw-path caption ref number org-link-protocols protocol] 11 (#$ . 8230)])
#@137 Transcode PARAGRAPH element into Markdown format.
CONTENTS is the paragraph contents. INFO is a plist used as
a communication channel.
(defalias 'org-md-paragraph #[(paragraph contents info) "\211:\204 \304\202 @9\203 AA\202 )@\211;\2031 \305\306\n\"\2031 \307\306\310 \304\311%\2022 )\207" [paragraph element first-object contents nil string-match "\\`#" replace-regexp-in-string "\\#" t] 7 (#$ . 10337)])
#@139 Transcode PLAIN-LIST element into Markdown format.
CONTENTS is the plain-list contents. INFO is a plist used as
a communication channel.
(defalias 'org-md-plain-list #[(plain-list contents info) "\207" [contents] 1 (#$ . 10763)])
#@129 Transcode a TEXT string into Markdown format.
TEXT is the string to transcode. INFO is a plist holding
contextual information.
(defalias 'org-md-plain-text #[(text info) "\302\303\"\203
\304 \305#\306\307\310 #\306\311\312 \313\211\314&\306\315\316 #\302\317\"\203. \320 !\302\321\"\203; \306\322\323 # \207" [info text 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"] 7 (#$ . 11002)])
#@141 Transcode QUOTE-BLOCK element into Markdown format.
CONTENTS is the quote-block contents. INFO is a plist used as
a communication channel.
(defalias 'org-md-quote-block #[(quote-block contents info) "\301\302\303\301\304\305##\207" [contents replace-regexp-in-string "^" "> " "\n\\'" ""] 7 (#$ . 11605)])
#@133 Transcode SECTION element into Markdown format.
CONTENTS is the section contents. INFO is a plist used as
a communication channel.
(defalias 'org-md-section #[(section contents info) "\207" [contents] 1 (#$ . 11919)])
#@150 Return body of document after converting it to Markdown syntax.
CONTENTS is the transcoded contents string. INFO is a plist
holding export options.
(defalias 'org-md-inner-template #[(contents info) "\302\303\304\304Q \"!\207" [contents info org-trim org-html-inner-template "\n"] 5 (#$ . 12146)])
#@154 Return complete document string after Markdown conversion.
CONTENTS is the transcoded contents string. INFO is a plist used
as a communication channel.
(defalias 'org-md-template #[(contents info) "\207" [contents] 1 (#$ . 12453)])
#@696 Export current buffer to a Markdown buffer.
If narrowing is active in the current buffer, only export its
narrowed part.
If a region is active, export that region.
A non-nil optional argument ASYNC means the process should happen
asynchronously. The resulting buffer should be accessible
through the `org-export-stack' interface.
When optional argument SUBTREEP is non-nil, export the sub-tree
at point, extracting information from the headline properties
first.
When optional argument VISIBLE-ONLY is non-nil, don't export
contents of hidden elements.
Export is done in a buffer named "*Org MD Export*", which will
be displayed when `org-export-show-temporary-export-buffer' is
non-nil.
(defalias 'org-md-export-as-markdown #[(&optional async subtreep visible-only) "\303\304\305 \n\306\211\307&\207" [async subtreep visible-only org-export-to-buffer md "*Org MD Export*" nil #[nil "\300 \207" [text-mode] 1]] 9 (#$ . 12694) nil])
#@229 Assume the current region has org-mode syntax, and convert it to Markdown.
This can be used in any buffer. For example, you can write an
itemized list in org-mode syntax in a Markdown buffer and use
this command to convert it.
(defalias 'org-md-convert-region-to-md #[nil "\300\301!\207" [org-export-replace-region-by md] 2 (#$ . 13642) nil])
#@584 Export current buffer to a Markdown file.
If narrowing is active in the current buffer, only export its
narrowed part.
If a region is active, export that region.
A non-nil optional argument ASYNC means the process should happen
asynchronously. The resulting file should be accessible through
the `org-export-stack' interface.
When optional argument SUBTREEP is non-nil, export the sub-tree
at point, extracting information from the headline properties
first.
When optional argument VISIBLE-ONLY is non-nil, don't export
contents of hidden elements.
Return output file's name.
(defalias 'org-md-export-to-markdown #[(&optional async subtreep visible-only) "\304\305\"\306\307 \n %)\207" [subtreep outfile async visible-only org-export-output-file-name ".md" org-export-to-file md] 6 (#$ . 13993) nil])
(provide 'ox-md)
Kontol Shell Bypass