;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311&\210\312\313\314\315\316\317%\207" [require ox ox-ascii org-export-define-derived-backend confluence ascii :translate-alist ((bold . org-confluence-bold) (code . org-confluence-code) (example-block . org-confluence-example-block) (fixed-width . org-confluence-fixed-width) (footnote-definition . org-confluence-empty) (footnote-reference . org-confluence-empty) (headline . org-confluence-headline) (italic . org-confluence-italic) (item . org-confluence-item) (link . org-confluence-link) (paragraph . org-confluence-paragraph) (property-drawer . org-confluence-property-drawer) (quote-block . org-confluence-quote-block) (section . org-confluence-section) (src-block . org-confluence-src-block) (strike-through . org-confluence-strike-through) (table . org-confluence-table) (table-cell . org-confluence-table-cell) (table-row . org-confluence-table-row) (template . org-confluence-template) (timestamp . org-confluence-timestamp) (underline . org-confluence-underline) (verbatim . org-confluence-verbatim)) :menu-entry (102 "Export to Confluence" ((102 "As Confluence buffer" org-confluence-export-as-confluence))) custom-declare-variable org-confluence-lang-alist '(("sh" . "bash")) "Map from org-babel language name to confluence wiki language name" :type (alist :key-type string :value-type string)] 7) (defalias 'org-confluence-bold #[(bold contents info) "\301\302\"\207" [contents format "*%s*"] 3]) #@2  (defalias 'org-confluence-empty #[(empty contents info) "\300\207" [""] 1 (#$ . 1564)]) (defalias 'org-confluence-example-block #[(example-block contents info) "\303 \"\304\305\306\n#)\207" [example-block info content org-export-format-code-default org-confluence--block "none" "Confluence"] 4]) (defalias 'org-confluence-italic #[(italic contents info) "\301\302\"\207" [contents format "_%s_"] 3]) (defalias 'org-confluence-item #[(item contents info) "\305\306\211;\203\307\310#\266\203\202\311A@\"\266\203\211;\203*\307\310#\266\202\2022\311A@\"\266\202\312\313!T \314=\203B\315\202C\316\"\317\320\211;\203V\307\310#\266\202\202^\311A@\"\266\202\211\321\267\202q\322\202r\323\202r\324\202r\325) \326=\205\230\327\330\331\211;\203\214\307\310#\266\202\202\224\311A@\"\266\202 \"\332Q\f\325\333\203\243\334\202\244\335\336\333\337\336##\266\202\260)\207" [item list-type #1=#:val info contents :type :parent get-text-property 0 plist-get make-string org-confluence--li-depth ordered 35 45 " " :checkbox #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (on 101 off 105 trans 109)) "*{{(X)}}* " "*{{( )}}* " "*{{(\\-)}}* " nil descriptive "*" org-export-data :tag "* - " replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'"] 14]) (defalias 'org-confluence-fixed-width #[(fixed-width contents info) "\301\302\303\304\211;\203\305\306#\266\202\202\307A@\"\266\202\310\311\203&\312\202'\313\314\311\315\314##\266\202#\207" [fixed-width org-confluence--block "none" "Confluence" :value get-text-property 0 plist-get nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'"] 12]) (defalias 'org-confluence-verbatim #[(verbatim contents info) "\301\302\303\211;\203\304\305#\266\202\202\306A@\"\266\202\"\207" [verbatim format "{{%s}}" :value get-text-property 0 plist-get] 8]) (defalias 'org-confluence-code #[(code contents info) "\301\302\303\211;\203\304\305#\266\202\202\306A@\"\266\202\"\207" [code format "{{%s}}" :value get-text-property 0 plist-get] 8]) (defalias 'org-confluence-headline #[(headline contents info) "\306 \"\307\310\211;\203\311\312#\266\202\202\313A@\"\266\202 \"\307\314\211;\2034\311\312#\266\202\202<\313A@\"\266\202 \"\315 \"\313 \316\"\203Q\f\317\230\203U\317\202Y\320\321\f\"\320\322  \323!\203m\202n\317%-\207" [headline info low-level-rank text todo level org-export-low-level-p org-export-data :title get-text-property 0 plist-get :todo-keyword org-export-get-relative-level :with-todo-keywords "" format "*{{%s}}* " "h%s. %s%s\n%s" org-string-nw-p todo-text contents] 7]) (defalias 'org-confluence-link #[(link desc info) "\303\211;\203\304\305#\266\202\202\306A@\"\266\202\307\230\203 \207\310\211;\2031\304\305#\266\202\2029\306A@\"\266\202\311\312 !\205E\313\314 \"\315\316\n\"\203T\317\316\320\n#\202U\n\321R)\207" [link desc raw-link :type get-text-property 0 plist-get "radio" :raw-link "[" org-string-nw-p format "%s|" string-match "^confluence:" replace-regexp-in-string "" "]"] 6]) #@131 Transcode PARAGRAPH element for Confluence. CONTENTS is the paragraph contents. INFO is a plist used as a communication channel. (defalias 'org-confluence-paragraph #[(paragraph contents info) "\207" [contents] 1 (#$ . 4714)]) (defalias 'org-confluence-property-drawer #[(property-drawer contents info) "\301!\205\n\302\303\"\207" [contents org-string-nw-p format "{{%s}}"] 3]) (defalias 'org-confluence-quote-block #[(quote-block contents info) "\301\302\"\207" [contents format "{quote}\n%s{quote}"] 3]) (defalias 'org-confluence-section #[(section contents info) "\207" [contents] 1]) (defalias 'org-confluence-src-block #[(src-block contents info) "\306\211;\203\307\310#\266\202\202\311A@\"\266\202\312 \n\"A\206# \313\f\"\314 \315 #+\207" [src-block lang org-confluence-lang-alist language info content :language get-text-property 0 plist-get assoc org-export-format-code-default org-confluence--block "Emacs"] 6]) (defalias 'org-confluence-strike-through #[(strike-through contents info) "\301\302\"\207" [contents format "-%s-"] 3]) (defalias 'org-confluence-table #[(table contents info) "\207" [contents] 1]) (defalias 'org-confluence-table-row #[(table-row contents info) "\303!\203 \304\305\"\202\306\307 \n\"\205\310P\207" [contents table-row info org-string-nw-p format "|%s" "" org-export-table-row-ends-header-p "|"] 4]) (defalias 'org-confluence-table-cell #[(table-cell contents info) "\304\211;\203\305\306#\266\203\202\307A@\"\266\203\310 \n\"\205#\311 G\306U\203.\312\202/ \311Q)\207" [table-cell table-row info contents :parent get-text-property 0 plist-get org-export-table-row-starts-header-p "|" " "] 7]) (defalias 'org-confluence-template #[(contents info) "\303\304\"\211\205\n\305\nP)\207" [info depth contents plist-get :with-toc "{toc}\n\n"] 4]) #@85 Transcode a TIMESTAMP object from Org to Confluence. CONTENTS and INFO are ignored. (defalias 'org-confluence-timestamp #[(timestamp _contents _info) "\302!\303\304\203 \305\202\306\307\304\310\307##\266\202\311\312 \"\203*\313 \314\315O\316Q\202+ )\207" [timestamp translated org-timestamp-translate nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" string-prefix-p "[" "(" 1 -1 ")"] 9 (#$ . 6543)]) (defalias 'org-confluence-underline #[(underline contents info) "\301\302\"\207" [contents format "+%s+"] 3]) (defalias 'org-confluence--block #[(language theme contents) "\303 \205\n\304\305 \"\306\n\307\260\207" [theme language contents "{code:theme=" format "|language=%s" "}\n" "{code}\n"] 6]) #@55 Return depth of a list item; -1 means not a list item (defalias 'org-confluence--li-depth #[(item) "\303\304\n\203C\n@\211\203C\302=\204\305=\203C\302=\203$ T\n\306\211;\2036\307\310#\266\203\202>\311A@\"\266\203\211\204 *\207" [tag depth item -1 nil plain-list :parent get-text-property 0 plist-get] 8 (#$ . 7292)]) #@962 Export current buffer to a text 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. When optional argument BODY-ONLY is non-nil, strip title, table of contents and footnote definitions from output. 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 CONFLUENCE Export*", which will be displayed when `org-export-show-temporary-export-buffer' is non-nil. (defalias 'org-confluence-export-as-confluence #[(&optional async subtreep visible-only body-only ext-plist) "\305\306\307 \n \f\310&\207" [async subtreep visible-only body-only ext-plist org-export-to-buffer confluence "*org CONFLUENCE Export*" #[nil "\300 \207" [text-mode] 1]] 9 (#$ . 7639) nil]) (provide 'ox-confluence)