;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require ox-html ox-org org-ehtml-util] 2) (defvar org-ehtml-style (byte-code "\301\302\303\304\305!!\203\304\305!\202\304\306\"!\307Q\207" [org-ehtml-base ""] 5)) (defvar org-ehtml-jquery "https://ajax.googleapis.com/ajax/libs/jquery/1.7.2/jquery.min.js") (defvar org-ehtml-js (byte-code "\301\302\303\"!\207" [org-ehtml-base file-contents expand-file-name "ox-ehtml.js"] 4)) (defalias 'org-ehtml-scripts #[nil "\302\303 \304\260\207" [org-ehtml-jquery org-ehtml-js "\n"] 5]) (defvar org-ehtml-wrap-template "
%html-text
%org-text
") (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\305\306\307&\210\300\312\313\314\304\305\306\315&\207" [custom-declare-variable org-ehtml-everything-editable nil "Set to a true value to make everything exported by org-ehtml editable." :group org-export-ehtml :type boolean org-ehtml-editable-headlines "Set to a true value to make headines exported by org-ehtml editable." org-ehtml-editable-types '(paragraph plain-list table verbatim quote-block verse-block) "Types of elements whose children should not be editable." (repeat symbol)] 8) #@103 Used to pass headline from `org-ehtml-format-headline-wrap' to `org-ehtml-format-headine-function'. (defvar org-ehtml-headline nil (#$ . 1668)) #@99 Used to pass info from `org-ehtml-format-headline-wrap' to `org-ehtml-format-headine-function'. (defvar org-ehtml-info nil (#$ . 1820)) (defalias 'org-ehtml-format-headine-function #[(&rest args) "\n\306\307\f\"\310\311 \211;\203\312\313#\266\202\202#\314A@\"\266\202!\315 \211;\2037\312\313#\266\202\202?\314A@\"\266\202\310\203L\202e\316 \211;\203]\312\313#\266\202\202e\314A@\"\266\202!\317 \320 #\321\322 B\323B\324B\325BF\".\207" [org-ehtml-headline headline org-ehtml-info info args html apply org-html-format-headline number-to-string :begin get-text-property 0 plist-get :contents-begin :end org-org-headline "" org-fill-template "html-text" "org-text" "begin" "end" begin contents-begin end org org-ehtml-wrap-template] 7]) (defalias 'org-ehtml-format-headline-wrap #[(headline contents info) "\203\306 \n\307 \n#+\207\307 \n#\207" [org-ehtml-editable-headlines headline info org-ehtml-info org-ehtml-headline org-html-format-headline-function org-ehtml-format-headine-function org-html-headline contents] 4]) (defalias 'org-ehtml-editable-p #[(element info) "\306\211;\203\307\310#\266\203\202\311A@\"\266\203@\312=\203&\n\202` @\312=\203: \206`\313\314 \f\"\235\202` @\315=\203Q \206`\316\317 AA@AA\"\202` @ \235\203\\\320\202`\321 \f\")\207" [element parent org-ehtml-editable-headlines org-ehtml-everything-editable info org-ehtml-editable-types :parent get-text-property 0 plist-get headline "EDITABLE" org-export-get-tags org-data cl-some #[(keyword) "\303A@\304\"\303A@\305\"\211\306\230\205\"\307\310 \"\205\"\311\312\313 \"!@*\207" [keyword val key plist-get :key :value "PROPERTY" string-match "editable \\(.+\\)" read-from-string match-string 1] 5] nil org-ehtml-editable-p] 7]) #@64 Defines and returns an ehtml-wrapped version of HTML-FUNCTION. (defalias 'def-ehtml-wrap '(macro . #[(html-function) "\302\303\304\305\306!#!\307 \310\311\312\"\313\314\315\316\317BD\320BBB\321BB\257)\207" [html-function fname intern replace-regexp-in-string "org-html-" "org-ehtml-" symbol-name defun (element contents info) format "Editable html wrapper around `%s'." let* (original-contents (cl-copy-seq contents)) (original-info (cl-copy-seq info)) html-text (element contents info) ((org-text (or (org-element-interpret-data element) original-contents (error "no org-text found for %s" (car element))))) ((if (org-ehtml-editable-p element info) (org-fill-template org-ehtml-wrap-template `(("html-text" \, html-text) ("org-text" \, org-text) ("begin" \, (number-to-string (plist-get (cadr element) :begin))) ("end" \, (number-to-string (plist-get (cadr element) :end))))) html-text))] 10 (#$ . 3611)])) (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\"B\315\312\316\317\"B\320\312\321\322\"B\323\312\324\325\"B\326\312\327\330\"B\331\312\332\333\"B\257&\207" [org-export-define-derived-backend ehtml html :menu-entry (101 "Export to Editable HTML" ((72 "To Temporary buffer" org-ehtml-export-as-html) (104 "To file" org-ehtml-export-to-html) (111 "To file and open" (lambda (a s v b) (if a (org-ehtml-export-to-html t s v b) (org-open-file (org-ehtml-export-to-html nil s v b))))))) :options-alist ((:ehtml-everything-editable "HTML_EVERYTHING_EDITABLE" nil org-ehtml-everything-editable) (:ehtml-editable-headlines "HTML_EDITABLE_HEADLINES" nil org-ehtml-editable-headlines) (:ehtml-editable-types nil nil org-ehtml-editable-types)) :translate-alist (headline . org-ehtml-format-headline-wrap) paragraph defalias org-ehtml-paragraph #[#1=(element contents info) "\306!\306\n!\307\f\n#\310\f!\206 \206\311\312\f@\"\313\f\n\"\203I\314\315 B\316B\317\320\321\fA@\322\"!B\323\320\321\fA@\324\"!BF\"\202J ,\207" [contents original-contents info original-info element html-text copy-sequence org-html-paragraph org-element-interpret-data error #2="no org-text found for %s" org-ehtml-editable-p org-fill-template #3="html-text" #4="org-text" #5="begin" number-to-string plist-get :begin #6="end" :end org-text org-ehtml-wrap-template] 10 "Editable html wrapper around `org-html-paragraph'."] plain-list org-ehtml-plain-list #[#1# "\306!\306\n!\307\f\n#\310\f!\206 \206\311\312\f@\"\313\f\n\"\203I\314\315 B\316B\317\320\321\fA@\322\"!B\323\320\321\fA@\324\"!BF\"\202J ,\207" [contents original-contents info original-info element html-text copy-sequence org-html-plain-list org-element-interpret-data error #2# org-ehtml-editable-p org-fill-template #3# #4# #5# number-to-string plist-get :begin #6# :end org-text org-ehtml-wrap-template] 10 "Editable html wrapper around `org-html-plain-list'."] table org-ehtml-table #[#1# "\306!\306\n!\307\f\n#\310\f!\206 \206\311\312\f@\"\313\f\n\"\203I\314\315 B\316B\317\320\321\fA@\322\"!B\323\320\321\fA@\324\"!BF\"\202J ,\207" [contents original-contents info original-info element html-text copy-sequence org-html-table org-element-interpret-data error #2# org-ehtml-editable-p org-fill-template #3# #4# #5# number-to-string plist-get :begin #6# :end org-text org-ehtml-wrap-template] 10 "Editable html wrapper around `org-html-table'."] verbatim org-ehtml-verbatim #[#1# "\306!\306\n!\307\f\n#\310\f!\206 \206\311\312\f@\"\313\f\n\"\203I\314\315 B\316B\317\320\321\fA@\322\"!B\323\320\321\fA@\324\"!BF\"\202J ,\207" [contents original-contents info original-info element html-text copy-sequence org-html-verbatim org-element-interpret-data error #2# org-ehtml-editable-p org-fill-template #3# #4# #5# number-to-string plist-get :begin #6# :end org-text org-ehtml-wrap-template] 10 "Editable html wrapper around `org-html-verbatim'."] quote-block org-ehtml-quote-block #[#1# "\306!\306\n!\307\f\n#\310\f!\206 \206\311\312\f@\"\313\f\n\"\203I\314\315 B\316B\317\320\321\fA@\322\"!B\323\320\321\fA@\324\"!BF\"\202J ,\207" [contents original-contents info original-info element html-text copy-sequence org-html-quote-block org-element-interpret-data error #2# org-ehtml-editable-p org-fill-template #3# #4# #5# number-to-string plist-get :begin #6# :end org-text org-ehtml-wrap-template] 10 "Editable html wrapper around `org-html-quote-block'."] verse-block org-ehtml-verse-block #[#1# "\306!\306\n!\307\f\n#\310\f!\206 \206\311\312\f@\"\313\f\n\"\203I\314\315 B\316B\317\320\321\fA@\322\"!B\323\320\321\fA@\324\"!BF\"\202J ,\207" [contents original-contents info original-info element html-text copy-sequence org-html-verse-block org-element-interpret-data error #2# org-ehtml-editable-p org-fill-template #3# #4# #5# number-to-string plist-get :begin #6# :end org-text org-ehtml-wrap-template] 10 "Editable html wrapper around `org-html-verse-block'."]] 18) #@79 Export current buffer to an HTML buffer. Based on `org-html-export-as-html'.' (defalias 'org-ehtml-export-as-html #[(&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 ehtml "*Org eHTML Export*" #[nil "\300 \207" [nxml-mode] 1]] 9 (#$ . 8545) nil]) #@86 Export current buffer to an editable HTML file. Based on `org-html-export-to-html'.' (defalias 'org-ehtml-export-to-html #[(&optional async subtreep visible-only body-only ext-plist) "\306P\307 \n\"\f\f\310 Q\f\310\311 Q\312\313 \n&-\207" [org-html-extension extension subtreep file org-html-coding-system org-export-coding-system "." org-export-output-file-name "\n" org-ehtml-scripts org-export-to-file ehtml org-html-style-default org-ehtml-style org-html-scripts async visible-only body-only ext-plist] 8 (#$ . 8910) nil]) #@42 Export FILE's contents to editable HTML. (defalias 'org-ehtml-export-file #[(file) "\302 \303\216\304 !\210\305 *\207" [#1=#:wconfig file current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] find-file org-ehtml-export-to-html] 2 (#$ . 9463)]) #@135 Export FILE to editable HTML if no previous export exists. If a previous HTML export of FILE exists but is older than FILE re-export. (defalias 'org-ehtml-cached #[(file) "\306\307 !\310 !\211\311P \312P\313 !\2031\313\f!\203(\f! !V\2031\314\315 !\n\"\2022\f-\207" [#1=#:--cl-age-- file dir base html org #[(f) "\301\302\303 \304\305\306!!\206\305!8\"!\207" [f float-time time-subtract current-time 5 file-attributes file-truename] 7] file-name-directory file-name-sans-extension ".html" ".org" file-exists-p expand-file-name org-ehtml-export-file] 4 (#$ . 9743)]) (provide 'ox-ehtml)