Current File : //usr/local/share/emacs/27.2/lisp/org/org-tempo.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\210\300\303!\210\304\305\306\307\310\311\312\303&\207" [require tempo cl-lib org custom-declare-group org-tempo nil "Template expansion of Org structures." :tag "Org structure" :group] 8)
#@26 Tempo tags for Org mode.
(defvar org-tempo-tags nil (#$ . 632))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable org-tempo-keywords-alist funcall function #[0 "\300\207" [(("L" . "latex") ("H" . "html") ("A" . "ascii") ("i" . "index"))] 1] "Keyword completion elements.\n\nThis is an alist of KEY characters and corresponding KEYWORDS,\njust like `org-structure-template-alist'. The tempo snippet\n\"<KEY\" will be expanded using the KEYWORD value. For example\n\"<L\" at the beginning of a line is expanded to \"#+latex:\".\n\nDo not use \"I\" as a KEY, as it it reserved for expanding\n\"#+include\"." :group org-tempo :type (repeat (cons (string :tag "Key") (string :tag "Keyword"))) :package-version (Org . "9.2")] 10)
#@59 Setup tempo tags and match finder for the current buffer.
(defalias 'org-tempo-setup #[0 "\301 \210\302\303!\210\304\300!\210\305\211\207" [tempo-match-finder org-tempo--update-maybe tempo-use-tag-list org-tempo-tags make-local-variable "^ *\\(<[[:word:]]+\\)\\="] 2 (#$ . 1409)])
#@62 Return a list of all Org Tempo expansion strings, like "<s".
(defalias 'org-tempo--keys #[0 "\302\303\304 \"\"\207" [org-structure-template-alist org-tempo-keywords-alist mapcar #[257 "\300\301@\"\207" [format "<%s"] 4 "\n\n(fn PAIR)"] append] 5 (#$ . 1697)])
#@194 Check and add new Org Tempo templates if necessary.
In particular, if new entries were added to
`org-structure-template-alist' or `org-tempo-keywords-alist', new
Tempo templates will be added.
(defalias 'org-tempo--update-maybe #[0 "\300\301\302 \"?\205 \303 \207" [cl-every #[257 "\301\"\207" [org-tempo-tags assoc] 4 "\n\n(fn KEY)"] org-tempo--keys org-tempo-add-templates] 3 (#$ . 1966)])
#@135 Update all Org Tempo templates.
Go through `org-structure-template-alist' and
`org-tempo-keywords-alist' and update tempo templates.
(defalias 'org-tempo-add-templates #[0 "\303\304\305\"\210\306 \211G\307!GV\203 \310\311!\210\312\313\314\315\316\317!\320\"\321\322%\"\303\323 \"\210\303\324\n\"\207" [org-tempo-tags org-structure-template-alist org-tempo-keywords-alist mapc org--check-org-structure-template-alist (org-structure-template-alist org-tempo-keywords-alist) org-tempo--keys delete-dups warn "Duplicated keys in `org-structure-template-alist' and `org-tempo-keywords-alist'" cl-remove-if make-byte-code 257 "\211@\300\235\207" vconcat vector [] 3 "\n\n(fn TAG)" org-tempo-add-block org-tempo-add-keyword] 8 (#$ . 2368)])
#@66 Add block entry from `org-structure-template-alist'.
(fn ENTRY)
(defalias 'org-tempo-add-block #[257 "\300\301@\"A\211\302\235\303\300\304\305\306\307#\"\300\310\203 \306\202 \311#\205& \312\313\314?\205/ \312\314\300\315\316\f\306\"@\"\317BBBBBBB\300\320\"\321%\207" [format "<%s" ("src" "export") tempo-define-template "org-%s" replace-regexp-in-string " " "-" "#+begin_%s%s" "" p '> n "#+end_%s" split-string (>) "Insert a %s block" org-tempo-tags] 17 (#$ . 3115)])
#@64 Add keyword entry from `org-tempo-keywords-alist'.
(fn ENTRY)
(defalias 'org-tempo-add-keyword #[257 "\300\301@\"A\302\300\303\304\305\306#\"\300\307\"\310B\300\311\"\312%\207" [format "<%s" tempo-define-template "org-%s" replace-regexp-in-string " " "-" "#+%s: " (p '>) "Insert a %s keyword" org-tempo-tags] 10 (#$ . 3606)])
#@201 Look for a tag and expand it silently.
Unlike to `tempo-complete-tag', do not give a signal if a partial
completion or no match at all is found. Return nil if expansion
didn't succeed.
(fn &rest _)
(defalias 'org-tempo-complete-tag #[128 "\300 \210\301\302!\302=?\207" [org-tempo--update-maybe tempo-complete-tag fail] 3 (#$ . 3948)])
#@33 Add #+include: and a file name.
(defalias 'org-tempo--include-file #[0 "\302\3031 \304\302\305\306\307\310\311!!\"c\210)0\202 \210\302\312\313!?\205( \314c\210\304\211)\207" [inhibit-quit quit-flag t (quit) nil format "#+include: %S " file-relative-name read-file-name "Include file: " eval (ignore nil) "<I"] 6 (#$ . 4291)])
(byte-code "\300\301\302\303\304\305%\210\306\307\310\"\210\306\311\312\"\210\313\314!\211\203* \211@r\211q\210\310 \210)A\266\202\202 \210\315\316!\207" [tempo-define-template "org-include" ((org-tempo--include-file) p >) "<I" "Include keyword" org-tempo-tags add-hook org-mode-hook org-tempo-setup org-tab-before-tab-emulation-hook org-tempo-complete-tag org-buffer-list files provide org-tempo] 6)
Mini Shell