Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
org /
Delete
Unzip
Name
Size
Permission
Date
Action
ob-C.elc
5.8
KB
-rw-r--r--
2023-06-07 04:05
ob-R.elc
12.73
KB
-rw-r--r--
2023-06-07 04:05
ob-asymptote.elc
3.74
KB
-rw-r--r--
2023-06-07 04:05
ob-awk.elc
3.67
KB
-rw-r--r--
2023-06-07 04:05
ob-calc.elc
2.33
KB
-rw-r--r--
2023-06-07 04:05
ob-clojure.elc
2.28
KB
-rw-r--r--
2023-06-07 04:05
ob-comint.elc
5.39
KB
-rw-r--r--
2023-06-07 04:05
ob-css.elc
1015
B
-rw-r--r--
2023-06-07 04:05
ob-ditaa.elc
2.24
KB
-rw-r--r--
2023-06-07 04:05
ob-dot.elc
2.26
KB
-rw-r--r--
2023-06-07 04:05
ob-emacs-lisp.elc
2
KB
-rw-r--r--
2023-06-07 04:05
ob-eval.elc
6.81
KB
-rw-r--r--
2023-06-07 04:05
ob-exp.elc
11.14
KB
-rw-r--r--
2023-06-07 04:05
ob-fortran.elc
5.01
KB
-rw-r--r--
2023-06-07 04:05
ob-gnuplot.elc
7.35
KB
-rw-r--r--
2023-06-07 04:05
ob-haskell.elc
8.04
KB
-rw-r--r--
2023-06-07 04:05
ob-io.elc
3.54
KB
-rw-r--r--
2023-06-07 04:05
ob-java.elc
2.21
KB
-rw-r--r--
2023-06-07 04:05
ob-js.elc
5.71
KB
-rw-r--r--
2023-06-07 04:05
ob-keys.elc
2.9
KB
-rw-r--r--
2023-06-07 04:05
ob-latex.elc
5.73
KB
-rw-r--r--
2023-06-07 04:05
ob-ledger.elc
2.01
KB
-rw-r--r--
2023-06-07 04:05
ob-lilypond.elc
13.27
KB
-rw-r--r--
2023-06-07 04:05
ob-lisp.elc
2.75
KB
-rw-r--r--
2023-06-07 04:05
ob-lob.elc
5.11
KB
-rw-r--r--
2023-06-07 04:05
ob-matlab.elc
644
B
-rw-r--r--
2023-06-07 04:05
ob-maxima.elc
3.78
KB
-rw-r--r--
2023-06-07 04:05
ob-mscgen.elc
1.54
KB
-rw-r--r--
2023-06-07 04:05
ob-ocaml.elc
4.9
KB
-rw-r--r--
2023-06-07 04:05
ob-octave.elc
10.16
KB
-rw-r--r--
2023-06-07 04:05
ob-org.elc
1.81
KB
-rw-r--r--
2023-06-07 04:05
ob-perl.elc
3.35
KB
-rw-r--r--
2023-06-07 04:05
ob-picolisp.elc
4.65
KB
-rw-r--r--
2023-06-07 04:05
ob-plantuml.elc
2.41
KB
-rw-r--r--
2023-06-07 04:05
ob-python.elc
10.22
KB
-rw-r--r--
2023-06-07 04:05
ob-ref.elc
6.52
KB
-rw-r--r--
2023-06-07 04:05
ob-ruby.elc
8.15
KB
-rw-r--r--
2023-06-07 04:05
ob-sass.elc
1.87
KB
-rw-r--r--
2023-06-07 04:05
ob-scala.elc
3.72
KB
-rw-r--r--
2023-06-07 04:05
ob-scheme.elc
4.81
KB
-rw-r--r--
2023-06-07 04:05
ob-screen.elc
4.45
KB
-rw-r--r--
2023-06-07 04:05
ob-sh.elc
8.2
KB
-rw-r--r--
2023-06-07 04:05
ob-shen.elc
1.95
KB
-rw-r--r--
2023-06-07 04:05
ob-sql.elc
4.43
KB
-rw-r--r--
2023-06-07 04:05
ob-sqlite.elc
4.53
KB
-rw-r--r--
2023-06-07 04:05
ob-table.elc
3.06
KB
-rw-r--r--
2023-06-07 04:05
ob-tangle.elc
15.92
KB
-rw-r--r--
2023-06-07 04:05
ob.elc
83.02
KB
-rw-r--r--
2023-06-07 04:05
org-agenda.elc
332.2
KB
-rw-r--r--
2023-06-07 04:05
org-archive.elc
15.6
KB
-rw-r--r--
2023-06-07 04:05
org-ascii.elc
20.83
KB
-rw-r--r--
2023-06-07 04:05
org-attach.elc
15.96
KB
-rw-r--r--
2023-06-07 04:05
org-bbdb.elc
9.43
KB
-rw-r--r--
2023-06-07 04:05
org-beamer.elc
22.08
KB
-rw-r--r--
2023-06-07 04:06
org-bibtex.elc
22.8
KB
-rw-r--r--
2023-06-07 04:06
org-capture.elc
50.89
KB
-rw-r--r--
2023-06-07 04:06
org-clock.elc
82.74
KB
-rw-r--r--
2023-06-07 04:06
org-colview.elc
48.44
KB
-rw-r--r--
2023-06-07 04:06
org-compat.elc
13.95
KB
-rw-r--r--
2023-06-07 04:06
org-crypt.elc
6.28
KB
-rw-r--r--
2023-06-07 04:06
org-ctags.elc
12.31
KB
-rw-r--r--
2023-06-07 04:06
org-datetree.elc
5.63
KB
-rw-r--r--
2023-06-07 04:06
org-docbook.elc
37.55
KB
-rw-r--r--
2023-06-07 04:06
org-docview.elc
1.72
KB
-rw-r--r--
2023-06-07 04:06
org-element.elc
112.74
KB
-rw-r--r--
2023-06-07 04:06
org-entities.elc
24.46
KB
-rw-r--r--
2023-06-07 04:06
org-eshell.elc
1.72
KB
-rw-r--r--
2023-06-07 04:06
org-exp-blocks.elc
11.32
KB
-rw-r--r--
2023-06-07 04:06
org-exp.elc
101.9
KB
-rw-r--r--
2023-06-07 04:06
org-faces.elc
27.45
KB
-rw-r--r--
2023-06-07 04:06
org-feed.elc
18.7
KB
-rw-r--r--
2023-06-07 04:06
org-footnote.elc
23.09
KB
-rw-r--r--
2023-06-07 04:06
org-freemind.elc
27.16
KB
-rw-r--r--
2023-06-07 04:07
org-gnus.elc
9.12
KB
-rw-r--r--
2023-06-07 04:07
org-habit.elc
11.52
KB
-rw-r--r--
2023-06-07 04:07
org-html.elc
78.9
KB
-rw-r--r--
2023-06-07 04:07
org-icalendar.elc
22.37
KB
-rw-r--r--
2023-06-07 04:07
org-id.elc
19.69
KB
-rw-r--r--
2023-06-07 04:07
org-indent.elc
15.89
KB
-rw-r--r--
2023-06-07 04:07
org-info.elc
1.61
KB
-rw-r--r--
2023-06-07 04:07
org-inlinetask.elc
12.14
KB
-rw-r--r--
2023-06-07 04:07
org-install.el
452
B
-rw-r--r--
2013-02-07 02:17
org-irc.elc
5.82
KB
-rw-r--r--
2023-06-07 04:07
org-jsinfo.elc
7.39
KB
-rw-r--r--
2023-06-07 04:07
org-latex.elc
82.79
KB
-rw-r--r--
2023-06-07 04:07
org-list.elc
83.65
KB
-rw-r--r--
2023-06-07 04:07
org-loaddefs.el
77.97
KB
-rw-r--r--
2013-03-08 03:16
org-lparse.elc
64.82
KB
-rw-r--r--
2023-06-07 04:07
org-mac-message.elc
6.3
KB
-rw-r--r--
2023-06-07 04:07
org-macs.elc
15.89
KB
-rw-r--r--
2023-06-07 04:07
org-mew.elc
3.1
KB
-rw-r--r--
2023-06-07 04:07
org-mhe.elc
5.49
KB
-rw-r--r--
2023-06-07 04:07
org-mks.elc
3.52
KB
-rw-r--r--
2023-06-07 04:08
org-mobile.elc
35.47
KB
-rw-r--r--
2023-06-07 04:08
org-mouse.elc
31.66
KB
-rw-r--r--
2023-06-07 04:08
org-odt.elc
94.04
KB
-rw-r--r--
2023-06-07 04:08
org-pcomplete.elc
10.83
KB
-rw-r--r--
2023-06-07 04:08
org-plot.elc
9.96
KB
-rw-r--r--
2023-06-07 04:08
org-protocol.elc
18.56
KB
-rw-r--r--
2023-06-07 04:08
org-publish.elc
39.08
KB
-rw-r--r--
2023-06-07 04:08
org-remember.elc
36.16
KB
-rw-r--r--
2023-06-07 04:08
org-rmail.elc
2.84
KB
-rw-r--r--
2023-06-07 04:08
org-special-blocks.elc
2.76
KB
-rw-r--r--
2023-06-07 04:08
org-src.elc
32.03
KB
-rw-r--r--
2023-06-07 04:08
org-table.elc
161.1
KB
-rw-r--r--
2023-06-07 04:08
org-taskjuggler.elc
17.22
KB
-rw-r--r--
2023-06-07 04:08
org-timer.elc
12.76
KB
-rw-r--r--
2023-06-07 04:08
org-version.el
718
B
-rw-r--r--
2013-02-28 01:01
org-vm.elc
4.16
KB
-rw-r--r--
2023-06-07 04:08
org-w3m.elc
4.29
KB
-rw-r--r--
2023-06-07 04:08
org-wl.elc
7.07
KB
-rw-r--r--
2023-06-07 04:08
org-xoxo.elc
2.49
KB
-rw-r--r--
2023-06-07 04:09
org.elc
732.44
KB
-rw-r--r--
2023-06-07 04:09
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:06:12 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-clock.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'org-exp) (defvar org-frame-title-format-backup frame-title-format) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\306\314\306\301\315\316& \207" [custom-declare-group org-clock nil "Options concerning clocking working time in Org-mode." :tag "Org Clock" :group org-progress custom-declare-variable org-clock-into-drawer org-log-into-drawer "Should clocking info be wrapped into a drawer?\nWhen t, clocking info will always be inserted into a :LOGBOOK: drawer.\nIf necessary, the drawer will be created.\nWhen nil, the drawer will not be created, but used when present.\nWhen an integer and the number of clocking entries in an item\nreaches or exceeds this number, a drawer will be created.\nWhen a string, it names the drawer to be used.\n\nThe default for this variable is the value of `org-log-into-drawer',\nwhich see." org-todo :type (choice (const :tag "Always" t) (const :tag "Only when drawer exists" nil) (integer :tag "When at least N clock entries") (const :tag "Into LOGBOOK drawer" "LOGBOOK") (string :tag "Into Drawer named..."))] 10) #@399 Return the value of `org-clock-into-drawer', but let properties overrule. If the current entry has or inherits a CLOCK_INTO_DRAWER property, it will be used instead of the default value; otherwise if the current entry has or inherits a LOG_INTO_DRAWER property, it will be used instead of the default value. The default is the value of the customizable variable `org-clock-into-drawer', which see. (defalias 'org-clock-into-drawer #[nil "\303\304\305\306#\303\304\307\306#\211\204 \203 \310\232\204 \310\232\203$ \n\202= \311\232\2040 \311\232\2034 \312\202= \204< \202= *\207" [q p org-clock-into-drawer org-entry-get nil "CLOCK_INTO_DRAWER" inherit "LOG_INTO_DRAWER" "nil" "t" "LOGBOOK"] 6 (#$ . 1632)]) (byte-code "\302\303\304\305\306\307\310\311&\210\302\312\313\314\306\307\310\315&\210\302\316\313\317\306\307\306\320\310\321& \210\302\322\313\323\306\307\306\320\310\324& \210\302\325\326\327\306\307\310\330&\210\302\331\304\332\306\307\310\315&\210\302\333\313\334\306\307\310\335&\210\302\336\337\340\306\307\310\330&\210\302\341\313\342\306\307\310\315&\210\302\343\313\344\306\307\310\345&\210\302\346\347\350\306\307\310\351&\210\302\352\313\353\306\307\310\315&\210\302\354\304\355\306\307\310\315&\210\302\356\313\357\306\307\310\360&\210\361\362\363\313#\210\364\313\211\203\312 @\362N\203\303 \363N\204\303 \365\363\362N#\210 A\211\204\254 *\366\362\363\367#\210\302\363\370\371\306\307\310\372&\210\361\373\374\"\210\302\374\313\375\306\307\376\377\310\201@ & \210\302\201A \313\201B \306\307\310\201C &\210\201D \201E \313\201F \201G \201H \306\307&\210\302\201I \201J \201K \306\307\376\377\310\201L & \210\302\201M \201N \201O \306\201E \376\377\310\335& \210\302\201P \201Q \201R \306\201E \376\377\310\201S & \210\302\201T \201U \201V \306\201E \310\201L &\210\302\201W \313\201X \306\307\310\201Y &\210\302\201Z \201[ \201\\ \306\307\310\201] &\210\302\201^ \313\201_ \306\307\376\377\310\315& \210\302\201` \313\201a \306\307\376\377\310\315& \210\302\201b \313\201c \310\315\376\377\306\307& \210\302\201d \201e \201f \306\307\376\377\310\315& \210\302\201g \201e \201h \306\307\376\377\310\315& \210\302\201i \201j \201k \306\307\310\201l &\210\302\201m \201n \201o \376\377\306\307\310\201p & \207" [prop --dolist-tail-- custom-declare-variable org-clock-out-when-done t "When non-nil, clock will be stopped when the clocked entry is marked DONE.\nDONE here means any DONE-like state.\nA nil value means clock will keep running until stopped explicitly with\n`C-c C-x C-o', or until the clock is started in a different item.\nInstead of t, this can also be a list of TODO states that should trigger\nclocking out." :group org-clock :type (choice (const :tag "No" nil) (const :tag "Yes, when done" t) (repeat :tag "State list" (string :tag "TODO keyword"))) org-clock-out-remove-zero-time-clocks nil "Non-nil means remove the clock line when the resulting time is zero." boolean org-clock-in-switch-to-state "Set task to a special todo state while clocking it.\nThe value should be the state to which the entry should be\nswitched. If the value is a function, it must take one\nparameter (the current TODO state of the item) and return the\nstate to switch it to." org-todo (choice (const :tag "Don't force a state" nil) (string :tag "State") (symbol :tag "Function")) org-clock-out-switch-to-state "Set task to a special todo state after clocking out.\nThe value should be the state to which the entry should be\nswitched. If the value is a function, it must take one\nparameter (the current TODO state of the item) and return the\nstate to switch it to." (choice (const :tag "Don't force a state" nil) (string :tag "State") (symbol :tag "Function")) org-clock-history-length 5 "Number of clock tasks to remember in history." integer org-clock-goto-may-find-recent-task "Non-nil means `org-clock-goto' can go to recent task if no active clock." org-clock-heading-function "When non-nil, should be a function to create `org-clock-heading'.\nThis is the string shown in the mode line when a clock is running.\nThe function is called with point at the beginning of the headline." function org-clock-string-limit 0 "Maximum length of clock strings in the mode line. 0 means no limit." org-clock-in-resume "If non-nil, resume clock when clocking into task with open clock.\nWhen clocking into a task with a clock entry which has not been closed,\nthe clock can be resumed from that point." org-clock-persist "When non-nil, save the running clock when Emacs is closed.\nThe clock is resumed when Emacs restarts.\nWhen this is t, both the running clock, and the entire clock\nhistory are saved. When this is the symbol `clock', only the\nrunning clock is saved. When this is the symbol `history', only\nthe clock history is saved.\n\nWhen Emacs restarts with saved clock information, the file containing\nthe running clock as well as all files mentioned in the clock history\nwill be visited.\n\nAll this depends on running `org-clock-persistence-insinuate' in your\nEmacs initialization file." (choice (const :tag "Just the running clock" clock) (const :tag "Just the history" history) (const :tag "Clock and history" t) (const :tag "No persistence" nil)) org-clock-persist-file (convert-standard-filename "~/.emacs.d/org-clock-save.el") "File to save clock data to." string org-clock-persist-query-save "When non-nil, ask before saving the current clock on exit." org-clock-persist-query-resume "When non-nil, ask before resuming any stored clock during load." org-clock-sound "Sound that will used for notifications.\nPossible values:\n\nnil no sound played.\nt standard Emacs beep\nfile name play this sound file. If not possible, fall back to beep" (choice (const :tag "No sound" nil) (const :tag "Standard beep" t) (file :tag "Play sound file")) defvaralias org-clock-modeline-total org-clock-mode-line-total (saved-value saved-variable-comment) put make-obsolete-variable "24.3" 'auto "Default setting for the time included for the mode line clock.\nThis can be overruled locally using the CLOCK_MODELINE_TOTAL property.\nAllowed values are:\n\ncurrent Only the time in the current instance of the clock\ntoday All time clocked into this task today\nrepeat All time clocked into this task since last repeat\nall All time ever recorded for this task\nauto Automatically, either `all', or `repeat' for repeating tasks" (choice (const :tag "Current clock" current) (const :tag "Today's task time" today) (const :tag "Since last repeat" repeat) (const :tag "All task time" all) (const :tag "Automatically, `all' or since `repeat'" auto)) org-task-overrun-text org-clock-task-overrun-text "Extra mode line text to indicate that the clock is overrun.\nThe can be nil to indicate that instead of adding text, the clock time\nshould get a different face (`org-mode-line-clock-overrun').\nWhen this is a string, it is prepended to the clock string as an indication,\nalso using the face `org-mode-line-clock-overrun'." :version "24.1" (choice (const :tag "Just mark the time string" nil) (string :tag "Text to prepend")) org-show-notification-handler "Function or program to send notification with.\nThe function or program will be called with the notification\nstring as argument." (choice (string :tag "Program") (function :tag "Function")) custom-declare-group org-clocktable "Options concerning the clock table in Org-mode." :tag "Org Clock Table" org-clocktable-defaults (list :maxlevel 2 :lang org-export-default-language :scope 'file :block nil :tstart nil :tend nil :step nil :stepskip0 nil :fileskip0 nil :tags nil :emphasize nil :link nil :narrow '40! :indent t :formula nil :timestamp nil :level nil :tcolumns nil :formatter nil) "Default properties for clock tables." plist org-clock-clocktable-formatter 'org-clocktable-write-default "Function to turn clocking data into a table.\nFor more information, see `org-clocktable-write-default'." org-clock-clocktable-language-setup '(("en" "File" "L" "Timestamp" "Headline" "Time" "ALL" "Total time" "File time" "Clock summary at") ("es" "Archivo" "N" "Fecha y hora" "Tarea" "Tiempo" "TODO" "Tiempo total" "Tiempo archivo" "Clock summary at") ("fr" "Fichier" "N" "Horodatage" "En-tête" "Durée" "TOUT" "Durée totale" "Durée fichier" "Horodatage sommaire à ") ("nl" "Bestand" "N" "Tijdstip" "Hoofding" "Duur" "ALLES" "Totale duur" "Bestandstijd" "Clock summary at")) "Terms used in clocktable, translated to different languages." alist org-clock-clocktable-default-properties '(:maxlevel 2 :scope file) "Default properties for new clocktables.\nThese will be inserted into the BEGIN line, to make it easy for users to\nplay with them." org-clock-idle-time "When non-nil, resolve open clocks if the user is idle more than X minutes." (choice (const :tag "Never" nil) (integer :tag "After N minutes")) org-clock-auto-clock-resolution 'when-no-clock-is-running "When to automatically resolve open clocks found in Org buffers." (choice (const :tag "Never" nil) (const :tag "Always" t) (const :tag "When no clock is running" when-no-clock-is-running)) org-clock-report-include-clocking-task "When non-nil, include the current clocking task time in clock reports." org-clock-resolve-expert "Non-nil means do not show the splash buffer with the clock resolver." org-clock-continuously "Non-nil means to start clocking from the last clock-out time, if any." org-clock-total-time-cell-format "*%s*" "Format string for the total time cells." org-clock-file-time-cell-format "Format string for the file time cells." org-clock-clocked-in-display 'mode-line "When clocked in for a task, org-mode can display the current\ntask and accumulated time in the mode line and/or frame title.\nAllowed values are:\n\nboth displays in both mode line and frame title\nmode-line displays only in mode line (default)\nframe-title displays only in frame title\nnil current clock is not displayed" (choice (const :tag "Mode line" mode-line) (const :tag "Frame title" frame-title) (const :tag "Both" both) (const :tag "None" nil)) org-clock-frame-title-format '(t org-mode-line-string) "The value for `frame-title-format' when clocking in.\n\nWhen `org-clock-clocked-in-display' is set to 'frame-title\nor 'both, clocking in will replace `frame-title-format' with\nthis value. Clocking out will restore `frame-title-format'.\n\n`org-frame-title-string' is a format string using the same\nspecifications than `frame-title-format', which see." sexp] 11) #@179 Hook run when preparing the clock. This hook is run before anything happens to the task that you want to clock in. For example, you can use this hook to add an effort property. (defvar org-clock-in-prepare-hook nil (#$ . 12142)) #@35 Hook run when starting the clock. (defvar org-clock-in-hook nil (#$ . 12378)) #@43 Hook run when stopping the current clock. (defvar org-clock-out-hook nil (#$ . 12462)) #@45 Hook run when cancelling the current clock. (defvar org-clock-cancel-hook nil (#$ . 12555)) #@57 Hook run when selecting the currently clocked-in entry. (defvar org-clock-goto-hook nil (#$ . 12653)) #@59 Has the clock been used during the current Emacs session? (defvar org-clock-has-been-used nil (#$ . 12761)) (defvar org-mode-line-string "") (put 'org-mode-line-string 'risky-local-variable t) (defvar org-clock-mode-line-timer nil) (defvar org-clock-idle-timer nil) (defvar org-clock-heading-for-remember "") (defvar org-clock-start-time "") #@73 If non-nil, user cancelled a clock; this is when leftover time started. (defvar org-clock-leftover-time nil (#$ . 13109)) #@49 Effort estimate of the currently clocking task. (defvar org-clock-effort "" (#$ . 13237)) #@126 Holds total time, spent previously on currently clocked item. This does not include the time in the currently running clock. (defvar org-clock-total-time nil (#$ . 13334)) #@50 List of marker pointing to recent clocked tasks. (defvar org-clock-history nil (#$ . 13512)) #@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) (#$ . 13612)) #@77 Marker pointing to the task that has been interrupted by the current clock. (defvar org-clock-interrupted-task (make-marker) (#$ . 13822)) (defvar org-clock-mode-line-map (make-sparse-keymap)) (byte-code "\301\302\303#\210\301\304\305#\207" [org-clock-mode-line-map define-key [mode-line mouse-2] org-clock-goto [mode-line mouse-1] org-clock-menu] 4) (defalias 'org-clock-menu #[nil "\300\301!\207" [popup-menu ("Clock" ["Clock out" org-clock-out t] ["Change effort estimate" org-clock-modify-effort-estimate t] ["Go to clock entry" org-clock-goto t] ["Switch task" (lambda nil (interactive) (org-clock-in '(4))) :active t :keys "C-u C-c C-x C-i"])] 2 nil nil]) #@37 Push a marker to the clock history. (defalias 'org-clock-history-push #[(&optional pos buffer) "\306\307^]\310 \206 `\311\n\206 p!\223\312\211 \235\211\203, \f@\312\211\223\210\202 \313\312\314\315\"\"\211G\211Y\203K \316 \317#\237\233\237 B\211+\207" [org-clock-history-length pos buffer l n m 1 35 make-marker org-base-buffer nil delq mapcar #[(x) "\301!\205 \207" [x marker-buffer] 2] - -1 org-clock-history] 6 (#$ . 14492)]) #@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\306 \n#\210\307\310 \"\207" [org-clock-marker beg end org-clock-hd-marker org-clock-default-task org-clock-interrupted-task org-check-and-save-marker mapc #[(m) "\303 \n#\207" [m beg end org-check-and-save-marker] 4] org-clock-history] 4 (#$ . 14957)]) #@72 Return the clocking buffer if we are currently clocking a task or nil. (defalias 'org-clocking-buffer #[nil "\301!\207" [org-clock-marker marker-buffer] 2 (#$ . 15371)]) #@32 Return t when clocking a task. (defalias 'org-clocking-p #[nil "\300 \301\232?\207" [org-clocking-buffer nil] 2 (#$ . 15548)]) #@63 Hook called in task selection just before prompting the user. (defvar org-clock-before-select-task-hook nil (#$ . 15681)) #@59 Select a task that recently was associated with clocking. (defalias 'org-clock-select-task #[(&optional prompt) "\306\211\307\306\310 \311\216\312\313\314!!\210\315 \210\316 !\203- \317\320\306\321\322$c\210\323\324 \"\211 B\316(!\203F \317\325\306\321\322$c\210\323\326(\"\211 B\327 \203] \317\330\306\321\322$c\210\323\331)\"\211 B\317\332\306\321\322$c\210\333\334*\"\210\335\336!\210\337 \210\340+\206y \341!\210\342 \211\343=\203\210 \306\202\245 \n\344=\203\222 \306\202\245 \345\n \"\203\241 \345\n \"A\202\245 \346\347\n\".\207" [s i rpl sel-list #1=#:wconfig org-clock-default-task nil 0 current-window-configuration ((set-window-configuration #1#)) org-switch-to-buffer-other-window get-buffer-create "*Clock Task Select*" erase-buffer marker-buffer org-add-props "Default Task\n" face bold org-clock-insert-selection-line 100 "The task interrupted by starting the last one\n" 105 org-clocking-p "Current Clocking Task\n" 99 "Recent Tasks\n" mapc #[(m) "\305!\2051 T\306 \307W\203 \310\\\202 \311\\\"\312\313!\203, \n\211\313\n@!\240\210)\n\fB\211\207" [m i s #2=#:v sel-list marker-buffer org-clock-insert-selection-line 10 48 55 fboundp int-to-char] 4] run-hooks org-clock-before-select-task-hook org-fit-window-to-buffer message "Select task for clocking:" read-char-exclusive 113 120 assoc error "Invalid task choice %c" org-clock-interrupted-task org-clock-marker org-clock-history prompt] 6 (#$ . 15809) nil]) #@136 Insert a line for the clock selection menu. And return a cons cell with the selection character integer and the marker pointing to it. (defalias 'org-clock-insert-selection-line #[(i marker) "\306!\2058 \307\211\211\211\211 r\310\306!!q\210\212\214~\210\307\311\312\217\210+\f\2057 \2057 \313\314 \f $c\210 B-\207" [marker prefix heading task cat file marker-buffer nil org-base-buffer (byte-code "b\210\306\307!!\310 \311\312!\212\313\314!\210\315\f!\210\316\317!)\320 P\" G\321O\321\207" [marker file cat heading org-outline-regexp prefix buffer-file-name marker-buffer org-get-category org-get-heading notags org-back-to-heading t looking-at match-string 0 org-fontify-like-in-org-mode nil org-odd-levels-only task] 3) ((error)) format "[%c] %-15s %s\n" i] 5 (#$ . 17271)]) #@69 Internal flag indicating if the clock has overrun the planned time. (defvar org-clock-task-overrun nil (#$ . 18075)) #@59 Number of seconds between mode line clock string updates. (defvar org-clock-update-period 60 (#$ . 18198)) #@208 Form a clock-string, that will be shown in the mode line. If an effort estimate was defined for the current item, use 01:30/01:50 format (clocked/estimated). If not, show simply the clocked time like 01:50. (defalias 'org-clock-get-clock-string #[nil "\306 \307\310\" \310_Z \203c \311 ! \307\f\310\" \f \310_Z \312\313 \n#\314\2038 \2048 \315\2029 \316# \313 # \312\317 \320\321\322\323 #\324\260\314\316# \313 \".\202r \312\313\325\326Q \n $\314\316#+\207" [clocked-time h m org-clock-effort effort-in-minutes effort-h org-clock-get-clocked-time floor 60 org-duration-string-to-minutes org-propertize format face org-mode-line-clock-overrun org-mode-line-clock " [%s/" "] (" replace-regexp-in-string "%" "%%" ")" "[" " (%s)]" effort-m org-time-clocksum-format org-clock-task-overrun org-clock-task-overrun-text work-done-str effort-str org-clock-heading clockstr] 8 (#$ . 18312)]) (defalias 'org-clock-update-mode-line #[nil "\203\n \306 \210\202\f \307\310\311 \312\f\313V\203- G\fV\203- \310 \313\fO\314\n\315 Q#\2022 \310 \314\n#*\316\317\320% \203O \203O \310\321\322#P\323 \207" [org-clock-effort org-clock-task-overrun help-text clock-string org-clock-string-limit org-clock-heading org-clock-notify-once-if-expired nil org-propertize org-clock-get-clock-string "Org-mode clock is running.\nmouse-1 shows a menu\nmouse-2 will jump to task" 0 help-echo ": " local-map mouse-face mode-line-highlight face org-mode-line-clock-overrun force-mode-line-update org-clock-mode-line-map org-mode-line-string org-clock-task-overrun-text] 7]) #@142 Get the clocked time for the current item in minutes. The time returned includes the time spent on this task in previous clocking intervals. (defalias 'org-clock-get-clocked-time #[nil "\303\304 \304!Z\305\"\211\n\206 \306\\)\207" [org-clock-start-time currently-clocked-time org-clock-total-time floor org-float-time 60 0] 5 (#$ . 19905)]) #@346 Add to or set the effort estimate of the item currently being clocked. VALUE can be a number of minutes, or a string with format hh:mm or mm. When the string starts with a + or a - sign, the current value of the effort property will be changed by that amount. This will update the "Effort" property of currently clocked item, and the mode line. (defalias 'org-clock-modify-effort-estimate #[(&optional value) "\305 \203n \306 \204 \307\310\311\n\203 \310\312\"\202 \313\"! ;\203W \314 !\211\315\235\203: \316\n! \317\306O\202< \320\316 ! \321\232\203M \n Z\202W \322\232\203W \n \\\320 ]\323 !\324\f\325#\210\326 \210\327\330\"*\207\327\331!\207" [org-clock-effort sign current value org-clock-marker org-clock-is-active nil read-string format "Set effort (hh:mm or mm%s): " ", prefix + to add to %s" "" string-to-char (45 43) org-duration-string-to-minutes 1 0 45 43 org-minutes-to-hh:mm-string org-entry-put "Effort" org-clock-update-mode-line message "Effort is now %s" "Clock is not currently active"] 7 (#$ . 20256) nil]) #@46 Shows if we have shown notification already. (defvar org-clock-notification-was-shown nil (#$ . 21309)) #@100 Show notification if we spent more time than we estimated before. Notification is shown only once. (defalias 'org-clock-notify-once-if-expired #[nil "\306 \2056 \307!\310 \211?\206 \311\n!?\205 \nY\211\2032 \f?\2055 \312\313\314\315 #\312\"\2025 \316\211*\207" [org-clock-effort clocked-time effort-in-minutes org-clock-task-overrun org-clock-notification-was-shown org-clock-heading org-clocking-p org-duration-string-to-minutes org-clock-get-clocked-time zerop t org-notify format "Task '%s' should be finished by now. (%s)" nil] 6 (#$ . 21420)]) #@43 Send a NOTIFICATION and maybe PLAY-SOUND. (defalias 'org-notify #[(notification &optional play-sound) "\302!\210 \205\n \303 \207" [notification play-sound org-show-notification org-clock-play-sound] 2 (#$ . 21985)]) #@123 Show notification. Use `org-show-notification-handler' if defined, use libnotify if available, or fall back on a message. (defalias 'org-show-notification #[(notification) "\302!\203\n !\207;\203 \303\304\305 $\207\306\307!\203& \307\310\311\312 \313\314&\207\315\316!\2033 \303\304\305\316 $\207\317\320 \"\207" [org-show-notification-handler notification functionp start-process "emacs-timer-notification" nil fboundp notifications-notify :title "Org-mode message" :body :urgency low executable-find "notify-send" message "%s"] 7 (#$ . 22210)]) #@84 Play sound as configured by `org-clock-sound'. Use alsa's aplay tool if available. (defalias 'org-clock-play-sound #[nil "?\2066 \302=\203 \303\302!\210\303\302!\207;\2056 \304!\305 !\2055 \306\307!\2031 \310\311\312\307 $\2025 \312\313\314\217)\207" [org-clock-sound file t beep expand-file-name file-exists-p executable-find "aplay" start-process "org-clock-play-notification" nil (play-sound-file file) ((error (byte-code "\300\301!\210\300\301!\207" [beep t] 2)))] 5 (#$ . 22770)]) #@56 Information for the mode line about the running clock. (defvar org-clock-mode-line-entry nil (#$ . 23268)) #@57 Search through the given file and find all open clocks. (defalias 'org-find-open-clocks #[(file) "\303!\206 \304!\305r\nq\210\212eb\210\306\307\305\310#\203- \311\312\225\310\"\313\314\312!!B B\202 * *\207" [file clocks buf get-file-buffer find-file-noselect nil re-search-forward "CLOCK: \\(\\[.*?\\]\\)$" t copy-marker 1 org-time-string-to-time match-string] 4 (#$ . 23381)]) #@50 Return t if CLOCK is the currently active clock. (defalias 'org-is-active-clock #[(clock) "\302 \205 @U\207" [org-clock-marker clock org-clock-is-active] 2 (#$ . 23772)]) (put 'org-is-active-clock 'byte-optimizer 'byte-compile-inline-expand) #@56 Evaluate FORMS with CLOCK as the current active clock. (defalias 'org-with-clock-position '(macro . #[(clock &rest forms) "\302\303\304DD\305\306\307\310\304DD\311 BBBBDE\207" [clock forms with-current-buffer marker-buffer car save-excursion save-restriction (widen) goto-char (beginning-of-line)] 8 (#$ . 24023)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put org-with-clock-position edebug-form-spec (form body) lisp-indent-function 1] 4) #@126 Evaluate FORMS with CLOCK as the current active clock. This macro also protects the current active clock from being altered. (defalias 'org-with-clock '(macro . #[(clock &rest forms) "\302\303\304\305DD\306\307\310\311\312DD\313BBBBB BBE\207" [clock forms org-with-clock-position let org-clock-start-time cdr (org-clock-total-time) (org-clock-history) (org-clock-effort) org-clock-marker car ((org-clock-hd-marker (save-excursion (outline-back-to-heading t) (point-marker))))] 10 (#$ . 24489)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put org-with-clock edebug-form-spec (form body) lisp-indent-function 1] 4) #@96 Clock in to the clock located by CLOCK. If necessary, clock-out of the currently active clock. (defalias 'org-clock-clock-in #[(clock &optional resume start-time) "r\304@!q\210\212\214~\210@b\210\305 \210 \206 \n\306\307 \",\207" [clock resume org-clock-in-resume start-time marker-buffer beginning-of-line org-clock-in nil] 3 (#$ . 25126)]) (put 'org-clock-clock-in 'byte-optimizer 'byte-compile-inline-expand) #@42 Clock out of the clock located by CLOCK. (defalias 'org-clock-clock-out #[(clock &optional fail-quietly at-time) "\306@\307@!\"\310 \205 \n@U)\203! \311\312 \f#\210\202T r\313@!q\210\212\214~\210@b\210\314 \210A\312\211\211@\212\315\316!\210\317 ) \311\312 \f#\210. \240)\207" [clock temp org-clock-marker fail-quietly at-time org-clock-hd-marker copy-marker marker-insertion-type org-clock-is-active org-clock-out nil marker-buffer beginning-of-line outline-back-to-heading t point-marker org-clock-effort org-clock-history org-clock-total-time org-clock-start-time] 7 (#$ . 25548)]) (put 'org-clock-clock-out 'byte-optimizer 'byte-compile-inline-expand) #@36 Cancel the clock located by CLOCK. (defalias 'org-clock-clock-cancel #[(clock) "\306@\307@!\"\310 \205 \n@U)\203 \311 \210\202L r\312@!q\210\212\214~\210@b\210\313 \210A\314\211\211@\212\315\316!\210\317 ) \311 \210. \240)\207" [clock temp org-clock-marker org-clock-hd-marker org-clock-effort org-clock-history copy-marker marker-insertion-type org-clock-is-active org-clock-cancel marker-buffer beginning-of-line nil outline-back-to-heading t point-marker org-clock-total-time org-clock-start-time] 7 (#$ . 26232)]) (put 'org-clock-clock-cancel 'byte-optimizer 'byte-compile-inline-expand) (defvar org-clock-clocking-in nil) (defvar org-clock-resolving-clocks nil) (defvar org-clock-resolving-clocks-due-to-idleness nil) #@119 Resolve `CLOCK' given the time `RESOLVE-TO', and the present. `CLOCK' is a cons cell of the form (MARKER START-TIME). (defalias 'org-clock-resolve-clock #[(clock resolve-to clock-out-time &optional close-p restart-p fail-quietly) "\306 \204\223 \n\307\n@\310\n@!\"\n\311 \205 \f\n@U)\203& \312 \210\202V r\313\n@!q\210\212\214~\210\n@b\210\314 \210\nA\315\211\211\n@\212\316\306!\210\317 ) \312 \210. \n \240*\210 \205 ?\205\n\315\211 r\313\n@!q\210\212\214~\210\n@b\210\314 \210 \206\207 \320\315 \".\202 \321=\203Q \203\242 \322\323!\210!\204\254 \203\n\"\315 # \"\307\n@\310\n@!\"\n\311 \205\311 \f\n@U)\203\330 \324\315\"##\210\202 r\313\n@!q\210\212\214~\210\n@b\210\314 \210\nA\315\211\211\n@\212\316\306!\210\317 ) \324\315\"##\210. \n \240,\202\n\311 \205 \f\n@U)?\205\n\306\315 r\313\n@!q\210\212\214~\210\n@b\210\314 \210 \206E \320\315 \".\202\325 \326 \"\204_\322\327!\202 \203h\322\323!\210\n\"$\206q # \"\307\n@\310\n@!\"\n\311 \205\212\f\n@U)\203\231\324\315\"##\210\202\316r\313\n@!q\210\212\214~\210\n@b\210\314 \210\nA\315\211\211\n@\212\316\306!\210\317 ) \324\315\"##\210. \n \240,\210 ?\205!\203\353$?\205\345 \211%\202\n\315$\205\363 r\313\n@!q\210\212\214~\210\n@b\210\314 \210 \206 \320\315 \".)\207" [org-clock-resolving-clocks resolve-to clock temp org-clock-marker org-clock-hd-marker t copy-marker marker-insertion-type org-clock-is-active org-clock-cancel marker-buffer beginning-of-line nil outline-back-to-heading point-marker org-clock-in now error "RESTART-P is not valid here" org-clock-out time-less-p current-time "RESOLVE-TO must refer to a time in the past" org-clock-effort org-clock-history org-clock-total-time org-clock-start-time restart-p org-clock-clocking-in start-time resume org-clock-in-resume close-p fail-quietly at-time clock-out-time org-clock-leftover-time] 7 (#$ . 26983)]) (defalias 'org-clock-jump-to-current-clock #[(&optional effective-clock) "\304 \206 \nB \306 @!\204 \307\310!\210r\306 @!q\210\212\214~\210 @b\210\311 \210 A\312\211\211 @\212\313\314!\210\315 ) \316 \210. r\306 @!q\210 @b\210\f\205h \f;\203` \317\f\317Q\202a \320 \312\321\322\217)+\207" [effective-clock org-clock-marker org-clock-start-time clock org-clock-into-drawer org-clock-hd-marker marker-buffer error "No clock is currently running" beginning-of-line nil outline-back-to-heading t point-marker org-clock-goto ":" ":LOGBOOK:" (byte-code "\301\212\302\303!\210\304!\210\305\224b)\212\302\303!\210\304!\210\304\306!\210\305\225b)\307#\207" [logbook outline-flag-region outline-back-to-heading t search-forward 0 ":END:" nil] 4) ((error)) org-clock-effort org-clock-history org-clock-total-time logbook] 7 nil nil]) #@805 Resolve an open org-mode clock. An open clock was found, with `dangling' possibly being non-nil. If this function was invoked with a prefix argument, non-dangling open clocks are ignored. The given clock requires some sort of user intervention to resolve it, either because a clock was left dangling or due to an idle timeout. The clock resolution can either be: (a) deleted, the user doesn't care about the clock (b) restarted from the current time (if no other clock is open) (c) closed, giving the clock X minutes (d) closed and then restarted (e) resumed, as if the user had never left The format of clock is (CONS MARKER START-TIME), where MARKER identifies the buffer and position the clock is open at (and thus, the heading it's under), and START-TIME is when the clock was started. (defalias 'org-clock-resolve #[(clock &optional prompt-fn last-valid fail-quietly) "\204\n \306\307\300C\"\210\310 \311\216\212\n\204 \312!\210 \204P \f r\313\314!q\210p\315 \210 \316\21189\317\211:\317 ; <\320 \210\321\322!\210+\211 = >\323\324!\210\325=!\210+\326\327\314!!\210\316\211 ?\203g ?\330>\204w \331 \210\332@!\333P\316\334#\211?\202Z ?\335>?\205\201 ?, A\336\337\340\341 B\"!\342\245! CA\343>\205\236 \344\345C\" DA\346>\205\254 \344\347C\" EA\350> F\337B!\337A!Z\334W GF\205\310 G HA\351>\203\351 A\352=\203\343 \353\354\316\317\316I&\210\312!\202\201A\203\365 A\355>\204\373 \356\357!\202\201\353A\360=\204 H\203 \316\202hF\204 E\203#E\361U\203#B\202hD\2030DCU\204=E\203AECU\203A\354\202hD\203S\362B\363D\342_!\"\202hE\203e\340\341 \363E\342_!\"\202h\364\365!E\205oBA\366>H\205}A\367>?I&.\207" [clock #1=#:wconfig org-clock-resolving-clocks-due-to-idleness org-clock-resolve-expert default-directory #2=#:old-dir signal cl-assertion-failed current-window-configuration ((set-window-configuration #1#)) org-clock-jump-to-current-clock get-buffer-create "*Org Clock*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "Select a Clock Resolution Command:\n\ni/q/C-g Ignore this question; the same as keeping all the idle time.\n\nk/K Keep X minutes of the idle time (default is all). If this\n amount is less than the default, you will be clocked out\n that many minutes after the time that idling began, and then\n clocked back in at the present time.\ng/G Indicate that you \"got back\" X minutes ago. This is quite\n different from 'k': it clocks you out from the beginning of\n the idle period and clock you back in X minutes ago.\ns/S Subtract the idle time from the current clock. This is the\n same as keeping 0 minutes.\nC Cancel the open timer altogether. It will be as though you\n never clocked in.\nj/J Jump to the current clock, to make manual adjustments.\n\nFor all these options, using uppercase makes your final state\nto be CLOCKED OUT." internal-temp-output-buffer-show org-fit-window-to-buffer get-buffer-window (107 75 103 71 115 83 67 106 74 105 113) ding read-char " [jkKgGSscCiq]? " 45 (105 113) floor org-float-time time-subtract current-time 60 (107 75) read-number "Keep how many minutes? " (103 71) "Got back how many minutes ago? " (115 83) (106 74) 74 org-clock-resolve-clock now (107 75 103 71 115 83 67) message "" 67 0 time-add seconds-to-time error "Unexpected, please report this as a bug" (75 71 83) (75 71 83 67) buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #3=#:buf standard-output char-pressed prompt-fn ch last-valid default keep gotback subtractp barely-started-p start-over fail-quietly] 8 (#$ . 29788)]) #@152 Resolve all currently open org-mode clocks. If `only-dangling-p' is non-nil, only ask to resolve dangling (i.e., not currently open and valid) clocks. (defalias 'org-resolve-clocks #[(&optional only-dangling-p prompt-fn last-valid) "?\205\\ \306\307 \310\211\205[ \n@\311 !\211\310 \211\203R \n@\312 ?\206- \f@ U? \2039 \203J \313\f\206A \314\206H \fA#\210)\nA\211\204 +\nA\211\204 \310+\207" [org-clock-resolving-clocks file --dolist-tail-- clocks clock org-clock-marker t org-files-list nil org-find-open-clocks org-clock-is-active org-clock-resolve #[(clock) "\301\302\303\304\305 !\304A!Z\306\245!\"\207" [clock format "Dangling clock started %d mins ago" floor org-float-time current-time 60] 6] dangling only-dangling-p prompt-fn last-valid] 5 (#$ . 33509) "P"]) #@68 Return the current Emacs idle time in seconds, or nil if not idle. (defalias 'org-emacs-idle-seconds #[nil "\301 \211\203 \302!\202 \303)\207" [idle-time current-idle-time org-float-time 0] 3 (#$ . 34306)]) #@46 Return the current Mac idle time in seconds. (defalias 'org-mac-idle-seconds #[nil "\300\301\302!!\207" [string-to-number shell-command-to-string "ioreg -c IOHIDSystem | perl -ane 'if (/Idle/) {$idle=(pop @F)/1000000000; print $idle; last}'"] 3 (#$ . 34523)]) (defvar org-x11idle-exists-p (byte-code "\301=\205 \302\303\304\211\211\305\306&\307=\205 \302\306\304\211\211$\307=\207" [window-system x call-process-shell-command "command" nil "-v" "x11idle" 0] 7)) #@46 Return the current X11 idle time in seconds. (defalias 'org-x11-idle-seconds #[nil "\300\301\302!!\303\245\207" [string-to-number shell-command-to-string "x11idle" 1000] 3 (#$ . 34995)]) #@104 Return the number of seconds the user has been idle for. This routine returns a floating point number. (defalias 'org-user-idle-seconds #[nil "\303=\203 \304 \207 \305=\203 \n\203 \306 \207\307 \207" [system-type window-system org-x11idle-exists-p darwin org-mac-idle-seconds x org-x11-idle-seconds org-emacs-idle-seconds] 2 (#$ . 35189)]) #@183 Resolve all currently open org-mode clocks. This is performed after `org-clock-idle-time' minutes, to check if the user really wants to stay clocked in after being idle for so long. (defalias 'org-resolve-clocks-if-idle #[nil "\205+ ?\205+ \n\205+ \306 \307\310 \311 !\" \312 \313_V\205* \314\nB\315\f#+\207" [org-clock-idle-time org-clock-resolving-clocks org-clock-marker org-clock-user-idle-seconds org-clock-user-idle-start org-clock-resolving-clocks-due-to-idleness org-user-idle-seconds time-subtract current-time seconds-to-time t 60 org-clock-resolve #[(clock) "\301\302\303\304\305 \"!\306\245\"\207" [org-clock-user-idle-start format "Clocked in & idle for %.1f mins" org-float-time time-subtract current-time 60.0] 6] org-clock-start-time] 4 (#$ . 35540)]) #@28 Task currently clocked in. (defvar org-clock-current-task nil (#$ . 36322)) #@64 Set `org-clock-current-task' to the task currently clocked in. (defalias 'org-clock-set-current #[nil "\301\302 8\211\207" [org-clock-current-task 4 org-heading-components] 2 (#$ . 36404)]) #@40 Reset `org-clock-current-task' to nil. (defalias 'org-clock-delete-current #[nil "\301\211\207" [org-clock-current-task nil] 2 (#$ . 36601)]) (defvar org-clock-out-time nil) #@634 Start the clock on the current item. If necessary, clock-out of the currently active clock. With a prefix argument SELECT (\[universal-argument]), offer a list of recently clocked tasks to clock into. When SELECT is \[universal-argument] \[universal-argument], clock into the current task and mark it as the default task, a special task that will always be offered in the clocking selection, associated with the letter `d'. When SELECT is \[universal-argument] \[universal-argument] \[universal-argument], clock in by using the last clock-out time as the start time (see `org-clock-continuously' to make this the default behavior.) (defalias 'org-clock-in #[(&optional select start-time) "\302\303 \304\"\210\305\306\215\207" [org-clock-notification-was-shown org-effort-property nil org-refresh-properties org-effort abort (byte-code "?\205 \306 \307\211\211\310 ?\205 \n @ A BC\203= B\203+ C\311=\203= D\204= \204= \307\311 D\312 \210)E\313\232\203N \311 F\314\307G\"\210)E\315\232\203k \316\317!\211@\203g \320@!@\202k \321\322!\210E\323\232\203u \324 \210B\203\331 \212@\204\204 \325\311!\210\326H!@\203\224 \326@!\202\225 p\232\205\265 \327H!@\203\251 \327@!\202\252 `U\205\265 I\330\331 8\232)\203\304 \332\333J\"\210\334\335\307\"\210K\327L!\326L!\223\210\311 D\336\307\311\"\210)m\203\350 \337 \204\350 \340\341!\202\351 `\212@\203\n\326@!\203\n\342\326@!!q\210\327@!@\307\211\223\210\212\214~\210 b\210\325\311!\210B\204 K\307\211\223\210\212\307u\210\343\344!\210\345 \210)\346 \210\347M!\203P\350N!\210M\351\352!!\211 O\203L\353O!\210)\202fM\203f\350P\354M\355R!\204f\353M!\210\350N!\205y\330\225\205y\356\357\225\330\225{!QR\203\215\347R!\203\215R \202\245\350N!\203\244\351\330!\203\244\360\361\362\351\330!#\202\245\363J\364J\365\307#J\366S!\210S\203\367\350\367T\370\371R!\203\367\332\372\351\357!\"\210\373\351\357!\374QA\357\225b\210\375\376\377\351\357!!\"U\201b `V\"W\201c \201d !X\202\256S\201e =\203\332\201f !\210\201g \210\201h \352!\210\334\335\307\"\210\202\256\201i \201j !\210\201k u\210\201l \210\212\341\210\201m )\203H\201n \357!\210\201o \201p \352Z!\210T\201q \261\210\201b `V\"W\201c \201d !XF\203mG\206\236 \203\225\201r \201s \201t \201u \201v !\201u !Z\201w \245\"!\203\225 \206\236Y\206\236\201v U\201x U\201y \201z #AL`\201{ \223\210H\212\325\311!\210`)\201{ \223\210\311Z[\201| =\204\333[\201} =\203\371\\\204\345\201~ \\\201 \\>\204\371\201\200 \\\201\201 \"\\[\201\202 =\204 [\201} =\203]^\201\203 \210_\203#\201\204 _!\210\307_[\2034\201\205 `\211\201\203 #_a\203C\201\204 a!\210\307a\201\205 \201w \211\201\206 #a\332\201\207 A\f#\210\343\201\210 !. \207" [org-clock-resolving-clocks-due-to-idleness org-clock-resolving-clocks org-clock-leftover-time leftover msg-extra target-pos org-clocking-p nil #1="" t org-resolve-clocks (64) org-clock-in (4) org-clock-select-task "Clock-in on task: " copy-marker error "Abort" (16) org-clock-mark-default-task org-back-to-heading marker-buffer marker-position 4 org-heading-components message "Clock continues in \"%s\"" throw abort org-clock-out org-at-heading-p point-at-bol 0 org-base-buffer run-hooks org-clock-in-prepare-hook org-clock-history-push org-clock-set-current functionp looking-at match-string 2 org-todo "[ ]*" "\\>" org-trim 1 replace-regexp-in-string "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1" "???" org-propertize face org-clock-find-position "^[ ]*" " \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+.? +[012][0-9]:[0-5][0-9]\\)\\][ ]*$" "Matched %s" "[" "]" apply encode-time org-parse-time-string selected-task ts interrupting org-clock-auto-clock-resolution org-clock-clocking-in select org-clock-continuously org-clock-out-time org-clock-hd-marker org-clock-current-task org-clock-heading org-clock-interrupted-task org-clock-marker org-clock-in-switch-to-state org-complex-heading-regexp newstate org-outline-regexp org-clock-heading-for-remember org-clock-heading-function org-clock-in-resume org-clock-string org-clock-start-time org-effort-property org-clock-effort org-clock-total-time start-time org-clock-has-been-used org-clock-clocked-in-display global-mode-string org-clock-frame-title-format frame-title-format org-clock-mode-line-timer org-clock-update-period org-clock-idle-timer org-entry-get org-clock-sum-current-item org-clock-get-sum-start auto-restart "Cannot restart clock because task does not contain unfinished clock" ding sit-for insert-before-markers "\n" -1 org-indent-line org-in-item-p beginning-of-line org-indent-line-to org-get-indentation " " y-or-n-p format "You stopped another clock %d mins ago; start this one from then? " org-float-time current-time 60 org-insert-time-stamp with-hm inactive buffer-base-buffer mode-line both (#1#) org-mode-line-string append (org-mode-line-string) frame-title org-clock-update-mode-line cancel-timer run-with-timer org-resolve-clocks-if-idle "Clock starts at %s - %s" org-clock-in-hook] 7)] 3 (#$ . 36783) "P"]) #@430 Clock in the last closed clocked item. When already clocking in, send an warning. With a universal prefix argument, select the task you want to clock in from the last clocked in tasks. With two universal prefix arguments, start clocking using the last clock-out time, if any. With three universal prefix arguments, interactively prompt for a todo state to switch to, overriding the existing value `org-clock-in-switch-to-state'. (defalias 'org-clock-in-last #[(&optional arg) "\306\232\203 \307\310 !\207 \204 \311\232\203 \n\206 \312 \202 \312 \f\204+ \313\314!\202\216 \204I \315\232\203I \316\317\f\205E r\320\f@!q\210)\"\202K \f@C\321 r\320@!q\210\212\214~\210@b\210\322 \210\206u \307\321 \".\210\206\215 \313\323 \324\320!!#*)\207" [arg org-clock-continuously org-clock-out-time start-time org-clock-history org-clock-current-task (4) org-clock-in org-clock-select-task (16) current-time message "No last clock" (64) completing-read "Switch to state: " marker-buffer nil beginning-of-line "Clocking back: %s (in %s)" buffer-name org-todo-keywords-1 org-clock-in-switch-to-state already-clocking resume clock org-clock-in-resume org-clock-marker] 6 (#$ . 41846) "P"]) #@36 Mark current task as default task. (defalias 'org-clock-mark-default-task #[nil "\212\301\302!\210`\303\223)\207" [org-clock-default-task org-back-to-heading t nil] 3 (#$ . 43064) nil]) #@321 Return the time from which clock times should be counted. This is for the currently running clock as it is displayed in the mode line. This function looks at the properties LAST_REPEAT and in particular CLOCK_MODELINE_TOTAL and the corresponding variable `org-clock-mode-line-total' and then decides which time to use. (defalias 'org-clock-get-sum-start #[nil "\306\307\310\"\206\n \311!\306\307\312\"\211\313\232\203 \314\315 \202\205 \n\316\232\203J \317\320\315 ! \321\322\211\211E\323\f\233\" \203B \fAA\211 \240\210)\324\325\f\")\202\205 \n\326\232\204^ \n\203Z \n\327\232\203d \204d \330\307\202\205 \n\331\232\204x \n\203t \n\327\232\203\204 \203\204 \332 \205\205 \333 !\202\205 \307*\207" [org-clock-mode-line-total lr cmt msg-extra dt org-extend-today-until org-entry-get nil "CLOCK_MODELINE_TOTAL" symbol-name "LAST_REPEAT" "current" "showing time in current clock instance" current-time "today" "showing today's task time." decode-time append 0 3 apply encode-time "all" "auto" "showing entire task time." "repeat" "showing task time since last repeat." org-time-string-to-time #1=#:c] 5 (#$ . 43258)]) #@177 Find the location where the next clock line should be inserted. When FIND-UNCLOSED is non-nil, first check if there is an unclosed clock line and position cursor in that line. (defalias 'org-clock-find-position #[(find-unclosed) "\300\301!\210\302\303\215\207" [org-back-to-heading t exit (byte-code "\300 \212\306\307!\210n\204 \310 \210`)\311 \210`\312 P \313 ;\203& \202' \314 %\315\211 & '\315 ( b\210)\203O \316\312 \317\320R\n\321#\203O \306\322!\210\323\324\321\"\210m\203Z \310 \210`\n]\316\325%\326Q\n\321#\203\201 \306\307!\210*\204| \316+\315\321#\203| \313\224b\210\323\324\321\"\210 b\210\316\f\n\321#\203\237 &\206\223 \313\224&\313\224' T\202\204 \250\203 '\203 TY\203 'b\210\327 (\306\307!\210\327 (Y\203\341 \330 \203\341 \327 (Y\203\341 \330 \203\341 \331 ,\332,!b\210)\333c\210\306\313!\210\334(!\210&b\210\326%\335\261\210\306\313!\210\336 \210\337\321!\210\306\307!\210*\204\316+\315\321#\203\313\224b\210\323\324\315\"\210 b\210\340\341-P!\203@\342\322! \232\204@\306\307!\210n\204!\310 \210\202!\321=\204V;\204V\250\205\203\307W\205\203\326%\343\261\210\306\344!\210\336 \210\337\321!\210\306\307!\210\336 \210\306 \210*\206\203\316+\315\321#\205\203\313\224b. \207" [org-clock-into-drawer beg end org-clock-string re cnt beginning-of-line 2 newline outline-next-heading "^[ ]*" 0 "LOGBOOK" nil re-search-forward " \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}" " *\\sw+ +[012][0-9]:[0-5][0-9]\\)\\][ ]*$" t 1 throw exit "^[ ]*:" ":" org-get-indentation org-at-item-p org-list-struct org-list-get-bottom-point ":END:\n" org-indent-line-to ":\n" org-indent-line org-flag-drawer looking-at "[ ]*" match-string ":\n:END:\n" -1 drawer first last ind-last find-unclosed org-log-states-order-reversed org-property-end-re struct org-keyword-time-regexp] 6)] 2 (#$ . 44394)]) #@249 Stop the currently running clock. Throw an error if there is no running clock and FAIL-QUIETLY is nil. With a universal prefix, prompt for a state to switch the clocked out task to, overriding the existing value of `org-clock-out-switch-to-state'. (defalias 'org-clock-out #[(&optional switch-to-state fail-quietly at-time) "\300\301\215\207" [exit (byte-code "\306 \204 \307\310\" \311 \210 \203 \312\313\314\"\210\202 \315\316!\210\f\2035 \317\320r\321 !q\210@)\322\314\323%\2027 A\324 \322\211\211\211\211\211 B C D E F G H AHI\212\325 q\210\214~\210 b\210\326\327!\210\330\331JP!\203| \332\327!K\232\203| \332\333!G\202\214 \203\210 \312\313\322\"\210\202\214 \334\335!\210\336\225b\210`\337 |\210\340c\210\341L\206\240 H\342\343#F\344\345\346\347F!\"!\344\345\346\347G!\"!ZE\350E\351\245!DED\351_ZE\350E\352\245!CE\211\352_ZE\353\354\355DC#\261\210M\205\362 DC\\\336U\211B\203\326\327!\210`\337 |\210\330\356!\203d`TV\203\357\327!\210 \322\211\223\210N\322\211\223\210O\2031\360\361\322\211\211\211\362\363\314!\364Q&\210P\203>\365P!\210\322PQ\203K\365Q!\210\322Q\307\310\" A\203\232\212\366\314!\210\314\322 R S\367A!\203\203\330T!\210A\332\333!!\211 U\203\370U!\210)\202\231A\203\231\330V\331A\371R!\204\231\370A!\210+\311 \210\372\373W\374QFDCB\203\262\375\202\263\376%\210\377\201X !\210\306 ?\205\305\201Y .\n\207" [global-mode-string org-frame-title-format-backup frame-title-format fail-quietly switch-to-state org-clock-marker org-clocking-p delq org-mode-line-string force-mode-line-update throw exit t user-error "No active clock" completing-read "Switch to state: " marker-buffer nil "DONE" current-time org-clocking-buffer beginning-of-line 1 looking-at "[ ]*" match-string 2 error "Clock start time is gone" 0 point-at-eol "--" org-insert-time-stamp with-hm inactive org-float-time 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 org-back-to-heading functionp org-todo "\\>" message "Clock stopped at %s after HH:MM = " "%s" " => LINE REMOVED" "" run-hooks org-todo-keywords-1 org-clock-out-switch-to-state remove m h s te ts now org-clock-out-time org-keyword-time-regexp org-clock-string at-time org-clock-out-remove-zero-time-clocks org-clock-hd-marker org-log-note-clock-out org-clock-mode-line-timer org-clock-idle-timer org-clock-out-when-done org-inhibit-logging org-complex-heading-regexp newstate org-outline-regexp org-time-clocksum-format org-clock-out-hook org-clock-delete-current] 10)] 2 (#$ . 46252) "P"]) (add-hook 'org-clock-out-hook 'org-clock-remove-empty-clock-drawer) #@51 Remove empty clock drawer in the current subtree. (defalias 'org-clock-remove-empty-clock-drawer #[nil "\304`\305\"\206 \211\306=\203 \307\202 \212\310\306\211\")\n\205C \212\311\306!\210` W\205B \312\n \306#\205B \313\224b\210\314\n`\"\210\315y\210\202% )+\207" [org-log-into-drawer olid clock-drawer end org-entry-get "LOG_INTO_DRAWER" t "LOGBOOK" org-end-of-subtree org-back-to-heading search-forward 0 org-remove-empty-drawer-at 1] 5 (#$ . 48971)]) #@38 Increase CLOCK timestamps at cursor. (defalias 'org-clock-timestamps-up #[nil "\300\301!\207" [org-clock-timestamps-change up] 2 (#$ . 49438) nil]) #@38 Increase CLOCK timestamps at cursor. (defalias 'org-clock-timestamps-down #[nil "\300\301!\207" [org-clock-timestamps-change down] 2 (#$ . 49592) nil]) #@95 Change CLOCK timestamps synchronously at cursor. UPDOWN tells whether to change 'up or 'down. (defalias 'org-clock-timestamps-change #[(updown) "\306\307\310!\205\303 \311=\203 \312\202 \313\306\211\211\211\211\211 ! \"\212\314\315!\210\316#\306\310#\210\317\320!!\320\224 \316#\306\310#\203H \317\320!\320\224)\f`X\203Q \310 \204[ \" \202\301 \" \210 \203g \202i ! \203r \202s \f $ %\321\322&!\322%!\"\212$b\210\323\324\325\n!\326=\203\226 \327\202\273 \330=\203\240 \331\202\273 \332=\203\252 \333\202\273 \334=\203\264 \335\202\273 \336=\205\273 \337\245!\301#+.\207" [org-ts-what updown tdiff updatets1 begts2 ts2 nil org-at-timestamp-p t up org-timestamp-up org-timestamp-down move-beginning-of-line 1 re-search-forward match-string 0 subtract-time org-time-string-to-time org-timestamp-change round org-float-time minute 60 hour 3600 day 86400 month 2678400 year 31553280.0 begts1 ts1 tschange org-ts-regexp3 begts ts org-last-changed-timestamp] 7 (#$ . 49750)]) #@59 Cancel the running clock by removing the start timestamp. (defalias 'org-clock-cancel #[nil "\306 \204 \307\310\" \311 \210\312\313!\210\212\314 q\210 b\210\315\316\f\317Q!\2033 \320 S\321 |\210\322\323`\"\210\202; \324\325!\210\326\327!\210) \330\211\223\210 \330\211\223\210\307\310\" \311 \210\324\331!\210\332\333!\207" [global-mode-string org-frame-title-format-backup frame-title-format org-clock-marker org-clock-string org-clock-hd-marker org-clocking-p delq org-mode-line-string force-mode-line-update error "No active clock" org-clocking-buffer org-looking-back "^[ ]*" ".*" point-at-bol point-at-eol org-remove-empty-drawer-at "LOGBOOK" message "Clock gone, cancel the timer anyway" sit-for 2 nil "Clock canceled" run-hooks org-clock-cancel-hook] 4 (#$ . 50759) nil]) #@144 Go to the currently clocked-in entry, or to the most recently clocked one. With prefix arg SELECT, offer recently clocked tasks for selection. (defalias 'org-clock-goto #[(&optional select) "\306 \203 \307\310!\2065 \311\312!\2025 \313 \203 \n\2025 \2032 \f@\2032 \314\f@!\2032 \315\f@\2025 \311\316! \317\314 !!\210 eW\204H dV\203J ~\210 b\210\320 \210\321\315!\210\322\323!\210\324 \210\325 \210\203f \326\327!\210\330\331!*\207" [recent select org-clock-marker org-clock-goto-may-find-recent-task org-clock-history m nil org-clock-select-task "Select task to go to: " error "No task selected" org-clocking-p marker-buffer t "No active or recent clock task" org-pop-to-buffer-same-window org-show-entry org-back-to-heading org-cycle-hide-drawers children recenter org-reveal message "No running clock, this is the most recently clocked task" run-hooks org-clock-goto-hook] 3 (#$ . 51553) "@P"]) #@72 Holds the file total time in minutes, after a call to `org-clock-sum'. (defvar org-clock-file-total-minutes nil (#$ . 52463)) (make-variable-buffer-local 'org-clock-file-total-minutes) #@43 Sum the times for each subtree for today. (defalias 'org-clock-sum-today #[(&optional headline-filter) "\302\303!\304@\211A@)\305\306$)\207" [range x org-clock-special-range today org-clock-sum nil :org-clock-minutes-today] 6 (#$ . 52654) nil]) #@459 Sum the times for each subtree. Puts the resulting times in minutes as a text property on each headline. TSTART and TEND can mark a time range to be considered. HEADLINE-FILTER is a zero-arg function that, if specified, is called for each headline in the time range with point at the headline. Headlines for which HEADLINE-FILTER returns nil are excluded from the clock summation. PROPNAME lets you set a custom text property instead of :org-clock-minutes. (defalias 'org-clock-sum #[(&optional tstart tend headline-filter propname) "\306\307 \310\211\311\n\312Q\313 \314\f\315\" \315\211 , -\316\211 . /\316\211 0 12;\2031 \3172!23;\203= \3173!32:\203I \3202!23:\203U \3203!3\321ed4\206^ \322\323B#\210\212db\210\324 \316\310#\203\375\325\225\203\324 \326\325!.\326\327!/\320\330\331\332.!\"!.\320\330\331\332/!\"!/2\203\240 .2]\202\242 ..3\203\261 /3^\202\263 /\211/.Z\2110\315V\203\315 ,\3330\334\245!\\\202\317 ,,\202f \335\225\203\356 \336,\337\326\340!!\337\326\335!!\334_#,\202f 5\2035\341 p\232\2035\3426!`\232\20352\20353\2035\3207!2Y\2035\3207!3X\2035\333\320 \3207!Z\334\" 1,1\\,)\343`\344\" 89?\206L\212\345 :\346\2169 + ;\347\225\347\224Z-,\315V\204e -H\315V\203\371;\204o8\203\326;\203\231\315 <- =<=X\203\230 < <H,\\I\210<T\211<\202}* -H1\315\224b\210\350`\351 4\206\255\3221$\2109\203\326\212\345 :\352\216> \347V\203\325\353\347\310\"\210\350`\351 \344\310$\210\202\275+\315,- <\fS ?<?X\203\370 <\315I\210<T\211<\202\343**\202f \315H@.\f!\207" [inhibit-modification-hooks buffer-undo-list org-clock-string re lmax ltimes set-buffer-modified-p buffer-modified-p t "^\\(\\*+\\)[ ]\\|^[ ]*" "[ ]*\\(?:\\(\\[.*?\\]\\)-+\\(\\[.*?\\]\\)\\|=>[ ]+\\([0-9]+\\):\\([0-9]+\\)\\)" 30 make-vector 0 nil org-time-string-to-seconds org-float-time remove-text-properties :org-clock-minutes (t :org-clock-force-headline-inclusion t) re-search-backward 2 match-string 3 apply encode-time org-parse-time-string floor 60 4 + string-to-number 5 org-clocking-buffer marker-position get-text-property :org-clock-force-headline-inclusion match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 1 put-text-property point-at-eol ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) outline-up-heading t1 level ts te dt time tstart tend propname org-clock-report-include-clocking-task org-clock-hd-marker org-clock-start-time headline-forced headline-filter save-match-data-internal headline-included l #1=#:--cl-var-- outline-level #2=#:--cl-var-- org-clock-file-total-minutes] 9 (#$ . 52910) nil]) #@48 Return time, clocked on current item in total. (defalias 'org-clock-sum-current-item #[(&optional tstart) "\212\214\302 \210\303!\210 *\207" [tstart org-clock-file-total-minutes org-narrow-to-subtree org-clock-sum] 2 (#$ . 55592)]) #@194 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. Use \[org-clock-remove-overlays] to remove the subtree times. (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)\203t \321\322\323Q\n\324_ \\\325\245\n $\202 \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)" 60.0 60.0 org-clock-file-total-minutes org-remove-highlights-with-change org-time-clocksum-use-fractional org-time-clocksum-fractional-format org-time-clocksum-format] 6 (#$ . 55832) nil]) (defvar org-clock-overlays nil) (make-variable-buffer-local 'org-clock-overlays) #@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!\203& \"\202( #\313Q $\311 %\314\211 & '\315!\210l\204A \316\314x\210\317\314x\210\320\321 \322 \"&\321 `{\323%\311iZ]\\\324\"\325!\203z \326$\323 \327\"\n\330_ \\\331\245\323\332 Z\333\"$\202\212 \326$\323 \327\"\n \323\332 Z\333\"%\334\335D\"\336R'\337&\340'#\210&(B\211(.\207" [c time h m level l 60 floor org-get-valid-level 0 "%s " "%s" nil org-move-to-column "^ " " " make-overlay point-at-bol point-at-eol make-string 46 org-add-props format 42 60.0 60.0 16 32 face org-clock-overlay "" overlay-put display org-time-clocksum-use-fractional org-time-clocksum-fractional-format org-time-clocksum-format fmt off ov tx org-clock-overlays] 12 (#$ . 56924)]) #@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 delete-overlay nil remove-hook before-change-functions org-clock-remove-overlays local] 4 (#$ . 57959) 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 "\306 \205R \205R \307 !\205R \310=\203 \n \235\204& <\205R \n\235\205R \311\312 !\206/ \312 \311p!\2066 p\232\205R ` W\205R \212\313 \210`) V\205R \314\211 \315 *\207" [org-clock-out-when-done org-clock-marker org-state org-done-keywords org-clock-out-switch-to-state org-log-note-clock-out org-clocking-p marker-buffer t buffer-base-buffer org-clocking-buffer outline-next-heading nil org-clock-out] 3 (#$ . 58438)]) (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-clock-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 (#$ . 59179)]) #@381 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. The scope of the new clock will be subtree when called from within a subtree, and file elsewhere. When called with a prefix argument, move to the first clock table in the buffer and update it. (defalias 'org-clock-report #[(&optional arg) "\303 \210\203 \304\305!\210\306 \210\307 \203 \307 b\210\2025 \310\311\312\217\203) \313\305\314\315F\202, \313\305D\316\317\n \"!\210)\320 \207" [arg props org-clock-clocktable-default-properties org-clock-remove-overlays org-find-dblock "clocktable" org-show-entry org-in-clocktable-p nil (byte-code "\212\300 )\207" [org-back-to-heading] 1) ((error)) :name :scope subtree org-create-dblock org-combine-plists org-update-dblock] 4 (#$ . 59924) "P"]) #@44 Returns the day of the week as an integer. (defalias 'org-day-of-week #[(day month year) "\303\304\305\306\307 \n$!!8\207" [year month day 6 decode-time date-to-time format "%d-%02d-%02dT00:00:00"] 8 (#$ . 60813)]) #@67 Get the date (week day year) of the first day of a given quarter. (defalias 'org-quarter-to-date #[(quarter year) "\303 \304U\203E \305\304\211\n#\211\306U\203 \307\310\nSE\202\333 \311U\203* \307\311\nSE\202\333 \312X\2037 \304\nE\202\333 \312V\205\333 \313\nSE\202\333 \314U\203x \305\304\312\n#\211\306U\203^ \315\nE\202\333 \312W\203k \316\nE\202\333 \312Y\205\333 \315\nE\202\333 \317U\203\253 \305\304\310\n#\211\306U\203\221 \320\nE\202\333 \312W\203\236 \321\nE\202\333 \312Y\205\333 \320\nE\202\333 \312U\205\333 \305\304\322\n#\211\306U\203\304 \323\nE\202\333 \312X\203\321 \324\nE\202\333 \312V\205\333 \323\nE)\207" [startday quarter year nil 1 org-day-of-week 0 52 7 6 4 53 2 13 14 3 26 27 10 39 40] 5 (#$ . 61035)]) #@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 A\317\n8 B\320! C\312 D\315\n8\321Y\203F \315\202g \315\n8\322Y\203R \314\202g \315\n8\315Y\203^ \313\202g \315\n8\323Y\205g \323 E\324\211 F G\324\211 H I\324\211 J K\324\211 L M\324\211 N O\324\211 P Q\324\211 R S\324\211 T U\324\211 V W\325\326C\"\203\267 \327C!A\323\211@\330\202\260\325\331C\"\203\331 \327\332\323C\"!A\327\332\313C\"!\323@\333\202\260\325\334C\"\203\335\336!\210\327\332\323C\"!A\327\332\313C\"!Q\337\340Q\323AE!!\211RA@@R@\313R8A\323B\341\202\260\325\342C\"\203]\335\336!\210\327\332\323C\"!A\327\332\313C\"!E\337\340\343EA\"!!\211RA@@R@\313R8A\323B\344\202\260\325\345C\"\203\205\327\332\323C\"!A\327\332\313C\"!\327\332\314C\"!@\346\202\260\325\347C\"\203\260\327\332\323C\"!D\306C\312\323\224O!\211\350>\203\260D\312V\203\260\351\352!\210D\312U\203\372\353=\203\305\354\355D\202\372\356=\203\323\341\355D\202\372\357=\203\341\333\355D\202\372\360=\203\357\330\355D\202\372\361=\203\372\344\355D\362>\203@D\\@\312\211\363H\312G\202?\364>\203CD\365_B\312U\203)\317\202,BS\\L\312\211@LZ@\322@\\I\202?\366>\203g\323@\312\211\323ID\\\211TJ\312\211HG\202?\367>\203 ESD\\\312W\203\335ESD\\[S\370S\315\"\211TA@\312U\203\241AT@ZU\323\211VW\202\274AT@TZU\371TA@\314_ZV\316TA@ZW\323@\312\211\323IV\314V\\J\312\211HGUA\202?ED\\\312V\203?ED\\WAU\323@\312\211\323IED\\S\314_T\315ED\\S\314_\\J\312\211HG\202?\372>\203:\312\211\323\211@AD\\\211ATK\202?\351\373\"\210\374 \f @A&M\374F\206T G\206Z\fH\206` I\206g@J\206nK\206uA&NXAO\375>\203\216\376\377M\"P\202\342\201Z >\203\242\376\201[ M\"P\202\342\201\\ >\203\266\376\201] M\"P\202\342\201^ >\203\312\376\201_ M\"P\202\342\201` >\203\342\201a W!\201b \307U!QPY\203\371\376OM\"\376ON\"PE\202 MNPE. \207" [key time tm s m h intern number-to-string decode-time current-time 0 2 3 4 5 6 symbol-name 10 7 1 nil string-match "^[0-9]+$" string-to-number 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]+\\)-[qQ]\\([1-4]\\)$" org-quarter-to-date quarter "^\\([0-9]+\\)-\\([0-9]\\{1,2\\}\\)-\\([0-9]\\{1,2\\}\\)$" day "\\([-+][0-9]+\\)$" (quarter thisq) error "Looking forward with quarters isn't implemented" yesterday today -1 lastweek lastmonth lastyear lastq (day today) 24 (week thisweek) -7 (month thismonth) (quarter thisq) org-floor* 13 (year thisyear) "No such time block %s" encode-time (day today) format-time-string "%A, %B %d, %Y" d y dow skey shift q s1 m1 h1 d1 month1 y1 diff ts te fm txt w date interval tmp shiftedy shiftedm shiftedq org-time-stamp-formats as-strings (week thisweek) "week %G-W%V" (month thismonth) "%B %Y" (year thisyear) "the year %Y" (quarter thisq) org-count-quarter " quarter of "] 8 (#$ . 61802)]) (defalias 'org-count-quarter #[(n) "\301U\203 \302\207\303U\203 \304\207\305U\203 \306\207\307U\205 \310\207" [n 1 "1st" 2 "2nd" 3 "3rd" 4 "4th"] 2]) #@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!\202\376\315\224\315\225\316\315! \317\211 8\317\211 9 :\317\211 ; <\317\211 = >\317 ?\f\320\232\203M \321\202v \f\322\232\203X \323\202v \f\324\232\203c \325\202v \f\326\232\203n \327\202v \f\330\232\203v \331\332\333\f\"\203\255 \316\315\f\"\334\225\203\220 \335\316\334\f\"!\202\221 \336\2118\\\2118\336U\203\242 \202\250 \337\340 8#9\202\340\332\341\f\"\203\334\335\316\315\f\"!:\342\225\205\305 \316\342\f\">\343\225\205\322 \335\316\343\f\"!;\344\225\205\337 \335\316\344\f\"!\211<\203\373 \345\346\347\336\211\211<\\?:&\"9\202\340>\203@\332\350>\"\203@;\203@>G\336V\203@\351\352!\210\353\354;\\\315:E!!=\345\355\347\336\211\211=A@=@\334=8&\"9\202\340>\203\262\332\356>\"\203\262;\203\262>G\336V\203\262\351\352!\210;\\\343V\203o\336;:T:;\\\336U\203\200\357;:S:\353\354\360;\\:\"!!=\345\361:!\362\361;\\!Q\347\336\211\211=A@=@\334=8&\"9\202\340;\203\314\345\363\347\336\211\211\315;\\:&\"9\202\340:\203\340\361:\\!9\202\340\313\364!\2109\205\374\nb\2109c\210`` \nZ\\|\210\365\315!\210\366 \210\367.\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" "lastq" "thisq-1" string-match "^\\(today\\|thisweek\\|thismonth\\|thisyear\\|thisq\\)\\([-+][0-9]+\\)?$" 2 string-to-number 0 format "%s%+d" "\\([0-9]+\\)\\(-\\([wWqQ]?\\)\\([0-9]\\{1,2\\}\\)\\(-\\([0-9]\\{1,2\\}\\)\\)?\\)?" 3 4 6 format-time-string "%Y-%m-%d" encode-time "w\\|W" require cal-iso calendar-gregorian-from-absolute calendar-absolute-from-iso "%G-W%V" "q\\|Q" 5 org-quarter-to-date number-to-string "-Q" "%Y-%m" "Cannot shift clocktable block" beginning-of-line org-update-dblock t shift ins y mw d date wp m] 11 (#$ . 65653)]) #@32 Write the standard clocktable. (defalias 'org-dblock-write:clocktable #[(params) "\302 \"\303\304\215\207" [org-clocktable-defaults params org-combine-plists exit (byte-code "\306\307\"\306\310\"\306\311\"\306\312\" \306\313\" \306\314\"\206! \315 4\306\316\" 5\306\317\" 6\306\320\"\206< 7\206< \321 8\322\211 9 :\322\211 ; <\322\211 = >\322\211 ? @\n\203o \323\n\322\324#\2119@9A@\32598:5\203\215 \n\204\204 \203\200 \f\204\204 \326\327!\210\330!\210\331\332\322\"\210`;`< \203\251 <\203\251 @9\203\251 \333 !\202\326 \334=\203\266 \335\324!\202\326 \336=\203\307 \335\324!\337 !\202\326 \340=\203\326 \337\341 C!\324= \205\334 <\211>\203 A\322 %\342A!\210A\211AA@\211%\203r\343%!q\210\212\214\344%\"?B?+\202\355 *\202q\214\342\341 C!\210 \203g \345=\203+~\210\202g \346=\2037\347 \210\202g \350=\203H\351 \204=\347 \210\202g 9\203g\352\353\354 !\"\203g\355\356\357\354 !\"!@\332\360\215\210\347 \210\344\322\"?B?)?\237?\361\362>#\361\363=#8;?#.\207" [params scope block ts te link plist-get :scope :block :tstart :tend :link :maxlevel 3 :step :timestamp :formatter org-clocktable-write-default nil org-clock-special-range t 2 error "Clocktable `:step' can only be used with `:block' or `:tstart,:end'" org-clocktable-steps throw exit eval agenda org-agenda-files agenda-with-archives org-add-archive-files file-with-archives buffer-file-name org-agenda-prepare-buffers find-buffer-visiting org-clock-get-table-data 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" [org-outline-regexp outline-level level org-up-heading-safe looking-at org-reduced-level throw exit nil] 3) plist-put :multifile :one-file-with-archives maxlevel step timestamp org-clock-clocktable-formatter formatter cc range-text ipos pos one-file-with-archives scope-is-list tbls level files] 6)] 3 (#$ . 68154)]) #@237 Write out a clock table at position IPOS in the current buffer. TABLES is a list of tables with clocking data as produced by `org-clock-get-table-data'. PARAMS is the parameter property list obtained from the dynamic block definition. (defalias 'org-clocktable-write-default #[(ipos tables params) "\306\307\310 \311\"\206 \n \" \310 \312\" \310 \313\" @\310 \314\" A\310 \315\" B\310 \316\" C\310 \317\" D\310 \320\" E\310 \321\"\206? \322 F\310 \323\" G\310 \324\" H\310 \325\" I\310 \326\" J\327\310 \330\"\206b \331] K\310 \332\" L\310 \333\" M\334 N\335\211 O P\335\211 Q R\335\211 S T\335\211 U V\335\211 W X\335\211 Y Z\335\211 [ \\\335 ]\310 \336\"\203\271 \335R\334MD\206\264 \337D\327KK\250\204\310 \340 \330\331\211K#D\203\345 D\250\203\345 E\203\345 \341\342!\210\343\344\345D\"!DD\203D\250\204D9\203\346\347\350D!\"\203\334\\\351\350D!\352\353O!D\202\354\355D\"\210@\203&\356\357@\335\334#8O\360\361\362\363^\"\"P_b\210\364C\206X\365\f8\366\367`A!\327\353O\370@\203T\371O\372Q\202U\373\374\260!\210D\203\242D\250\203\242\\\204\242\364\375 \203t\375\202u\373H\203~\375\202\373I\203\210\375\202\211\373J\203\227\376JG\377\"\202\230\373\344\201f D\"&\210\364\375 \203\260\fA@\375P\202\261\373H\203\276\356\f8\375P\202\277\373I\203\314\322\f8\375P\202\315\373J\203\341\201g \201h J\375#\375P\202\342\373\201i \f8\375\201j \f8\201k R&\210\364\201l \375 \203\f\201m \201n \f8\201o Q\202 \373H\203\375\202\373I\203 \375\202!\373J\203/\376JG\377\"\2020\373\344a\201p \f8\"\201m P\344a\201q P\206I\352!\"\201k & \210P\203\304P\352V\203\304^\211A^@\211Q\203\304QA@\211V\203{V\352V\204\204\310 \201r \"\204]\364\201l !\210 \203\332\364\344\201s \344b\201t \f8\"\201u Q\201v Q@!H\203\262\201m \202\263\373I\203\276\201m \202\277\373J\203\315\376JG\377\"\202\316\373\201q QA@!&!\210\356Q8WW\211AW@\211X\203]X@RXA@YG\203\n\307R\"A\206 \373\202 \373S\\\203O\346\201w c\201x QY\"\203E\322\225\203E\344\201y \201z \327Y\"\201{ \201z \322Y\"D\"#Y\202O\201{ YD\"Y\364\375 \203Y\375\202Z\373H\203j\344\201| X@\"\202k\373I\203y\356X8\375P\202z\373J\203\216\201g \201} J\375#\375P\202\217\373M\203\235\201~ R!\202\236\373SYS\375\376KSRS^\377\"S\201q \322X8!S\201k &\210\202\340\335 d\201 \327!\210)\310 \201\200 \"\211T\203rT\201\201 =\203U\361\356 \203\355\327\202\356\352H\203\367\327\202\370\352I\203\327\202\352FK\206\n\331^%U\361\356 \203\327\202\352H\203\"\327\202#\352I\203,\327\202-\352$]\344\201\202 UD\203D\\\204D\322\202E\356]\211US&c\210\334Z\202\243T;\203i\201\203 T\261\210\334Z\202\243\354\201\204 !\210\202\243\310 \201\205 \"\211[;\203\243\346\201\206 [\"\203\243\334Z\201\207 \201z \327\310 \201\205 \"\"\261\210\201\210 \352!\210_b\210\201\211 \335w\210\201\212 \210e\203\274\201\212 \210Z\203\364T\201\201 =\203\354\212D\203\333\\\204\333\201\210 \356!\210\201\213 U\335\201\214 #\210\201\215 c\210)\201\216 \201\217 !\210L\203\327u\210\201\220 \210P.!\207" [hlchars params org-export-default-language org-clock-clocktable-language-setup lwords multifile ((1 . "*") (2 . "/")) assoc plist-get :lang :multifile :block :tstart :tend :header :narrow :link :maxlevel 3 :emphasize :level :timestamp :properties 1 :tcolumns 100 :one-file-with-archives :indent t nil :compact 40! plist-put message "Using hard narrowing in clocktable to allow for links" intern format "%d!" string-match "\\`[0-9]+!\\'" symbol-name string-to-number 0 -1 error "Invalid value %s of :narrow property in clock table" 2 org-clock-special-range apply + mapcar cadr insert-before-markers 9 " [" format-time-string "]" ", for " "." #1="" "\n\n" "|" make-string 124 block ts te header narrow link maxlevel emph level-p timestamp properties ntcol rm-file-column indent case-fold-search range-text total-time tbl level hlc formula pcol file-time entries entry headline recalc content narrow-cut-p tcol tables ipos org-time-stamp-formats org-clock-total-time-cell-format org-clock-file-time-cell-format org-bracket-link-regexp delete-active-region org-hide-emphasis-markers "<%d>| |\n" mapconcat identity 4 5 "|\n" "|-\n" "| " 6 " " 7 org-minutes-to-hh:mm-string :fileskip0 "| %s %s | %s%s" 8 " | *%s*|\n" file-name-nondirectory "\\`" "\\'" "[[%s][%s]]" match-string org-shorten-string "%d|" #[(p) "\302\303 8\"A\206 \304\207" [p entry assoc 4 #1#] 4] org-clocktable-indent-string backward-delete-char :formula % "\n#+TBLFM: $%d='(org-clock-time%% @%d$%d $%d..$%d);%%.1f" "\n#+TBLFM: " "Invalid formula in clocktable" :content "^\\([ ]*#\\+tblfm:.*\\)" "\n" beginning-of-line "^|" org-table-align org-table-goto-column force "%" org-table-recalculate all org-table-delete-column] 17 (#$ . 70198)]) (defalias 'org-clocktable-indent-string #[(level) "\302U\203 \303\207\304\305V\203 S \306P\202\n \307P)\207" [level str 1 "" "\\__" 2 "___" " "] 2]) #@58 Step through the range to make a number of clock tables. (defalias 'org-clocktable-steps #[(params) "\306!\307 \310\"\307 \311\"\307 \312\" \313\f\314\"A \307 \315\" ,\307 \316\" -\317\211 . /\317 0-\203I \320-\317\321#\211.@.A@\322.8/\n\247\203\217 \323\n!\211 1G\324U\203d 1\211A1@\202l \325\326\3171GD\" 21\211A1@ #1@ 3\327\330\331\211\211#23&!,\202\234 \n\203\234 \327\332\330\333\n!\"! \247\203\342 \323 !\211 4G\324U\203\267 4\211A4@\202\277 \325\326\3174GD\" 24\211A4@ #4@ 3\327\330\331\211\211#23&!,\202\357 \203\357 \327\332\330\333 !\"!\334 \335\336#\334 \312\317#\334 \316\317#\n W\205jn\204\337c\210\334 \310\340\341\317\321\"\342\n!\"#\334 \311\340\341\317\321\"\342\n \\\211!\"#\337\f\343=\2039\344\202:\345\307 \310\"\337\261\210\346 !0\347\350!\2100\331\232\203d,\203d\351 \212\352\353\317\321#\210`)|\210\331\210\202.\n\207" [params p1 ts te step0 step copy-sequence plist-get :tstart :tend :step assoc ((day . 86400) (week . 604800)) :stepskip0 :block nil org-clock-special-range t 2 calendar-gregorian-from-absolute 3 signal wrong-number-of-arguments org-float-time encode-time 0 apply org-parse-time-string plist-put :header "" "\n" format-time-string org-time-stamp-format seconds-to-time day "Daily report: " "Weekly report starting on: " org-dblock-write:clocktable re-search-forward "^[ ]*#\\+END:" point-at-bol re-search-backward "^\\(Daily\\|Weekly\\) report" stepskip0 block cc range-text step-time #1=#:--cl-rest-- month year #2=#:--cl-rest--] 9 (#$ . 75201)]) #@1084 Get the clocktable data for file FILE, with parameters PARAMS. FILE is only for identification - this function assumes that the correct buffer is current, and that the wanted restriction is in place. The return value will be a list with the file name and the total file time (in minutes) as 1st and 2nd elements. The third element of this list will be a list of headline entries. Each entry has the following structure: (LEVEL HEADLINE TIMESTAMP TIME) LEVEL: The level of the headline, as an integer. This will be the reduced leve, so 1,2,3,... even if only odd levels are being used. HEADLINE: The text of the headline. Depending on PARAMS, this may already be formatted like a link. TIMESTAMP: If PARAMS require it, this will be a time stamp found in the entry, any of SCHEDULED, DEADLINE, NORMAL, or first inactive, in this sequence. TIME: The sum of all time spend in this tree, in minutes. This time will of cause be restricted to the time block and tags match specified in PARAMS. (defalias 'org-clock-get-table-data #[(file params) "\306\307\"\206 \310\306\311\"\306\312\"\306\313\" \306\314\" \306\315\" 8\306\316\" 9\306\317\" :\306\320\" ;\321 <9\205B \3229!A =\321\211 > ?\321\211 @ A\321\211 B C\321\211 D E\321\211 F G\321H \203~ \323 \321\324#\211>@>A@\325>8? \250\203\207 \326 !\f\250\203\220 \326\f! \203\245 <\203\245 \327\330\325 8 @ A@$\f\203\272 \f<\203\272 \327\330\325\f8\f@\fA@$ \203\307 \331\332\333\334 !\"!\f\203\324 \331\332\333\334\f!\"!\212\335 \f=\205\336 \336#\210eb\210\324@o\203 @\321@\203 \337`\340\"\203 e\211A\204\n\341`\340\"\211A\203\262Ab\210\337A\340\"\211B\203\346 \212\342\343!\210\344\345!\203\256\346\343\225\343\224Z!\211C\203\256C X\203\2568\204C\347\325!\202Y\350\327\351\352 \353 I\354\216\355\347\325!!*#\347\325!\"D\n\205\205\356`!E\357\360E\"A\206\205\357\361E\"A\206\205\357\362E\"A\206\205\357\363E\"AF:\205\224\364\321\365\366:\"\"EB\367V\203\256CDFBE\257GBG)\202\346 G\237GJHGE.\207" [params maxlevel timestamp ts te block plist-get :maxlevel 3 :timestamp :tstart :tend :block :link :tags :properties :inherit-props nil org-make-tags-matcher org-clock-special-range t 2 calendar-gregorian-from-absolute format "%4d-%02d-%02d" org-float-time apply encode-time org-parse-time-string org-clock-sum #[nil "\304 \211\305\306 !+\207" [tags-list org-scanner-tags org-trust-scanner-tags matcher org-get-tags-at t eval] 3] get-text-property :org-clock-minutes next-single-property-change beginning-of-line 1 looking-at "\\(\\*+\\)[ ]+\\(.*?\\)\\([ ]+:[[:alnum:]_@#%:]+:\\)?[ ]*$" org-reduced-level match-string org-make-link-string "file:%s::%s" buffer-file-name match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-make-org-heading-search-string org-entry-properties assoc "SCHEDULED" "DEADLINE" "TIMESTAMP" "TIMESTAMP_IA" remove mapcar #[(p) "\302` #\205 \302` #B\207" [p inherit-property-p org-entry-get] 5] 0 link tags properties inherit-property-p todo-only matcher cc range-text st p time level hdl props tsp tbl org-clock-file-total-minutes save-match-data-internal file] 8 (#$ . 76756)]) #@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 (#$ . 80042)]) #@28 Was the clock file loaded? (defvar org-clock-loaded nil (#$ . 80956)) #@73 If this is a CLOCK line, update it and return t. Otherwise, return nil. (defalias 'org-clock-update-time-maybe #[nil "\212\306\307!\210\310\311w\210\312!\205\270 \313\314\315R\311\211\211\211\211\211 # $\312$!\204. \311\202\266 \316\225\204Z \317%!p\232\205\266 %`V\205\266 %\320 X\205\266 \321\322\323\324\307!!\"&\325 \202\266 \326\225\203e \326\224\326\225|\210\307\210\324\307!#\324\327!\330\321\322\323 !\"!\330\321\322\323#!\"!Z\211\331W\332\n!\333\n\334\245!\n\f\334_Z\333\n\335\245!\n\211\335_Z\336\337 \203\256 \340\202\257 \341\f #\261\210\342.)\207" [org-clock-string neg s m h te beginning-of-line 1 " " nil looking-at "[ ]*" " *[[<]\\([^]>]+\\)[]>]\\(-+[[<]\\([^]>]+\\)[]>]" "\\([ ]*=>.*\\)?\\)?" 2 marker-buffer point-at-eol apply encode-time org-parse-time-string match-string org-clock-update-mode-line 4 3 org-float-time 0 abs floor 3600 60 " => " format "-%d:%02d" "%2d:%02d" t ts re org-clock-marker org-clock-start-time] 8 (#$ . 81032) nil]) #@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\221 \204 \n\204 \306 !?\205\221 \307 r\310\311 !!q\210ed|\210\312\313 \314#A!#c\210\315>\203r \316 \211\203r \317\f!\206@ \f\211\203r \320\f!\203r \321\f!\203r $\203b \322\323\324%!\325Q!\203r \326\321\316 !\327\330\331&!!\332\261\210\333>\203\212 '\203\212 \334\335\336\337'!\340#\332\261\210\341 \210\342p!*\207" [org-clock-persist org-clock-loaded org-clock-has-been-used org-clock-persist-file b system-name file-exists-p nil find-file expand-file-name format ";; org-persist.el - %s at %s\n" format-time-string (t clock) org-clocking-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 history) "(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-time-stamp-formats org-clock-persist-query-save org-clock-heading org-clock-marker org-clock-history] 6 (#$ . 82029)]) #@67 Load clock-related data from disk, maybe resuming a stored clock. (defalias 'org-clock-load #[nil "\205\241 ?\205\241 \306\n!\307\310\211 !\311!!\204\" \312\313\n\"\202\240 \312\314\315\"\210\316\317!!\210 \203> \320 \"\321\216\322\323 \"\210*\f\205\240 \205\240 \324\f@!\205\240 #\203u \325\326r\327\f@!q\210\212\fAb\210\330\316!\210\331$!\205n \332\333!*\334Q!\205\240 \324\f@!\205\240 r\327\f@!q\210\fAb\210\310 %\335 \210\310 &\336&\206\227 `\337\")\205\237 \340 *,\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 current-window-configuration ((set-window-configuration #1=#:wconfig)) mapc #[(task) "\301@!\205 \302A\303@!\"\207" [task file-exists-p org-clock-history-push find-file] 4] file-exists-p y-or-n-p "Resume clock (" find-file org-back-to-heading looking-at match-string 4 ") " org-clock-in get-char-property invisible org-show-context filename #1# org-clock-persist-query-resume org-complex-heading-regexp org-clock-auto-clock-resolution pos] 4 (#$ . 83392)]) (byte-code "\301\302\303#\210\304\305!\207" [org-mode-map org-defkey "" org-clock-modify-effort-estimate provide org-clock] 4)