Current File : //usr/local/share/emacs/27.2/lisp/org/org-datetree.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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)
#@322 Find or create a day 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 "\300\301#\207" [org-datetree--find-create-group day] 6 (#$ . 1236)])
#@432 Find or create a month entry for date D.
Compared to `org-datetree-find-date-create' this function creates
entries grouped by month instead of days.
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-month-create #[513 "\300\301#\207" [org-datetree--find-create-group month] 6 (#$ . 1683)])
#@185 Find or create an entry for date D.
If time-period is day, group entries by day. If time-period is
month, then group entries by month.
(fn D TIME-GROUPING &optional KEEP-RESTRICTION)
(defalias 'org-datetree--find-create-group #[770 "\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\320=\205q \315\321$\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+$" day "^\\*+[ ]+%d-%02d-\\([0123][0-9]\\) \\w+$"] 11 (#$ . 2243)])
#@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 (#$ . 3198)])
#@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 (#$ . 5445)])
#@38
(fn YEAR &optional MONTH DAY TEXT)
(defalias 'org-datetree-insert-line #[1025 "\212\303\304x\210`)`|\210\305\236\203 \306c\210\306\307 \310\"\311\261\210\312u\210\203& \313 \210\203- \313 \210\211\2037 \211c\210\202g \314\315\"c\210\203g \203W \316\317\320\321\211\211 &\"\202e \316\322\320\321\211\211\323 &\"c\210\203\212 \n\203\212 \212\306c\210\324 \210\325\320\321\211\211\n&\304\n\326=#\210)\327 \207" [org-blank-before-new-entry org-datetree-base-level org-datetree-add-timestamp " \n" nil heading "\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 (#$ . 6243)])
#@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 (#$ . 6976)])
#@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 (#$ . 7306) nil])
(provide 'org-datetree)
Mini Shell