ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/org-datetree.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 426))
#@62 When non-nil, add a time stamp when create a datetree entry.
(custom-declare-variable 'org-datetree-add-timestamp nil '(#$ . 729) :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 (#$ . 1060)])
#@38 Find the YEAR datetree or create it.
(defalias 'org-datetree-find-year-create #[(year) "\303\304eb\210\305 \304\306#\211\203! \307\224b\203! \310\311\307!!\nW\204 \2045 db\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\\}\\)\\(\\s-*?\\([ ]:[[: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 (#$ . 1854)])
#@52 Find the datetree for YEAR and MONTH or create it.
(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 (#$ . 2366)])
#@57 Find the datetree for YEAR, MONTH and DAY or create it.
(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 (#$ . 2905)])
(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 (#$ . 4148)])
#@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#\205\327 \3132\323 \314\315!$\316 \315\224)Z]\315\224{#\317\320#\"\204_ \317'#\"\204_ \317&#\"\203d \321\313\310\"\210\322\323\314\315!!!%\324%8\325%8\326%8E\"\327\"8!\"@\"A@`\330\312!\210`\331 \204\240 b\210\321\313\310\"\210\332\333!\204\256 b\210\321\313\310\"\210\332\334\335!
\f$!\203\302 b\210\321\313\310\"\210\nb\210\336 \210\212\214\337\340\315!\"\"*0\210\202& . \207" [org-deadline-string org-scheduled-string hdl-pos pos day month "\\<" "\\>[ ]*\\'" nil re-search-forward t next match-string 0 point-at-bol string-match "-\\'" throw decode-time org-time-string-to-time 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 year date tmp ts dct sre dre org-ts-regexp org-ds-keyword-length] 11 (#$ . 4489) nil])
(provide 'org-datetree)
Kontol Shell Bypass