;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:07:06 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-datetree.el
;;; in Emacs version 24.3.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)
#@252 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
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 (#$ . 575))
#@62 When non-nil, add a time stamp when create a datetree entry.
(custom-declare-variable 'org-datetree-add-timestamp nil '(#$ . 878) :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)))
#@184 Find or create an entry for DATE.
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.
(defalias 'org-datetree-find-date-create #[(date &optional keep-restriction) "\3068@A@\307\310\311
!\fL\210*\204~\210eb\210\214\312\313\314\315#\203@\316\315!\210\307\317 \310\"\311
!\fL\210*\320 \210eb\210\321!\210\322\n\"\210\323\n	#\210`~\210b,\207" [date day month year value var 2 org-datetree-base-level 1 make-local-variable re-search-forward "^[ 	]*:DATE_TREE:[ 	]+\\S-" nil t org-back-to-heading org-get-valid-level org-narrow-to-subtree org-datetree-find-year-create org-datetree-find-month-create org-datetree-find-day-create keep-restriction outline-level] 4 (#$ . 1209)])
(defalias 'org-datetree-find-year-create #[(year) "\303\304eb\210\305	\304\306#\211\203!\307\224b\203!\310\311\307!!\nW\204\2045db\210n\204/\312 \210\313\n!\202L\310\311\307!!\nU\203E\314 b\202L\315\307!\210\313\n!*\207" [match re year "^\\*+[ 	]+\\([12][0-9]\\{3\\}\\)\\(.*?\\([ 	]:[[:alnum:]:_@#%]+:\\)?\\s-*$\\)" nil re-search-forward t 1 string-to-number match-string newline org-datetree-insert-line point-at-bol beginning-of-line] 4])
(defalias 'org-datetree-find-month-create #[(year month) "\304 \210\305\306\"\307eb\210\310\n\307\311#\211\203'\312\224b\203'\313\314\312!!W\204
	\204<db\210n\2045\315 \210\316\"\202T\313\314\312!!U\203L\317 b\202T\320\312!\210\316\"*\207" [year match re month org-narrow-to-subtree format "^\\*+[ 	]+%d-\\([01][0-9]\\) \\w+$" nil re-search-forward t 1 string-to-number match-string newline org-datetree-insert-line point-at-bol beginning-of-line] 4])
(defalias 'org-datetree-find-day-create #[(year month day) "\305 \210\306\307	#\310eb\210\311\310\312#\211\203(\313\224b\203(\314\315\313!!\fW\204\n\204>db\210n\2046\316 \210\317	\f#\202W\314\315\313!!\fU\203N\320 b\202W\321\313!\210\317	\f#*\207" [year month match re day org-narrow-to-subtree format "^\\*+[ 	]+%d-%02d-\\([0123][0-9]\\) \\w+$" nil re-search-forward t 1 string-to-number match-string newline org-datetree-insert-line point-at-bol beginning-of-line] 4])
(defalias 'org-datetree-insert-line #[(year &optional month day) "`\306\307\306x\210`	|\210\310\311\n\312\"\313\261\210\314u\210\203\315 \210\f\203&\315 \210\316\317
\"c\210\203`\316\320\"c\210\f\203O\316\321\f\322\323\324\325\211\211\f
&\"#c\210\202`\316\326\322\327\324\325\211\211\330
&\"\"c\210\f\203\211\203\310c\210\331 \210\332\324\325\211\211\f
&\306#\210\333\330!*\207" [ts-type pos org-datetree-base-level month day year nil " 	\n" "\n" make-string 42 " \n" -1 org-do-demote format "%d" "-%02d" "-%02d %s" format-time-string "%A" encode-time 0 " %s" "%B" 1 org-indent-line org-insert-time-stamp beginning-of-line org-datetree-add-timestamp] 12])
#@50 Insert a node TXT into the date tree under DATE.
(defalias 'org-datetree-file-entry-under #[(txt date) "\304!\210\305	 \306\"\307\310\211\"\210\311 \210\312\n\")\207" [date outline-level level txt org-datetree-find-date-create org-get-valid-level 1 org-end-of-subtree t org-back-over-empty-lines org-paste-subtree] 3 (#$ . 4096)])
#@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 #[nil "eb\210\306\307Q\306	\307Q\310\211\211\211\211\211\211\211\211
\311\310\312#\2056\313\314\215\210\202&.\207" [org-deadline-string org-scheduled-string hdl-pos pos day month "\\<" "\\>[ 	]*\\'" nil re-search-forward t next (byte-code "\306\307!\310 \307\224	Z]\307\224{\311\312\n\"\204$\311\n\"\204$\311\f\n\"\203)\313\314\315\"\210\316\317\306\307!!!\320
8\321
8\322
8E\3238@ A@!`\"\324\325!\210`#\326 \204f\"b\210\313\314\315\"\210\327\330!\204u\"b\210\313\314\315\"\210\327\331\332 !$!\203\214\"b\210\313\314\315\"\210#b\210\333 \210\212\214\334\335\307!\"\210*\315\207" [ts org-ds-keyword-length tmp dre sre dct match-string 0 point-at-bol string-match "-\\'" throw next nil decode-time org-time-string-to-time 4 3 5 2 org-back-to-heading t 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 date year month day pos hdl-pos] 6) year date tmp ts dct sre dre org-ts-regexp] 11 (#$ . 4437) nil])
(provide 'org-datetree)