ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ox-org.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 "\302\303!\210\304\305\306\307\310\311\312\313\314\315\316\317& \210\320\321\322\306#\210\323\306\211\203? @\321N\2038 \322N\2048 \324\322\321N#\210 A\211\204! *\325\321\322\315#\210\326\322\306\327\312\305\330\331&\210\332\333\334\335\336$\207" [prop --dolist-tail-- 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") defvaralias org-export-htmlized-org-css-url org-org-htmlized-css-url (saved-value saved-variable-comment) put make-obsolete-variable custom-declare-variable "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) (comment lambda (&rest args) #1="") (comment-block lambda (&rest args) #1#) (diary-sexp . org-org-identity) (drawer . org-org-identity) (dynamic-block . org-org-identity) (entity . org-org-identity) (example-block . org-org-identity) (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-identity) (node-property . org-org-identity) (paragraph . org-org-identity) (plain-list . org-org-identity) (planning . org-org-identity) (property-drawer . org-org-identity) (quote-block . org-org-identity) (quote-section . 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)))))))] 13)
#@120 Transcode BLOB element or object back into Org syntax.
CONTENTS is its contents, as a string or nil. INFO is ignored.
(defalias 'org-org-identity #[(blob contents info) "\303\304\305\306\307 \n\303##)\207" [case-fold-search blob contents t replace-regexp-in-string "^[ ]*#\\+ATTR_[-_A-Za-z0-9]+:\\(?: .*\\)?\n" "" org-export-expand] 7 (#$ . 3618)])
#@114 Transcode HEADLINE element back into Org syntax.
CONTENTS is its contents, as a string or nil. INFO is ignored.
(defalias 'org-org-headline #[(headline contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*?\205\300 \311 \312\"\204E \313\314 \211;\2037 \315 \314\n\f$\202C A\316 A@\n\f#\240\210 +\210\311 \317\"\204n \320\314 \211;\203` \315 \314\n\f$\202l A\316 A@\n\f#\240\210 +\210\311 \321\"\204\227 \322\314 \211;\203\211 \315 \314\n\f$\202\225 A\316 A@\n\f#\240\210 +\210\323\324 \" \211;\203\256 \315 \314\n\f$\202\272 A\316 A@\n\f#\240\210 +\210\325
\"\207" [headline element property info value contents :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] 6 (#$ . 3977)])
#@152 Transcode KEYWORD element back into Org syntax.
CONTENTS is nil. INFO is ignored. This function ignores
keywords targeted at other export back-ends.
(defalias 'org-org-keyword #[(keyword contents info) "\304 ;\203 \305\306\n #\202 \307 A@\n\"*\310\311 \"\235?\205% \312\313\"\207" [keyword element property org-element-block-name-alist :key get-text-property 0 plist-get mapcar #[(block-cons) "A\301=\205 @\207" [block-cons org-element-export-block-parser] 2] org-element-keyword-interpreter nil] 4 (#$ . 4864)])
#@140 Transcode SECTION element back into Org syntax.
CONTENTS is the contents of the section. INFO is a plist used as
a communication channel.
(defalias 'org-org-section #[(section contents info) "\306!\307 \310\311\n$\211\205 \312\313\314 \312#P)\315\316 \f;\203( \317\320
\f#\202. \321\fA@
\"*\2063 \320\322\"Q\207" [contents section info footnotes-alist element property org-element-normalize-string org-element-map footnote-reference #[(fn) "\304 ;\203 \305\306\n #\202 \307 A@\n\"*\310=\205A \311 \"\205A \312 ;\2035 \305\306\n #\202; \307 A@\n\"*\313 \"B\207" [fn element property info :type get-text-property 0 plist-get standard org-export-footnote-first-reference-p :label org-export-get-footnote-definition] 4] "\n" mapconcat #[(d) "\302\303\304@\"\305A \"P!\207" [d info org-element-normalize-string format "[%s] " org-export-data] 5] make-string :post-blank get-text-property 0 plist-get 10] 8 (#$ . 5395)])
#@840 Export current buffer to an Org 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.
EXT-PLIST, when provided, is a property list with external
parameters overriding Org default settings, but still inferior to
file-local settings.
Export is done in a buffer named "*Org ORG Export*", which will
be displayed when `org-export-show-temporary-export-buffer' is
non-nil.
(defalias 'org-org-export-as-org #[(&optional async subtreep visible-only ext-plist) "\304\305\306 \n\307 \310&\207" [async subtreep visible-only ext-plist org-export-to-buffer org "*Org ORG Export*" nil #[nil "\300 \207" [org-mode] 1]] 9 (#$ . 6335) nil])
#@725 Export current buffer to an org 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.
EXT-PLIST, when provided, is a property list with external
parameters overriding Org default settings, but still inferior to
file-local settings.
Return output file name.
(defalias 'org-org-export-to-org #[(&optional async subtreep visible-only ext-plist) "\305\306\"\307\310 \n \311\f&)\207" [subtreep outfile async visible-only ext-plist org-export-output-file-name ".org" org-export-to-file org nil] 8 (#$ . 7440) nil])
#@203 Publish an org file to org.
FILENAME is the filename of the Org file to be published. PLIST
is the property list for the given project. PUB-DIR is the
publishing directory.
Return output file name.
(defalias 'org-org-publish-to-org #[(plist filename pub-dir) "\306\307\310 \n%\210\311 \312\"\205\215 \313\314!\210\313\315!\210\316\317 \320\311 \321\"\206(
\206( \322P #\323!\211 $\2067 \324! %\325 &r%q\210\326 \210\327 \210\330 \210\331 &)r&q\210'\203n eb\210\332\333\325\316#\203n \334\335\336'\"\316\211#\210\337\n\340!#Q!\210)\341&!\210$\204\210 \341%!\210.\342\325!\207" [filename plist pub-dir org-inhibit-startup htmlize-output-type org-html-extension org-publish-org-to org ".org" plist-get :htmlized-source require htmlize ox-html t css "." :html-extension "html" find-buffer-visiting find-file-noselect nil org-font-lock-ensure 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 html-ext visitingp work-buffer newbuf org-org-htmlized-css-url] 7 (#$ . 8427)])
(provide 'ox-org)
Kontol Shell Bypass