Gecko [ 122.154.134.11 ]

Name	Size	Permission
org-agenda.elc	214.7 KB	-rw-r--r--
org-archive.elc	11.75 KB	-rw-r--r--
org-attach.elc	14.21 KB	-rw-r--r--
org-bbdb.elc	7.37 KB	-rw-r--r--
org-bibtex.elc	4.13 KB	-rw-r--r--
org-clock.elc	35.05 KB	-rw-r--r--
org-colview.elc	41.45 KB	-rw-r--r--
org-compat.elc	7.48 KB	-rw-r--r--
org-exp.elc	149.66 KB	-rw-r--r--
org-export-latex.elc	44.23 KB	-rw-r--r--
org-faces.elc	20.18 KB	-rw-r--r--
org-footnote.elc	13.77 KB	-rw-r--r--
org-gnus.elc	5.74 KB	-rw-r--r--
org-id.elc	16.92 KB	-rw-r--r--
org-info.elc	1.68 KB	-rw-r--r--
org-install.elc	635 B	-rw-r--r--
org-irc.elc	5.89 KB	-rw-r--r--
org-jsinfo.elc	5.39 KB	-rw-r--r--
org-list.elc	32.5 KB	-rw-r--r--
org-mac-message.elc	2.27 KB	-rw-r--r--
org-macs.elc	7.83 KB	-rw-r--r--
org-mew.elc	2.92 KB	-rw-r--r--
org-mhe.elc	5.16 KB	-rw-r--r--
org-mouse.elc	32.83 KB	-rw-r--r--
org-plot.elc	10.28 KB	-rw-r--r--
org-publish.elc	20.43 KB	-rw-r--r--
org-remember.elc	31.7 KB	-rw-r--r--
org-rmail.elc	2.82 KB	-rw-r--r--
org-table.elc	136.62 KB	-rw-r--r--
org-timer.elc	7.61 KB	-rw-r--r--
org-vm.elc	2.91 KB	-rw-r--r--
org-w3m.elc	3.88 KB	-rw-r--r--
org-wl.elc	2.82 KB	-rw-r--r--
org.elc	505.8 KB	-rw-r--r--

