;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312&\210\313\314\315\316\317\320\321\322&\210\323\324\325\326\321\314\327\330&\207" [require ox-html org-export-define-derived-backend deck html :menu-entry (100 "Export to deck.js HTML Presentation" ((72 "To temporary buffer" org-deck-export-as-html) (104 "To file" org-deck-export-to-html) (111 "To file and open" (lambda (a s v b) (if a (org-deck-export-to-html t s v b) (org-open-file (org-deck-export-to-html nil s v b))))))) :options-alist ((:description "DESCRIPTION" nil nil newline) (:keywords "KEYWORDS" nil nil space) (:html-link-home "HTML_LINK_HOME" nil nil) (:html-link-up "HTML_LINK_UP" nil nil) (:deck-postamble "DECK_POSTAMBLE" nil org-deck-postamble newline) (:deck-preamble "DECK_PREAMBLE" nil org-deck-preamble newline) (:html-head-include-default-style "HTML_INCLUDE_DEFAULT_STYLE" "html-style" nil) (:html-head-include-scripts "HTML_INCLUDE_SCRIPTS" nil nil) (:deck-base-url "DECK_BASE_URL" nil org-deck-base-url) (:deck-theme "DECK_THEME" nil org-deck-theme) (:deck-transition "DECK_TRANSITION" nil org-deck-transition) (:deck-include-extensions "DECK_INCLUDE_EXTENSIONS" nil org-deck-include-extensions split) (:deck-exclude-extensions "DECK_EXCLUDE_EXTENSIONS" nil org-deck-exclude-extensions split)) :translate-alist ((headline . org-deck-headline) (inner-template . org-deck-inner-template) (item . org-deck-item) (link . org-deck-link) (template . org-deck-template)) custom-declare-group org-export-deck nil "Options for exporting Org mode files to deck.js HTML Presentations." :tag "Org Export DECK" :group org-export-html custom-declare-variable org-deck-directories '("./deck.js") "Directories to search for deck.js components (jquery,\nmodernizr; core, extensions and themes directories.)" :type (repeat (string :tag "Directory"))] 9) (defalias 'org-deck--cleanup-components #[(components) "\301\302\303\"@\304\305#\207" [components remove-duplicates remove nil :test #[(x y) "\302!\302 !\230\207" [x y file-name-nondirectory] 3]] 4]) #@109 Returns a unique list of all extensions found in in the extensions directories under `org-deck-directories' (defalias 'org-deck--find-extensions #[nil "\301\302\303\302\304\"\"!\207" [org-deck-directories org-deck--cleanup-components mapcar #[(dir) "\301!\205 \302\303\304#\207" [dir file-directory-p directory-files t "^[^.]"] 4] #[(x) "\301\302\"\207" [x expand-file-name "extensions"] 3]] 6 (#$ . 2119)]) #@110 Return a unique list of all the css stylesheets in the themes/TYPE directories under `org-deck-directories'. (defalias 'org-deck--find-css #[(type) "\301\302\303\"!\207" [org-deck-directories org-deck--cleanup-components mapcar #[(dir) "\303\304\305!P \"\306\n!\205\307\n\310\311#)\207" [type dir css-dir expand-file-name file-name-as-directory "themes" file-directory-p directory-files t "\\.css$"] 4]] 4 (#$ . 2539)]) #@101 List all available deck extensions, styles and transitions (with full paths) to a temporary buffer. (defalias 'org-deck-list-components #[nil "\301\302!rq\210\303 \210\304c\210\305\306\307 \310#c\210\311c\210\305\306\312\313!\310#c\210\314c\210\305\306\312\315!\310#c\210)\316!)\207" [outbuf get-buffer-create "*deck.js Extensions*" erase-buffer "Extensions\n----------\n" mapconcat identity org-deck--find-extensions "\n" "\n\nStyles\n------\n" org-deck--find-css "style" "\n\nTransitions\n----------\n" "transition" switch-to-buffer-other-window] 4 (#$ . 2971) nil]) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\305\306\312&\210\300\313\314\315\304\305\306\316&\210\300\317\320\321\304\305\306\316&\210\300\322\323\324\304\305\306\316&\207" [custom-declare-variable org-deck-include-extensions nil "If non-nil, list of extensions to include instead of all available.\nCan be overridden or set with the DECK_INCLUDE_EXTENSIONS property.\nDuring output generation, the extensions found by\n`org-deck--find-extensions' are searched for the appropriate\nfiles (scripts and/or stylesheets) to include in the generated\nhtml. The href/src attributes are created relative to `org-deck-base-url'." :group org-export-deck :type (repeat (string :tag "Extension")) org-deck-exclude-extensions "If non-nil, list of extensions to exclude.\nCan be overridden or set with the DECK_EXCLUDE_EXTENSIONS property." (repeat (string :tag "Extension")) org-deck-theme "swiss.css" "deck.js theme. Can be overridden with the DECK_THEME property.\nIf this value contains a path component (\"/\"), it is used as a\nliteral path (url). Otherwise it is prepended with\n`org-deck-base-url'/themes/style/." string org-deck-transition "fade.css" "deck.js transition theme. Can be overridden with the\nDECK_TRANSITION property.\nIf this value contains a path component (\"/\"), it is used as a\nliteral path (url). Otherwise it is prepended with\n`org-deck-base-url'/themes/transition/." org-deck-base-url "deck.js" "Url prefix to deck.js base directory containing the core, extensions\nand themes directories.\nCan be overridden with the DECK_BASE_URL property."] 8) #@138 Alist of css styles for the preamble, postamble and both respectively. Can be overridden in `org-deck-styles'. See also `org-html-divs'. (defvar org-deck-pre/postamble-styles '((both "left: 5px; width: 100%;") (preamble "position: absolute; top: 10px;") (postamble "")) (#$ . 5149)) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\207" [custom-declare-variable org-deck-postamble "

%a - %t

" "Non-nil means insert a postamble in HTML export.\n\nWhen set to a string, use this string\nas the postamble. When t, insert a string as defined by the\nformatting string in `org-html-postamble-format'.\n\nWhen set to a function, apply this function and insert the\nreturned string. The function takes the property list of export\noptions as its only argument.\n\nThis is included in the document at the bottom of the content\nsection, and uses the postamble element and id from\n`org-html-divs'. The default places the author and presentation\ntitle at the bottom of each slide.\n\nThe css styling is controlled by `org-deck-pre/postamble-styles'.\n\nSetting :deck-postamble in publishing projects will take\nprecedence over this variable." :group org-export-deck :type (choice (const :tag "No postamble" nil) (const :tag "Default formatting string" t) (string :tag "Custom formatting string") (function :tag "Function (must return a string)")) org-deck-preamble nil "Non-nil means insert a preamble in HTML export.\n\nWhen set to a string, use this string\nas the preamble. When t, insert a string as defined by the\nformatting string in `org-html-preamble-format'.\n\nWhen set to a function, apply this function and insert the\nreturned string. The function takes the property list of export\noptions as its only argument.\n\nThis is included in the document at the top of content section, and\nuses the preamble element and id from `org-html-divs'. The css\nstyling is controlled by `org-deck-pre/postamble-styles'.\n\nSetting :deck-preamble in publishing projects will take\nprecedence over this variable." (choice (const :tag "No preamble" nil) (const :tag "Default formatting string" t) (string :tag "Custom formatting string") (function :tag "Function (must return a string)"))] 8) #@259 Default css styles used for formatting a table of contents slide. Can be overridden in `org-deck-styles'. Note that when the headline numbering option is true, a "list-style: none" is automatically added to avoid both numbers and bullets on the toc entries. (defvar org-deck-toc-styles (byte-code "\300\301\302\303\304E\305#\207" [mapconcat identity "#table-of-contents a {color: inherit;}" "#table-of-contents ul {margin-bottom: 0;}" "#table-of-contents li {padding: 0;}" "\n"] 5) (#$ . 7387)) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\207" [custom-declare-variable org-deck-styles "\n#title-slide h1 {\n position: static; padding: 0;\n margin-top: 10%;\n -webkit-transform: none;\n -moz-transform: none;\n -ms-transform: none;\n -o-transform: none;\n transform: none;\n}\n#title-slide h2 {\n text-align: center;\n border:none;\n padding: 0;\n margin: 0;\n}" "Deck specific CSS styles to include in exported html.\nDefaults to styles for the title page." :group org-export-deck :type string org-deck-title-slide-template "

%t

\n

%s

\n

%a

\n

%e

\n

%d

" "Format template to specify title page section.\nSee `org-html-postamble-format' for the valid elements which\ncan be included.\n\nIt will be wrapped in the element defined in the :html-container\nproperty, and defaults to the value of `org-html-container-element',\nand have the id \"title-slide\"."] 8) (defalias 'org-deck-toc #[(depth info) "\302\303\304\305\"\"\302\306\307\310\"\"\311\312\313\314 \"\"!\302\315\304\305\"\"R\207" [info depth format "<%s id='table-of-contents' class='slide'>\n" plist-get :html-container "

%s

\n" org-html--translate "Table of Contents" org-html--toc-text mapcar #[(headline) "\306\211;\203\307\310#\266\202\202\311A@\"\266\202\312\n\"?\2053\313\n\"\2053\314\315\316\n\"\317#\320P\211\321\322\323\324\325\211;\203J\307\310#\266\202\202R\311A@\"\266\202\n\"#P \203\230\326 \327\330\331#)\266\203\203\230\332\333\334\211;\203~\307\310#\266\202\202\206\311A@\"\266\202\206\223\335\314\315\316\n\"\336#P\f#\202\231\f\337\n\"+B\207" [headline class info section-number title inhibit-changing-match-data :HTML_CONTAINER_CLASS get-text-property 0 plist-get org-export-low-level-p org-export-numbered-headline-p mapconcat number-to-string org-export-get-headline-number "." ". " replace-regexp-in-string "]*>" "" org-export-data :title "\\" nil t string-match format "%s" :CUSTOM_ID "sec-" "-" org-export-get-relative-level] 12] org-export-collect-headlines "\n"] 8]) (defalias 'org-deck--get-packages #[(info) "\306\307\"\310P\306\311\"\306\312\"\306\313\"\306\314\"\315\211\211 \211!\316P\211\" \235\2044\" B)!\317P\211# \235\204F# B)!\320P\211$ \235\204X$ B)!\321P\211%\n\235\204j%\nB)\322\323\324 \"\210\325 \315\326&\327#)\266\203\204\244\330 !\203\217 \202\226\331\332! #\211'\n\235\204\243'\nB)\325\315\326&\327#)\266\203\204\327\330!\203\302\202\311\331\333!#\211(\n\235\204\326(\nB)\334 \237\335\n\237\336 \257.\207" [info snippets sheets scripts exclude include plist-get :deck-base-url "/" :deck-theme :deck-transition :deck-include-extensions :deck-exclude-extensions nil "jquery.min.js" "core/deck.core.js" "modernizr.custom.js" "core/deck.core.css" mapc #[(extdir) "\306!\307! \310 \311R\312\313 \"\314=\204! \235\205\211 \235?\205\211\315\n \316Q!\203G\f \316Q\211\235\204FB)\315\n \317Q!\203e\f \317Q\211\235\204dB)\315\n \320Q!\205\211\n \320Q\211\235\203\200\202\210B\211),\207" [extdir name dir prefix path base file-name-nondirectory file-name-as-directory "extensions/" "/" format "deck.%s." nil file-exists-p "js" "css" "html" include exclude #1=#:x scripts #2=#:x sheets #3=#:x snippets] 5] org-deck--find-extensions "^[[:space:]]*$" t string-match file-name-directory format "%sthemes/style/%s" "%sthemes/transition/%s" :scripts :sheets :snippets transition theme prefix #4=#:x #5=#:x #6=#:x #7=#:x inhibit-changing-match-data #8=#:x #9=#:x] 9]) #@140 Return body of document string after HTML conversion. CONTENTS is the transcoded contents string. INFO is a plist holding export options. (defalias 'org-deck-inner-template #[(contents info) "\301P\207" [contents "\n"] 2 (#$ . 11591)]) (defalias 'org-deck-headline #[(headline contents info) "\306\307\211;\203\310\311#\266\202\202\312A@\"\266\202\206\313\314 \"\n\315U\203^\316 \317\320\321#)\266\203\204^\307 \322P;\203P\323\317$\266\202^A\324A@#\240\210\266\325 #+\207" [headline info level class org-html-toplevel-hlevel inhibit-changing-match-data 2 :HTML_CONTAINER_CLASS get-text-property 0 plist-get "" org-export-get-relative-level 1 "\\" nil t string-match " slide" org-add-props plist-put org-html-headline contents] 8]) #@293 Transcode an ITEM element from Org to HTML. CONTENTS holds the contents of the item. INFO is a plist holding contextual information. If the containing headline has the property :STEP, then the "slide" class will be added to the to the list element, which will make the list into a "build". (defalias 'org-deck-item #[(item contents info) "\304 \n#\305\306\307#\203\310\311\312 #\210\310\313\314 #\202 )\207" [item contents info text org-html-item org-export-get-node-property :STEP t replace-regexp-in-string "^
  • " "
  • " "^
  • " "
  • "] 4 (#$ . 12378)]) (defalias 'org-deck-link #[(link desc info) "\303\304\305\306\307 \n$#\207" [link desc info replace-regexp-in-string "href=\"#" "href=\"#outline-container-" org-export-with-backend html] 8]) #@141 Return complete document string after HTML conversion. CONTENTS is the transcoded contents string. INFO is a plist holding export options. (defalias 'org-deck-template #[(contents info) "\306!\307\310\211\311\312\313\"#\314\312\315\"#\316\317\320!\312\321\"\316\322\323\324 \325BBB\326\327 \330BBB\331\332 \333BBB\334\335 \336BBBF\337#)\340\341!\316\342\312\n\343\"\337#\316\344\312\n\345\"\337#\346!\347\350\351\352!\353\f\312\354\"\205i\355\356\357\360\361 \2368\360\362 \2368\363@\236A@$\356\364\360\361 \2368\361@\236A@#\356\364\360\362 \2368\362@\236A@#A\365\366\367\356\370\371 \236A@\360\371 \2368#\372\361\"\356\373\312\374\"\"\375B\376!\"\356\377\312\374\"\"\312\201E\"\211C\205\326\201FC\")D\316\201G\312\n\201H\"\337#\372\362\"\356\377\371 \236A@\"\201I\201J\257!\337#+\207" [info org-html--pre/postamble-class pkg-info lang org-deck-toc-styles org-html-divs org-deck--get-packages "deck-status" plist-put :html-preamble plist-get :deck-preamble :html-postamble :deck-postamble mapconcat identity org-html-doctype :language #[(x) "\301\302\303#\207" [x apply format ""] 4] "[if lt IE 7]>" "class='no-js ie6'" (#1="") "[if IE 7]>" "class='no-js ie7'" (#1#) "[if IE 8]>" "class='no-js ie8'" (#1#) "[if gt IE 8]>" #1# ("