;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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 "\300\301!\210\300\302\303\304#\204\300\305!\210\300\306!\207" [require org org-publish nil t ox-publish yasnippet] 4) (defalias 'yas--org-raw-html #[(tag content &optional attrs) "\304\305\306\"\203\f\307\202 \310 \n\205\311\nQ $\207" [org-version tag attrs content format version< "8.0.0" "@<%s>%s@" "@@html:<%s>@@%s@@html:@@" " "] 5]) (defalias 'yas--document-symbol #[(symbol level) "\306\307\"\310\n!\205\311\312\313\n\314\"\"\310\n!\203*\315\316 \317\320\n\321#\322\323 \324#$\2023\315\325 \317\320\n\326##\315\327\n\"\3300\310\n!\203^\n\331N\2421\3321!\203V1\333!\202Z\334\n\314\")\202p\335\n!\203l\336\n\337\314#\202p\315\340\n\"\206w\315\341\n\"2\3333\342\343\3442\314\211\345&2\342\346\3472\314\211%2\3502!2\342\351\3522\314\211%2\342\353\3542\314\211%2\342\355\3562\314\211%2\f \3572R.\207" [level stars symbol args heading after-heading make-string 42 fboundp mapcar symbol-name help-function-arglist t format "%s %s (%s)\n" yas--org-raw-html "code" "class='function'" mapconcat #[(a) "\301\302\303\"\203\f\304\202 \305\"\207" [a format string-prefix-p "&" "/%s/" "=%s="] 4] " " "%s %s\n" "class='variable'" ":PROPERTIES:\n:CUSTOM_ID: %s\n:END:" grave function-documentation functionp nil documentation boundp documentation-property variable-documentation "*WARNING*: no symbol named =%s=" "*WARNING*: no doc for symbol =%s=" replace-regexp-in-string "\\<\\([A-Z][-A-Z0-9]+\\)\\(\\sw+\\)?\\>" #[(match) "\306\307\"\211\227\306\310\"\n\f\235\203\311\312\313\"\202 ?\205 \314\211\203,\315 \n\"\202- ,\207" [match match1 prefix suffix args fmt match-string 1 2 yas--org-raw-html "code" "%s" "/%s/" format] 4] 1 "\\\\{[^}]+}" #[(match) "\301\302!\303Q\207" [match "#+BEGIN_EXAMPLE\n" substitute-command-keys "#+END_EXAMPLE\n"] 3] substitute-command-keys "Info node `(\\([-a-z]+\\)) \\([A-Za-z0-9 ]+\\)'" #[(match) "\304\305\"\304\306\"\307\310\311\n\312\211%\313\314 \n%+\207" [match manual node html-node match-string 1 2 replace-regexp-in-string " " "-" t format "Info node [[https://www.gnu.org/software/emacs/manual/html_node/%s/%s.html][(%s) %s]]"] 6] "`\\([-a-z]+\\)'" #[(match) "\304\305\"\227\306 !\211 >\203\307\310 \211#\202\307\311 \"*\207" [match name sym yas--exported-syms match-string 1 intern-soft format "[[#%s][=%s=]]" "=%s="] 5] "\n\n +(.+\\(?:\n +.+\\)*" #[(match) "\301\302Q\207" [match "\n#+BEGIN_SRC elisp\n" "\n#+END_SRC\n"] 3] "\n" text-quoting-style doc-synth body case-fold-search] 8]) (defalias 'yas--document-symbols #[(level &rest names-and-predicates) "\306G\307\"\310 \311\"\f\307 :\203n @\3122f\313\314\"\307\315:\203c@\211!\203V HBI\210*\316\312\307\"\210AT\202)+\3070\210 A\211\202* \317\307\313\320\" \307!\321\"T\211GW\203\300H :\203\300 @!\"\322\323\n!#P\211\"\324\325\326#P\" A \202\204\".\207" [names-and-predicates level stars sym-lists yas--exported-syms #1=#:--cl-var-- make-vector nil make-string 42 --cl-block-nil-- mapcar cdr 0 throw -1 car "" format "\n%s %s\n" mapconcat #[(sym) "\302 T\"\207" [sym level yas--document-symbol] 3] "\n\n" sym #2=#:--cl-var-- test i #3=#:v #4=#:v #5=#:--cl-vec-- #6=#:--cl-idx-- slist #7=#:--cl-var-- name #8=#:--cl-var--] 6]) (defalias 'yas--internal-link-snippet #[nil "\300\301!\207" [yas-expand-snippet "[[#$1][=${1:`yas/selected-text`}=]]"] 2 nil nil]) (define-key org-mode-map [M-f8] 'yas--internal-link-snippet) #@95 Return contents of nav-menu-html.inc. But replace link to "current" page with a span element. (defalias 'yas--make-preamble #[(props) "\303\304!rq\210\305\216\306\307 \310\"!\311\312\313\n\"!\210eb\210\314\315\316\307 \317\"!\320Q!\210\321\322!\210\314\323!\210\321\324!\210\325 ,\207" [#1=#:temp-buffer props dir generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] file-name-directory plist-get :input-file insert-file-contents expand-file-name "nav-menu.html.inc" search-forward "" replace-match "" "" "" buffer-string] 6 (#$ . 3913)]) (byte-code "\203\n\306!\202 \307\310!\211?\205%\3111#\312\313\314\315#@0\202%\210\316\317\320\321\322\f\2037\312\313\323\324#@\2028 \206<\325!!\326#\327\330\331!\205I\332\333\n\334\n\335\336\337\340\f\206W/\341 \342\343\260\257\"0\344\3451\"2\f\203\226\346\347\n\"\350\351\352!!34\353\216r3q\210\354\fp\"\210)r3q\210\355\316\2114\316\356%\210,2\203\24420\241\210\202\255\3450B1B1.\316\207" [load-file-name default-directory dir src-epoch rev date file-name-directory getenv "SOURCE_DATE_EPOCH" (error) process-lines "git" "describe" "--dirty" nil format-time-string "(%Y-%m-%d %H:%M:%S)" seconds-to-time string-to-number "show" "--format=%ct" "0" t append fboundp org-html-publish-to-html (:publishing-function org-html-publish-to-html) :base-directory :publishing-directory :html-preamble yas--make-preamble :html-postamble "

Generated by %c from " " " "

\n" "

%v

\n" assoc "yasnippet" expand-file-name "html-revision" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] princ write-region 0 yas--version proj-plist org-publish-project-alist project #1# #:temp-file] 16) (defalias 'yas--generate-html-batch #[nil "\305\211\211\211\306\307\310\311\"-\207" [org-html-htmlize-output-type make-backup-files org-confirm-babel-evaluate org-export-copy-to-kill-ring org-publish-use-timestamps-flag nil css org-publish "yasnippet" force] 5]) (provide 'yas-doc-helper)