Code Editor : org-clock.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:42 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/org/org-clock.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`org-clock.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require org custom-declare-group org-clock nil "Options concerning clocking working time in Org-mode." :tag "Org Clock" :group org-progress] 8)
#@344 Should clocking info be wrapped into a drawer?
When t, clocking info will always be inserted into a :CLOCK: drawer.
If necessary, the drawer will be created.
When nil, the drawer will not be created, but used when present.
When an integer and the number of clocking entries in an item
reaches or exceeds this number, a drawer will be created.
(custom-declare-variable 'org-clock-into-drawer '2 '(#$ . 824) :group 'org-todo :group 'org-clock :type '(choice (const :tag "Always" t) (const :tag "Only when drawer exists" nil) (integer :tag "When at least N clock entries")))
#@220 When non-nil, the clock will be stopped when the relevant entry is marked DONE.
A nil value means, clock will keep running until stopped explicitly with
`C-c C-x C-o', or until the clock is started in a different item.
(custom-declare-variable 'org-clock-out-when-done 't '(#$ . 1403) :group 'org-clock :type 'boolean)
#@71 Non-nil means, remove the clock line when the resulting time is zero.
(custom-declare-variable 'org-clock-out-remove-zero-time-clocks 'nil '(#$ . 1728) :group 'org-clock :type 'boolean)
#@252 Set task to a special todo state while clocking it.
The value should be the state to which the entry should be
switched. If the value is a function, it must take one
parameter (the current TODO state of the item) and return the
state to switch it to.
(custom-declare-variable 'org-clock-in-switch-to-state 'nil '(#$ . 1921) :group 'org-clock :group 'org-todo :type '(choice (const :tag "Don't force a state" nil) (string :tag "State") (symbol :tag "Function")))
#@47 Number of clock tasks to remember in history.
(custom-declare-variable 'org-clock-history-length '5 '(#$ . 2389) :group 'org-clock :type 'integer)
#@202 When non-nil, should be a function to create `org-clock-heading'.
This is the string shown in the mode line when a clock is running.
The function is called with point at the beginning of the headline.
(custom-declare-variable 'org-clock-heading-function 'nil '(#$ . 2543) :group 'org-clock :type 'function)
#@67 Maximum length of clock strings in the modeline. 0 means no limit
(custom-declare-variable 'org-clock-string-limit '0 '(#$ . 2856) :group 'org-clock :type 'integer)
#@118 If non-nil, when clocking into a task with a clock entry which
has not been closed, resume the clock from that point
(custom-declare-variable 'org-clock-in-resume 'nil '(#$ . 3028) :group 'org-clock :type 'boolean)
#@409 When non-nil, save the running clock when emacs is closed, and
  resume it next time emacs is started.
When this is t, both the running clock, and the entire clock
history are saved.  When this is the symbol `clock', only the
running clock is saved.

When Emacs restarts with saved clock information, the file containing the
running clock as well as all files mentioned in the clock history will
be visited.
(custom-declare-variable 'org-clock-persist 'nil '(#$ . 3250) :group 'org-clock :type '(choice (const :tag "Just the running clock" clock) (const :tag "Clock and history" t) (const :tag "No persistence" nil)))
#@28 File to save clock data to
(custom-declare-variable 'org-clock-persist-file '(convert-standard-filename "~/.emacs.d/org-clock-save.el") '(#$ . 3874) :group 'org-clock :type 'string)
#@59 When non-nil, ask before saving the current clock on exit
(custom-declare-variable 'org-clock-persist-query-save 'nil '(#$ . 4062) :group 'org-clock :type 'boolean)
#@65 When non-nil, ask before resuming any stored clock during
load.
(custom-declare-variable 'org-clock-persist-query-resume 't '(#$ . 4233) :group 'org-clock :type 'boolean)
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305\301\306\307#\210\310B\302\310!\204$�\303\310\311\"\210\312B\302\312!\2043�\303\312\304\"\210\313B\302\313!\204B�\303\313\304\"\210\314B\302\314!\204Q�\303\314\304\"\210\311\207" [current-load-list org-mode-line-string default-boundp set-default "" put risky-local-variable t org-clock-mode-line-timer nil org-clock-heading org-clock-heading-for-remember org-clock-start-time] 4)
#@50 List of marker pointing to recent clocked tasks.
(defvar org-clock-history nil (#$ . 4854))
#@146 Marker pointing to the default task that should clock time.
The clock can be made to switch to this task after clocking out
of a different task.
(defvar org-clock-default-task (make-marker) (#$ . 4953))
#@77 Marker pointing to the task that has been interrupted by the current clock.
(defvar org-clock-interrupted-task (make-marker) (#$ . 5162))
(byte-code "\301B\302\301!\204�\303\301\304 \"\210\305	\306\307#\207" [current-load-list org-clock-mode-line-map default-boundp set-default make-sparse-keymap define-key [mode-line mouse-2] org-clock-goto] 4)
#@37 Push a marker to the clock history.
(defalias 'org-clock-history-push #[(&optional pos buffer) "\306\307^]\310 	\206
�`\n\223\311\211
\235\211\203&�\f@\311\211\223\210\202�\312\311\313\314\"\"\211G\211Y\203E�\315\316#\237\233\237
B\211+\207" [org-clock-history-length pos buffer l n m 1 35 make-marker nil delq mapcar #[(x) "\301!\205�\207" [x marker-buffer] 2] - -1 org-clock-history] 6 (#$ . 5518)])
#@47 Save relative positions of markers in region.
(defalias 'org-clock-save-markers-for-cut-and-paste #[(beg end) "\306	\n#\210\306	\n#\210\306\f	\n#\210\307\310
\"\207" [org-clock-marker beg end org-clock-default-task org-clock-interrupted-task org-clock-history org-check-and-save-marker mapc #[(m) "\303	\n#\207" [m beg end org-check-and-save-marker] 4]] 4 (#$ . 5954)])
#@59 Select a task that recently was associated with clocking.
(defalias 'org-clock-select-task #[(&optional prompt) "\304\211\305\304\306\213,\207" [s i rpl sel-list nil 0 ((byte-code "\306\307\310!!\210\311 \210\312!\203 �\313\314\315\316\317$c\210\320\321\"\211\nB\312!\2037�\313\322\315\316\317$c\210\320\323\"\211\nB\312\f!\203N�\313\324\315\316\317$c\210\320\325\f\"\211\nB\313\326\315\316\317$c\210\327\330
\"\210\331 \210\332\"\206e�\333!\210\334 \211#\335=\203s�\315\207#\336=\203|�\315\207\337#\n\"\203\213�\337#\n\"A\207\340\341#\"\207" [org-clock-default-task s sel-list org-clock-interrupted-task org-clock-marker org-clock-history org-switch-to-buffer-other-window get-buffer-create "*Clock Task Select*" erase-buffer marker-buffer org-add-props "Default Task\n" nil face bold org-clock-insert-selection-line 100 "The task interrupted by starting the last one\n" 105 "Current Clocking Task\n" 99 "Recent Tasks\n" mapc #[(m) "\304!\205!�	T\305	\306W\203�	\307\\\202�	\310\\\"\211B\211\207" [m i s sel-list marker-buffer org-clock-insert-selection-line 10 48 55] 4] org-fit-window-to-buffer message "Select task for clocking:" read-char-exclusive 113 120 assoc error "Invalid task choice %c" prompt rpl] 6))] 4 (#$ . 6333) nil])
(defalias 'org-clock-insert-selection-line #[(i marker) "\305!\205E�\306\211\211r\307\305!!q\210\212\214~\210b\210\310\305!!\311 \206+�\312 \210\311 \313\314!+\n\205D�	\205D�\315\316\f\n	$c\210\fB+\207" [marker task cat file i marker-buffer nil org-base-buffer buffer-file-name org-get-category org-refresh-category-properties org-get-heading notags format "[%c] %-15s %s\n"] 5])
(defalias 'org-clock-update-mode-line #[nil "\306\307 !\306!Z\310	\311\"\310	\n\311_Z\312\"\313\314\315\f\316Q\n
$\317\320V\203G�GV\203G�\313\320O\321\322
Q#\202N�\313\321#*\323\324\325%\326 +\207" [org-clock-start-time delta h m org-time-clocksum-format org-clock-heading time-to-seconds current-time floor 3600 60 org-propertize format "-[" " (%s)]" "Org-mode clock is running. Mouse-2 to go there." 0 help-echo ": " local-map mouse-face mode-line-highlight force-mode-line-update help-text clock-string org-clock-string-limit org-clock-mode-line-map org-mode-line-string] 7])
#@55 Information for the modeline about the running clock.
(defvar org-clock-mode-line-entry nil (#$ . 8602))
#@361 Start the clock on the current item.
If necessary, clock-out of the currently active clock.
With prefix arg SELECT, offer a list of recently clocked tasks to
clock into.  When SELECT is `C-u C-u', clock into the current task and mark
is as the default task, a special task that will always be offered in
the clocking selection, associated with the letter `d'.
(defalias 'org-clock-in #[(&optional select) "\300\301\215\207" [abort (byte-code "\306!\307\211\211
\310\232\203#�\311\312!\211\203�\313\n!\202#�\314\315!\210\f\2035�@\316!\306!\223\210\317\320!\210
\321\232\203G�\212\322\320!\210A`\307\223\210)`\212\n\203d�\306\n!\203d�\323\306\n!!q\210\316\n!\n\307\211\223\210\212\214~\210	b\210\322\320!\210\f\204y�@\307\211\223\210\324 \210\325B!\203\235�\326C!\210B\327\330!!\211D\203\231�\331D!\210)\202\263�B\203\263�\326E\332B\333R!\204\263�\331B!\210\326C!\205\306�\334\225\205\306�\335\336\225\334\225{!FG\203\332�\325G!\203\332�G \202\350�\326C!\203\347�\327\334!\202\350�\337H\340H\341\307#H\342 \210I\203$\326\343J\344\345R!\203$\346\347\327\336!\"\210\350\327\336!\351Q\336\225b\210\352\353\354\327\336!!\"K\202XI\355=\203>\346\356!\210\357 \210\360\330!\210\361\362\307\"\210\202X\363c\210\364u\210\365 \210J\366\261\210\367 K\370K\371\372#`\373 \223\210L\204f\374L\375L>\204t\376L\377\"L\201N� \210\201O�\201P�\211\201N�#M\346\201Q�\".\207" [org-clock-marker target-pos selected-task ts interrupting select marker-buffer nil (4) org-clock-select-task "Clock-in on task: " copy-marker error "Abort" marker-position org-clock-out t (16) org-back-to-heading org-base-buffer org-clock-history-push functionp looking-at match-string 2 org-todo "[ 	]*" "\\>" 4 org-trim 1 "???" org-propertize face org-clock-find-position "^[ \\t]* " " \\[\$[0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " +\\sw+ +[012][0-9]:[0-5][0-9]\$\\][ 	]*$" message "Matched %s" "[" "]" apply encode-time org-parse-time-string auto-restart "Cannot restart clock because task does not contain unfinished clock" ding sit-for throw abort "\n" -1 org-indent-line-function " " current-time org-insert-time-stamp with-hm inactive buffer-base-buffer ("") org-mode-line-string append (org-mode-line-string) org-clock-interrupted-task org-clock-default-task org-clock-in-switch-to-state org-complex-heading-regexp newstate outline-regexp org-clock-heading-for-remember org-clock-heading-function org-clock-heading org-clock-in-resume org-clock-string org-clock-start-time global-mode-string org-clock-mode-line-timer org-clock-update-mode-line run-with-timer 60 "Clock started at %s"] 6)] 2 (#$ . 8714) "P"])
#@65 Find the location where the next clock line should be inserted.
(defalias 'org-clock-find-position #[nil "\300\301!\210\302\303\215\207" [org-back-to-heading t exit (byte-code "\212\306\307!\210n\204\f�\310 \210`)\311 \210`\312P\313\314\211\211b\210m\203-�\310 \210`
]\315\316
\317#\203>�\306\307!\210\320\321\317\"\210b\210\315\f
\317#\203Z�\n\206P�\313\224\313\224T\202B�\250\203\233�TY\203\233�	b\210\306\307!\210\322 \203w�\323 \210\324c\210\306\313!\210\325 \210\nb\210\326c\210\306\313!\210\325 \210\327\317!\210\306\307!\210\320\321\314\"\210b\210\330\331P!\203\276�\332\333!\232\204\276�\306\307!\210n\204\237�\310 \210\202\237�\317=\205\335�\334c\210\306\313!\210\325 \210\306\313!\210\327\317!\210\325 \210\306\307!.\207" [org-clock-string last first cnt re end beginning-of-line 2 newline outline-next-heading "^[ 	]*" 0 nil re-search-forward "^[ 	]*:CLOCK:" t throw exit org-at-item-p org-end-of-item ":END:\n" org-indent-line-function ":CLOCK:\n" org-flag-drawer looking-at "[ 	]*" match-string 1 ":CLOCK:\n:END:\n" beg org-clock-into-drawer org-keyword-time-regexp] 7)] 2 (#$ . 11354)])
#@109 Stop the currently running clock.
If there is no running clock, throw an error, unless FAIL-QUIETLY is set.
(defalias 'org-clock-out #[(&optional fail-quietly) "\300\301\215\207" [exit (byte-code "\306!\204�	\203�\307\310\311\"\210\202�\312\313!\210\314\211\211\211\211\21156\212\306!q\210\214~\210b\210\315\316!\210\317\3207P!\203N�\321\316!8\232\203N�\321\322!6\202^�	\203Z�\307\310\314\"\210\202^�\312\323!\210\324\225b\210`\325 |\210\326c\210\327\330 \331\332#5\333\334\335\3365!\"!\333\334\335\3366!\"!Z\337
\340\245!
\f\340_Z\337
\341\245!
\211\341_Z\342\343\344\f#\261\2109\205\261�\f\\\324U\211\203\320�\315\316!\210`\325 |\210\317\345!\203\320�d`TV\203\320�\346\316!\210\314\211\223\210:\203\347�\347\350\314\211\211\351\352\311!\353Q%\210;\203\364�\354;!\210\314;\355\356<\"<\357 \210\360\361=\362Q5\f\n\203\363\202\364%.\207" [org-clock-marker fail-quietly remove m h s marker-buffer throw exit t error "No active clock" nil beginning-of-line 1 looking-at "[ 	]*" match-string 2 "Clock start time is gone" 0 point-at-eol "--" org-insert-time-stamp current-time with-hm inactive time-to-seconds apply encode-time org-parse-time-string floor 3600 60 " => " format "%2d:%02d" "\n" delete-char org-add-log-setup clock-out "# Task: " org-get-heading "\n\n" cancel-timer delq org-mode-line-string force-mode-line-update message "Clock stopped at %s after HH:MM = " "%s" " => LINE REMOVED" "" te ts org-keyword-time-regexp org-clock-string org-clock-out-remove-zero-time-clocks org-log-note-clock-out org-clock-mode-line-timer global-mode-string org-time-clocksum-format] 8)] 2 (#$ . 12490) nil])
#@59 Cancel the running clock be removing the start timestamp.
(defalias 'org-clock-cancel #[nil "\302!\204\n�\303\304!\210\212\302!q\210b\210\305 S\306 |\210)\307\310	\"\311 \210\312\313!\207" [org-clock-marker global-mode-string marker-buffer error "No active clock" point-at-bol point-at-eol delq org-mode-line-string force-mode-line-update message "Clock canceled"] 3 (#$ . 14140) nil])
#@93 Go to the currently clocked-in entry.
With prefix arg SELECT, offer recently clocked tasks.
(defalias 'org-clock-goto #[(&optional select) "\203\n�\303\304!\202�	\305\n!\204!�\203�\306\307!\210\202!�\306\310!\210\311\305\n!!\210\neW\2043�\ndV\2035�~\210\nb\210\312 \210\313 \210\314\315!\210\316 )\207" [select org-clock-marker m org-clock-select-task "Select task to go to: " marker-buffer error "No task selected" "No active clock" switch-to-buffer org-show-entry org-back-to-heading org-cycle-hide-drawers children recenter] 3 (#$ . 14536) "P"])
#@72 Holds the file total time in minutes, after a call to `org-clock-sum'.
(defvar org-clock-file-total-minutes nil (#$ . 15096))
(make-variable-buffer-local 'org-clock-file-total-minutes)
#@106 Sum the times for each subtree.
Puts the resulting times in minutes as a text property on each headline.
(defalias 'org-clock-sum #[(&optional tstart tend) "\306 \307	\310Q\311\312\313\"\313\211#\314\211$%\314\211&'\315ed\316#\210\212db\210\317\n\314\320#\203\321\225\203\225�\322\321!$\322\323!%\324\325\326\327$!\"!$\324\325\326\327%!\"!%(\203d�$(]\202f�$$)\203u�%)^\202w�%\211%$Z\211&\313V\203\220�
\330&\331\245!\\\202\221�
\202*�\332\225\203\255�\333
\334\322\335!!\334\322\332!!\331_#\202*�\336\225\336\224Z#
\313V\204\303�\f#H\313V\203*�\313*#+*+X\203\346�\f*\f*H
\\I\210*T\211*\202\314�*\313\f#H'#*S,*,X\203\f*\313I\210*T\211*\202\371�*\313\224b\210\337`\340 \341'$\210\202*�\f\313H-)\342!.\n\207" [bmp org-clock-string re lmax ltimes t1 buffer-modified-p "^\$\\*+\$[ 	]\\|^[ 	]*" "[ 	]*\$?:\\(\\[.*?\\]\$-+\$\\[.*?\\]\$\\|=>[ 	]+\$[0-9]+\$:\$[0-9]+\$\\)" 30 make-vector 0 nil remove-text-properties (:org-clock-minutes t) re-search-backward t 2 match-string 3 time-to-seconds apply encode-time org-parse-time-string floor 60 4 + string-to-number 5 1 put-text-property point-at-eol :org-clock-minutes set-buffer-modified-p level ts te dt time tstart tend l #1=#:--cl-var-- #2=#:--cl-var-- org-clock-file-total-minutes] 7 (#$ . 15288) nil])
#@131 Show subtree times in the entire buffer.
If TOTAL-ONLY is non-nil, only show the total time for the entire file
in the echo area.
(defalias 'org-clock-display #[(&optional total-only) "\306 \210\307\211\211\211\310 \210\f\204\\�\212eb\210`\211e\232\203%�\311\312\"\204.�\313`\312\"\211\203C�b\210\311\312\"\211\203�\314
 \"\210\202�\315\245\n\315_Z\203[�\316\317\306\307\320$\210)\321\322\323Q\n	\n	%,\207" [p m h time total-only outline-level org-clock-remove-overlays nil org-clock-sum get-text-property :org-clock-minutes next-single-property-change org-clock-put-overlay 60 org-add-hook before-change-functions local message "Total file time: " " (%d hours and %d minutes)" org-clock-file-total-minutes org-remove-highlights-with-change org-time-clocksum-format] 6 (#$ . 16615) nil])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305\301!\207" [current-load-list org-clock-overlays default-boundp set-default nil make-variable-buffer-local] 3)
#@225 Put an overlays on the current line, displaying TIME.
If LEVEL is given, prefix time with a corresponding number of stars.
This creates a new overlay and stores it in `org-clock-overlays', so that it
will be easy to remove.
(defalias 'org-clock-put-overlay #[(time &optional level) "\306\307	\306\245!	\n\306_Z\f\203�\310\f\311\"\202�\311\312\313Q\311 \314\211!\"\315!\210l\2047�\316\314x\210\317\314x\210\320`S\321 \"!`S`{\322 \311iZ]\\\323\"\324\325\322
\326\"\n\322\327
Z\330\"%\331\332D\"\333R\"\334!\335\"#\210!#B\211#.\207" [c time h m level l 60 floor org-get-valid-level 0 "%s " "%s" nil org-move-to-column "^ 	" " 	" org-make-overlay point-at-eol make-string 46 org-add-props format 42 16 32 face org-clock-overlay "" org-overlay-put display org-time-clocksum-format fmt off ov tx org-clock-overlays] 12 (#$ . 17600)])
#@171 Remove the occur highlights from the buffer.
BEG and END are ignored.  If NOREMOVE is nil, remove this function
from the `before-change-functions' in the current buffer.
(defalias 'org-clock-remove-overlays #[(&optional beg end noremove) "?\205�\303\304	\"\210\305\n?\205�\306\307\310\311#\207" [org-inhibit-highlight-removal org-clock-overlays noremove mapc org-delete-overlay nil remove-hook before-change-functions org-clock-remove-overlays local] 4 (#$ . 18462) nil])
#@197 Clock out if the current entry contains the running clock.
This is used to stop the clock after a TODO entry is marked DONE,
and is only done if the variable `org-clock-out-when-done' is not nil.
(defalias 'org-clock-out-if-current #[nil "\205(�	\n\235\205(�\305!p\232\205(�`W\205(�\212\306 \210`)V\205(�\307\310 )\207" [org-clock-out-when-done state org-done-keywords org-clock-marker org-log-note-clock-out marker-buffer outline-next-heading nil org-clock-out] 2 (#$ . 18945)])
(add-hook 'org-after-todo-state-change-hook 'org-clock-out-if-current)
#@158 Get a formatted clocktable with parameters according to PROPS.
The table is created in a temporary buffer, fully formatted and
fontified, and then returned.
(defalias 'org-get-clocktable #[(&rest props) "\302\303\304#\305\306\"\204�\302\306\307#\305\310\"\204 �\302\310\311#\312\313!r	q\210\314\216\315 \210\316!\210\317 \210\320 \210\307y\210`\321\322\323\324#\210\325 {+\207" [props #1=#:temp-buffer plist-put :name "clocktable" plist-member :maxlevel 2 :scope agenda generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) org-mode org-create-dblock org-update-dblock font-lock-fontify-buffer re-search-forward "^#\\+END" nil t point-at-bol] 5 (#$ . 19508)])
#@281 Create a table containing a report about clocked time.
If the cursor is inside an existing clocktable block, then the table
will be updated.  If not, a new clocktable will be inserted.
When called with a prefix argument, move to the first clock table in the
buffer and update it.
(defalias 'org-clock-report #[(&optional arg) "\301 \210\203�\302\303!\210\304 \210\305 \203�\305 b\210\202%�\306\307\303\310\311\312\313\257!\210\314 \207" [arg org-clock-remove-overlays org-find-dblock "clocktable" org-show-entry org-in-clocktable-p org-create-dblock :name :maxlevel 2 :scope file org-update-dblock] 7 (#$ . 20242) "P"])
#@41 Check if the cursor is in a clocktable.
(defalias 'org-in-clocktable-p #[nil "`\302\212\303\210\304\305\302\306#\205'�\307\224\211\205'�\310\311\302\306#\205'�\307\225	Y\205'�+\207" [start pos nil 1 re-search-backward "^#\\+BEGIN:[ 	]+clocktable" t 0 re-search-forward "^#\\+END:.*"] 4 (#$ . 20872)])
#@515 Return two times bordering a special time range.
Key is a symbol specifying the range and can be one of `today', `yesterday',
`thisweek', `lastweek', `thismonth', `lastmonth', `thisyear', `lastyear'.
A week starts Monday 0:00 and ends Sunday 24:00.
The range is determined relative to TIME.  TIME defaults to the current time.
The return value is a cons cell with two internal times like the ones
returned by `current time' or `encode-time'. if AS-STRINGS is non-nil,
the returned times will be formatted strings.
(defalias 'org-clock-special-range #[(key &optional time as-strings) "\250\203�\306\307!!\310	\206�\311 !\312\nA@\313\n8\314\n8<\315\n8\316\n8=\317\n8>\320!?\312@\321\211AB\321\211CD\321\211EF\321\211GH\321\211IJ\321\211KL\321M\322\323?\"\203y�\324?!=\325\211<\326\202\322\327?\"\203\233�\324\330\325?\"!=\324\330\313?\"!\325<\331\202\322\332?\"\203\335�\333\334!\210\324\330\325?\"!=\324\330\313?\"!L\335\336L\325=E!!\211MA@<M@\313M8=\325>\337\202\322\340?\"\203\324\330\325?\"!=\324\330\313?\"!\324\330\314?\"!<\341\202\322\342?\"\203\324\330\325?\"!@\306?\312\325\224O!@\312U\203[\343=\2034\344\345@\202[\346=\203B\337\345@\202[\347=\203P\331\345@\202[\350=\203[\326\345@\351>\203u<@\\<\312\211\352C\312B\202\353\353>\203\244@\354_>\312U\203\212\317\202\215>S\\G\312\211<GZ<\355<\\D\202\353\356>\203\310\325<\312\211\325D@\\\211TE\312\211CB\202\353\357>\203\346\312\211\325\211<=@\\\211=TF\202\353\360\361\"\210\362\f
<=&H\362A\206�B\206\fC\206\f
D\206<E\206F\206!=&INAJ\363>\203:\364\365H\"K\202g\366>\203J\364\367H\"K\202g\370>\203Z\364\371H\"K\202g\372>\203g\364\373H\"KO\203~\364JH\"\364JI\"KE\202\205HIKE.\207" [key time tm s m h intern number-to-string decode-time current-time 0 2 3 4 5 6 symbol-name nil string-match "^[0-9]+$" string-to-number 1 year "^\$[0-9]+\$-\$[0-9]\\{1,2\\}\$$" match-string month "^\$[0-9]+\$-[wW]\$[0-9]\\{1,2\\}\$$" require cal-iso calendar-gregorian-from-absolute calendar-absolute-from-iso week "^\$[0-9]+\$-\$[0-9]\\{1,2\\}\$-\$[0-9]\\{1,2\\}\$$" day "\$[-+][0-9]+\$$" yesterday today -1 lastweek lastmonth lastyear (day today) 24 (week thisweek) -7 7 (month thismonth) (year thisyear) error "No such time block %s" encode-time (day today) format-time-string "%A, %B %d, %Y" (week thisweek) "week %G-W%V" (month thismonth) "%B %Y" (year thisyear) "the year %Y" d y dow skey shift s1 m1 h1 d1 month1 y1 diff ts te fm txt w date org-time-stamp-formats as-strings] 8 (#$ . 21185)])
#@422 Try to shift the :block date of the clocktable at point.
Point must be in the #+BEGIN: line of a clocktable, or this function
will throw an error.
DIR is a direction, a symbol `left', `right', `up', or `down'.
Both `left' and `down' shift the block toward the past, `up' and `right'
push it toward the future.
N is the number of shift steps to take.  The size of the step depends on
the currently selected interval size.
(defalias 'org-clocktable-shift #[(dir n) "\306!	\307>\203
�[\212\310 b\210\311\312!\204�\313\314!\202y\315\224\315\225\316\315!\317\2111\317\21123\317\21145\317\21167\3178\f\320\232\203M�\321\202k�\f\322\232\203X�\323\202k�\f\324\232\203c�\325\202k�\f\326\232\203k�\327\330\331\f\"\203\242�\316\315\f\"\332\225\203\205�\333\316\332\f\"!\202\206�\334\2111\\\2111\334U\203\227�
\202\235�\335\336
1#2\202[\330\337\f\"\203W\333\316\315\f\"!3\340\225\205\272�\316\340\f\"7\341\225\205\307�\333\316\341\f\"!4\342\225\205\324�\333\316\342\f\"!\2115\203\360�\343\344\345\334\211\2115\\83&\"2\202[7\203-4\203-7G\334V\203-\346\347!\210\350\3514\\\3153E!!6\343\352\345\334\211\2116A@6@\33268&\"2\202[4\203G\343\353\345\334\211\211\3154\\3&\"2\202[3\203[\3543\\!2\202[\313\355!\2102\205w\nb\2102c\210``\nZ\\|\210\356\315!\210\357 \210\360.\f)\207" [n dir b e s block prefix-numeric-value (left down) point-at-bol looking-at "#\\+BEGIN: clocktable\\>.*?:block[ 	]+\$\\S-+\$" error "Line needs a :block definition before this command works" 1 match-string nil "yesterday" "today-1" "lastweek" "thisweek-1" "lastmonth" "thismonth-1" "lastyear" "thisyear-1" string-match "^\$today\\|thisweek\\|thismonth\\|thisyear\$\$[-+][0-9]+\$?$" 2 string-to-number 0 format "%s%+d" "\$[0-9]+\$\$-\\([wW]?\$\$[0-9]\\{1,2\\}\$\$-\\([0-9]\\{1,2\\}\$\\)?\\)?" 3 4 6 format-time-string "%Y-%m-%d" encode-time require cal-iso calendar-gregorian-from-absolute calendar-absolute-from-iso "%G-W%V" "%Y-%m" number-to-string "Cannot shift clocktable block" beginning-of-line org-update-dblock t shift ins y mw d date wp m] 11 (#$ . 23865)])
#@32 Write the standard clocktable.
(defalias 'org-dblock-write:clocktable #[(params) "\300\301\215\207" [exit (byte-code "\306\307 \310\311\312\"\311\313\"\311\314\"@\311\315\"A\311\316\"\206%�\317B\311\320\"C\311\321\"D\311\322\"E\311\323\"F\311\324\"G\311\325\"H\310\211IJ\310\211KL\310\211MN\310\211OP\310\211QR\310\211ST\310\211UV\310\211WX\310\211YZ\310\211[\\\310]C\203\253�G\204\242�E\203\236�F\204\242�\326\327!\210\330!\210\331\332\310\"\210G\203\310�\333G\310\334#\211S@ESA@F\335S8YE\250\203\324�\336E!EF\250\203\340�\336F!FE\203\373�E<\203\373�\337\340\335E8E@EA@$EF\203F<\203\337\340\335F8F@FA@$FE\203&\341\342\343\344E!\"!EF\2036\341\342\343\344F!\"!F	`\310\223\210`I`V\f\203W\f<\203W\f@9\203W\345\f!\202\204\f\346=\203d\347\334!\202\204\f\350=\203u\347\334!\351\f!\202\204\f\352=\203\204\351\353 C!\334Z\f\205\212\f<[\214\f\203L\f\354=\203\234~\210\202L\f\355=\203\250\356 \210\202L\f\357=\203\271\360 \204\256\356 \210\202L\f9\203\333\361\362\363\f!\"\203\333\364\365\366\363\f!\"!L\332\367\215\210\356 \210\202L[\203L\f^\346\370!_\310,\371_\313\334#_\371_\314\334#_\371_\312\354#_\372^!\210^\211A^@\211,\203Kr\373,!q\210\374_!\211X\203G\375,\376\377]!\201b�XR\"WBW\n\206C\201c�]\\)\202\n,Vb\210[\204\\\201d�EF\"\210eb\210\334\\o\203\202\\\310\\\203\202\201e�`\201f�\"\203\202e\211K\204\220\201g�`\201f�\"\211K\203\\Kb\210\201e�K\201f�\"\211J\203d\212\201h�\366!\210\201i�\201j�!\203X\201k�\366\225\366\224Z!\211L\203XLBX\203XD\203\341\201l�L\"A\206\344\201m�\202\344\201m�MH\204\361\365\335!\202\201n�\337\201o�\353 \201p� `\201q�\216\201r�\365\335!!*#\365\335!\"N@\204'L\366U\203'\201s�WBW\201t�\201u�L!\201v�MNM\201w�\201x�LS\201y�\"M\377J!M\201w�\260\fWBW)\202dW\237W
\203yW\2053\201z�\201{�W\201|�#\2023	b\210\201}�A\206\257\201~�\201�aA!\366\201\200�O\201\201�G\203\247\201\202�Y\201\203�Q\202\252\201m�\201\204�\260[\203\272\201\205�\202\275\201m�\201\206�#\210\n\206\310]\201}�\201\207�[\203\332\201v�\202\335\201m�\201v�\201\210�\377\n\206\353\201c�!\201\211�&\210\201\212�\310W\"\211W@;\203!W@G\366V\203!W@\201c�\335O\201s�\232\203!W\210WAW\201}�\201z�\201{�\201\212�\310W\"[\203<\201\213�\202?\201|�#!\210\201\214�\366!\210\311\201\215�\"\211Q\203\277Q\201\216�=\203\242\201\217�[\203i\366\202l\201c�B\317#R\337\201\220�R\335\317[\203\203\366\202\206\201c�\\[\203\220\366\202\223\201c�\317\\RS&c\210\334P\202\360Q;\203\266\201\221�Q\261\210\334P\202\360\326\201\222�!\210\202\360\311\201\223�\"\211O;\203\360\361\201\224�O\"\203\360\334P\201|�\365\366\311\201\223�\"\"\261\210\201h�\201c�!\210Ib\210\201\225�\310w\210\201\226� \210P\203'Q\201\216�=\203\212\201\227�R\310\201\230�#\210\201\231�c\210)\201\232�\201\233�!\210Z\2053\366u\210\201\234� .#\207" [hlchars ins total-time params scope tostring ((1 . "*") (2 . "/")) make-marker nil plist-get :scope :tostring :multifile :header :maxlevel 3 :step :emphasize :tstart :tend :block :link error "Clocktable `:step' can only be used with `:block' or `:tstart,:end'" org-clocktable-steps throw exit org-clock-special-range t 2 calendar-gregorian-from-absolute format "%4d-%02d-%02d" time-to-seconds apply encode-time org-parse-time-string eval agenda org-agenda-files agenda-with-archives org-add-archive-files file-with-archives buffer-file-name file subtree org-narrow-to-subtree tree org-up-heading-safe string-match "^tree\$[0-9]+\$$" symbol-name string-to-number match-string 1 (byte-code "\303 \203�\304!\210\305	 !\nX\203��\306\307\310\"\210\202��\310\207" [outline-regexp outline-level level org-up-heading-safe looking-at org-reduced-level throw exit nil] 3) copy-sequence plist-put org-prepare-agenda-buffers find-buffer-visiting org-dblock-write:clocktable org-clocktable-add-file "| |*File time*|*" org-minutes-to-hh:mm-string multifile header maxlevel step emph ts te block link ipos time p level hlc hdl content recalc formula pcol cc beg end pos tbl tbl1 range-text rm-file-column scope-is-list st org-clock-file-total-minutes files p1 save-match-data-internal org-time-stamp-formats "*|\n" 0 org-clock-sum get-text-property :org-clock-minutes next-single-property-change beginning-of-line looking-at "\$\\*+\$[ 	]+\$.*?\$\$[ 	]+:[[:alnum:]_@:]+:\$?[ 	]*$" org-reduced-level assoc "" org-make-link-string "file:%s::%s" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-make-org-heading-search-string "|-" "| " int-to-string "|" " |" make-string 124 mapconcat identity "\n" insert-before-markers "Clock summary at [" format-time-string -1 "]" ", for " "." "\n\n" "|File" "|L|Headline|Time|\n" "|-\n|" "*Total time*| *" "*|\n|-\n" delq "\n|-\n" backward-delete-char :formula % + "\n#+TBLFM: $%d='(org-clock-time%% @%d$%d $%d..$%d);%%.1f" "\n#+TBLFM: " "invalid formula in clocktable" :content "^\$#\\+TBLFM:.*\$" "^|" org-table-align org-table-goto-column force "%" org-table-recalculate all org-table-delete-column] 13)] 2 (#$ . 25984)])
(defalias 'org-clocktable-steps #[(params) "\306!\307	\310\"\307	\311\"\307	\312\"\313\f\314\"A\307	\315\"#\316\211$%#\203@�\317#\316\320#\211$@$A@\321$8%\n\203M�\322\323\324\325\n!\"!\203Z�\322\323\324\325!\"!\326	\327\330#\326	\312\316#\326	\315\316#\nW\205\271�n\204y�\331c\210\326	\310\332&@\333\n!\"#\326	\311\332&@\333\n
\\\211!\"#\331\f\334=\203\242�\335\202\243�\336\307	\310\"\331\261\210\337	!\210\340\341!\210\342\210\202l�.\207" [params p1 ts te step0 step copy-sequence plist-get :tstart :tend :step assoc ((day . 86400) (week . 604800)) :block nil org-clock-special-range t 2 time-to-seconds apply encode-time org-parse-time-string plist-put :header "" "\n" format-time-string seconds-to-time day "Daily report: " "Weekly report starting on: " org-dblock-write:clocktable re-search-forward "#\\+END:" 0 block cc range-text org-time-stamp-formats] 9])
(defalias 'org-clocktable-add-file #[(file table) "\205�\304\305\"\306	!\307\310\311\312\"\305#*\207" [table file ff lines org-split-string "\n" file-name-nondirectory mapconcat identity mapcar #[(x) "\303	\"\203\f�\304\n	Q\207	\207" [org-table-dataline-regexp x ff string-match "|"] 3]] 5])
#@255 Compute a time fraction in percent.
TOTAL s a time string like 10:21 specifying the total times.
STRINGS is a list of strings that should be checked for a time.
The first string that does have a time will be used.
This function is made for clock tables.
(defalias 'org-clock-time% #[(total &rest strings) "\304\305\211\306 \307\216\310\311\215-\207" [s tot re save-match-data-internal "\$[0-9]+\$:\$[0-9]+\$" nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) exit (byte-code "\305	\"\204�\306\307\310\"\210\202*�\311\312\313	\"!\311\312\314	\"!\315_\\\211\310U\203*�\306\307\310\"\210\211A@\211\203U�\305\316\f\"\203*�\306\307\317\311\312\313\f\"!\311\312\314\f\"!\315_\\_\n\245\"\210\202*�\310\207" [re total tot strings s string-match throw exit 0 string-to-number match-string 2 1 60 "\$[0-9]+\$:\$[0-9]+\$" 100.0] 9)] 3 (#$ . 32367)])
#@130 Persist various clock-related data to disk.
The details of what will be saved are regulated by the variable
`org-clock-persist'.
(defalias 'org-clock-save #[nil "\205|�\306r\307\310\n!!q\210ed|\210\311\312\313\fA!#c\210\314
!\211\203]�\315	!\206+�	\211\203]�\316	!\203]�\317	!\203]�!\203M�\320\321\322\"!\323Q!\203]�\324\317\314
!!\325\326\327
!!\330\261\210#\203u�\331=\203u�\332\333\334\335#!\336#\330\261\210\337 \210\340p!*\207" [org-clock-persist b org-clock-persist-file system-name org-time-stamp-formats org-clock-marker nil find-file expand-file-name format ";; org-persist.el - %s at %s\n" format-time-string marker-buffer buffer-base-buffer buffer-live-p buffer-file-name y-or-n-p "Save current clock (" substring-no-properties ") " "(setq resume-clock '(\"" "\" . " int-to-string marker-position "))\n" t "(setq stored-clock-history '(" mapconcat #[(m) "\302!\211\205-�\303	!\206�	\211\205-�\304	!\205-�\305	!\205-�\306\305	!\307\310\311!!\312\260\207" [m b marker-buffer buffer-base-buffer buffer-live-p buffer-file-name "(\"" "\" . " int-to-string marker-position ")"] 6] reverse " " save-buffer kill-buffer org-clock-persist-query-save org-clock-heading org-clock-history] 6 (#$ . 33282)])
#@28 Was the clock file loaded?
(defvar org-clock-loaded nil (#$ . 34511))
#@79 Load various clock-related data from disk, optionally resuming
a stored clock
(defalias 'org-clock-load #[nil "\205\212�	?\205\212�\306\n!\307\310\211\311!\204\"�\312\313\n\"\202\211�\312\314\315\"\210\316\317!\210\2035�\320\213\210\f\205\211�\205\211�\321\f@!\205\211�\203l�\322\323r\324\f@!q\210\212\fAb\210\325\316!\210\326!\205e�\327\330!*\331Q!\205\211�\321\f@!\205\211�r\324\f@!q\210\fAb\210\332 \210\333 \205\210�\334 ),\207" [org-clock-persist org-clock-loaded org-clock-persist-file stored-clock-history resume-clock org-clock-in-resume expand-file-name auto-restart nil file-readable-p message "Not restoring clock data; %s not found" "%s" "Restoring clock data" t load-file ((mapc #[(task) "\301@!\205�\302A\303@!\"\207" [task file-exists-p org-clock-history-push find-file] 4] stored-clock-history)) file-exists-p y-or-n-p "Resume clock (" find-file org-back-to-heading looking-at match-string 4 ") " org-clock-in org-invisible-p org-show-context filename org-clock-persist-query-resume org-complex-heading-regexp] 4 (#$ . 34587)])
#@36 Set up hooks for clock persistence
(defalias 'org-clock-persistence-insinuate #[nil "\300\301\302\"\210\300\303\304\"\207" [add-hook org-mode-hook org-clock-load kill-emacs-hook org-clock-save] 3 (#$ . 35658)])
(provide 'org-clock)

${this.title}

Code Editor : org-clock.elc