mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 5ddac8bd2392ec5b64392e8750d725029bf5aa79
commit | author | age
76bbd0 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\300\301!\210\300\302!\207" [require cl-lib org] 2)
16 #@49 Internal flag, noting if the clock was started.
17 (defvar org-capture-clock-was-started nil (#$ . 472))
18 #@71 Marker pointing to the entry most recently stored with `org-capture'.
19 (defvar org-capture-last-stored-marker (make-marker) (#$ . 580))
20 (defvar org-capture-link-is-already-stored nil)
21 #@52 Non-nil when capture process is refiling an entry.
22 (defvar org-capture-is-refiling nil (#$ . 769))
23 #@46 Hash table for all history lists per prompt.
24 (defvar org-capture--prompt-history-table (make-hash-table :test 'equal) (#$ . 874))
25 #@39 History list for prompt placeholders.
26 (defvar org-capture--prompt-history nil (#$ . 1010))
27 (custom-declare-group 'org-capture nil "Options concerning capturing new entries." :tag "Org Capture" :group 'org)
28 #@252 Update the template list to the new format.
29 TEMPLATES is a template list, as in `org-capture-templates'. The
30 new format unifies all the date/week tree targets into one that
31 also allows for an optional outline path to specify a target.
32
33 (fn TEMPLATES)
34 (defalias 'org-capture-upgrade-templates #[257 "\300\301\"\211\232\204\302\303!\210\211\207" [mapcar #[257 "\211:\203,\211@A\211:\203*\211@A\211:\203$\211@A\211:\203\211@\211:\203\211@\211\300\267\202AA\211:\203\\\211@A\211\n \211\301B\nBBBBB\266\206\266\202\202^\n\266\202\202AA\211:\203\224\211@A\211\n \211\301B\302\303\fBBBBBBB\266\206\266\202\202\226\n\266\202\202AA\211:\203\314\211@A\211\n \211\301B\304\305\fBBBBBBB\266\206\266\202\202\316\n\266\202\202AA\211:\203\211@A\211\n \211\301B\304\305\302\303BBBBBBBBB\266\206\266\202\202\n\n\266\202\202\262\202\262\202\266\202\202%\266\202\202+\207\207" [#s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (file+datetree 47 file+datetree+prompt 99 file+weektree 155 file+weektree+prompt 211)) file+olp+datetree :time-prompt t :tree-type week] 29 "\n\n(fn ENTRY)"] message "Deprecated date/weektree capture templates changed to `file+olp+datetree'."] 4 (#$ . 1223)])
35 (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\317\324\331\323\324\332\333\257\334\323\324\335\336\337BBBBB\323\324\340\341\342BBBBB\323\324\343\344\345BBBBB\323\324\346\347\350BBBBB\323\324\351\352\353BBBBB\354BBBBBBBBBB\355BBBBBBB\257D\262& \210\300\356\302\303\357DD\360\306\307\310\311\314\361&    \210\300\362\302\303\363DD\364\306\307\310\311\314\361&    \210\300\365\302\303\366DD\367\306\307\310\311\314\361&    \210\300\370\302\303\371DD\372\306\307\310\373\314\374&    \207" [custom-declare-variable org-capture-templates funcall function #[0 "\300\207" [nil] 1] "Templates for the creation of new entries.\n\nEach entry is a list with the following items:\n\nkeys         The keys that will select the template, as a string, characters\n             only, for example \"a\" for a template to be selected with a\n             single key, or \"bt\" for selection with two keys.  When using\n             several keys, keys using the same prefix key must be together\n             in the list and preceded by a 2-element entry explaining the\n             prefix key, for example\n\n                     (\"b\" \"Templates for marking stuff to buy\")\n\n             The \"C\" key is used by default for quick access to the\n             customization of the template variable.  But if you want to use\n             that key for a template, you can.\n\ndescription  A short string describing the template, will be shown during\n             selection.\n\ntype         The type of entry.  Valid types are:\n               entry       an Org node, with a headline.  Will be filed\n                           as the child of the target entry or as a\n                           top-level entry.\n               item        a plain list item, will be placed in the\n                           first plain list at the target\n                           location.\n               checkitem   a checkbox item.  This differs from the\n                           plain list item only is so far as it uses a\n                           different default template.\n               table-line  a new line in the first table at target location.\n               plain       text to be inserted as it is.\n\ntarget       Specification of where the captured item should be placed.\n             In Org files, targets usually define a node.  Entries will\n             become children of this node, other types will be added to the\n             table or list in the body of this node.\n\n             Most target specifications contain a file name.  If that file\n             name is the empty string, it defaults to `org-default-notes-file'.\n             A file can also be given as a variable or as a function called\n             with no argument.  When an absolute path is not specified for a\n             target, it is taken as relative to `org-directory'.\n\n             Valid values are:\n\n             (file \"path/to/file\")\n                 Text will be placed at the beginning or end of that file\n\n             (id \"id of existing Org entry\")\n                 File as child of this entry, or in the body of the entry\n\n             (file+headline \"path/to/file\" \"node headline\")\n                 Fast configuration if the target heading is unique in the file\n\n             (file+olp \"path/to/file\" \"Level 1 heading\" \"Level 2\" ...)\n                 For non-unique headings, the full outline path is safer\n\n             (file+regexp  \"path/to/file\" \"regexp to find location\")\n                 File to the entry matching regexp\n\n             (file+olp+datetree \"path/to/file\" \"Level 1 heading\" ...)\n                 Will create a heading in a date tree for today's date.\n                 If no heading is given, the tree will be on top level.\n                 To prompt for date instead of using TODAY, use the\n                 :time-prompt property.  To create a week-tree, use the\n                 :tree-type property.\n\n             (file+function \"path/to/file\" function-finding-location)\n                 A function to find the right location in the file\n\n             (clock)\n                File to the entry that is currently being clocked\n\n             (function function-finding-location)\n                Most general way: write your own function which both visits\n                the file and moves point to the right location\n\ntemplate     The template for creating the capture item.  If you leave this\n             empty, an appropriate default template will be used.  See below\n             for more details.  Instead of a string, this may also be one of\n\n                 (file \"/path/to/template-file\")\n                 (function function-returning-the-template)\n\n             in order to get a template from a file, or dynamically\n             from a function.\n\nThe rest of the entry is a property list of additional options.  Recognized\nproperties are:\n\n :prepend            Normally newly captured information will be appended at\n                     the target location (last child, last table line,\n                     last list item...).  Setting this property will\n                     change that.\n\n :immediate-finish   When set, do not offer to edit the information, just\n                     file it away immediately.  This makes sense if the\n                     template only needs information that can be added\n                     automatically.\n\n :jump-to-captured   When set, jump to the captured entry when finished.\n\n :empty-lines        Set this to the number of lines the should be inserted\n                     before and after the new item.  Default 0, only common\n                     other value is 1.\n\n :empty-lines-before Set this to the number of lines the should be inserted\n                     before the new item.  Overrides :empty-lines for the\n                     number lines inserted before.\n\n :empty-lines-after  Set this to the number of lines the should be inserted\n                     after the new item.  Overrides :empty-lines for the\n                     number of lines inserted after.\n\n :clock-in           Start the clock in this item.\n\n :clock-keep         Keep the clock running when filing the captured entry.\n\n :clock-resume       Start the interrupted clock when finishing the capture.\n                     Note that :clock-keep has precedence over :clock-resume.\n                     When setting both to t, the current clock will run and\n                     the previous one will not be resumed.\n\n :time-prompt        Prompt for a date/time to be used for date/week trees\n                     and when filling the template.\n\n :tree-type          When `week', make a week tree instead of the month tree.\n\n :unnarrowed         Do not narrow the target buffer, simply show the\n                     full buffer.  Default is to narrow it so that you\n                     only see the new stuff.\n\n :table-line-pos     Specification of the location in the table where the\n                     new line should be inserted.  It should be a string like\n                     \"II-3\", meaning that the new line should become the\n                     third line before the second horizontal separator line.\n\n :kill-buffer        If the target file was not yet visited by a buffer when\n                     capture was invoked, kill the buffer again after capture\n                     is finalized.\n\nThe template defines the text to be inserted.  Often this is an\nOrg mode entry (so the first line should start with a star) that\nwill be filed as a child of the target headline.  It can also be\nfreely formatted text.  Furthermore, the following %-escapes will\nbe replaced with content and expanded:\n\n  %[pathname] Insert the contents of the file given by\n              `pathname'.  These placeholders are expanded at the very\n              beginning of the process so they can be used to extend the\n              current template.\n  %(sexp)     Evaluate elisp `(sexp)' and replace it with the results.\n              Only placeholders pre-existing within the template, or\n              introduced with %[pathname] are expanded this way.  Since this\n              happens after expanding non-interactive %-escapes, those can\n              be used to fill the expression.\n  %<...>      The result of format-time-string on the ... format specification.\n  %t          Time stamp, date only.  The time stamp is the current time,\n              except when called from agendas with `\\[org-agenda-capture]' or\n              with `org-capture-use-agenda-date' set.\n  %T          Time stamp as above, with date and time.\n  %u, %U      Like the above, but inactive time stamps.\n  %i          Initial content, copied from the active region.  If %i is\n              indented, the entire inserted text will be indented as well.\n  %a          Annotation, normally the link created with `org-store-link'.\n  %A          Like %a, but prompt for the description part.\n  %l          Like %a, but only insert the literal link.\n  %c          Current kill ring head.\n  %x          Content of the X clipboard.\n  %k          Title of currently clocked task.\n  %K          Link to currently clocked task.\n  %n          User name (taken from the variable `user-full-name').\n  %f          File visited by current buffer when org-capture was called.\n  %F          Full path of the file or directory visited by current buffer.\n  %:keyword   Specific information for certain link types, see below.\n  %^g         Prompt for tags, with completion on tags in target file.\n  %^G         Prompt for tags, with completion on all tags in all agenda files.\n  %^t         Like %t, but prompt for date.  Similarly %^T, %^u, %^U.\n              You may define a prompt like: %^{Please specify birthday}t.\n              The default date is that of %t, see above.\n  %^C         Interactive selection of which kill or clip to use.\n  %^L         Like %^C, but insert as link.\n  %^{prop}p   Prompt the user for a value for property `prop'.\n  %^{prompt}  Prompt the user for a string and replace this sequence with it.\n              A default value and a completion table ca be specified like this:\n              %^{prompt|default|completion2|completion3|...}.\n  %?          After completing the template, position cursor here.\n  %\\1 ... %\\N Insert the text entered at the nth %^{prompt}, where N\n              is a number, starting from 1.\n\nApart from these general escapes, you can access information specific to\nthe link type that is created.  For example, calling `org-capture' in emails\nor in Gnus will record the author and the subject of the message, which you\ncan access with \"%:from\" and \"%:subject\", respectively.  Here is a\ncomplete list of what is recorded for each link type.\n\nLink type               |  Available information\n------------------------+------------------------------------------------------\nbbdb                    |  %:type %:name %:company\nvm, wl, mh, mew, rmail, |  %:type %:subject %:message-id\ngnus                    |  %:from %:fromname %:fromaddress\n                        |  %:to   %:toname   %:toaddress\n                        |  %:fromto (either \"to NAME\" or \"from NAME\")\n                        |  %:date %:date-timestamp (as active timestamp)\n                        |  %:date-timestamp-inactive (as inactive timestamp)\ngnus                    |  %:group, for messages also all email fields\neww, w3, w3m            |  %:type %:url\ninfo                    |  %:type %:file %:node\ncalendar                |  %:type %:date\n\nWhen you need to insert a literal percent sign in the template,\nyou can escape ambiguous cases with a backward slash, e.g., \\%i." :group org-capture :version "24.1" :set #[514 "\300!L\207" [org-capture-upgrade-templates] 5 "\n\n(fn S V)"] :type (choice :tag "Filename       " (file :tag "Literal") (function :tag "Function") (variable :tag "Variable") (sexp :tag "Form")) repeat choice :value (#1="" #1# entry (file "~/org/notes.org") #1#) (list :tag "Multikey description" (string :tag "Keys       ") (string :tag "Description")) list :tag "Template entry" (string :tag "Keys           ") (string :tag "Description    ") (choice :tag "Capture Type   " :value entry (const :tag "Org entry" entry) (const :tag "Plain list item" item) (const :tag "Checkbox item" checkitem) (const :tag "Plain text" plain) (const :tag "Table line" table-line)) "Target location" "File" (const :format #1# file) (list :tag "ID" (const :format #1# id) (string :tag "  ID")) "File & Headline" (const :format #1# file+headline) ((string :tag "  Headline")) "File & Outline path" (const :format #1# file+olp) ((repeat :tag "Outline path" :inline t (string :tag "Headline"))) "File & Regexp" (const :format #1# file+regexp) ((regexp :tag "  Regexp")) "File [ & Outline path ] & Date tree" (const :format #1# file+olp+datetree) ((option (repeat :tag "Outline path" :inline t (string :tag "Headline")))) "File & function" (const :format #1# file+function) ((sexp :tag "  Function")) ((list :tag "Current clocking task" (const :format #1# clock)) (list :tag "Function" (const :format #1# function) (sexp :tag "  Function"))) ((choice :tag "Template       " (string) (list :tag "File" (const :format #1# file) (file :tag "Template file")) (list :tag "Function" (const :format #1# function) (function :tag "Template function"))) (plist :inline t :options (((const :format "%v " :prepend) (const t)) ((const :format "%v " :immediate-finish) (const t)) ((const :format "%v " :jump-to-captured) (const t)) ((const :format "%v " :empty-lines) (const 1)) ((const :format "%v " :empty-lines-before) (const 1)) ((const :format "%v " :empty-lines-after) (const 1)) ((const :format "%v " :clock-in) (const t)) ((const :format "%v " :clock-keep) (const t)) ((const :format "%v " :clock-resume) (const t)) ((const :format "%v " :time-prompt) (const t)) ((const :format "%v " :tree-type) (const week)) ((const :format "%v " :unnarrowed) (const t)) ((const :format "%v " :table-line-pos) (string)) ((const :format "%v " :kill-buffer) (const t))))) org-capture-before-finalize-hook #[0 "\300\207" [nil] 1] "Hook that is run right before a capture process is finalized.\nThe capture buffer is still current when this hook runs and it is\nwidened to the entire buffer." hook org-capture-after-finalize-hook #[0 "\300\207" [nil] 1] "Hook that is run right after a capture process is finalized.\nSuitable for window cleanup." org-capture-prepare-finalize-hook #[0 "\300\207" [nil] 1] "Hook that is run before the finalization starts.\nThe capture buffer is current and still narrowed." org-capture-bookmark #[0 "\300\207" [t] 1] "When non-nil, add a bookmark pointing at the last stored\nposition when capturing." "24.3" boolean] 38)
36 #@76 Plist for the current capture process, global, to avoid having to pass it.
37 (defvar org-capture-plist nil (#$ . 17488))
38 #@352 Local variable holding the plist in a capture buffer.
39 This is used to store the plist for use when finishing a capture process
40 because another such process might have changed the global variable by then.
41
42 Each time a new capture buffer has been set up, the global `org-capture-plist'
43 is copied to this variable, which is local in the indirect buffer.
44 (defvar org-capture-current-plist nil (#$ . 17614))
45 #@134 Local variable to store the value of the :clock-keep parameter.
46 This is needed in case org-capture-finalize is called interactively.
47 (defvar org-capture-clock-keep nil (#$ . 18024))
48 #@84 Add properties to the capture property list `org-capture-plist'.
49
50 (fn &rest STUFF)
51 (defalias 'org-capture-put #[128 "\211\205\301\211A\262\242\211A\262\242#\202\207" [org-capture-plist plist-put] 6 (#$ . 18212)])
52 #@285 Get properties from the capture property list `org-capture-plist'.
53 When LOCAL is set, use the local variable `org-capture-current-plist',
54 this is necessary after initialization of the capture process,
55 to avoid conflicts with other active capture processes.
56
57 (fn PROP &optional LOCAL)
58 (defalias 'org-capture-get #[513 "\302\203    \202\n    \"\207" [org-capture-current-plist org-capture-plist plist-get] 5 (#$ . 18442)])
59 #@261 Is PROP a property in `org-capture-plist'.
60 When LOCAL is set, use the local variable `org-capture-current-plist',
61 this is necessary after initialization of the capture process,
62 to avoid conflicts with other active capture processes.
63
64 (fn PROP &optional LOCAL)
65 (defalias 'org-capture-member #[513 "\302\203    \202\n    \"\207" [org-capture-current-plist org-capture-plist plist-get] 5 (#$ . 18869)])
66 #@137 Keymap for `org-capture-mode', a minor mode.
67 Use this map to set additional keybindings for when Org mode is used
68 for a capture buffer.
69 (defvar org-capture-mode-map (make-sparse-keymap) (#$ . 19275))
70 #@40 Hook for the minor `org-capture-mode'.
71 (defvar org-capture-mode-hook nil (#$ . 19481))
72 #@101 Non-nil if Org-Capture mode is enabled.
73 Use the command `org-capture-mode' to change this variable.
74 (defvar org-capture-mode nil (#$ . 19575))
75 (make-variable-buffer-local 'org-capture-mode)
76 #@146 Minor mode for special key bindings in a capture buffer.
77
78 Turning on this mode runs the normal hook `org-capture-mode-hook'.
79
80 (fn &optional ARG)
81 (defalias 'org-capture-mode #[256 "\302 \303=\203 ?\202\304!\305V\306\301!\210\307\310!\311\312\203%\313\202&\314\"\210\315\316!\203J\302 \203:\211\302 \232\203J\317\320\321\203E\322\202F\323#\266\210\324 \210\207" [org-capture-mode header-line-format current-message toggle prefix-numeric-value 0 make-local-variable substitute-command-keys "\\<org-capture-mode-map>Capture buffer.  Finish `\\[org-capture-finalize]', refile `\\[org-capture-refile]', abort `\\[org-capture-kill]'." run-hooks org-capture-mode-hook org-capture-mode-on-hook org-capture-mode-off-hook called-interactively-p any " in current buffer" message "Org-Capture mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 19772) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
82 (defvar org-capture-mode-hook nil)
83 (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\211%\210\311\312\313#\210\311\314\315#\210\311\316\317#\207" [org-capture-mode-map org-capture-mode-hook variable-documentation put "Hook run after entering or leaving `org-capture-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode org-capture-mode " Rem" nil define-key "" org-capture-finalize " " org-capture-kill "" org-capture-refile] 6)
84 (defvar org-capture-initial nil)
85 (defvar org-capture-entry nil)
86 #@80 Capture STRING with the template selected by KEYS.
87
88 (fn STRING &optional KEYS)
89 (defalias 'org-capture-string #[513 "\302!\303 *\207" [org-capture-entry org-capture-initial org-capture-select-template org-capture] 5 (#$ . 21322) "sInitial text: \n"])
90 (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&    \210\300\314\302\303\315DD\316\310\311\306\307\312\317&    \207" [custom-declare-variable org-capture-templates-contexts funcall function #[0 "\300\207" [nil] 1] "Alist of capture templates and valid contexts.\n\nFor example, if you have a capture template \"c\" and you want\nthis template to be accessible only from `message-mode' buffers,\nuse this:\n\n   \\='((\"c\" ((in-mode . \"message-mode\"))))\n\nHere are the available contexts definitions:\n\n      in-file: command displayed only in matching files\n      in-mode: command displayed only in matching modes\n  not-in-file: command not displayed in matching files\n  not-in-mode: command not displayed in matching modes\n    in-buffer: command displayed only in matching buffers\nnot-in-buffer: command not displayed in matching buffers\n   [function]: a custom function taking no argument\n\nIf you define several checks, the agenda command will be\naccessible if there is at least one valid check.\n\nYou can also bind a key to another capture template depending on\ncontextual rules.\n\n    \\='((\"c\" \"d\" ((in-mode . \"message-mode\"))))\n\nHere it means: in `message-mode buffers', use \"c\" as the\nkey for the capture template otherwise associated with \"d\".\n(The template originally associated with \"d\" is not displayed\nto avoid duplicates.)" :version "24.3" :group org-capture :type (repeat (list :tag "Rule" (string :tag "        Capture key") (string :tag "Replace by template") (repeat :tag "Available when" (choice (cons :tag "Condition" (choice (const :tag "In file" in-file) (const :tag "Not in file" not-in-file) (const :tag "In buffer" in-buffer) (const :tag "Not in buffer" not-in-buffer) (const :tag "In mode" in-mode) (const :tag "Not in mode" not-in-mode)) (regexp)) (function :tag "Custom function"))))) org-capture-use-agenda-date #[0 "\300\207" [nil] 1] "Non-nil means use the date at point when capturing from agendas.\nWhen nil, you can still capture using the date at point with\n`\\[org-agenda-capture]'." boolean] 10)
91 #@1261 Capture something.
92 \<org-capture-mode-map>
93 This will let you select a template from `org-capture-templates', and
94 then file the newly captured information.  The text is immediately
95 inserted at the target location, and an indirect buffer is shown where
96 you can edit it.  Pressing `\[org-capture-finalize]' brings you back to the previous
97 state of Emacs, so that you can continue your work.
98
99 When called interactively with a `\[universal-argument]' prefix argument GOTO, don't
100 capture anything, just go to the file/headline where the selected
101 template stores its notes.
102
103 With a `\[universal-argument] \[universal-argument]' prefix argument, go to the last note stored.
104
105 When called with a `C-0' (zero) prefix, insert a template at point.
106
107 When called with a `C-1' (one) prefix, force prompting for a date when
108 a datetree entry is made.
109
110 ELisp programs can set KEYS to a string associated with a template
111 in `org-capture-templates'.  In this case, interactive selection
112 will be bypassed.
113
114 If `org-capture-use-agenda-date' is non-nil, capturing from the
115 agenda will use the date at point as the default date.  Then, a
116 `C-1' prefix will tell the capture process to use the HH:MM time
117 of the day at point (if any) or the current HH:MM time.
118
119 (fn &optional GOTO KEYS)
120 (defalias 'org-capture #[512 "\203    \306=\203\307\310\232!\311\267\202\312 \207\313 \207p\314\303!\203. \203.\315\f\316\"\202;\31719\320\321!0\202;\210\321 \206B\322!\321@\206Q\323 \205Q`\324 {\262\211;\203`\325\326G\327$\210;\203n\325\326G\330$\210\331\267\202\200\332\333!\202\202\334\335!\202\202\336!\210\337 \210\340\341\342\343!\206\237\344\345!\205\237\346A\"@\347\343\n!\205\255\350\343 !!\316\n\351\n\352\353 \354\n\206\275\355 &\210\356 \210\3571\320\340\360\361 \"0\202\340\362\363!\203\332\364\363!\210\365\366\"\262\210\367\370!B\326\232\203\361\371 \202\202\3721\373\367\374!@\375=!0\202.\376p!\203\377\201E\201F \"\203\364p!\210\201G\367\352!!\210\365\201H\367\201I!A@#\262\210\201J\201K!\203v\367\201L!\203v\201M1q\201N \203Z\340\201O\201PC!\"\210\201Q \210\201R\201D!\210\201S\211D0\202u\210\202v\210\367\201T!\205\202\201U \207" [org-capture-use-agenda-date major-mode org-overriding-default-time org-capture-link-is-already-stored org-store-link-plist org-capture-entry org-agenda-mode org-get-cursor-date 1 #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((4) 22 (16) 25)) org-capture-goto-target org-capture-goto-last-stored boundp plist-get :annotation (error) org-store-link nil org-capture-select-template org-region-active-p mark remove-text-properties 0 (read-only t) (read-only t) #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("C" 116 "q" 122)) customize-variable org-capture-templates user-error "Abort" org-capture-set-plist org-capture-get-template org-capture-put :original-buffer :original-file buffer-file-name featurep dired rassq :original-file-nondirectory file-name-nondirectory :initial :return-to-wconf current-window-configuration :default-time org-current-time org-capture-set-target-location (error quit) :template org-capture-fill-template get-buffer "*Capture*" kill-buffer error "Capture abort: %s" org-capture-get :clock-keep org-capture-insert-template-here (error quit) org-capture-place-template :target function buffer-base-buffer string-prefix-p org-capture-initial dired-buffers org-capture-clock-keep org-clock-marker org-capture-clock-was-started "CAPTURE-" buffer-name set-window-configuration "Capture template `%s': %s" :key derived-mode-p org-mode :clock-in (error) org-clock-is-active :interrupted-clock copy-marker org-clock-in make-local-variable t :immediate-finish org-capture-finalize] 21 (#$ . 23660) "P"])
121 #@58 Get the template from a file or a function if necessary.
122 (defalias 'org-capture-get-template #[0 "\301\302!\303<\2031@\304=\2031\305\306A@\"\211\262!\203&\307!\262\202k\310\311A@\"\262\202k<\203Y@\312=\203Y\313A@!\203NA@ \262\202k\310\314A@\"\262\202k\204c\315\262\202k;\204k\316\262\317\302\"\207" [org-directory org-capture-get :template nil file file-exists-p expand-file-name org-file-contents format "* Template file %s not found" function fboundp "* Template function %s not found" "" "* Invalid capture template" org-capture-put] 6 (#$ . 27474)])
123 #@165 Finalize the capture process.
124 With prefix argument STAY-WITH-CAPTURE, jump to the location of the
125 captured item after finalizing.
126
127 (fn &optional STAY-WITH-CAPTURE)
128 (defalias 'org-capture-finalize #[256 "\306\307!\203    \310\262\203\311p!\204\312\313!\210\314\315!\210    \203\212\n\203\212\316\n!\311 =\203\212\neY\203\212\ndW\203\212 \203C\317\310!\210\202\212\320\321 \210)\306\322\323\"\203\212\324\306\325\323\"!\203\212\326\316\306\325\323\"!!\203\212\306\325\323\"\211\212\324!\203u\316!q\210\212\214~\210\211\206~`b\210\327 \210+\266\330\331!\210\320\332\333deZ\"\210~\210\332\334`\"\210 \203\305\306\335\323\"\306\336\323\"\203\255\211\204\263\337\262\202\300\310\262\212\214~\210\340\"\210*\266\202\341\342!\203\212\3431\326\344 0\202\332\210\202\343\203\343\345 \210\346 \210)\306\347\323\"\350=\203\351 \203\352 \203\376\353\354!\210\202\355 \210\356 \210\314\357!\210\306\360!\203\212\306\360!b\210\361 \210)\362 \210\306\363\323\"\306\364\323\"\306\365\323\"\311p!\366p!\210r\306\367!q\210\306\370!\306\371!\306\334!\306\333!\204I~\210\202\223@W\203]\211@\\A\\}\210\202uAV\203m@A}\210\202u@A\\}\210@W\203\204\211\\b\210\202\223W\203\220\211\\\202\221b\210\266)\211\203\256\203\256\203\256r\211q\210\362 \210)\366!\210\372!\266\314\373!\210\211\203\322\211\374\267\202\331\330\375!\210\202\331\312\376!\210\202\331\202\331\203\331\377 \210\211?\207" [org-capture-mode org-capture-clock-was-started org-clock-marker org-capture-clock-keep org-log-note-clock-out org-note-abort org-capture-get :jump-to-captured t buffer-base-buffer error "This does not seem to be a capture buffer for Org mode" run-hooks org-capture-prepare-finalize-hook marker-buffer org-clock-update-mode-line nil org-clock-out :clock-resume local markerp :interrupted-clock buffer-live-p org-clock-in message "Interrupted clock has been resumed" org-capture-put :captured-entry-size :insertion-point :begin-marker :end-marker dirty kill-region derived-mode-p org-mode (error) org-back-to-heading org-update-parent-todo-statistics org-update-checkbox-count :type table-line org-at-table-p org-table-get-stored-formulas org-table-recalculate all org-table-align org-capture-store-last-position org-capture-before-finalize-hook :decrypted org-encrypt-entry save-buffer :return-to-wconf :new-buffer :kill-buffer kill-buffer :buffer :initial-target-region :initial-target-position set-window-configuration org-capture-after-finalize-hook #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (clean 449 dirty 456)) "Capture process aborted and target buffer cleaned up" "Capture process aborted, but target buffer could not be cleaned up correctly" org-capture-goto-last-stored] 13 (#$ . 28069) "P"])
129 #@205 Finalize the current capture and then refile the entry.
130 Refiling is done from the base buffer, because the indirect buffer is then
131 already gone.  Any prefix argument will be passed to the refile command.
132 (defalias 'org-capture-refile #[0 "\301\302\303\"\304=\204 \305\306!\210\307 \206p\310 \311\301\312\303\"\301\313\303\"\212\314\311!\210`)\223\210\315\312\316\313\316$\210\317\320\321\322\323!\324\"\325$\216\326 \210\327 \317\320\330\322\323!\331\"\332$\216rq\210\212\214~\210b\210\333\334!\210,\210\203h\335!\210\211\205n\336 *\207" [org-capture-is-refiling org-capture-get :type local entry user-error "Refiling from a capture buffer makes only sense for `entry'-type templates" buffer-base-buffer make-marker t :kill-buffer :jump-to-captured org-back-to-heading org-capture-put nil make-byte-code 0 "\300\301\211\223\207" vconcat vector [nil] 3 org-capture-finalize current-window-configuration "\301\300!\207" [set-window-configuration] 2 call-interactively org-refile kill-buffer org-capture-goto-last-stored] 11 (#$ . 30877) nil])
133 #@36 Abort the current capture process.
134 (defalias 'org-capture-kill #[0 "\302\303\304 *\207" [org-capture-before-finalize-hook org-note-abort t nil org-capture-finalize] 2 (#$ . 31939) nil])
135 #@60 Go to the location where the last capture note was stored.
136 (defalias 'org-capture-goto-last-stored #[0 "\302\303    \304\"\"\210\305\306!\207" [org-capture-last-stored-marker org-bookmark-names-plist org-goto-marker-or-bmk plist-get :last-capture message "This is the last note stored by a capture process"] 5 (#$ . 32133) nil])
137 #@50 Store the initial region with `org-capture-put'.
138 (defalias 'org-capture-put-target-region-and-position #[0 "\300\301deZ\302 U?\205edB\"\210\300\303`\"\207" [org-capture-put :initial-target-region buffer-size :initial-target-position] 4 (#$ . 32466)])
139 #@98 Find TARGET buffer and position.
140 Store them in the capture property list.
141
142 (fn &optional TARGET)
143 (defalias 'org-capture-set-target-location #[256 "\306\212\206    \307\310!\211:\203\211\211@\211\311\267\202~A\211:\203C\211@A\211\2047\312!q\210\313 \210~\210\314\262\210\202>\315\316\"\266\266\202J\315\316\"\266\210\202\205A\211:\203\223\211@A\211\204\207\317!\211:\203}\211@A\211\312!q\210~\210\313 \210b\266\202\202\315\320\"\210\266\202\216\315\316\"\266\266\202\232\315\316\"\266\210\202\205A\211:\203\211@A\211:\203\211@A\211\204\312!q\210\321\322!\204\315\323\324\325p\"!\210\322 \210\313 \210~\210eb\210\326\324\327!\"\314\306#\203\350\330 \210\202\374db\210n\204\362\331c\210\332\331\261\210\330\333!\210\266\202    \315\316\"\266\266\202\315\316\"\266\266\202!\315\316\"\266\210\202\205A\211:\203O\211@A\211\334\335!B!\336!q\210\313 \210~\210\211b\210\211\314\211\223\266\202V\315\316\"\266\210\202\205A\211:\203\315\211@A\211:\203\301\211@A\211\204\264\312!q\210\313 \210~\210eb\210\326\314\306#\204\221\315\337\"\210\202\257\307\340!\203\234\333\224\202\236\333\225b\210\341\342`\"\210\321\322!\205\255\343 \262\n\266\202\274\315\316\"\266\266\202\310\315\316\"\266\266\202\324\315\316\"\266\210\202\205A\211:\203\235\211@A\211\203\363\334\335!B!\202\372\312!q\210\344 \336!q\210\313 \210~\210\211b\210\211\314\211\223\210\345\346!\210\313 \210~\210\307\347!\350=\203!\351\202\"\352\353    \203-\354    !\202\221\307\355!\2049\n\356\232\203\217\357\314\306\314\360\361 %\341\362\363\303!\203M \204i\354!\364 U\204i\365\366\367\333\211\fE\370!AAA\"\"\202\205\371\372 \"\203\204\365\366\373\374\375\314\211 $\370!#\"\202\205\"\210\354!\262\202\221\364 !\205\227\376\"\266\202\244\315\316\"\266\210\202\205A\211:\203\374\211@A\211:\203\360\211@A\211\204\343\312!q\210\313 \210~\210 \210\341\342`\"\210\321\322!\205\334\343 \262\n\266\202\353\315\316\"\266\266\202\367\315\316\"\266\266\202\315\316\"\266\210\202\205A\211:\2039\211@A\211\204-\211 \210\341\342`\"\210\321\322!\205'\343 \262\210\2024\315\316\"\266\266\202@\315\316\"\266\210\202\205A\211\204s\377@!\203j\336@!\203j\336@!q\210\313 \210~\210@b\210\202z\315\201A!\210\202z\315\316\"\266\210\202\205\315\316\"\266\210\202\220\211\315\316\"\266\210\341\201Bp\201C`\201D\201E\201F\201G!\205\303\201H \205\303\212\201I \210\201J\306!\205\302`)&)\207" [org-complex-heading-regexp-format org-overriding-default-time current-prefix-arg org-time-was-given org-extend-today-until org-read-date-final-answer t org-capture-get :target #s(hash-table size 9 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (file 22 id 78 file+headline 158 file+olp 293 file+regexp 346 file+olp+datetree 472 file+function 680 function 775 clock 836)) org-capture-target-buffer org-capture-put-target-region-and-position nil error "Invalid capture target specification: %S" org-id-find "Cannot find target ID \"%s\"" derived-mode-p org-mode org-display-warning format "Capture requirement: switching buffer %S to Org mode" re-search-forward regexp-quote beginning-of-line "\n" "* " 0 org-find-olp org-capture-expand-file marker-buffer "No match for target regexp in file %s" :prepend org-capture-put :exact-position org-at-heading-p point-marker require org-datetree :tree-type week org-datetree-find-iso-week-create org-datetree-find-date-create calendar-gregorian-from-absolute time-to-days :time-prompt 1 org-read-date "Date for tree entry:" current-time :default-time boundp org-today apply encode-time append decode-time string-match "\\([^ ]+\\)--?[^ ]+[ ]+\\(.*\\)" org-read-date-analyze replace-match "\\1 \\2" subtree-at-point markerp org-clock-hd-marker "No running clock that could be used as capture target" :buffer :pos :target-entry-p :decrypted featurep org-crypt org-at-encrypted-entry-p org-decrypt-entry org-back-to-heading] 23 (#$ . 32725)])
144 #@392 Expand functions, symbols and file names for FILE.
145 When FILE is a function, call it.  When it is a form, evaluate
146 it.  When it is a variable, return its value.  When it is
147 a string, treat it as a file name, possibly expanding it
148 according to `org-directory', and return it.  If it is the empty
149 string, however, return `org-default-notes-file'.  In any other
150 case, raise an error.
151
152 (fn FILE)
153 (defalias 'org-capture-expand-file #[257 "\211\302\232\203\n\2022\211;\203\303    \"\2022\304!\203!\211 \2022\2119\2031\305!\2031\211J\2022\306\307!\206<\310\311\"\207" [org-default-notes-file org-directory "" expand-file-name functionp boundp nil org-string-nw-p error "Invalid file location: %S"] 5 (#$ . 36788)])
154 #@113 Get a buffer for FILE.
155 FILE is a generalized file location, as handled by
156 `org-capture-expand-file'.
157
158 (fn FILE)
159 (defalias 'org-capture-target-buffer #[257 "\300!\301!\206\302\303\304\"\210\305!\207" [org-capture-expand-file org-find-base-buffer-visiting org-capture-put :new-buffer t find-file-noselect] 5 (#$ . 37516)])
160 #@206 Insert the template at the target location, and display the buffer.
161 When `inhibit-wconf-store', don't store the window configuration, as it
162 may have been stored before.
163
164 (fn &optional INHIBIT-WCONF-STORE)
165 (defalias 'org-capture-place-template #[256 "\211\204\n\303\304\305 \"\210\306 \210\307\310\311\312!\313\"!\210~\210\314 \210\311\315!b\210\316\300!\210\317\311\320!\211\321>\2035\322 \210\202\\\211\323=\203A\324 \210\202\\\211\325=\203M\326 \210\202\\\211\327=\204Y\211\330=\203\\\331 \210\210\332\333!\210\316\302!\210    \211\207" [outline-level org-capture-plist org-capture-current-plist org-capture-put :return-to-wconf current-window-configuration delete-other-windows org-switch-to-buffer-other-window org-capture-get-indirect-buffer org-capture-get :buffer "CAPTURE" outline-show-all :pos make-local-variable org-outline-level :type (entry nil) org-capture-place-entry table-line org-capture-place-table-line plain org-capture-place-plain-text item checkitem org-capture-place-item org-capture-mode 1] 5 (#$ . 37849)])
166 #@40 Place the template as a new Org entry.
167 (defalias 'org-capture-place-entry #[0 "\300\301!\302\300\303!\203\300\303!b\210\300\304!\2037\305\306 \203 \307 \202!\302\302\"\262\203/\310 \210\202L\311\312\211\"\210\202L\203Ieb\210\306 \204L\310 \210\202Ldb\210n\204S\313c\210\314 \210`\300\315!\316!\210\317\320#\210\321 \210\322!\210\306 \204s\310 \210`\323\"\210\324\"\210\325\326\312#\204\216\327\326\312#\205\221\330\331!\262\266\202\207" [org-capture-get :prepend 1 :exact-position :target-entry-p org-get-valid-level org-at-heading-p org-outline-level outline-next-heading org-end-of-subtree t "\n" org-capture-empty-lines-before :template org-capture-verify-tree org-paste-subtree for-yank org-capture-empty-lines-after org-capture-position-for-last-stored org-capture-mark-kill-region org-capture-narrow re-search-backward "%\\?" re-search-forward replace-match ""] 9 (#$ . 38896)])
168 #@46 Place the template as a new plain list item.
169 (defalias 'org-capture-place-item #[0 "\300\301!\300\302!\303\304\211\300\305!\203\300\305!b\210\202o\204$e\262d\262\2021\306 T\262\212\307 \210`)\262\304\262\300\310!\203Sb\210\311\312\313 P\314#\203h\303\224b\210\315 \262\202h\211b\210\316\312\313 P\314#\203h\315 \262\317 \210\204o\211b\210\320!\262\321\322\313 P\"\204\214\323\324\325\326\327\"\330#P\262n\204\223\327c\210\331 \210`\262l\204\242\212\327c\210)\204\261\332 \210\315 \262`|\210\333\334\"\262\324\325\326\327\"\327P#\327Q\262c\210\335 \210\336!\210`\262\337\"\210\340\"\210\341\342\314#\204\357\343\342\314#\205\362\344\345!\207" [org-capture-get :template :target-entry-p 0 nil :exact-position point-at-eol outline-next-heading :prepend org-list-search-forward "^" org-item-re t org-get-indentation org-list-search-backward org-end-of-item org-remove-indentation string-match "\\`" "- " mapconcat identity split-string "\n" "\n  " org-capture-empty-lines-before org-indent-line make-string 32 org-capture-empty-lines-after org-capture-position-for-last-stored org-capture-mark-kill-region org-capture-narrow re-search-backward "%\\?" re-search-forward replace-match ""] 11 (#$ . 39816)])
170 #@37 Place the template as a table line.
171 (defalias 'org-capture-place-table-line #[0 "\305\306!\210\307\310!\307\311!\307\312!\313\211\307\314!\203\307\314!b\210\2027\204*e\262d\262\2027\315 T\262\212\316 \210`)\262\317\320#\203[\321 \322 \320\211b\210\323\324!\203Q\325y\210`}\210)\266\202f\211b\210\326c\210\211T`}\210\327\"\204q\330\262\331!\203~ \262\202\203\332!\262\203\365\327\333\"\203\365eb\210\3341\263\335 \336\337\340\341\342!\343\"\344$\216\345 \210)\210\n\325\225\325\224ZH0\202\265\210\313\346\347\350\"!\204\306\351\352\"\210 b\210\353\211\337W\203\326\337\202\327\354#y\210\355\356!\210\357\325!\210`\315 T|\210`\262c\210`\266\203\202O\307\360!\203+eb\210\317\f\313\320#\210\357\325!\210\317\313\320#\210\357\325!\210`\262\355 \210\357\325!\210`\315 T|\210c\210`\262\202Odb\210\361\313\320#\210\357\325!\210\355\356!\210\357\325!\210`\315 T|\210`\262c\210`\262b\210\362\363!\210\361\364\320#\204f\317\364\320#\203j\365\366!\210\367 \207" [org-table-dataline-regexp case-fold-search org-table-hlines org-table-current-begin-pos org-table-hline-regexp require org-table org-capture-get :template :target-entry-p :table-line-pos nil :exact-position point-at-eol outline-next-heading re-search-forward t org-table-begin org-table-end looking-at "[     ]*#\\+tblfm:" 1 "\n|   |\n|----|\n|    |\n" string-match "| %?Bad template |\n" functionp eval "\\(I+\\)\\([-+][0-9]\\)" (error) match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-table-analyze string-to-number match-string 2 error "Invalid table line specification \"%s\"" + -1 org-table-insert-row below beginning-of-line :prepend re-search-backward org-capture-position-for-last-stored table-line "%\\?" replace-match "" org-table-align] 12 (#$ . 41079)])
172 #@277 Place the template plainly.
173 If the target locator points at an Org node, place the template into
174 the text of the entry, before the first child.  If not, place the
175 template at the beginning or end of the file.
176 Of course, if exact position has been required, just put it there.
177 (defalias 'org-capture-place-plain-text #[0 "\301\302!\303\211\301\304!\203\301\304!b\210\202C\301\305!\2036n\2036\306!\2036\301\307!\2030\310\311!\210\202C\312 \210\202C\301\307!\203@e\202Adb\210n\204J\313 \210\314 \210`\262c\210\315 \210\316!\210`\262\317S\"\210\320S\"\210\321\322\311#\204y\323\322\311#\205|\324\325!\207" [org-outline-regexp org-capture-get :template nil :exact-position :target-entry-p looking-at :prepend org-end-of-meta-data t outline-next-heading newline org-capture-empty-lines-before org-capture-empty-lines-after org-capture-position-for-last-stored org-capture-mark-kill-region org-capture-narrow re-search-backward "%\\?" re-search-forward replace-match ""] 7 (#$ . 42914)])
178 #@82 Mark the region that will have to be killed when aborting capture.
179
180 (fn BEG END)
181 (defalias 'org-capture-mark-kill-region #[514 "\300!\300\301\"\302\303\"\210\302\304\"\207" [copy-marker t org-capture-put :begin-marker :end-marker] 7 (#$ . 43926)])
182 #@90 Memorize the position that should later become the position of last capture.
183
184 (fn WHERE)
185 (defalias 'org-capture-position-for-last-stored #[257 "\211\250\203\300\301\302 \303p!\206p\223\"\207\211\304=\203\"\300\301\304\305 D\"\207\306\307!\207" [org-capture-put :position-for-last-stored make-marker buffer-base-buffer table-line org-table-current-dline error "This should not happen"] 7 (#$ . 44184)])
186 #@35 Store the last-captured position.
187 (defalias 'org-capture-store-last-position #[0 "\303\304\305\"\306!\203\307!\310\211\223\210\2024\211<\2054\211@\311=\2054\312 \2033\212\313A@!\210\314 )\2024`r\315p!q\210\211\212\306!\203G\316!q\210\212\214~\210\211\206P`b\210\203q\317    \320\"\211\203p\3211i\322!0\202o\323\324\"\262\210\210\n`\310\223+\262)\207" [org-capture-bookmark org-bookmark-names-plist org-capture-last-stored-marker org-capture-get :position-for-last-stored local markerp marker-position nil table-line org-at-table-p org-table-goto-line point-at-bol buffer-base-buffer marker-buffer plist-get :last-capture (debug error) bookmark-set message "Error: %S"] 8 (#$ . 44598)])
188 #@64 Narrow, unless configuration says not to narrow.
189
190 (fn BEG END)
191 (defalias 'org-capture-narrow #[514 "\300\301!?\205 }\210b\207" [org-capture-get :unnarrowed] 4 (#$ . 45311)])
192 #@157 Set the correct number of empty lines before the insertion point.
193 Point will be after the empty lines, so insertion can directly be done.
194
195 (fn &optional N)
196 (defalias 'org-capture-empty-lines-before #[256 "\211\206\300\301!\206\300\302!\206\303\262`\304 \210`|\210\303V\205$\305!\207" [org-capture-get :empty-lines-before :empty-lines 0 org-back-over-empty-lines newline] 4 (#$ . 45496)])
197 #@145 Set the correct number of empty lines after the inserted string.
198 Point will remain at the first line after the inserted text.
199
200 (fn &optional N)
201 (defalias 'org-capture-empty-lines-after #[256 "\211\206\300\301!\206\300\302!\206\303\262\304 \210\305\306!\203#\307\310!\210\202`\303V\203.\311!\210\211b\207" [org-capture-get :empty-lines-after :empty-lines 0 org-back-over-empty-lines looking-at "[     ]*\n" replace-match "" newline] 4 (#$ . 45902)])
202 #@39 Insert the capture template at point.
203 (defalias 'org-capture-insert-template-here #[0 "\300\301!\300\302!\303\211\211n\204\304c\210`\262\305=\203/\306\307!\203/\310\300\301!!\210\311\303\312#\210\202\206\313>\203u\306\307!\203u\212\314\303x\210`\262\315 )\203u\211b\210\316 \210\317\303x\210\320\303x\210`\321 |\210`\262\322!\210c\210\323 \210b\210\324 \210\325 \210\202\206c\210\323 \210\314\303w\210m\204\206\326 \210`\262b\210\327\330\312#\205\227\331\332!\207" [org-capture-get :template :type nil "\n" entry derived-mode-p org-mode org-capture-verify-tree org-paste-subtree t (item checkitem) "     \n" org-in-item-p org-insert-item " " "-+*0123456789)." point-at-eol org-remove-indentation org-capture-empty-lines-after org-list-repair org-end-of-item beginning-of-line re-search-forward "%\\?" replace-match ""] 9 (#$ . 46367)])
204 #@72 Initialize the property list from the template definition.
205
206 (fn ENTRY)
207 (defalias 'org-capture-set-plist #[257 "\301\302\233!\303\304@\305A@\306\3078&\210\3108\3118\206 \312\2030;\203]\313\314\"\204]\211\315=\203<\316\262\202]\211\317=\203H\320\262\202]\211\321=\203T\322\262\202]\211\323\235\203]\324\262\303\325\326$\207" [org-capture-plist copy-sequence 5 org-capture-put :key :description :target 3 4 2 entry string-match "\\S-" item "- %?" checkitem "- [ ] %?" table-line "| %? |" (nil entry) "* %?\n  %a" :template :type] 9 (#$ . 47231)])
208 #@117 Go to the target location of a capture template.
209 The user is queried for the template.
210
211 (fn &optional TEMPLATE-KEY)
212 (defalias 'org-capture-goto-target #[256 "\300!\211\204 \301\302!\210\303!\210\304 \210\305\306\307!!\210\306\310!b\207" [org-capture-select-template error "No capture template selected" org-capture-set-plist org-capture-set-target-location pop-to-buffer-same-window org-capture-get :buffer :pos] 5 (#$ . 47811) nil])
213 #@138 Make an indirect buffer for a capture process.
214 Use PREFIX as a prefix for the name of the indirect buffer.
215
216 (fn &optional BUFFER PREFIX)
217 (defalias 'org-capture-get-indirect-buffer #[512 "\206p\262\300\301!\302\303Q\262\304\305!!\203,\303\306T\211\262!\303\260\262\202\30719\310\311#0\202I\210\310\"r\211q\210\312 \210)\211\262\207" [1 buffer-name nil "-" buffer-live-p get-buffer number-to-string (error) make-indirect-buffer clone org-mode] 10 (#$ . 48255)])
218 #@53 Throw error if TREE is not a valid tree.
219
220 (fn TREE)
221 (defalias 'org-capture-verify-tree #[257 "\300!?\205\n\301\302!\207" [org-kill-is-subtree-p error "Template is not a valid Org entry or tree"] 3 (#$ . 48746)])
222 #@1148 Select a member of an alist with multiple keys.
223
224 TABLE is the alist which should contain entries where the car is a string.
225 There should be two types of entries.
226
227 1. prefix descriptions like ("a" "Description")
228    This indicates that `a' is a prefix key for multi-letter selection, and
229    that there are entries following with keys like "ab", "ax"...
230
231 2. Select-able members must have more than two elements, with the first
232    being the string of keys that lead to selecting it, and the second a
233    short description string of the item.
234
235 The command will then make a temporary buffer listing all entries
236 that can be selected with a single key, and all the single key
237 prefixes.  When you press the key for a single-letter entry, it is selected.
238 When you press a prefix key, the commands (and maybe further prefixes)
239 under this key will be shown and offered for selection.
240
241 TITLE will be placed over the selection in the temporary buffer,
242 PROMPT will be used when prompting for a key.  SPECIAL is an
243 alist with ("key" "description") entries.  When one of these
244 is selected, only the bare key is returned.
245
246 (fn TABLE TITLE &optional PROMPT SPECIALS)
247 (defalias 'org-mks #[1026 "\302 \303\304\305\306\307!\310\"\311$\216\312\313\314!\206\315\316\303\304\317\306\307!\320\"\311$\216\3212g\322 \210\323\261\210\316\324\316\325\326\203D\327!\202E\330\"\203P\331P\202Q\330\f\211\203\277\211@\211:\203\270\211@\332\"\203\267A\211:\203\266\211@A\211\204\232\333\334\"\211 B\262 \211\fB\262\f    \335\336\337\340\337\341\261    \266\202\264\333\334\"    \335\336\342\341\261\210\211\fB\262\f\266\266\210\210A\266\202\202S\266\203\362\343c\210\211\203\361\211@\211@A\211@A\325\344#c\210\211    B\262    \266A\266\202\202\313\210eb\210\345d!\204\376\346 \210\347!\210\350\351 !\211\235\204\"\347\352\"\210\353\334!\210\347!\210\350\351 !\262\202P\262\211\354\232\2034\355\356!\210\202`\211\235\204`\357 \"\211\205G\360\321\"\262\204`\357\n\"\203\\\360\321\"\210\202`\361\362!\210\210)\266\202+*\266\204)\207" [inhibit-quit cursor-type current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 t org-switch-to-buffer-other-window "*Org Select*" "Select: " nil "\300\205\301\300!\207" [kill-buffer] exit erase-buffer "\n\n" ("") format "\\`%s\\(.\\)\\'" regexp-quote "" " " string-match match-string 1 "[" "]" "..." "  " "\n" "     " "-------------------------------------------------------------------------------\n" "[%s]     %s\n" pos-visible-in-window-p org-fit-window-to-buffer message char-to-string read-char-exclusive "Invalid key `%s'" sit-for "" user-error "Abort" assoc throw error "No entry available"] 31 (#$ . 48968)])
248 #@115 Select a capture template.
249 Lisp programs can force the template by setting KEYS to a string.
250
251 (fn &optional KEYS)
252 (defalias 'org-capture-select-template #[256 "\302\303!    \"\206\n\304\211\203\305\"\206#\306\307\"\202#\310\311\312\313$)\207" [org-capture-templates org-capture-templates-contexts org-contextualize-keys org-capture-upgrade-templates (("t" "Task" entry (file+headline "" "Tasks") "* TODO %?\n  %u\n  %a")) assoc error "No capture template referred to by \"%s\" keys" org-mks "Select a capture template\n=========================" "Template key: " (("C" "Customize org-capture-templates") ("q" "Abort"))] 6 (#$ . 51730)])
253 #@33 List various clipboards values.
254 (defvar org-capture--clipboards nil (#$ . 52381))
255 #@165 Fill a template and return the filled template as a string.
256 The template may still contain "%?" for cursor positioning.
257
258 (fn &optional TEMPLATE INITIAL ANNOTATION)
259 (defalias 'org-capture-fill-template #[768 "\206\306\307!\306\310!\311\312!\206!\306\313!\206\314 \315!\3168W\203;\317\320\321\322\3238S\3248\3258&\202<\266\202\326\327\330!\"\326\327\331!\"\326\327\330\331\"\"\326\327\331\211\"\"    \205_\332\320!\333\334!\206r\333\335!\206r\333\336!\206r\337\340\n\341\"\206\246 ;\203\237 \330\211\203\221\342\320G $\210\202\231\343\320G\330$\210\266\202\206\246\306\341!\206\246\337\340\n\344\"\206\271 \206\271\306\344!\206\271\337\211\345\232\203\303\337\202\304\211\262\346\203\333\347\"\203\333\350\351\330\211$\202\334\203\361\347\"\203\361\350\352\330\211$\202\362\f\353 !\203@\330\211\203 \342\320G $\210\202\343\320G\330$\210\266\202\202\337\353 !\203/\354\355\356\311\353 !!#\"\2020\337\306\357!\2067\337\306\360!\206>\337\361\330 \333\334!\333\335!\333\336!\257\"A\362\n\344 #\362\n\341\f#\204s\337\262\363\364!\210\365 \210\366\367!\210\370 \371\320\372\373\374!\375\"\316$\216\376\377\201K!!\210\201L \210\330\211    Bc\210eb\210\212\201M\201N\330\331#\203\361\201O\201P\367!!\201Q\320\224!\201Q\320\225!\201R \204\354|\210\330\211\223\210\211\330\211\223\210\201S1\341\201T!0\202\353\355\201U#c\262\210\266\202\234)\201V\201W!\210\201X\212\201M\330\331#\203\347\201Q\320\224!\201Q\320\225!\201P\367!\201P\316!\201R \204\342|\210\330\211\223\210\330\211\223\210\201Y \201Z!\211\201[\267\202\311\326\"\202\312\340\n\201\\!\"\206\312\337\202\312\203e\202\312\201]\201^ `\"\201_\201`\352P\330\211\367&\262\202\312\202\312\202\312\202\312    \202\312\202\312 \202\312\n\202\312 \202\312\f\202\312\202\312\202\312\202\312\202\312\202\312\330\262\203\336\201_\201a\201b#\202\337\211c\266\266\202\376)\210\201V \210\331C\201c \210)\201d\201e\"\210\330\212\201f\201M\330\331#\203\376\367\225\2058\201g \371\320\201h\373\374!\201i\"\323$\216\201j\201k\367!\201l\")\262\201P\316!\201Q\320\224!\201Q\320\225!@A@AA\201R \204\371|\210\330\211\223\210\330\211\223\210\201m\235\203\201n\201o\232\203\201\201p \202\215\203\214C\202\215\330!D\331E\201q\201r\201s\201t\203\255\201uP\202\260\201v\201w\330\211\211\201x&\201y\"\201z#\201{!\203\377`Sf\201|=\204\332\201zc\210\211c\210\330f\201|=\204\353\201zc\210\201} \203\377\331F\201~\330\201\"\210)*\210\202\371\201\200\235\203_\201\201\232\203\201\202\202\201\203A\203[A:\203QA@AA\211\204;!\266\202L\201\204\201\205\201A$!\266\266\202[\201\206\201\207A\"\210\210\202\371\201\210\232\203q\201\211\330\"\210\202\371\201\212\235\203\250\226\232\330G\201\213\331\330$\201\214H\206\224\n\201\215\235\330\211GC&\210)\266\202\371\204\357\201\216I\"J\201\217\206\277\201\220\205\311\355\201\221\"\201uQ\330\211\211\201J&    B\262    @c\210\201\222JI#\210\202\371\201\206\201\223\"\210\266\202\210)\211\237\262\212\201M\201\224\330\331#\203,\201R \204\350\201\225\201P\367!!S8\330\331#\210\202)\210\201\226\330w\210e\201^ |\210db\210\201\226\330x\210`d|\210\201\227c\210\201\230ed\"\210\201\231\330!\210\201]ed\"\201\232p!\210)\262)\207" [org-extend-today-until kill-ring org-store-link-plist org-rm-props user-full-name org-clock-marker org-capture-get :template :buffer buffer-file-name buffer-base-buffer :default-time current-time decode-time 2 encode-time 0 59 23 3 4 5 format-time-string org-time-stamp-format nil t current-kill org-get-x-clipboard PRIMARY CLIPBOARD SECONDARY "" plist-get :initial remove-text-properties set-text-properties :annotation "[[]]" "\\[\\[\\(.*?\\)\\]\\(\\[.*?\\]\\)?\\]" string-match replace-match "[[\\1][%^{Link description}]]" "\\1" marker-buffer org-make-link-string format "%s::*%s" :original-file-nondirectory :original-file delq plist-put message "no template" ding sit-for 1 current-window-configuration make-byte-code "\301\300!\207" vconcat vector [set-window-configuration] org-switch-to-buffer-other-window get-buffer-create org-clock-heading org-capture--clipboards mark-active org-inhibit-startup org-last-tags-completion-table org-add-colon-after-tag-completion org-ignore-region org-end-time-was-given org-time-was-given org-capture--prompt-history-table org-capture--prompt-history "*Capture*" erase-buffer re-search-forward "%\\[\\(.+\\)\\]" expand-file-name match-string copy-marker org-capture-escaped-% (error) insert-file-contents "%%![couldn not insert %s: %s]" org-capture-expand-embedded-elisp mark "%\\(:[-a-za-z]+\\|<\\([^>\n]+\\)>\\|[aAcfFikKlntTuUx]\\)" org-capture-inside-embedded-elisp-p string-to-char #s(hash-table size 17 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (60 580 58 588 105 604 97 643 65 648 99 653 102 658 70 663 107 668 75 673 108 678 110 683 116 688 84 693 117 698 85 703 120 708)) intern buffer-substring-no-properties line-beginning-position replace-regexp-in-string "\n\\(.\\)" "[\\\"]" "\\\\\\&" org-mode org-clone-local-variables "\\`org-" "%\\^\\(?:{\\([^}]*\\)}\\)?\\([CgGLptTuU]\\)?" match-data "\301\300\302\"\207" [set-match-data evaporate] split-string match-string-no-properties "|" ("g" "G") org-global-tags-completion-table "G" org-agenda-files mapconcat identity org-split-string completing-read ": " "Tags: " org-tags-completion-function org-tags-history "[^[:alnum:]_@#%]+" ":" org-string-nw-p 58 org-at-heading-p org-set-tags align ("L" "C") "C" insert #[257 "\300\301\"\207" [org-insert-link 0] 4 "\n\n(fn S)"] read-string "Clipboard/kill value: " error "Invalid `org-capture--clipboards' value: %S" "p" org-set-property ("U" "u" "T" "t") org-read-date org-insert-time-stamp ("u" "U") gethash org-completing-read "Enter string" " [%s]" puthash "Unknown template placeholder: \"%%^%s\"" "%\\\\\\([1-9][0-9]*\\)" string-to-number "     \n" "\n" untabify set-buffer-modified-p kill-buffer] 44 (#$ . 52470)])
260 #@106 Non-nil if % was escaped.
261 If yes, unescape it now.  Assume match-data contains the
262 placeholder to check.
263 (defalias 'org-capture-escaped-% #[0 "\212\300\224b\210\301\302\303x!\304T\305\245!\210\211\305\246\306U\262)\207" [0 abs "\\\\" nil delete-char 2 1] 4 (#$ . 58652)])
264 #@258 Evaluate embedded elisp %(sexp) and replace with the result.
265 When optional MARK argument is non-nil, mark Sexp with a text
266 property (`org-embedded-elisp') for later evaluation.  Only
267 marked Sexp are evaluated when this argument is nil.
268
269 (fn &optional MARK)
270 (defalias 'org-capture-expand-embedded-elisp #[256 "\212eb\210\301\302\303\304#\205\203\305\306\224\307\"\203A\306\224b\210`\310u\210\311p!\312\313!!`|\210\211\203<\211;\2037\211c\210\202<\314\315\"\210\266\202\211\203\316 \204\317 p\320\306\321\322\323\"\324\"\325$\216\326!\210\3271m\330`S\310\"0\202o\210\303)\266\202\211\203\331`\325Z\307\304$\210\210\202)\207" [emacs-lisp-mode-syntax-table re-search-forward "%(" nil t get-text-property 0 org-embedded-elisp 1 read org-eval org-capture--expand-keyword-in-embedded-elisp error "Capture template sexp `%s' must evaluate to string or nil" org-capture-escaped-% syntax-table make-byte-code "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table (error) scan-sexps put-text-property] 10 (#$ . 58933)])
271 #@156 Recursively replace capture link keywords in ATTR sexp.
272 Such keywords are prefixed with "%:".  See
273 `org-capture-template' for more information.
274
275 (fn ATTR)
276 (defalias 'org-capture--expand-keyword-in-embedded-elisp #[257 "\211:\203\n\301\302\"\207\2119\203(\303!\304\305\"\205\306\307\310\"!\311\"\206'\207\207" [org-store-link-plist mapcar org-capture--expand-keyword-in-embedded-elisp symbol-name string-match "%\\(:.*\\)" intern match-string 1 plist-get] 6 (#$ . 60002)])
277 #@138 Non-nil if point is inside of embedded elisp %(sexp).
278 Assume sexps have been marked with
279 `org-capture-expand-embedded-elisp' beforehand.
280 (defalias 'org-capture-inside-embedded-elisp-p #[0 "\300`\301\"\207" [get-text-property org-embedded-elisp] 3 (#$ . 60493)])
281 #@72 Set `org-capture-templates' to be similar to `org-remember-templates'.
282 (defalias 'org-capture-import-remember-templates #[0 "\302\303!\205\302\304!\205\305\306!\210\307\310\"\211\207" [org-remember-templates org-capture-templates yes-or-no-p "Import old remember templates into org-capture-templates? " "Note that this will remove any templates currently defined in `org-capture-templates'.  Do you still want to go ahead? " require org-remember mapcar #[257 "\211@\303A@!\3048\3058\206\3068\206    \307\n\310\211\211\311\235\2031\312D\262\313=\262\202K\314=\203C\315D\262\310\262\202K\316E\262\317\320    \"\203_\321\322\323\211 $\262\323\262\317\324    \"\203j\323\262\325     \f\257\205{\326\205\200\327\205\205\330$\207" [org-default-notes-file org-remember-default-headline org-reverse-note-order char-to-string 2 3 4 entry nil (top bottom) file top date-tree file+datetree file+headline string-match "%!" replace-match "" t "%&" append (:prepend t) (:immediate-finish t) (:jump-to-captured t)] 17 "\n\n(fn ENTRY)"]] 3 (#$ . 60761) nil])
283 (provide 'org-capture)