| 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\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\310\311\317\320\312\321& \210\302\322\304\305\323DD\324\310\311\312\325&\210\302\326\304\305\327DD\330\310\311\312\331&\210\302\332\304\305\333DD\334\310\311\312\321&\210\302\335\304\305\336DD\337\310\311\317\340\341\342\312\325& \210\302\343\304\305\344DD\345\310\311\317\320\312\346& \210\302\347\304\305\350DD\351\310\311\312\352&\207" [require org custom-declare-variable org-archive-default-command funcall function #[0 "\300\207" [org-archive-subtree] 1] "The default archiving command." :group org-archive :type (choice (const org-archive-subtree) (const org-archive-to-archive-sibling) (const org-archive-set-tag)) org-archive-reversed-order #[0 "\300\207" [nil] 1] "Non-nil means make the tree first child under the archive heading, not last." :version "24.1" boolean org-archive-sibling-heading #[0 "\300\207" [#1="Archive"] 1 #1#] "Name of the local archive sibling that is used to archive entries locally.\nLocally means: in the tree, under a sibling.\nSee `org-archive-to-archive-sibling' for more information." string org-archive-mark-done #[0 "\300\207" [nil] 1] "Non-nil means mark entries as DONE when they are moved to the archive file.\nThis can be a string to set the keyword to use. When non-nil, Org will\nuse the first keyword in its list that means done." (choice (const :tag "No" nil) (const :tag "Yes" t) (string :tag "Use this keyword")) org-archive-stamp-time #[0 "\300\207" [t] 1] "Non-nil means add a time stamp to entries moved to an archive file.\nThis variable is obsolete and has no effect anymore, instead add or remove\n`time' from the variable `org-archive-save-context-info'." org-archive-file-header-format #[0 "\300\207" [#2="\nArchived entries from file %s\n\n"] 1 #2#] "The header format string for newly created archive files.\nWhen nil, no header will be inserted.\nWhen a string, a %s formatter will be replaced by the file name." "24.4" :package-version (Org . "8.0") org-archive-subtree-add-inherited-tags #[0 "\300\207" [infile] 1] "Non-nil means append inherited tags when archiving a subtree." (choice (const :tag "Never" nil) (const :tag "When archiving a subtree to the same file" infile) (const :tag "Always" t)) org-archive-save-context-info #[0 "\300\207" [(time file olpath category todo itags)] 1] "Parts of context info that should be stored as properties when archiving.\nWhen a subtree is moved to an archive file, it loses information given by\ncontext, like inherited tags, the category, and possibly also the TODO\nstate (depending on the variable `org-archive-mark-done').\nThis variable can be a list of any of the following symbols:\n\ntime The time of archiving.\nfile The file where the entry originates.\nltags The local tags, in the headline of the subtree.\nitags The tags the subtree inherits from further up the hierarchy.\ntodo The pre-archive TODO state.\ncategory The category, taken from file name or #+CATEGORY lines.\nolpath The outline path to the item. These are all headlines above\n the current item, separated by /, like a file path.\n\nFor each symbol present in the list, a property will be created in\nthe archived entry, with a prefix \"ARCHIVE_\", to remember this\ninformation." (set :greedy t (const :tag "Time" time) (const :tag "File" file) (const :tag "Category" category) (const :tag "TODO state" todo) (const :tag "Priority" priority) (const :tag "Inherited tags" itags) (const :tag "Outline path" olpath) (const :tag "Local tags" ltags))] 12) | |
| 16 | #@236 Hook run after successfully archiving a subtree. | |
| 17 | Hook functions are called with point on the subtree in the | |
| 18 | original file. At this stage, the subtree has been added to the | |
| 19 | archive location, but not yet deleted from the original file. | |
| 20 | (defvar org-archive-hook nil (#$ . 3999)) | |
| 21 | #@47 Get the archive location applicable at point. | |
| 22 | (defalias 'org-get-local-archive-location #[0 "\301\302\212\214~\210\303\302\304\305#\262\211\203 \306\307\"\203 \211\2023 \310\302\311#\204, \312\302\311#\2032 \313\314!\2023 *\207" [org-archive-location "^[ ]*#\\+ARCHIVE:[ ]+\\(\\S-.*\\S-\\)[ ]*$" nil org-entry-get "ARCHIVE" inherit string-match "\\S-" re-search-backward t re-search-forward match-string 1] 6 (#$ . 4282)]) | |
| 23 | #@142 Splice the archive files into the list of files. | |
| 24 | This implies visiting all these files and finding out what the | |
| 25 | archive file is. | |
| 26 | ||
| 27 | (fn FILES) | |
| 28 | (defalias 'org-add-archive-files #[257 "\300\301\302\303\"\"\304!\305!\207" [apply append mapcar #[257 "\300!\205 r\301!q\210\211\302 )B\207" [file-exists-p org-get-agenda-file-buffer org-all-archive-files] 3 "\n\n(fn F)"] copy-sequence delete-dups] 6 (#$ . 4722)]) | |
| 29 | #@61 Get a list of all archive files used in the current buffer. | |
| 30 | (defalias 'org-all-archive-files #[0 "\301\302\212\214~\210eb\210\303\304\302\301#\203T \305 \306\307\310\311\312!\313\"\314$\216\315\316!\317=\203. \320 \2024 \321\322 !\323=)\262\203 \324\325\326!!\327!\203P \330!\203P \211B\262\210\202 *\211\237\262\324 \327!\203l \330!\203l \211B\262\210)\207" [case-fold-search t nil re-search-forward "^[ ]*\\(#\\+\\|:\\)ARCHIVE:[ ]+\\(.*\\)" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 match-string 1 ":" org-at-property-p org-element-type org-element-at-point keyword org-extract-archive-file match-string-no-properties 2 org-string-nw-p file-exists-p] 9 (#$ . 5141)]) | |
| 31 | #@153 Extract and expand the file name from archive LOCATION. | |
| 32 | if LOCATION is not given, the value of `org-archive-location' is used. | |
| 33 | ||
| 34 | (fn &optional LOCATION) | |
| 35 | (defalias 'org-extract-archive-file #[256 "\211\206 \262\301\302\"\205) \303\224\303\225U\203 \304\305 !\207\306\307\310\303\"\311\304\305 !!\"!\207" [org-archive-location string-match "\\(.*\\)::\\(.*\\)" 1 buffer-file-name buffer-base-buffer expand-file-name format match-string file-name-nondirectory] 7 (#$ . 5885)]) | |
| 36 | #@140 Extract the heading from archive LOCATION. | |
| 37 | if LOCATION is not given, the value of `org-archive-location' is used. | |
| 38 | ||
| 39 | (fn &optional LOCATION) | |
| 40 | (defalias 'org-extract-archive-heading #[256 "\211\206 \262\301\302\"\205 \303\304\305\"\306\307\310 !!\"\207" [org-archive-location string-match "\\(.*\\)::\\(.*\\)" format match-string 2 file-name-nondirectory buffer-file-name buffer-base-buffer] 6 (#$ . 6371)]) | |
| 41 | #@755 Move the current subtree to the archive. | |
| 42 | The archive can be a certain top-level heading in the current | |
| 43 | file, or in a different file. The tree will be moved to that | |
| 44 | location, the subtree heading be marked DONE, and the current | |
| 45 | time will be added. | |
| 46 | ||
| 47 | When called with a single prefix argument FIND-DONE, find whole | |
| 48 | trees without any open TODO items and archive them (after getting | |
| 49 | confirmation from the user). When called with a double prefix | |
| 50 | argument, find whole trees with timestamps before today and | |
| 51 | archive them (after getting confirmation from the user). If the | |
| 52 | cursor is not at a headline when these commands are called, try | |
| 53 | all level 1 trees. If the cursor is on a headline, only try the | |
| 54 | direct children of this heading. | |
| 55 | ||
| 56 | (fn &optional FIND-DONE) | |
| 57 | (defalias 'org-archive-subtree #[256 "\306 \203+ \203+ \307=\203 \310\202 \311\312\313\314\315\316DE\317 \205( \320\312\321\"$)\207\211\322\267\202= \323 \210\202@\324 \210\202@ \n \f @p\325AA\326\327O!\330\331\332 !\206X \333\334!!\335 \336!\206d \333\337!\340!\330\206n \341!\232\342!\205z \343!?\342!\204\205 \202\225 \344!\206\225 \345!\206\225 \333\346\"\312\211\211\347\350\"\203\275 \351\350\352 #\262G\353V\262\354\355\312\356\321#\206\272 !\262G\357V\203\324 \347\360\"\203\324 \357\225\262\202\332 \312\262\357\262\212\361\321!\210\362 \363 \364\"\365\366\312\367\"B\370B\371\372\373\374#B\375\372\373\374#B\376\372\373\377 \201N #B\201O B\201P \355`\201Q \"B\257\312 B\201R \326\312\321#\210)q\210\201S \201T !\204E\321\211 C D\201U \201T !\210*\203^E\203^db\210\201V E\331!\"c\210\203v\201W \201X !\210\201Y !\210\201Z \210\201[ \201@ p\"\203\222@\202\224 @ eb\210\201\\ \210\n\2030\203\261\2030\201] \201^ \201_ !\201` Q\312\321#\203\316\357\225b\210\202\360db\210n\204\332\201a c\210\203\342\341\202\345\201a \201a \261\210\357\210\201b \210F\203\361\321!\210\201c \210\202\n\320\321!\210\201d \312x\210\201e \201f !\203_\201g \203(\201a \202+\201h !\210\202_F\203Oeb\210\201i \204D\201c \210\201a c\210\327u\210\202_db\210\203Zn\204_\201a c\210\201j \201k \205m\326\"!\210\203\217G\201l =\203\202 \204\211G\321=\203\217\201m !\210H\203\310\312 I\201e !)\203\310\201n \225\203\263\201o \201n ! \235\204\310\312\211 J K\201p H \235\206\304 @!\210*L\211\203\363\211@\211\236A\342!\203\353\201q `\201r \201s !\226P#\210\210A\266\202\202\312\210~\210.\266)\201t \201u !\210\312 B\201v \210)\201w \201x !\203\201y \210\312M\201z \201{ =\2035\201| P\202=\201} \330 !P\"\266\201~ \210\201e \201 !\205T\201\200 \326!\207" [org-loop-over-headlines-in-active-region org-todo-keywords-1 org-todo-kwd-alist org-done-keywords org-todo-regexp org-todo-line-regexp org-region-active-p start-level region-start-level region nil org-map-entries progn (setq org-map-continue-from (progn (org-back-to-heading) (point))) org-archive-subtree org-invisible-p org-end-of-subtree t #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((4) 49 (16) 55)) org-archive-all-done org-archive-all-old format-time-string 1 -1 abbreviate-file-name buffer-file-name buffer-base-buffer error "No file associated to buffer" org-get-local-archive-location org-extract-archive-file "Invalid `org-archive-location'" org-extract-archive-heading "" org-string-nw-p file-exists-p find-buffer-visiting find-file-noselect "Cannot access file \"%s\"" string-match "\\`datetree/" replace-regexp-in-string "***" 3 org-date-to-gregorian org-entry-get "CLOSED" 0 "^\\*+" org-back-to-heading org-get-tags-at org-get-tags org-delete-all category org-get-category force-refresh file itags mapconcat identity " " ltags olpath org-get-outline-path org-odd-levels-only org-time-stamp-formats this-command org-inhibit-startup org-insert-mode-line-in-empty-file org-archive-file-header-format org-archive-reversed-order org-archive-subtree-add-inherited-tags org-archive-mark-done case-fold-search org-todo-log-states org-log-done org-archive-save-context-info org-markers-to-move "/" time todo "TODO" org-copy-subtree derived-mode-p org-mode call-interactively format require org-datetree org-datetree-find-date-create org-narrow-to-subtree local-variable-p outline-show-all re-search-forward "^" regexp-quote "[ ]*\\(:[[:alnum:]_@#%:]+:\\)?[ ]*\\($\\| \\)" "\n" outline-show-subtree outline-next-heading " \n" looking-at "[ \n]*" replace-match "\n\n" org-at-heading-p org-paste-subtree org-get-valid-level infile org-set-tags-to 2 match-string org-todo org-entry-put "ARCHIVE_" symbol-name run-hooks org-archive-hook org-cut-subtree featurep org-inlinetask org-inlinetask-remove-END-maybe message "Subtree archived %s" "under heading: " "in file: " org-reveal "^[ ]*$" outline-next-visible-heading] 32 (#$ . 6788) "P"]) | |
| 58 | #@342 Archive the current heading by moving it under the archive sibling. | |
| 59 | ||
| 60 | The archive sibling is a sibling of the heading with the heading name | |
| 61 | `org-archive-sibling-heading' and an `org-archive-tag' tag. If this | |
| 62 | sibling does not exist, it will be created at the end of the subtree. | |
| 63 | ||
| 64 | Archiving time is retained in the ARCHIVE_TIME node property. | |
| 65 | (defalias 'org-archive-to-archive-sibling #[0 "\306 \203\" \203\" \307=\205 \310\311\312\313\314 \205 \315\311\316\"$)\207\214~\210\311\211\211\211\211\317\316!\210\320 !\210\321\322!\262\n \262\323 \262\3241K \325\326\316\"0\202Q \210d\262eb\210`\262\204l \3271e \315\316\211\"0\202h \210db\210`\262b\210\330\331\332!\333 \334\f\335\260\316#\204\232 b\210n\204\213 \336 \210 \337\261\210\340\322!\210\341\f\342\"\210\340\326!\210 \203\250 \343 \210\202\255 \315\316\211\"\210\212b\2101 1\344 \210*\345\346\326\"!\210\347\350\3512A\326\352O!\"\210\325\326\316\"\210\353 \210\354\355!\210b\266)\356 \210\320\357!\205\351 \360\326!\207" [org-loop-over-headlines-in-active-region org-outline-regexp outline-level org-archive-sibling-heading org-archive-tag org-archive-reversed-order org-region-active-p start-level region nil org-map-entries (progn (setq org-map-continue-from (progn (org-back-to-heading) (if (looking-at (concat "^.*:" org-archive-tag ":.*$")) (org-end-of-subtree t) (point)))) (when (org-at-heading-p) (org-archive-to-archive-sibling))) org-invisible-p org-end-of-subtree t org-back-to-heading looking-at match-string 0 point-marker (error) outline-up-heading 1 (error) re-search-forward "^" regexp-quote "[ ]*" "[ ]*:" ":" newline "\n" beginning-of-line org-toggle-tag on outline-next-heading org-cut-subtree org-paste-subtree org-get-valid-level org-set-property "ARCHIVE_TIME" format-time-string -1 outline-hide-subtree org-cycle-show-empty-lines folded org-reveal "^[ ]*$" outline-next-visible-heading this-command org-time-stamp-formats] 13 (#$ . 11650) nil]) | |
| 66 | #@268 Archive sublevels of the current tree without open TODO items. | |
| 67 | If the cursor is not on a headline, try all level 1 trees. If | |
| 68 | it is on a headline, try all direct children. | |
| 69 | When TAG is non-nil, don't move trees, but mark them with the ARCHIVE tag. | |
| 70 | ||
| 71 | (fn &optional TAG) | |
| 72 | (defalias 'org-archive-all-done #[256 "\300\301\"\207" [org-archive-all-matches #[514 "\302\303 \304#?\205\f \305)\207" [case-fold-search org-not-done-heading-regexp nil re-search-forward t "no open TODO items"] 6 "\n\n(fn BEG END)"]] 4 (#$ . 13610)]) | |
| 73 | #@275 Archive sublevels of the current tree with timestamps prior to today. | |
| 74 | If the cursor is not on a headline, try all level 1 trees. If | |
| 75 | it is on a headline, try all direct children. | |
| 76 | When TAG is non-nil, don't move trees, but mark them with the ARCHIVE tag. | |
| 77 | ||
| 78 | (fn &optional TAG) | |
| 79 | (defalias 'org-archive-all-old #[256 "\300\301\"\207" [org-archive-all-matches #[514 "\301\302\303#\205< \304\305!\211\262\205< \306!\305W\205< \307\310\311Q!\204) \312P\202< \312\304\305!Q\262\306\304\313!!\305W\205< \211\207" [org-ts-regexp nil re-search-forward t match-string 0 org-time-stamp-to-now looking-at "--\\(" "\\)" "old timestamp " 1] 7 "\n\n(fn BEG END)"]] 4 (#$ . 14139)]) | |
| 80 | #@611 Archive sublevels of the current tree that match PREDICATE. | |
| 81 | ||
| 82 | PREDICATE is a function of two arguments, BEG and END, which | |
| 83 | specify the beginning and end of the headline being considered. | |
| 84 | It is called with point positioned at BEG. The headline will be | |
| 85 | archived if PREDICATE returns non-nil. If the return value of | |
| 86 | PREDICATE is a string, it should describe the reason for | |
| 87 | archiving the heading. | |
| 88 | ||
| 89 | If the cursor is not on a headline, try all level 1 trees. If it | |
| 90 | is on a headline, try all direct children. When TAG is non-nil, | |
| 91 | don't move trees, but mark them with the ARCHIVE tag. | |
| 92 | ||
| 93 | (fn PREDICATE &optional TAG) | |
| 94 | (defalias 'org-archive-all-matches #[513 "\302\303Q\304\305 \305 \203 \306\202 \307\304\211\211\310\311 \203F \312\313\314\315\310\225\310\224\316# \203- \317\202. \316\\\320\"!\321Q\262`\304\223\210\322\323!\304\223\210\202T \324\262e\304\223\210d\304\223\210\212b\210\325\323#\203\304 \310\224\262\212\322\323!\210`)\262b\210\n\"\211\262\204\204 b\210\202Y b\210 \203\223 \326 !\204\276 \327;\203\242 \330\331R\202\243 !\203\276 \203\264 \332\333\"\210\202\267 \334 \210\211T\262\202Y b\210\202Y )\335\336\"\207" [org-archive-tag org-odd-levels-only ".*:" ":" nil make-marker "Set ARCHIVE tag? " "Move subtree to archive? " 0 org-at-heading-p "^" regexp-quote make-string - 1 2 42 " " org-end-of-subtree t "^* " re-search-forward looking-at y-or-n-p "(" ")" org-toggle-tag on org-archive-subtree message "%d trees archived"] 18 (#$ . 14818)]) | |
| 95 | #@204 Toggle the archive tag for the current headline. | |
| 96 | With prefix ARG, check all children of current headline and offer tagging | |
| 97 | the children that do not contain any open TODO items. | |
| 98 | ||
| 99 | (fn &optional FIND-DONE) | |
| 100 | (defalias 'org-toggle-archive-tag #[256 "\302 \203( \203( \303=\203 \304\202 \305\306\307\310D\311 \205% \312\306\313\"$)\207\211\2030 \314\315!\207\306\212\316\313!\210\317 !\262\211\203C \320\313!\210)\211\203L \321\322!\210\323\324\203V \325\202W \326\"\207" [org-loop-over-headlines-in-active-region org-archive-tag org-region-active-p start-level region-start-level region nil org-map-entries org-toggle-archive-tag org-invisible-p org-end-of-subtree t org-archive-all-done tag org-back-to-heading org-toggle-tag org-flag-subtree beginning-of-line 1 message "Subtree %s" "archived" "unarchived"] 9 (#$ . 16320) "P"]) | |
| 101 | #@22 Set the ARCHIVE tag. | |
| 102 | (defalias 'org-archive-set-tag #[0 "\302 \203& \203& \303=\203 \304\202 \305\306\307\310\311 \205# \312\306\313\"$)\207\314 \315\"\207" [org-loop-over-headlines-in-active-region org-archive-tag org-region-active-p start-level region-start-level region nil org-map-entries org-archive-set-tag org-invisible-p org-end-of-subtree t org-toggle-tag on] 8 (#$ . 17161) nil]) | |
| 103 | #@124 Archive the current subtree with the default command. | |
| 104 | This command is set with the variable `org-archive-default-command'. | |
| 105 | (defalias 'org-archive-subtree-default #[0 "\301!\207" [org-archive-default-command call-interactively] 2 (#$ . 17565) nil]) | |
| 106 | #@124 Archive the current subtree with the default command. | |
| 107 | This command is set with the variable `org-archive-default-command'. | |
| 108 | (defalias 'org-archive-subtree-default-with-confirmation #[0 "\301\302!\203\n \303!\207\304\305!\207" [org-archive-default-command y-or-n-p "Archive this subtree or entry? " call-interactively error "Abort"] 2 (#$ . 17821) nil]) | |
| 109 | (provide 'org-archive) | |
