| 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\302\303\304\305\306\307\310\311\312\313\314\315& \210\316\317\320\321\322DD\323\310\303\324\325&\210\326\327\330\331\332\333\334&\207" [require ox custom-declare-group org-export-org nil "Options for exporting Org mode files to Org." :tag "Org Export Org" :group org-export :version "24.4" :package-version (Org . "8.0") custom-declare-variable org-org-htmlized-css-url funcall function #[0 "\300\207" [nil] 1] "URL pointing to the CSS defining colors for htmlized Emacs buffers.\nNormally when creating an htmlized version of an Org buffer,\nhtmlize will create the CSS to define the font colors. However,\nthis does not work when converting in batch mode, and it also can\nlook bad if different people with different fontification setup\nwork on the same website. When this variable is non-nil,\ncreating an htmlized version of an Org buffer using\n`org-org-export-as-org' will include a link to this URL if the\nsetting of `org-html-htmlize-output-type' is `css'." :type (choice (const :tag "Don't include external stylesheet link" nil) (string :tag "URL or local href")) org-export-define-backend org ((babel-call . org-org-identity) (bold . org-org-identity) (center-block . org-org-identity) (clock . org-org-identity) (code . org-org-identity) (diary-sexp . org-org-identity) (drawer . org-org-identity) (dynamic-block . org-org-identity) (entity . org-org-identity) (example-block . org-org-identity) (export-block . org-org-export-block) (fixed-width . org-org-identity) (footnote-definition . ignore) (footnote-reference . org-org-identity) (headline . org-org-headline) (horizontal-rule . org-org-identity) (inline-babel-call . org-org-identity) (inline-src-block . org-org-identity) (inlinetask . org-org-identity) (italic . org-org-identity) (item . org-org-identity) (keyword . org-org-keyword) (latex-environment . org-org-identity) (latex-fragment . org-org-identity) (line-break . org-org-identity) (link . org-org-link) (node-property . org-org-identity) (template . org-org-template) (paragraph . org-org-identity) (plain-list . org-org-identity) (planning . org-org-identity) (property-drawer . org-org-identity) (quote-block . org-org-identity) (radio-target . org-org-identity) (section . org-org-section) (special-block . org-org-identity) (src-block . org-org-identity) (statistics-cookie . org-org-identity) (strike-through . org-org-identity) (subscript . org-org-identity) (superscript . org-org-identity) (table . org-org-identity) (table-cell . org-org-identity) (table-row . org-org-identity) (target . org-org-identity) (timestamp . org-org-identity) (underline . org-org-identity) (verbatim . org-org-identity) (verse-block . org-org-identity)) :menu-entry (79 "Export to Org" ((79 "As Org buffer" org-org-export-as-org) (111 "As Org file" org-org-export-to-org) (118 "As Org file and open" (lambda (a s v b) (if a (org-org-export-to-org t s v b) (org-open-file (org-org-export-to-org nil s v b))))))) :filters-alist ((:filter-parse-tree . org-org--add-missing-sections))] 12) | |
| 16 | #@342 Ensure each headline has an associated section. | |
| 17 | ||
| 18 | TREE is the parse tree being exported. | |
| 19 | ||
| 20 | Footnotes relative to the headline are inserted in the section, | |
| 21 | using `org-org-section'. However, this function is not called if | |
| 22 | the headline doesn't contain any section in the first place, so | |
| 23 | we make sure it is always called. | |
| 24 | ||
| 25 | (fn TREE BACKEND INFO) | |
| 26 | (defalias 'org-org--add-missing-sections #[771 "\300\301\302#\210\207" [org-element-map headline #[257 "\211\211:\204\n \300\202 \211@9\203 \211AA\202 \211\262@\301\302!\211:\204, \211;\2054 \303\2024 \211@9\2054 \211@\262\211\302=\203@ \300\202\263 \211\204\257 C\211\204O \202\252 \211\211\203\200 \211@\211\304\206] ;\203l \305\300$\210\202w A\306A@#\240\210\266A\266\202\202P \210\203\245 \307\310\211\211:\204\222 \300\202\237 \211@9\203\236 \211AA\202\237 \211\262\244#\210\206\252 \211\266\202\202\263 \311\"\262\207" [nil org-element-create section plain-text :parent org-add-props plist-put apply org-element-set-contents org-element-insert-before] 16 "\n\n(fn H)"]] 7 (#$ . 3448)]) | |
| 27 | #@117 Transcode a EXPORT-BLOCK element from Org to LaTeX. | |
| 28 | CONTENTS and INFO are ignored. | |
| 29 | ||
| 30 | (fn EXPORT-BLOCK CONTENTS INFO) | |
| 31 | (defalias 'org-org-export-block #[771 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304\232\2053 \305\211;\203+ \301\302#\2021 \303A@\"\266\202\207" [:type get-text-property 0 plist-get "ORG" :value] 9 (#$ . 4519)]) | |
| 32 | #@145 Transcode BLOB element or object back into Org syntax. | |
| 33 | CONTENTS is its contents, as a string or nil. INFO is ignored. | |
| 34 | ||
| 35 | (fn BLOB CONTENTS INFO) | |
| 36 | (defalias 'org-org-identity #[771 "\301\302\303\304\305\301##)\207" [case-fold-search t replace-regexp-in-string "^[ ]*#\\+ATTR_[-_A-Za-z0-9]+:\\(?: .*\\)?\n" "" org-export-expand] 10 (#$ . 4870)]) | |
| 37 | #@143 Transcode HEADLINE element back into Org syntax. | |
| 38 | CONTENTS is its contents, as a string or nil. INFO is ignored. | |
| 39 | ||
| 40 | (fn HEADLINE CONTENTS INFO) | |
| 41 | (defalias 'org-org-headline #[771 "\300\211;\203 \301\302#\202 \303A@\"\266\202?\205\263 \303\304\"\204A \305\306;\2034 \307\306$\210\202? A\310A@#\240\210\266\303\311\"\204g \312\306;\203Z \307\306$\210\202e A\310A@#\240\210\266\303\313\"\204\215 \314\306;\203\200 \307\306$\210\202\213 A\310A@#\240\210\266\315\316\";\203\242 \307\306$\210\202\255 A\310A@#\240\210\266\317\"\207" [:footnote-section-p get-text-property 0 plist-get :with-todo-keywords :todo-keyword nil org-add-props plist-put :with-tags :tags :with-priority :priority :level org-export-get-relative-level org-element-headline-interpreter] 11 (#$ . 5225)]) | |
| 42 | #@112 Transcode KEYWORD element back into Org syntax. | |
| 43 | CONTENTS is nil. INFO is ignored. | |
| 44 | ||
| 45 | (fn KEYWORD CONTENTS INFO) | |
| 46 | (defalias 'org-org-keyword #[771 "\300\211;\203 \301\302#\202 \303A@\"\266\202\211\304\235?\205\" \305\306\"\207" [:key get-text-property 0 plist-get ("AUTHOR" "CREATOR" "DATE" "EMAIL" "OPTIONS" "TITLE") org-element-keyword-interpreter nil] 9 (#$ . 6053)]) | |
| 47 | #@181 Transcode LINK object back into Org syntax. | |
| 48 | CONTENTS is the description of the link, as a string, or nil. | |
| 49 | INFO is a plist containing current export state. | |
| 50 | ||
| 51 | (fn LINK CONTENTS INFO) | |
| 52 | (defalias 'org-org-link #[771 "\300\301#\206\f \302\"\207" [org-export-custom-protocol-maybe org org-element-link-interpreter] 7 (#$ . 6436)]) | |
| 53 | #@168 Return Org document template with document keywords. | |
| 54 | CONTENTS is the transcoded contents string. INFO is a plist used | |
| 55 | as a communication channel. | |
| 56 | ||
| 57 | (fn CONTENTS INFO) | |
| 58 | (defalias 'org-org-template #[514 "\300\301\"\205\n \302\303!\304\305\306\307\300\310\"\311\312#\313#!\300\314\"\205, \315\316\317\300\320\"\"\"\300\321\"\205E \317\322!\"\323!\205C \315\324\"\262\300\325\"\205a \317\300\326\"\"\323!\205_ \315\327\"\262\300\330\"\205~ \317\300\331\"\"\323!\205| \315\332\"\262\300\333\"\205\230 \323\300\334\"!\205\230 \315\335\300 \334\"\"\260\207" [plist-get :time-stamp-file format-time-string "# Created %Y-%m-%d %a %H:%M\n" org-element-normalize-string mapconcat identity org-element-map :parse-tree keyword #[257 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304\230\2055 \305\306\211;\203, \301\302#\2022 \303A@\"\266\202P\207" [:key get-text-property 0 plist-get "OPTIONS" "#+OPTIONS: " :value] 8 "\n\n(fn K)"] "\n" :with-title format "#+TITLE: %s\n" org-export-data :title :with-date org-export-get-date org-string-nw-p "#+DATE: %s\n" :with-author :author "#+AUTHOR: %s\n" :with-email :email "#+EMAIL: %s\n" :with-creator :creator "#+CREATOR: %s\n"] 13 (#$ . 6770)]) | |
| 59 | #@168 Transcode SECTION element back into Org syntax. | |
| 60 | CONTENTS is the contents of the section. INFO is a plist used as | |
| 61 | a communication channel. | |
| 62 | ||
| 63 | (fn SECTION CONTENTS INFO) | |
| 64 | (defalias 'org-org-section #[771 "\300!\301\302!D\303\304\305\306\307\310 !\311\"\312\313%\314\315\316&\211\205( \317\320\321\317#P\262P\207" [org-element-normalize-string org-element-map org-export-get-parent-headline footnote-reference make-byte-code 257 "\301\211;\203 \302\303#\202 \304A@\"\266\202\305=\205G \306\300\"\205G \307\310\311\312\211;\2035 \302\303#\202; \304A@\"\266\202\313\314\300\"\300\"#!\207" vconcat vector [:type get-text-property 0 plist-get standard org-export-footnote-first-reference-p org-element-normalize-string format "[fn:%s] %s" :label org-export-data org-export-get-footnote-definition] 10 "\n\n(fn FN)" nil headline t "\n" mapconcat identity] 13 (#$ . 8005)]) | |
| 65 | #@987 Export current buffer to an Org buffer. | |
| 66 | ||
| 67 | If narrowing is active in the current buffer, only export its | |
| 68 | narrowed part. | |
| 69 | ||
| 70 | If a region is active, export that region. | |
| 71 | ||
| 72 | A non-nil optional argument ASYNC means the process should happen | |
| 73 | asynchronously. The resulting buffer should be accessible | |
| 74 | through the `org-export-stack' interface. | |
| 75 | ||
| 76 | When optional argument SUBTREEP is non-nil, export the sub-tree | |
| 77 | at point, extracting information from the headline properties | |
| 78 | first. | |
| 79 | ||
| 80 | When optional argument VISIBLE-ONLY is non-nil, don't export | |
| 81 | contents of hidden elements. | |
| 82 | ||
| 83 | When optional argument BODY-ONLY is non-nil, strip document | |
| 84 | keywords from output. | |
| 85 | ||
| 86 | EXT-PLIST, when provided, is a property list with external | |
| 87 | parameters overriding Org default settings, but still inferior to | |
| 88 | file-local settings. | |
| 89 | ||
| 90 | Export is done in a buffer named "*Org ORG Export*", which will | |
| 91 | be displayed when `org-export-show-temporary-export-buffer' is | |
| 92 | non-nil. | |
| 93 | ||
| 94 | (fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST) | |
| 95 | (defalias 'org-org-export-as-org #[1280 "\300\301\302\303&\207" [org-export-to-buffer org "*Org ORG Export*" #[0 "\300 \207" [org-mode] 1]] 14 (#$ . 8898) nil]) | |
| 96 | #@872 Export current buffer to an org file. | |
| 97 | ||
| 98 | If narrowing is active in the current buffer, only export its | |
| 99 | narrowed part. | |
| 100 | ||
| 101 | If a region is active, export that region. | |
| 102 | ||
| 103 | A non-nil optional argument ASYNC means the process should happen | |
| 104 | asynchronously. The resulting file should be accessible through | |
| 105 | the `org-export-stack' interface. | |
| 106 | ||
| 107 | When optional argument SUBTREEP is non-nil, export the sub-tree | |
| 108 | at point, extracting information from the headline properties | |
| 109 | first. | |
| 110 | ||
| 111 | When optional argument VISIBLE-ONLY is non-nil, don't export | |
| 112 | contents of hidden elements. | |
| 113 | ||
| 114 | When optional argument BODY-ONLY is non-nil, strip document | |
| 115 | keywords from output. | |
| 116 | ||
| 117 | EXT-PLIST, when provided, is a property list with external | |
| 118 | parameters overriding Org default settings, but still inferior to | |
| 119 | file-local settings. | |
| 120 | ||
| 121 | Return output file name. | |
| 122 | ||
| 123 | (fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST) | |
| 124 | (defalias 'org-org-export-to-org #[1280 "\300\301\"\302\303&\207" [org-export-output-file-name ".org" org-export-to-file org] 14 (#$ . 10063) nil]) | |
| 125 | #@232 Publish an org file to org. | |
| 126 | ||
| 127 | FILENAME is the filename of the Org file to be published. PLIST | |
| 128 | is the property list for the given project. PUB-DIR is the | |
| 129 | publishing directory. | |
| 130 | ||
| 131 | Return output file name. | |
| 132 | ||
| 133 | (fn PLIST FILENAME PUB-DIR) | |
| 134 | (defalias 'org-org-publish-to-org #[771 "\304\305\306%\210\307\310\"\205\211 \311\312\313\314#\204 \315\316!\210\311\317!\210\314\320\321\307\322\"\2061 \n\2061 \323P\324!\211\206< \325!\313rq\210\326 \210\327 \210\330 \210\331 \262)r\211q\210 \203k eb\210\332\333\313\314#\203k \334\335\336 \"\314\211#\210\337\340!Q!\210)\341!\210\204\203 \341!\210*\266\342\313!\207" [org-inhibit-startup htmlize-output-type org-html-extension org-org-htmlized-css-url org-publish-org-to org ".org" plist-get :htmlized-source require htmlize nil t error "Please install htmlize from https://github.com/hniksic/emacs-htmlize" ox-html css "." :html-extension "html" find-buffer-visiting find-file-noselect org-font-lock-ensure outline-show-all org-show-block-all htmlize-buffer re-search-forward "<style type=\"text/css\">[^ ]*?\n[ ]*</style>.*" replace-match format "<link rel=\"stylesheet\" type=\"text/css\" href=\"%s\">" write-file file-name-nondirectory kill-buffer set-buffer-modified-p] 11 (#$ . 11102)]) | |
| 135 | (provide 'ox-org) | |
