mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 5ddac8bd2392ec5b64392e8750d725029bf5aa79
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\257C\211\204O\202\252\211\211\203\200\211@\211\304\206];\203l\305\300$\210\202wA\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\202eA\310A@#\240\210\266\303\313\"\204\215\314\306;\203\200\307\306$\210\202\213A\310A@#\240\210\266\315\316\";\203\242\307\306$\210\202\255A\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 \203keb\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)