Edit file File name : org-datetree.elc Content :;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'org) #@288 The level at which years should be placed in the date tree. This is normally one, but if the buffer has an entry with a DATE_TREE (or WEEK_TREE for ISO week entries) property (any value), the date tree will become a subtree under that entry, so the base level will be properly adjusted. (defvar org-datetree-base-level 1 (#$ . 424)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable org-datetree-add-timestamp funcall function #[0 "\300\207" [nil] 1] "When non-nil, add a time stamp matching date of entry.\nAdded time stamp is active unless value is `inactive'." :group org-capture :version "24.3" :type (choice (const :tag "Do not add a time stamp" nil) (const :tag "Add an inactive time stamp" inactive) (const :tag "Add an active time stamp" active))] 10) #@319 Find or create an entry for date D. If KEEP-RESTRICTION is non-nil, do not widen the buffer. When it is nil, the buffer will be widened to make sure an existing date tree can be found. If it is the symbol `subtree-at-point', then the tree will be built under the headline at point. (fn D &optional KEEP-RESTRICTION) (defalias 'org-datetree-find-date-create #[513 "\301\300!\210\302\214\211\303=\203( \304 \204 \305\306!\210~\210\307 \210\301\300!\210\310\311 \302\"\202F \211\204. ~\210\312\313!\211\203E \211b\210\301\300!\210\310\311 \302\"\307 \210\210eb\210\3148\262\211@\262\211A@\262\315\316\"\210\315\317#\210\315\320$\266\203)\207" [org-datetree-base-level make-local-variable 1 subtree-at-point org-at-heading-p error "Not at heading" org-narrow-to-subtree org-get-valid-level org-current-level org-find-property "DATE_TREE" 2 org-datetree--find-create "^\\*+[ ]+\\([12][0-9]\\{3\\}\\)\\(\\s-*?\\([ ]:[[:alnum:]:_@#%%]+:\\)?\\s-*$\\)" "^\\*+[ ]+%d-\\([01][0-9]\\) \\w+$" "^\\*+[ ]+%d-%02d-\\([0123][0-9]\\) \\w+$"] 10 (#$ . 1236)]) #@380 Find or create an ISO week entry for date D. Compared to `org-datetree-find-date-create' this function creates entries ordered by week instead of months. When it is nil, the buffer will be widened to make sure an existing date tree can be found. If it is the symbol `subtree-at-point', then the tree will be built under the headline at point. (fn D &optional KEEP-RESTRICTION) (defalias 'org-datetree-find-iso-week-create #[513 "\301\300!\210\302\214\211\303=\203( \304 \204 \305\306!\210~\210\307 \210\301\300!\210\310\311 \302\"\202F \211\204. ~\210\312\313!\211\203E \211b\210\301\300!\210\310\311 \302\"\307 \210\210eb\210\314\315!\210\3168\262\211@\262\211A@\262\317\320\211\211&\321\211\3168\262\322\320U\203 \323\324!\202\271\320V\203\363 S\262\325\211\211@\262\211A@\262\3168\262\326S_\\\316V\203\340 \211\327\330_\\\331\245Z\262\211\320W\203\301 \332!S\262\211\330\246\320U\205\327 \211\333\246\320U?\206\327 \211\334\246\320U\262\203\340 \211T\262\266\204\335_\330\245\333\245[\334\245%\202\271\332T!\262\336\211\211@\262\211A@\262\3168\262\326S_\\\316V\203P\211\327\330_\\\331\245Z\262\211\320W\2031\332!S\262\211\330\246\320U\205G\211\333\246\320U?\206G\211\334\246\320U\262\203P\211T\262\266\204\335_\330\245\333\245[\334\245\337\211\211@\262\211A@\262\3168\262\326S_\\\316V\203\265\211\327\330_\\\331\245Z\262\211\320W\203\226\332!S\262\211\330\246\320U\205\254\211\333\246\320U?\206\254\211\334\246\320U\262\203\265\211T\262\266\204&\266\203!\3168@\340\341\322\211\342\343\n\"%\210\340\344\322\342\345\n\"%\210\340\346$\266\207)\207" [org-datetree-base-level make-local-variable 1 subtree-at-point org-at-heading-p error "Not at heading" org-narrow-to-subtree org-get-valid-level org-current-level org-find-property "WEEK_TREE" require cal-iso 2 encode-time 0 calendar-iso-from-absolute nil user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) org-datetree--find-create "^\\*+[ ]+\\([12][0-9]\\{3\\}\\)\\(\\s-*?\\([ ]:[[:alnum:]:_@#%%]+:\\)?\\s-*$\\)" format-time-string "%G" "^\\*+[ ]+%d-W\\([0-5][0-9]\\)$" "%G-W%V" "^\\*+[ ]+%d-%02d-\\([0123][0-9]\\) \\w+$"] 25 (#$ . 2307)]) #@346 Find the datetree matched by REGEX-TEMPLATE for YEAR, MONTH, or DAY. REGEX-TEMPLATE is passed to `format' with YEAR, MONTH, and DAY as arguments. Match group 1 is compared against the specified date component. If INSERT is non-nil and there is no match then it is inserted into the buffer. (fn REGEX-TEMPLATE YEAR &optional MONTH DAY INSERT) (defalias 'org-datetree--find-create #[1282 "\204 \203 \300 \210\301$\302eb\210\303\302\304#\211\262\2039 \305\224b\2039 \306\307\305!!\2065 \2065 W\204 \211\204T db\210n\204G \310c\210\311$\202y \306\307\305!!\206c \206c U\203l \312 \202y \312 \210\311$\207" [org-narrow-to-subtree format nil re-search-forward t 1 string-to-number match-string "\n" org-datetree-insert-line beginning-of-line] 12 (#$ . 4554)]) #@38 (fn YEAR &optional MONTH DAY TEXT) (defalias 'org-datetree-insert-line #[1025 "\212\302\303x\210`)`|\210\304\305\306\"\307\261\210\310u\210\203 \311 \210\203$ \311 \210\211\203. \211c\210\202^ \312\313\"c\210\203^ \203N \314\315\316\317\211\211 &\"\202\\ \314\320\316\317\211\211\321 &\"c\210\203\201 \203\201 \212\304c\210\322 \210\323\316\317\211\211\n&\303 \324=#\210)\325 \207" [org-datetree-base-level org-datetree-add-timestamp " \n" nil "\n" make-string 42 " \n" -1 org-do-demote format "%d" format-time-string "-%m-%d %A" encode-time 0 "-%m %B" 1 org-indent-line org-insert-time-stamp inactive beginning-of-line] 13 (#$ . 5352)]) #@64 Insert a node TXT into the date tree under date D. (fn TXT D) (defalias 'org-datetree-file-entry-under #[514 "\301!\210\302 \303\"\304\305\211\"\210\306 \210\307\"\207" [outline-level org-datetree-find-date-create org-get-valid-level 1 org-end-of-subtree t org-back-over-empty-lines org-paste-subtree] 6 (#$ . 6025)]) #@209 Make sure all entries in the current tree are under the correct date. It may be useful to restrict the buffer to the applicable portion before running this command, even though the command tries to be smart. (defalias 'org-datetree-cleanup #[0 "eb\210\304\305Q\304 \305Q\306\n\307\310#\205\244 \3112\240 \312 \313\224 Z]\313\224{\314\315\"\2046 \316\"\2046 \316\"\203; \317\311\307\"\210\320\321\322\313!!!\3238\3248\3258E\3268@A@`\327\310!\210`\330 \204g b\210\317\311\307\"\210\331\332!\204u b\210\317\311\307\"\210\331\333\334$!\203\213 b\210\317\311\307\"\210\211b\210\335 \210\212\214\336\337\313!\"*\266\207\2620\210\202 \207" [org-deadline-string org-scheduled-string org-ts-regexp org-ds-keyword-length "\\<" "\\>[ ]*\\'" re-search-forward nil t next line-beginning-position 0 string-suffix-p "-" string-match throw decode-time org-time-string-to-time match-string 4 3 5 2 org-back-to-heading org-up-heading-safe looking-at "\\*+[ ]+[0-9]+-[0-1][0-9]-[0-3][0-9]" format "\\*+[ ]+%d-%02d-%02d" org-cut-subtree org-datetree-file-entry-under current-kill] 16 (#$ . 6355) nil]) (provide 'org-datetree) Save