;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require ox cl-lib] 2) (defalias 'org-latex-header-blocks-filter #[(backend) "\302\303\"\205\304\305\306\307\"\310\311#\312\313\314 !\")\207" [backend positions org-export-derived-backend-p latex org-element-map org-element-parse-buffer greater-element nil export-block #[(block) "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\230\205t\306\307\307#\310\230\205t\311\211;\2039\302\303#\266\202\202A\304A@\"\266\202\312\211;\203R\302\303#\266\202\202Z\304A@\"\266\202\313\211;\203k\302\303#\266\202\202s\304A@\"\266\202E\207" [block :type get-text-property 0 plist-get "LATEX" org-export-read-attribute :header "yes" :begin :end :post-affiliated] 8] mapc #[(pos) "\3068b\210\307 \211A\203 \211A\242\202\310\311\312 GD\" \211A\242\313\314\n \"\315\"@A@|\210\f\316\211\205S@\317\320\321\322 #\315Qc\210A\211\204;\316.\207" [pos ignore beg end contents-lines line 2 org-edit-src-find-region-and-lang signal wrong-number-of-arguments (beg end &rest ignore) split-string buffer-substring-no-properties "\n" nil "#+latex_header: " replace-regexp-in-string "\\` *" "" --dolist-tail--] 6] reverse] 4]) #@211 Remove headlines tagged "ignore" retaining contents and promoting children. Each headline tagged "ignore" will be removed retaining its contents and promoting any children headlines to the level of the parent. (defalias 'org-export-ignore-headlines #[(data backend info) "\303\304\305 \306%\210\307\n #\210\207" [data info backend org-element-map headline #[(object) "\303\304\211;\203\305\306#\266\202\202\307A@\"\266\202\235\205Y\310\211;\203/\305\306#\266\202\2027\307A@\"\266\202\311\312\313\211:\204H\311\262\202S\211@9\203S\211AA\262\"\210*\314!\207" [object level-diff level-top "ignore" :tags get-text-property 0 plist-get :level nil mapc #[(el) "\302\303\304#\210\305 \"\207" [el object org-element-map headline #[(el) "\211:\204\211;\205\303\262\202\211@9\205\211@\262\304=\205w \204@\305\211;\2035\306\307#\266\202\202=\310A@\"\266\202\nZ\305\211\211;\203S\306\307#\266\202\202[\310A@\"\266\202 Z;\203i\311\312$\207A\313A@#\240\210\266\203\207" [el level-diff level-top plain-text headline :level get-text-property 0 plist-get org-add-props nil plist-put] 8] org-element-insert-before] 4] org-element-extract-element] 7] nil org-extra--merge-sections] 6 (#$ . 1292)]) (defalias 'org-extra--merge-sections #[(data _backend info) "\302\303\304 $\207" [data info org-element-map headline #[(hl) "\306\211:\204 \307\262\202\211@9\203\211AA\262\310\311 $\307\211\n:\203T\n@\211\211:\204:\211;\205B\312\262\202D\211@9\205B\211@\262\313=\204T \fB\nA\211\202\"\f\237+\211\205s G\314V\205s\315\316 @\317\320 A\"#\210\321\322 A\")\207" [hl info #1=#:--cl-var-- el #2=#:--cl-var-- sections org-element-map nil (headline section) identity plain-text headline 1 apply org-element-adopt-elements cl-mapcan #[(s) "\211:\204\301\207\211@9\203\211AA\207\207" [s nil] 2] mapc org-element-extract-element] 7]] 5]) #@216 A list of org export extras that can be enabled. Should be a list of items of the form (NAME FN HOOK). NAME is a symbol, which can be passed to `ox-extras-activate'. FN is a function which will be added to HOOK. (defconst ox-extras '((latex-header-blocks org-latex-header-blocks-filter org-export-before-parsing-hook) (ignore-headlines org-export-ignore-headlines org-export-filter-parse-tree-functions)) (#$ . 3207)) #@124 Activate certain org export extras. EXTRAS should be a list of extras (defined in `ox-extras') which should be activated. (defalias 'ox-extras-activate #[(extras) "\306\211\2050\n@\211 \236\211A@\307\f8 \203' \203'\310 \"\210+\nA\211\204\306*\207" [extras extra --dolist-tail-- ox-extras lst fn nil 2 add-hook hook] 4 (#$ . 3635)]) #@182 Deactivate certain org export extras. This function is the opposite of `ox-extras-activate'. EXTRAS should be a list of extras (defined in `ox-extras') which should be activated. (defalias 'ox-extras-deactivate #[(extras) "\306\211\2050\n@\211 \236\211A@\307\f8 \203' \203'\310 \"\210+\nA\211\204\306*\207" [extras extra --dolist-tail-- ox-extras lst fn nil 2 remove-hook hook] 4 (#$ . 3992)]) (provide 'ox-extra)