Current File : //usr/local/share/emacs/27.2/lisp/org/org-clock.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require cl-lib org] 2)
(defvar org-frame-title-format-backup nil)
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\306\316\306\301\317\320\321\322\323\324&
\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 funcall function #[0 "\300\207" [t] 1] "Non-nil when clocking info should be wrapped into a drawer.\n\nWhen non-nil, clocking info will be inserted into the same drawer\nas log notes (see variable `org-log-into-drawer'), if it exists,\nor \"LOGBOOK\" otherwise. If necessary, the drawer will be\ncreated.\n\nWhen an integer, the drawer is created only when the number of\nclocking entries in an item reaches or exceeds this value.\n\nWhen a string, it becomes the name of the drawer, ignoring the\nlog notes drawer altogether.\n\nDo not check directly this variable in a Lisp program. Call\nfunction `org-clock-into-drawer' instead." org-todo :version "26.1" :package-version (Org . "8.3") :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..."))] 14)
#@232 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.
Return value is either a string, an integer, or nil.
(defalias 'org-clock-into-drawer #[0 "\302\303\304\305\306$\211\307\267\202 \303\202V \310 \206V \311\202V \312!\2039 \313\303\306\314#)\266\203\2035 \315!\202V \211\202V \312 !\206V \250\203H \202V \204P \303\202V \310 \206V \311\207" [inhibit-changing-match-data org-clock-into-drawer org-entry-get nil "CLOCK_INTO_DRAWER" inherit t #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("nil" 12 "t" 16)) org-log-into-drawer "LOGBOOK" org-string-nw-p "\\`[0-9]+\\'" string-match string-to-number] 8 (#$ . 1723)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\315\316\317\320\310\321& \210\300\322\302\303\323DD\324\306\307\310\325&\210\300\326\302\303\327DD\330\306\307\306\331\310\332& \210\300\333\302\303\334DD\335\306\307\306\331\310\336& \210\300\337\302\303\340DD\341\306\307\310\342&\210\300\343\302\303\344DD\345\306\307\310\325&\210\300\346\302\303\347DD\350\306\307\310\351&\210\300\352\302\303\353DD\354\306\307\310\342&\210\300\355\302\303\356DD\357\306\307\310\325&\210\300\360\302\303\361DD\362\306\307\310\363&\210\300\364\302\303\365DD\366\306\307\310\367&\210\300\370\302\303\371DD\372\306\307\310\325&\210\300\373\302\303\374DD\375\306\307\310\325&\210\300\376\302\303\377DD\201@ \306\307\310\201A &\210\300\201B \302\303\201C DD\201D \306\307\310\201E &\210\201F \201G \201H \"\210\300\201H \302\303\201I DD\201J \306\307\315\201K \310\201L & \210\300\201M \302\303\201N DD\201O \306\307\317\201P \310\342& \210\300\201Q \302\303\201R DD\201S \306\307\310\201T &\210\201U \201V \201W \201X \201Y \201Z \306\307&\210\300\201[ \302\303\201\\ DD\201] \306\307\315\201K \310\201^ & \210\300\201_ \302\303\201` DD\201a \306\201V \315\201K \310\303& \210\300\201b \302\303\201c DD\201d \306\201V \315\201K \310\201e & \210\300\201f \302\303\201g DD\201h \306\201V \317\201i \310\201^ & \210\300\201j \302\303\201k DD\201l \306\307\310\201m &\210\300\201n \302\303\201o DD\201p \306\307\310\201q &\210\300\201r \302\303\201s DD\201t \306\307\315\201K \310\325& \210\300\201u \302\303\201v DD\201w \306\307\315\201K \310\325& \210\300\201x \302\303\201y DD\201z \310\325\315\201K \306\307& \210\300\201{ \302\303\201| DD\201} \306\307\315\201K \310\367& \210\300\201~ \302\303\201 DD\201\200 \306\307\315\201K \310\367& \210\300\201\201 \302\303\201\202 DD\201\203 \306\307\310\201\204 &\210\300\201\205 \302\303\201\206 DD\201\207 \315\201K \306\307\310\201\210 & \210\300\201\211 \302\303\201\212 DD\201\213 \306\307\315\316\317\201\214 \310\367& \210\300\201\215 \302\303\201\216 DD\201\217 \306\307\310\342&\210\300\201\220 \302\303\201\221 DD\201\222 \306\307\310\201\223 \201\224 \201\225 & \210\300\201\226 \302\303\201\227 DD\201\230 \306\307\317\201\231 \310\201\232 & \207" [custom-declare-variable org-clock-out-when-done funcall function #[0 "\300\207" [t] 1] "When non-nil, clock will be stopped when the clocked entry is marked DONE.\n\\<org-mode-map>DONE here means any DONE-like state.\nA nil value means clock will keep running until stopped explicitly with\n`\\[org-clock-out]', 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-rounding-minutes #[0 "\300\207" [0] 1] "Rounding minutes when clocking in or out.\nThe default value is 0 so that no rounding is done.\nWhen set to a non-integer value, use the car of\n`org-time-stamp-rounding-minutes', like for setting a time-stamp.\n\nE.g. if `org-clock-rounding-minutes' is set to 5, time is 14:47\nand you clock in: then the clock starts at 14:45. If you clock\nout within the next 5 minutes, the clock line will be removed;\nif you clock out 8 minutes after your clocked in, the clock\nout time will be 14:50." :version "24.4" :package-version (Org . "8.0") (choice (integer :tag "Minutes (0 for no rounding)") (symbol :tag "Use `org-time-stamp-rounding-minutes'" 'same-as-time-stamp)) org-clock-out-remove-zero-time-clocks #[0 "\300\207" [nil] 1] "Non-nil means remove the clock line when the resulting time is zero." boolean org-clock-in-switch-to-state #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [5] 1] "Number of clock tasks to remember in history.\nClocking in using history works best if this is at most 35, in\nwhich case all digits and capital letters are used up by the\n*Clock Task Select* buffer." integer org-clock-goto-may-find-recent-task #[0 "\300\207" [t] 1] "Non-nil means `org-clock-goto' can go to recent task if no active clock." org-clock-heading-function #[0 "\300\207" [nil] 1] "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." (choice (const nil) (function)) org-clock-string-limit #[0 "\300\207" [0] 1] "Maximum length of clock strings in the mode line. 0 means no limit." org-clock-in-resume #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\301\302P!\207" [user-emacs-directory convert-standard-filename "org-clock-save.el"] 3] "File to save clock data to." string org-clock-persist-query-save #[0 "\300\207" [nil] 1] "When non-nil, ask before saving the current clock on exit." org-clock-persist-query-resume #[0 "\300\207" [t] 1] "When non-nil, ask before resuming any stored clock during load." org-clock-sound #[0 "\300\207" [nil] 1] "Sound to use for notifications.\nPossible values are:\n\nnil No sound played\nt Standard Emacs beep\nfile name Play this sound file, fall back to beep" (choice (const :tag "No sound" nil) (const :tag "Standard beep" t) (file :tag "Play sound file")) org-clock-mode-line-total #[0 "\300\207" [auto] 1] "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)) defvaralias org-task-overrun-text org-clock-task-overrun-text #[0 "\300\207" [nil] 1] "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'." "24.1" (choice (const :tag "Just mark the time string" nil) (string :tag "Text to prepend")) org-show-notification-timeout #[0 "\300\207" [3] 1] "Number of seconds to wait before closing Org notifications.\nThis is applied to notifications sent with `notifications-notify'\nand `w32-notification-notify' only, not other mechanisms possibly\nset through `org-show-notification-handler'." (Org . "9.4") org-show-notification-handler #[0 "\300\207" [nil] 1] "Function or program to send notification with.\nThe function or program will be called with the notification\nstring as argument." (choice (const nil) (string :tag "Program") (function :tag "Function")) custom-declare-group org-clocktable nil "Options concerning the clock table in Org mode." :tag "Org Clock Table" org-clocktable-defaults #[0 "\301\302\303\304\300!\203
\206 \305\306\307\310\311\312\313\314\313\315\311\316\311\317\311\320\311\321\311\322\311\323\311\324\311\325\311\326\327\330\331\332\311\333\311\334\311\335\311\336\311\337\311\257.\207" [org-export-default-language :maxlevel 2 :lang boundp "en" :scope file :block nil :wstart 1 :mstart :tstart :tend :step :stepskip0 :fileskip0 :tags :match :emphasize :link :narrow 40! :indent t :hidefiles :formula :timestamp :level :tcolumns :formatter] 46] "Default properties for clock tables." plist org-clock-clocktable-formatter #[0 "\300\207" [org-clocktable-write-default] 1] "Function to turn clocking data into a table.\nFor more information, see `org-clocktable-write-default'." org-clock-clocktable-language-setup #[0 "\300\207" [(("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") ("de" "Datei" "E" "Zeitstempel" "Kopfzeile" "Dauer" "GESAMT" "Gesamtdauer" "Dateizeit" "Erstellt am"))] 1] "Terms used in clocktable, translated to different languages." alist org-clock-clocktable-default-properties #[0 "\300\207" [(:maxlevel 2)] 1] "Default properties for new clocktables.\nThese will be inserted into the BEGIN line, to make it easy for users to\nplay with them." (Org . "9.2") org-clock-idle-time #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [when-no-clock-is-running] 1] "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 #[0 "\300\207" [nil] 1] "When non-nil, include the current clocking task time in clock reports." org-clock-resolve-expert #[0 "\300\207" [nil] 1] "Non-nil means do not show the splash buffer with the clock resolver." org-clock-continuously #[0 "\300\207" [nil] 1] "Non-nil means to start clocking from the last clock-out time, if any." org-clock-total-time-cell-format #[0 "\300\207" [#1="*%s*"] 1 #1#] "Format string for the total time cells." org-clock-file-time-cell-format #[0 "\300\207" [#2="*%s*"] 1 #2#] "Format string for the file time cells." org-clock-clocked-in-display #[0 "\300\207" [mode-line] 1] "When clocked in for a task, Org 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 #[0 "\300\207" [(t org-mode-line-string)] 1] "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 org-clock-x11idle-program-name #[0 "\300\207" [#3="x11idle"] 1 #3#] "Name of the program which prints X11 idle time in milliseconds.\n\nYou can find x11idle.c in the contrib/scripts directory of the\nOrg git distribution. Or, you can do:\n\n sudo apt-get install xprintidle\n\nif you are using Debian." (Org . "8.0") org-clock-goto-before-context #[0 "\300\207" [2] 1] "Number of lines of context to display before currently clocked-in entry.\nThis applies when using `org-clock-goto'." org-clock-display-default-range #[0 "\300\207" [thisyear] 1] "Default range when displaying clocks with `org-clock-display'.\nValid values are: `today', `yesterday', `thisweek', `lastweek',\n`thismonth', `lastmonth', `thisyear', `lastyear' and `untilnow'." (choice (const today) (const yesterday) (const thisweek) (const lastweek) (const thismonth) (const lastmonth) (const thisyear) (const lastyear) (const untilnow) (const :tag "Select range interactively" interactive)) :safe symbolp org-clock-auto-clockout-timer #[0 "\300\207" [nil] 1] "Timer for auto clocking out when Emacs is idle.\nWhen set to a number, auto clock out the currently clocked in\ntask after this number of seconds of idle time.\n\nThis is only effective when `org-clock-auto-clockout-insinuate'\nis added to the user configuration." (Org . "9.4") (choice (integer :tag "Clock out after Emacs is idle for X seconds") (const :tag "Never auto clock out" nil))] 12)
#@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 (#$ . 16519))
#@35 Hook run when starting the clock.
(defvar org-clock-in-hook nil (#$ . 16755))
#@43 Hook run when stopping the current clock.
(defvar org-clock-out-hook nil (#$ . 16839))
#@44 Hook run when canceling the current clock.
(defvar org-clock-cancel-hook nil (#$ . 16932))
#@57 Hook run when selecting the currently clocked-in entry.
(defvar org-clock-goto-hook nil (#$ . 17029))
#@59 Has the clock been used during the current Emacs session?
(defvar org-clock-has-been-used nil (#$ . 17137))
#@46 Clock history, populated by `org-clock-load'
(defvar org-clock-stored-history nil (#$ . 17251))
#@44 Clock to resume, saved by `org-clock-load'
(defvar org-clock-stored-resume-clock nil (#$ . 17353))
(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-start-time "")
#@72 If non-nil, user canceled a clock; this is when leftover time started.
(defvar org-clock-leftover-time nil (#$ . 17649))
#@49 Effort estimate of the currently clocking task.
(defvar org-clock-effort "" (#$ . 17776))
#@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 (#$ . 17873))
#@50 List of marker pointing to recent clocked tasks.
(defvar org-clock-history nil (#$ . 18051))
#@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) (#$ . 18151))
#@77 Marker pointing to the task that has been interrupted by the current clock.
(defvar org-clock-interrupted-task (make-marker) (#$ . 18361))
(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)
#@152 Translate string S into using string LANGUAGE.
Assume S in the English term to translate. Return S as-is if it
cannot be translated.
(fn S LANGUAGE)
(defalias 'org-clock--translate #[514 "\301\267\202* \302\202+ \303\202+ \304\202+ \305\202+ \306\202+ \307\202+ \310\202+ \311\202+ \312\202+ \313\314\315#8\2065 \207" [org-clock-clocktable-language-setup #s(hash-table size 9 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("File" 6 "L" 10 "Timestamp" 14 "Headline" 18 "Time" 22 "ALL" 26 "Total time" 30 "File time" 34 "Clock summary at" 38)) 1 2 3 4 5 6 7 8 9 nil assoc-string t] 7 (#$ . 18721)])
#@60 Return currently clocked heading, formatted for mode line.
(defalias 'org-clock--mode-line-heading #[0 "\302!\203 \207\303 \203 \304\207\305\306\307\211\211\211$\310\211\203' \311\312G $\210\202/ \313\312G\310$\210\266\202!\207" [org-clock-heading-function org-rm-props functionp org-before-first-heading-p "???" org-link-display-format org-get-heading t nil remove-text-properties 0 set-text-properties] 8 (#$ . 19351)])
(defalias 'org-clock-menu #[0 "\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])
#@64 Push a marker to the clock history.
(fn &optional POS BUFFER)
(defalias 'org-clock-history-push #[512 "\302]\303 \206 `\304\206 p!\223\305\211 \235\211\262\203' @\305\211\223\210\202 \306\305\307\310 \"\"\211G\211\262Y\203C \311\312# \237\233\237 B\211\207" [org-clock-history-length org-clock-history 1 make-marker org-base-buffer nil delq mapcar #[257 "\300!\205 \211\207" [marker-buffer] 3 "\n\n(fn X)"] - -1] 11 (#$ . 20098)])
#@61 Save relative positions of markers in region.
(fn BEG END)
(defalias 'org-clock-save-markers-for-cut-and-paste #[514 "\305#\210\305 #\210\305\n#\210\305 #\210\f\211\205, \211@\305#\210A\266\202\202 \207" [org-clock-marker org-clock-hd-marker org-clock-default-task org-clock-interrupted-task org-clock-history org-check-and-save-marker] 8 (#$ . 20556)])
#@55 Return clock drawer's name for current entry, or nil.
(defalias 'org-clock-drawer-name #[0 "\300 \211\250\203 \301 \211;\203 \211\202 \302\262\202\" \211;\203! \211\202\" \303\207" [org-clock-into-drawer org-log-into-drawer "LOGBOOK" nil] 3 (#$ . 20931)])
#@72 Return the clocking buffer if we are currently clocking a task or nil.
(defalias 'org-clocking-buffer #[0 "\301!\207" [org-clock-marker marker-buffer] 2 (#$ . 21197)])
#@32 Return t when clocking a task.
(defalias 'org-clocking-p #[0 "\300 \301=?\207" [org-clocking-buffer nil] 2 (#$ . 21372)])
#@63 Hook called in task selection just before prompting the user.
(defvar org-clock-before-select-task-hook nil (#$ . 21500))
#@187 Select a task that was recently associated with clocking.
Return marker position of the selected task. Raise an error if
there is no recent clock to choose from.
(fn &optional PROMPT)
(defalias 'org-clock-select-task #[256 "\305\211\211\211\306\305\211\203\" \211@\211@\232\204 \211B\262A\266\202\202 \210\307!\262G\262\306U\2039 \310\311!\202:\312 \313\306\314\315\316!\317\"\320$\216\321\322\323!!\210\324 \210\325 !\203i \326\327\305\330\331$c\210\332\333 \"\262B\262\325\n!\203\202 \326\334\305\330\331$c\210\332\335\n\"\262B\262\336 \203\232 \326\337\305\330\331$c\210\332\340 \"\262B\262\326\341\305\330\331$c\210\211\203\345 \211@\325!\203\336 T\262\332\342W\203\301 \343\\\202\304 \344\\\"\262\345\346!\203\330 \211\346@!\240\266B\262A\266\202\202\244 \210\347\350!\210eb\210\351\305\211\342W\203\374 \202 \352 \\#\210\353\206 \354!\210\305\355 \262\356 \210\357\267\202\"\305\2027\305\2027\360\"\2033\360\"A\2027\310\361\")\262\207" [org-clock-history org-clock-default-task org-clock-interrupted-task org-clock-marker cursor-type nil 0 reverse user-error "No recent clock" current-window-configuration make-byte-code "\301\300!\207" vconcat vector [set-window-configuration] 2 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" 10 48 55 fboundp int-to-char run-hooks org-clock-before-select-task-hook fit-window-to-buffer 5 message "Select task for clocking:" read-char-exclusive kill-buffer #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (113 282 120 286)) assoc "Invalid task choice %c"] 14 (#$ . 21629)])
#@151 Insert a line for the clock selection menu.
And return a cons cell with the selection character integer and the marker
pointing to it.
(fn I MARKER)
(defalias 'org-clock-insert-selection-line #[514 "\302!\205e \303\211\211\211r\304\302!!q\210\212\214~\210\3051G b\210\306 \262\307\310!\262\212\311\312!\210\313!\210\314\315!)\262\316\317P \"G\"\211\2620\202K \210\202L \210+\205c \205c \320\321$c\210B\266\204\207" [org-outline-regexp org-odd-levels-only marker-buffer nil org-base-buffer (error) org-get-category org-get-heading notags org-back-to-heading t looking-at match-string 0 substring org-fontify-like-in-org-mode format "[%c] %-12s %s\n"] 11 (#$ . 23509)])
#@69 Internal flag indicating if the clock has overrun the planned time.
(defvar org-clock-task-overrun nil (#$ . 24207))
#@59 Number of seconds between mode line clock string updates.
(defvar org-clock-update-period 60 (#$ . 24330))
#@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 #[0 "\304 \203. \305!\306\307!\310 \203 \n\204 \311\202 \312#\307!\313\306\314\310\312# $\266\203\2029 \313\306\315\310\312#\307! #\207" [org-clock-effort org-clock-task-overrun org-clock-task-overrun-text org-clock-heading org-clock-get-clocked-time org-duration-to-minutes propertize org-duration-from-minutes face org-mode-line-clock-overrun org-mode-line-clock format " [%s/%s] (%s)" " [%s] (%s)"] 9 (#$ . 24444)])
#@54 Get the last clock-out time for the current subtree.
(defalias 'org-clock-get-last-clock-out-time #[0 "\212\212\301 )\302\303P\304#\205 \305\306\307!!\262)\207" [org-clock-string org-end-of-subtree re-search-forward ".*\\]--\\(\\[[^]]+\\]\\)" t org-time-string-to-time match-string 1] 5 (#$ . 25124)])
#@125 Update mode line with clock information.
When optional argument is non-nil, refresh cached heading.
(fn &optional REFRESH)
(defalias 'org-clock-update-mode-line #[256 "\203\n \306 \210\202\f \307\211\203 \310 \311\312 \313 \314V\2033 G V\2033 \311\315\314 #\316\317\nQ#\2028 \311\316#\266\202\320\f\321\322% \203R \203R \311\323\324#
P\325 \207" [org-clock-effort org-clock-task-overrun org-clock-heading org-clock-string-limit org-clock-mode-line-map org-mode-line-string org-clock-notify-once-if-expired nil org-clock--mode-line-heading propertize org-clock-get-clock-string "Org mode clock is running.\nmouse-1 shows a menu\nmouse-2 will jump to task" 0 substring help-echo ": " local-map mouse-face mode-line-highlight face org-mode-line-clock-overrun force-mode-line-update org-clock-task-overrun-text] 10 (#$ . 25437)])
#@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 #[0 "\302\303!\304\305\"\262\306\"\211 \206 \307\\\207" [org-clock-start-time org-clock-total-time floor org-time-since time-convert integer 60 0] 5 (#$ . 26286)])
#@552 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. If the effort value is expressed
as an unit defined in `org-duration-units' (e.g. "3h"), the modified
value will be converted to a hh:mm duration.
This command will update the "Effort" property of the currently
clocked item, and the value displayed in the mode line.
(fn &optional VALUE)
(defalias 'org-clock-modify-effort-estimate #[256 "\302 \203t \303\204 \304\305\306\203 \305\307\"\202 \310\"!\262;\203] \311!\262\211\312\235\203< \313!\262\314\315\"\262\202? \316\262\313!\262\211\317\232\203R Z\262\202] \211\320\232\203] \\\262\316]\262\321!\322 \323#\210\324 \210\325\326\"\207\325\327!\207" [org-clock-effort 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-to-minutes substring 1 0 45 43 org-duration-from-minutes org-entry-put "Effort" org-clock-update-mode-line message "Effort is now %s" "Clock is not currently active"] 9 (#$ . 26640) nil])
#@46 Shows if we have shown notification already.
(defvar org-clock-notification-was-shown nil (#$ . 27902))
#@100 Show notification if we spent more time than we estimated before.
Notification is shown only once.
(defalias 'org-clock-notify-once-if-expired #[0 "\305 \2055 \306!\307 ?\206 \310U?\205 \211Y\211\2030 \n?\2053 \311\312\313\314 #\f\"\2023 \315\211\266\202\207" [org-clock-effort org-clock-task-overrun org-clock-notification-was-shown org-clock-heading org-clock-sound org-clocking-p org-duration-to-minutes org-clock-get-clocked-time 0 t org-notify format-message "Task `%s' should be finished by now. (%s)" nil] 7 (#$ . 28013)])
#@141 Send a NOTIFICATION and maybe PLAY-SOUND.
If PLAY-SOUND is non-nil, it overrides `org-clock-sound'.
(fn NOTIFICATION &optional PLAY-SOUND)
(defalias 'org-notify #[513 "\300!\210\211\205 \301!\207" [org-show-notification org-clock-play-sound] 4 (#$ . 28560)])
#@142 Show notification.
Use `org-show-notification-handler' if defined,
use libnotify if available, or fall back on a message.
(fn NOTIFICATION)
(defalias 'org-show-notification #[257 "\3021 \303\304!0\202 \210\202 \210\305!\203 !\207;\203& \306\307\310$\207\311\312!\203F \312\313\314\315\316\317&\320 \310\321\322\323\324\325!\326\"\327$#\207\311\330!\203Z \330\313\314\315\331 \332_\316\317&\207\333\334!\203g \306\307\310\334$\207\335\336\"\207" [org-show-notification-handler org-show-notification-timeout (error) require notifications functionp start-process "emacs-timer-notification" nil fboundp w32-notification-notify :title "Org mode message" :body :urgency low run-with-timer make-byte-code 0 "\301\300!\207" vconcat vector [w32-notification-close] 2 notifications-notify :timeout 1000 executable-find "notify-send" message "%s"] 11 (#$ . 28830)])
#@171 Play sound as configured by `org-clock-sound'.
Use alsa's aplay tool if available.
If CLOCK-SOUND is non-nil, it overrides `org-clock-sound'.
(fn &optional CLOCK-SOUND)
(defalias 'org-clock-play-sound #[256 "\211\206 \211?\206M \301=\203 \302\301!\210\302\301!\202M ;\205M \303!\304!\205K \305\306!\2038 \307\310\311\306$\202K \3121C \313!0\202K \210\302\301!\210\302\301!\262)\207" [org-clock-sound t beep expand-file-name file-exists-p executable-find "aplay" start-process "org-clock-play-notification" nil (error) play-sound-file] 8 (#$ . 29711)])
#@56 Information for the mode line about the running clock.
(defvar org-clock-mode-line-entry nil (#$ . 30281))
#@68 Search through the given file and find all open clocks.
(fn FILE)
(defalias 'org-find-open-clocks #[257 "\301!\206 \302!\303P\304rq\210\212eb\210\305\304\306#\203/ \307\310\225\306\"\311\312\310!!BB\262\202 *\207" [org-clock-string get-file-buffer find-file-noselect " \\(\\[.*?\\]\\)$" nil re-search-forward t copy-marker 1 org-time-string-to-time match-string] 8 (#$ . 30394)])
#@62 Return t if CLOCK is the currently active clock.
(fn CLOCK)
(defalias 'org-is-active-clock #[257 "\301 \205 @U\207" [org-clock-marker org-clock-is-active] 3 (#$ . 30790)])
(put 'org-is-active-clock 'byte-optimizer 'byte-compile-inline-expand)
#@80 Evaluate FORMS with CLOCK as the current active clock.
(fn CLOCK &rest FORMS)
(defalias 'org-with-clock-position '(macro . #[385 "\300\301\302DD\303\304\302DD\305BBBE\207" [with-current-buffer marker-buffer car org-with-wide-buffer goto-char (beginning-of-line)] 8 (#$ . 31043)]))
(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)
#@150 Evaluate FORMS with CLOCK as the current active clock.
This macro also protects the current active clock from being altered.
(fn CLOCK &rest FORMS)
(defalias 'org-with-clock '(macro . #[385 "\300\301\302\303DD\304\305\306\307\310\nDD\311BBBBBBBE\207" [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 (org-back-to-heading t) (point-marker))))] 12 (#$ . 31477)]))
(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)
#@136 Clock in to the clock located by CLOCK.
If necessary, clock-out of the currently active clock.
(fn CLOCK &optional RESUME START-TIME)
(defalias 'org-clock-clock-in #[769 "r\301@!q\210\212\214~\210@b\210\302 \210\206 \303\304\",\207" [org-clock-in-resume marker-buffer beginning-of-line org-clock-in nil] 6 (#$ . 32110)])
(put 'org-clock-clock-in 'byte-optimizer 'byte-compile-inline-expand)
#@85 Clock out of the clock located by CLOCK.
(fn CLOCK &optional FAIL-QUIETLY AT-TIME)
(defalias 'org-clock-clock-out #[769 "\306@\307@!\"\310 \205 @U\262\203 \311\312#\210\202P r\313@!q\210\212\214~\210@b\210\314 \210A\312\211\211@\212\315\316!\210\317 ) \311\312#\210. \240\207" [org-clock-marker org-clock-hd-marker org-clock-effort org-clock-history org-clock-total-time org-clock-start-time copy-marker marker-insertion-type org-clock-is-active org-clock-out nil marker-buffer beginning-of-line org-back-to-heading t point-marker] 11 (#$ . 32515)])
(put 'org-clock-clock-out 'byte-optimizer 'byte-compile-inline-expand)
#@48 Cancel the clock located by CLOCK.
(fn CLOCK)
(defalias 'org-clock-clock-cancel #[257 "\306@\307@!\"\310 \205 @U\262\203 \311 \210\202I r\312@!q\210\212\214~\210@b\210\313 \210A\314\211\211@\212\315\316!\210\317 ) \311 \210. \240\207" [org-clock-marker org-clock-hd-marker org-clock-effort org-clock-history org-clock-total-time org-clock-start-time copy-marker marker-insertion-type org-clock-is-active org-clock-cancel marker-buffer beginning-of-line nil org-back-to-heading t point-marker] 9 (#$ . 33167)])
(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)
#@178 Resolve CLOCK given the time RESOLVE-TO, and the present.
CLOCK is a cons cell of the form (MARKER START-TIME).
(fn CLOCK RESOLVE-TO CLOCK-OUT-TIME CLOSE RESTART FAIL-QUIETLY)
(defalias 'org-clock-resolve-clock #[1542 "\306@\212\307!\203 \310!q\210\212\214~\210\211\206 `b\210\311\306!\210\312 +\262\204\246 \313@\314@!\"\315 \205? @U\262\203J \316 \210\202w r\310@!q\210\212\214~\210@b\210\317 \210A\320\211\211@\212\311\306!\210\312 ) \316 \210. \240\266\205?\205\211\212\307!\203\223 \310!q\210\212\214~\210\211\206\234 `b\210\321 +\262\202\322=\203Y\203\267 \323\324!\202\204\300 \203 \320\313@\314@!\"\315 \205\326 @U\262\203\344 \325\320#\210\202r\310@!q\210\212\214~\210@b\210\317 \210A\320\211\211@\212\311\306!\210\312 ) \325\320#\210. \240\266\204\202\315 \205( @U\262\2031\320\202\306\320r\310@!q\210\212\214~\210@b\210\317 \210\206M \321\320\",\266\203\202\326\320\"\203g\323\327!\202\203o\323\324!\210\206y\313@\314@!\"\315 \205\213 @U\262\203\231\325\320#\210\202\312r\310@!q\210\212\214~\210@b\210\317 \210A\320\211\211@\212\311\306!\210\312 ) \325\320#\210. \240\266\203\330\320\202\203\351?\205\343\211\202\211\212\307!\203\366\310!q\210\212\214~\210\211\206\377`b\210\321\320\205\n \"+\262)\207" [org-clock-resolving-clocks org-clock-marker org-clock-hd-marker org-clock-effort org-clock-history org-clock-total-time t markerp marker-buffer org-back-to-heading point-marker copy-marker marker-insertion-type org-clock-is-active org-clock-cancel beginning-of-line nil org-clock-in now error "RESTART is not valid here" org-clock-out org-time-less-p "RESOLVE-TO must refer to a time in the past" org-clock-start-time org-clock-clocking-in org-clock-in-resume org-clock-leftover-time] 19 (#$ . 33909)])
#@75 When an Org clock is running, jump to it.
(fn &optional EFFECTIVE-CLOCK)
(defalias 'org-clock-jump-to-current-clock #[256 "\306 \206 B\307@!\204 \310\311!\210r\307@!q\210\212\214~\210\211@b\210\312 \210\211A\313\211\211@\212\314\315!\210\316 ) \317 \210. r\307@!q\210\211@b\210\205\234 \212\214~\210\320\321\322;\203_ \202` \323!\"\212\314\315!\210`)\3242\231 \325\315#\205\230 \326 \327!\330=\203\224 \331\332\"@V\203\217 \333\334\313#\210\335\324\313\"\210\210\202m 0\266\202*)\207" [org-clock-marker org-clock-start-time org-clock-hd-marker org-clock-effort org-clock-history org-clock-total-time org-clock-into-drawer marker-buffer user-error "No Org clock is currently running" beginning-of-line nil org-back-to-heading t point-marker org-clock-goto format "^[ ]*:%s:[ ]*$" regexp-quote "LOGBOOK" exit re-search-backward org-element-at-point org-element-type drawer org-element-property :end org-hide-drawer-toggle off throw] 10 (#$ . 35803)])
#@856 Resolve an open Org 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.
(fn CLOCK &optional PROMPT-FN LAST-VALID FAIL-QUIETLY)
(defalias 'org-clock-resolve #[1025 "\204 \306\307!\210\310 \311\312\313\314\315!\316\"\317$\216\212\204 \320!\210 \204T \nr\321\322!q\210p\323 \210\324\211\325\211\325 @ A\326 \210\327\330!\210+\211 B\331\332\333!!\210\334!\210)\266\335\336\322!!\210\324\211\203h \211\337>\204w \340 \210\341!\342P\324\343#\262\202[ \211\344>?\205 \211\262*\262\345\346!\347\350\"\262\351\"\352>\203\235 \353\354\"\206\261 \355>\205\261 \345\356\357\360\325\211\"\"!\351\245!\361>\205\273 \353\362\"\363>\364\357 A\"\343\"\205\315 \211\365>\203\356 \366=\203\347 \367 \370\324\325\324
&\210\320 !\202}\203\372 \371>\204 \372\373!\202}\367 \374=\204\203\324\202a\204 \203%\312U\203%\n\202a\2032U\204=\203AU\203A\370\202a\203Q\375 \351 _\"\202a\203^\346\351_!\202a\376\377!\205h \n\201C >\205y \201D >?
&\207" [org-clock-resolving-clocks-due-to-idleness org-clock-resolve-expert default-directory buffer-read-only buffer-file-name buffer-undo-list cl--assertion-failed clock current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 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 format-message "Select a Clock Resolution Command:\n\ni/q 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.\n\nt/T Like `k', but will ask you to specify a time (when you got\n distracted away), instead of a number of minutes.\n\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.\n\ns/S Subtract the idle time from the current clock. This is the\n same as keeping 0 minutes.\n\nC Cancel the open timer altogether. It will be as though you\n never clocked in.\n\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 116 84) ding read-char " [jkKtTgGSscCiq]? " 45 (105 113) floor org-time-since time-convert integer 60 (107 75) read-number "Keep how many minutes? " (116 84) float-time org-time-subtract org-read-date (103 71) "Got back how many minutes ago? " (115 83) org-time-less-p (106 74) 74 org-clock-resolve-clock now (107 75 103 71 115 83 67 116 84) message "" 67 org-time-add error "Unexpected, please report this as a bug" inhibit-modification-hooks inhibit-read-only standard-output (75 71 83 84) (75 71 83 67)] 19 (#$ . 36785)])
#@200 Resolve all currently open Org clocks.
If `only-dangling-p' is non-nil, only ask to resolve dangling
(i.e., not currently open and valid) clocks.
(fn &optional ONLY-DANGLING-P PROMPT-FN LAST-VALID)
(defalias 'org-resolve-clocks #[768 "?\205R \302\303 \211\205O \211@\304!\211\211\203F \211@\305 ?\206$ \211@ U?\203- \211\203> \306 \2065 \307 \206< A#\210\210A\266\202\202 \266A\266\202\202 \262)\207" [org-clock-resolving-clocks org-clock-marker t org-files-list org-find-open-clocks org-clock-is-active org-clock-resolve #[257 "\300\301\302\303A!\304\305\"\262\306\"\"\207" [format "Dangling clock started %d mins ago" floor org-time-since time-convert integer 60] 8 "\n\n(fn CLOCK)"]] 13 (#$ . 40681) "P"])
#@68 Return the current Emacs idle time in seconds, or nil if not idle.
(defalias 'org-emacs-idle-seconds #[0 "\300 \211\203\f \301!\202
\302\207" [current-idle-time float-time 0] 3 (#$ . 41415)])
#@46 Return the current Mac idle time in seconds.
(defalias 'org-mac-idle-seconds #[0 "\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 (#$ . 41615)])
(defvar org-x11idle-exists-p (byte-code "\302=\205 \303\304\305 \"!\306=\205 \303 !\306=\207" [window-system org-clock-x11idle-program-name x call-process-shell-command format "command -v %s" 0] 4))
#@46 Return the current X11 idle time in seconds.
(defalias 'org-x11-idle-seconds #[0 "\301\302!!\303\245\207" [org-clock-x11idle-program-name string-to-number shell-command-to-string 1000] 3 (#$ . 42081)])
#@104 Return the number of seconds the user has been idle for.
This routine returns a floating point number.
(defalias 'org-user-idle-seconds #[0 "\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 (#$ . 42291)])
#@178 Resolve all currently open Org 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 #[0 "\2059 ?\2059 \n\2059 \306\n!\2059 \307 \310 !\311 \312_V\2056 \313\n
B\314\315\316\317\320!\321\"\322\323%#*\262\207" [org-clock-idle-time org-clock-resolving-clocks org-clock-marker org-clock-user-idle-seconds org-clock-resolving-clocks-due-to-idleness org-clock-start-time marker-buffer org-user-idle-seconds org-time-since t 60 org-clock-resolve make-byte-code 257 "\301\302\303\304\300!!\305\245\"\207" vconcat vector [format "Clocked in & idle for %.1f mins" float-time time-since 60] 6 "\n\n(fn _)"] 9 (#$ . 42640)])
#@28 Task currently clocked in.
(defvar org-clock-current-task nil (#$ . 43398))
(defvar org-clock-out-time nil)
#@675 Start the clock on the current item.
If necessary, clock-out of the currently active clock.
With a `\[universal-argument]' prefix argument SELECT, 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.
(fn &optional SELECT START-TIME)
(defalias 'org-clock-in #[512 "\306\307 \210\3102! ?\205 \311 \306\211\211\312\n?\205
\203< \203*
\313=\203< @\204< \n\204< \306\313 @\314 \210)\315\232\203R \313 A\316\306B\"\210\317\310\306\"\210)\320\232\203o \321\322!\211\204g \323\324!\210\202n \211\325!\262\210\210\326\232\203y \327 \210\203\351 \204\207 \330\331!\203\324 \212\332!\203\224 \333!q\210\212\214~\210\211\206\235 `b\210\204\247 \334\313!\210\333C!\335p!=\203\322 `\336C!U\203\322 D\337\313\211\211\211$\232\203\322 \340\341E\"\210\317\310\306\"\210+\210F\336G!\333G!\223\210\313 @\342\306\313\"\210)m\203\370 \343 \204\370 \344\345!\202\371 `\262\212\203\333!\203\335\333!!q\210\336!\262\306\211\223\210\212\214~\210b\210\334\313!\210\204,F\306\211\223\210\346\347!\210\350 \210\337\313\211\211\211$D\351H!\203]\306 I\352J!\210)H\353\354!!\211\203Y\355!\210\210\202sH\203s\352K\356H\357R!\204s\355H!\210\360 E\361L!\210L\203\265\352\362M\363Q!\203\265\340\364\353\365!\"\210\366\353\365!\367Q\262\365\225b\210\370\353\365!!N\371`O\"P\372\373 !Q\202iL\374=\203\317\340\375!\210\376 \210\377\354!\210\317\310\306\"\210\202i\201\\ \201] !\210\201^ u\210\212\345\210\201_ )\203\371\201` \365!\210\201a \201b \354Z!\210M\201c \261\210\371`O\"P\372\373 !QA\203B\206T\211\203H\201d \201e \201f \201g \201h R\313\"\"\201i \201j \"\262\201k \245\"!\203H\211\206T\206T\201h R\313\"N\201l N\201m \201n #\262\201o \210G`\201p \223\210C\212\334\313!\210`)\201p \223\210\313ST\201q =\204\226T\201r =\203\264U\204\240\201s U\201t U>\204\264\201u U\201v \"UT\201w =\204\306T\201r =\203\316VWXV\201x \210Y\203\342\201y Y!\210\306YT\203\363\201z Z\211\201x #Y[\203\201y [!\210\306[\201z \201k \211\201{ #[\340\201| \f#\210\346\201} !,\266\2060\207" [org-clock-notification-was-shown org-clock-resolving-clocks-due-to-idleness org-clock-resolving-clocks org-clock-leftover-time org--msg-extra org-clock-auto-clock-resolution nil org-refresh-effort-properties abort org-clocking-p #1="" t org-resolve-clocks (64) org-clock-in throw (4) org-clock-select-task "Clock-in on task: " error "Abort" copy-marker (16) org-clock-mark-default-task derived-mode-p org-mode markerp marker-buffer org-back-to-heading org-base-buffer marker-position org-get-heading message "Clock continues in %S" org-clock-out org-at-heading-p point-at-bol 0 run-hooks org-clock-in-prepare-hook org-clock-history-push functionp looking-at match-string 2 org-todo "[ ]*" "\\>" org-clock--mode-line-heading org-clock-find-position "^[ ]*" " \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} *\\sw+.? +[012][0-9]:[0-5][0-9]\\)\\][ ]*$" "Matched %s" 1 "[" "]" org-time-string-to-time 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 org-clock-clocking-in 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 case-fold-search org-complex-heading-regexp org-outline-regexp org-clock-in-resume org-clock-string org-clock-start-time org-effort-property org-clock-effort org-clock-total-time org-clock-rounding-minutes org-clock-has-been-used org-clock-clocked-in-display global-mode-string frame-title-format org-frame-title-format-backup org-clock-frame-title-format org-clock-mode-line-timer org-clock-update-period org-clock-idle-timer insert-before-markers "\n" -1 org-in-item-p beginning-of-line indent-line-to current-indentation " " y-or-n-p format "You stopped another clock %d mins ago; start this one from then? " org-time-subtract org-current-time time-convert integer 60 org-insert-time-stamp with-hm inactive org-indent-line 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] 15 (#$ . 43513) "P"])
#@225 Clock out the currently clocked in task if Emacs is idle.
See `org-clock-auto-clockout-timer' to set the idle time span.
This is only effective when `org-clock-auto-clockout-insinuate'
is present in the user configuration.
(defalias 'org-clock-auto-clockout #[0 "\247\205 \205 \302\303\304#\207" [org-clock-auto-clockout-timer org-clock-current-task run-with-idle-timer nil org-clock-out] 4 (#$ . 48279)])
(defalias 'org-clock-toggle-auto-clockout #[0 "\301>\203 \302\300\301\"\210\303\304!\207\305\300\301\306#\210\303\307!\207" [org-clock-in-hook org-clock-auto-clockout remove-hook message "Auto clock-out after idle time turned off" add-hook t "Auto clock-out after idle time turned on"] 4 nil nil])
#@449 Clock in the last closed clocked item.
When already clocking in, send a 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'.
(fn &optional ARG)
(defalias 'org-clock-in-last #[256 "\211\306\232\203\n \307!\207\204 \211\310\232\203 \206# \311\n\312\"\202# \311\n\312\" \204- \313\314!\202\207 \f\204J \315\232\203J \316\317 \205F r\320 @!q\210
)\"\202L \f @C\321r\320@!q\210\212\214~\210@b\210\322 \210\206m \307\321\",\266\211\206\204 \313\323\f\324\320!!#)\266\202\207" [org-clock-continuously org-clock-out-time org-clock-rounding-minutes org-clock-history org-clock-current-task org-todo-keywords-1 (4) org-clock-in (16) org-current-time t message "No last clock" (64) completing-read "Switch to state: " marker-buffer nil beginning-of-line "Clocking back: %s (in %s)" buffer-name org-clock-in-switch-to-state org-clock-in-resume org-clock-marker] 10 (#$ . 48998) "P"])
#@36 Mark current task as default task.
(defalias 'org-clock-mark-default-task #[0 "\212\301\302!\210`\303\223)\207" [org-clock-default-task org-back-to-heading t nil] 3 (#$ . 50203) nil])
#@359 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.
The time is always returned as UTC.
(defalias 'org-clock-get-sum-start #[0 "\303\304\305\306#\206 \307!\303\304\310\"\311\267\202K \312\313 \202\206 \314\315 \3168\3178\nW\2035 \317\233\211S\240\266AA\211\n\240\266\320\321\322\211AA$\266\203\202\206 \323\232\204_ \203[ \324\232\203e \211\204e \325\304\202\206 \326\232\204y \203u \324\232\203\205 \211\203\205 \327\211\205\206 \330!\202\206 \304\207" [org-clock-mode-line-total org--msg-extra org-extend-today-until org-entry-get nil "CLOCK_MODELINE_TOTAL" selective symbol-name "LAST_REPEAT" #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("current" 21 "today" 28)) "showing time in current clock instance" current-time "showing today's task time." decode-time 2 3 apply encode-time 0 "all" "auto" "showing entire task time." "repeat" "showing task time since last repeat." org-time-string-to-time] 10 (#$ . 50395)])
#@197 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.
(fn FIND-UNCLOSED)
(defalias 'org-clock-find-position #[257 "\303\304!\210\3052R\306 \212\307 \210`)\300 \310 \203E \311 \312Q\313\304#\203D \314 \315!\316=\203@ \317\320\"\321=\203@ \322 \210\323\305\304\"\210\210\202 \210\211\203\204 b\210\324\325!\326Q\313\304#\203\203 \314 \315!\327=\203 \317\330\"\n\204v \211\203v \211b\210\202y \331y\210\323\305\304\"\266\210\202R \210b\210\311 P\332\331\212\313\304#\203\256 \314 \315!\316=\203\252 \306 B\262T\262\210\202\215 )\211\204\352 \333 \210n\204\275 \334c\210\205L\335!\203\315 \336W\205L`\337\340\261\210\341`\"\210\342\343\344!`S\304\345$\210\344y\262\202L\335!\203\367 TY\202\370 \203=\333 \210`\346\347\334#\350\261\210\351 b\210\212\337\352\261\210)\342\343 S\304\345$\210\341`\"\210\331y\210\n\2042\211b\210\322\344!\210\211\331\211\223\262\262\202L\n\203I\353!@b\202L\211@b\266\203)\266\2030\207" [org-clock-into-drawer org-clock-string org-log-states-order-reversed org-back-to-heading t exit line-beginning-position outline-next-heading org-clock-drawer-name "^[ ]*" " \\[\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} *\\sw+ +[012][0-9]:[0-5][0-9]\\)\\][ ]*$" re-search-forward org-element-at-point org-element-type clock org-element-property :status running beginning-of-line throw "^[ ]*:" regexp-quote ":[ ]*$" drawer :contents-end nil 0 org-end-of-meta-data "\n" wholenump 2 ":" ":\n:END:\n" org-indent-region org-flag-region line-end-position -1 outline mapconcat #[257 "\212\211b\210\300\212\301\302x\210\303\304!)\303\304!\"\302\305\203 \306\202 \307\310\305\311\310##\266\202)\207" [delete-and-extract-region "
\n" nil line-beginning-position 2 replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n
]+" "" "[ \n
]+\\'"] 10 "\n\n(fn P)"] "\n:END:\n" point-marker ":\n" last] 14 (#$ . 51658)])
#@224 Restore `frame-title-format' from `org-frame-title-format-backup'.
`frame-title-format' is restored if `org-frame-title-format-backup' is not nil
and current `frame-title-format' is equal to `org-clock-frame-title-format'.
(defalias 'org-clock-restore-frame-title-format #[0 "\205
\n\232\205
\211\207" [org-frame-title-format-backup frame-title-format org-clock-frame-title-format] 2 (#$ . 53668)])
#@302 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'.
(fn &optional SWITCH-TO-STATE FAIL-QUIETLY AT-TIME)
(defalias 'org-clock-out #[768 "\3062\226\307 \204$ \310\311\"\312 \210\313 \210\203 \314\306\315\"\210\202$ \316\317!\210\2039 \320\321r\322 !q\210\n)\323\315\324%\202: \325\f!\323\211\211\211\211\211\206M \212\326 q\210\214~\210 b\210\327\330!\210\331\332@P!\203w \333\330!A\232\203w \333\334!\262\202\210 \203\204 \314\306\323\"\210\202\210 \335\336!\210\337\225b\210`\340 |\210\341c\210\342 \206\234 \343\344#\262\345\346!\346!\"\347\350\"\262\262\351\352\"\262\351\353\352\"\354\"\262\355\356\357#\261\210 \323\211\223\210B\323\211\223\210C\203\364 \337U\203\364 U\203\364 \315\262\360 \360\334!|\210\202D\203\361\362\323\211\211\363\364\315!\365Q%\210E\203\366E!\210\323EF\203 \366F!\210\323F\310\311\"\312 \210 \203h\212\367\315!\210\323 G\370 !\203T\323 H\331I!\210) \333\334!!\211\203P\371!\210\210\202g \203g\331J\332 \372R!\204g\371 !\210*\313 \210\373\203t\374\202u\375\376\354_\\!#\210\377\201L !\210\307 ?\205\222\323\211K+\266\2100\207" [global-mode-string org-clock-marker org-todo-keywords-1 org-clock-out-switch-to-state org-clock-rounding-minutes org-clock-out-time exit org-clocking-p delq org-mode-line-string org-clock-restore-frame-title-format force-mode-line-update throw t user-error "No active clock" completing-read "Switch to state: " marker-buffer nil "DONE" org-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 time-subtract org-time-string-to-time time-convert integer floor 3600 mod 60 " => " format "%2d:%02d" line-beginning-position 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 %s => LINE REMOVED" "Clock stopped at %s after %s" org-duration-from-minutes run-hooks org-keyword-time-regexp org-clock-string org-clock-hd-marker org-clock-out-remove-zero-time-clocks org-log-note-clock-out org-clock-mode-line-timer org-clock-idle-timer org-clock-out-when-done case-fold-search org-complex-heading-regexp org-outline-regexp org-clock-current-task org-clock-out-hook] 19 (#$ . 54080) "P"])
(add-hook 'org-clock-out-hook 'org-clock-remove-empty-clock-drawer)
#@48 Remove empty clock drawers in current subtree.
(defalias 'org-clock-remove-empty-clock-drawer #[0 "\212\300\301!\210\302\303!)\207" [org-back-to-heading t org-map-tree #[0 "\301 \302\211\205# \303\304\305!\"\212\306 )\307\302#\205! \310`!\210\202 \266\202)\207" [case-fold-search org-clock-drawer-name t format "^[ ]*:%s:[ ]*$" regexp-quote outline-next-heading re-search-forward org-remove-empty-drawer-at] 7]] 2 (#$ . 56696)])
#@112 Increase CLOCK timestamps at cursor.
Optional argument N tells to change by that many units.
(fn &optional N)
(defalias 'org-clock-timestamps-up #[256 "\300\301\"\207" [org-clock-timestamps-change up] 4 (#$ . 57139) "P"])
#@112 Increase CLOCK timestamps at cursor.
Optional argument N tells to change by that many units.
(fn &optional N)
(defalias 'org-clock-timestamps-down #[256 "\300\301\"\207" [org-clock-timestamps-change down] 4 (#$ . 57370) "P"])
#@178 Change CLOCK timestamps synchronously at cursor.
UPDOWN tells whether to change `up' or `down'.
Optional argument N tells to change by that many units.
(fn UPDOWN &optional N)
(defalias 'org-clock-timestamps-change #[513 "\302=\203\n \303\202 \304\305\306!\307\211\211\211\211\211\205\246 \212\310\311!\210\312\307\313#\210\314\315!\262\315\224\262\312\307\313#\203> \314\315!\262\315\224\262)`X\203H \313\262\204T !\202\246 !\210\203b \202c \203k \202l \316\317 !\317!\"\262\212\211b\210\320\321\322! \323\267\202\234 \324\202\235 \325\202\235 \326\202\235 \327\202\235 \326\330_\202\235 \307\245!\n\331#)\266\202\207" [org-ts-regexp3 org-last-changed-timestamp up org-timestamp-up org-timestamp-down org-at-timestamp-p lax nil move-beginning-of-line 1 re-search-forward t match-string 0 time-subtract org-time-string-to-time org-timestamp-change round float-time #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (minute 134 hour 138 day 142 month 146 year 150)) 60 3600 86400 2678400 365.2 updown] 17 (#$ . 57605)])
#@59 Cancel the running clock by removing the start timestamp.
(defalias 'org-clock-cancel #[0 "\305 \204 \306\307\"\310 \210\311 \210\312\313!\210\212\314 q\210 b\210\315\316\n\317Q\320 \"\2035 \321 S\322 |\210\323`!\210\202= \324\325!\210\326\327!\210) \330\211\223\210 \330\211\223\210\330\306\307\"\310 \210\311 \210\324\331!\210\332\333!\207" [global-mode-string org-clock-marker org-clock-string org-clock-hd-marker org-clock-current-task org-clocking-p delq org-mode-line-string org-clock-restore-frame-title-format force-mode-line-update user-error "No active clock" org-clocking-buffer looking-back "^[ ]*" ".*" line-beginning-position point-at-bol point-at-eol org-remove-empty-drawer-at message "Clock gone, cancel the timer anyway" sit-for 2 nil "Clock canceled" run-hooks org-clock-cancel-hook] 4 (#$ . 58698) nil])
#@167 Go to the currently clocked-in entry, or to the most recently clocked one.
With prefix arg SELECT, offer recently clocked tasks for selection.
(fn &optional SELECT)
(defalias 'org-clock-goto #[256 "\304\203 \305\306!\2065 \307\310!\2025 \311 \203 \2025 \2032 \n@\2032 \312\n@!\2032 \313\262\n@\2025 \307\314!\315\312!!\210\211eW\204G \211dV\203I ~\210\211b\210\316 \210\317\313!\210\320 !\210\321 \210\203b \322\323!\210\324\325!\207" [org-clock-marker org-clock-goto-may-find-recent-task org-clock-history org-clock-goto-before-context nil org-clock-select-task "Select task to go to: " user-error "No task selected" org-clocking-p marker-buffer t "No active or recent clock task" pop-to-buffer-same-window org-show-entry org-back-to-heading recenter org-reveal message "No running clock, this is the most recently clocked task" run-hooks org-clock-goto-hook] 6 (#$ . 59536) "@P"])
#@72 Holds the file total time in minutes, after a call to `org-clock-sum'.
(defvar org-clock-file-total-minutes nil (#$ . 60434))
(make-variable-buffer-local 'org-clock-file-total-minutes)
#@75 Sum the times for each subtree for today.
(fn &optional HEADLINE-FILTER)
(defalias 'org-clock-sum-today #[256 "\300\301!\302@A@\303$\207" [org-clock-special-range today org-clock-sum :org-clock-minutes-today] 7 (#$ . 60625)])
#@90 Sum the times for each subtree for today.
(fn &optional HEADLINE-FILTER RANGE PROPNAME)
(defalias 'org-clock-sum-custom #[768 "9\203 \300!\206 \300\301\302\303\304\305\306$!!\307@A@\206\" \310$\207" [org-clock-special-range intern completing-read "Range: " ("today" "yesterday" "thisweek" "lastweek" "thismonth" "lastmonth" "thisyear" "lastyear" "interactive") nil t org-clock-sum :org-clock-minutes-custom] 10 (#$ . 60861)])
#@512 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.
(fn &optional TSTART TEND HEADLINE-FILTER PROPNAME)
(defalias 'org-clock-sum #[1024 "\306 \307\211\307\310\311\312\313\314!\315\"\316$\216\317 \320Q\321\322\311\"\311;\203+ \323 !\202: :\2038 \324 !\202: ;\203G \323 !\202V :\203T \324 !\202V \311\325\326ed\f\206a \327\330B#\210\212db\210\331\325\307#\203\375\316\225\203\310 \324\332\333\334 \310\311\335\313\314!\336\"\337$\216\340\341\316!!)\262\"!\324\332\333\340\341\337!!\"!\203\246 \211^\202\247 \211\203\263 ]\202\264 Z\211\311V\203\303 \342\343\"\\\262\266\202i \344\225\203\341 \345\346\341\347!!\343\346\341\344!!_#\262\202i \f\203!\350 p=\203!\351
!`=\203!\203!\203!\3246!Y\203!\3246!X\203!\342\3526!\353\354\"\262\343\"\\\262\210\355`\356\" ?\206A\212\334 \310\311\335\313\314!\357\"\337$\216\f )\262)\360\225\360\224Z\262 Y\203a\313\322 \311\"\"\262\316 _\262 \311V\204qH\311V\203\370\211\204y\203\333\211\203\233\311X\203\231 H\\I\210T\262\202\200\266H\262\311\224b\210\361`\362 \206\260\327$\210\f\203\333\212\334 \310\311\335\313\314!\363\"\337$\216\364 \203\330\361`\365 \356\307$\210\202\310)\210)\311\262 SX\203\366 \311I\210T\262\202\343\266\266\202i \311H\2117)\266\210,\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks org-clock-string org-clock-report-include-clocking-task org-clock-hd-marker buffer-modified-p t make-byte-code 0 "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 "^\\(\\*+\\)[ ]\\|^[ ]*" "[ ]*\\(?:\\(\\[.*?\\]\\)-+\\(\\[.*?\\]\\)\\|=>[ ]+\\([0-9]+\\):\\([0-9]+\\)\\)" 30 make-vector org-time-string-to-seconds float-time nil remove-text-properties :org-clock-minutes (t :org-clock-force-headline-inclusion t) re-search-backward apply encode-time match-data "\301\300\302\"\207" [set-match-data evaporate] 3 org-parse-time-string match-string floor 60 4 + string-to-number 5 org-clocking-buffer marker-position org-time-since time-convert integer get-text-property :org-clock-force-headline-inclusion [set-match-data evaporate] 1 put-text-property point-at-eol [set-match-data evaporate] org-up-heading-safe line-end-position org-clock-start-time org-clock-file-total-minutes] 24 (#$ . 61304)])
#@71 Return time, clocked on current item in total.
(fn &optional TSTART)
(defalias 'org-clock-sum-current-item #[256 "\212\214\301\302!\203# \303 \204 \304 \203# \212\305 \210`)\212\306 \210`)}\210\202& \307 \210\310!\210*\207" [org-clock-file-total-minutes featurep org-inlinetask org-inlinetask-at-task-p org-inlinetask-in-task-p org-inlinetask-goto-beginning org-inlinetask-goto-end org-narrow-to-subtree org-clock-sum] 3 (#$ . 64038)])
#@519 Show subtree times in the entire buffer.
By default, show the total time for the range defined in
`org-clock-display-default-range'. With `\[universal-argument]' prefix, show
the total time for today instead.
With `\[universal-argument] \[universal-argument]' prefix, use a custom range, entered at prompt.
With `\[universal-argument] \[universal-argument] \[universal-argument]' prefix, display the total time in the
echo area.
Use `\[org-clock-remove-overlays]' to remove the subtree times.
(fn &optional ARG)
(defalias 'org-clock-display #[256 "\303 \210\211\304\232\305\235\204 \306\202\" \203 \307\202\" \211\203! \310\202\" \311\204/ \312\313#\210\202H \2039 \314 \210\202H \203E \312\313\"\210\202H \315 \210\316\232\204\215 \212eb\210\313`\211\262e\232\203c \317\"\204m \320`\"\211\262\203\200 \211b\210\317\"\211\203| \321!\210\210\202S \210 \203\214 \322\323\303\313\324$\210)\n\325\245\n\325_Z\326\203\236 \327\202\247 \203\246 \330\202\247 \331\332\n!$\266\202\207" [org-clock-display-default-range org-remove-highlights-with-change org-clock-file-total-minutes org-clock-remove-overlays (4) ((16) today yesterday thisweek lastweek thismonth lastmonth thisyear lastyear untilnow interactive) :org-clock-minutes-default :org-clock-minutes-today :org-clock-minutes-custom :org-clock-minutes org-clock-sum-custom nil org-clock-sum-today org-clock-sum (64) get-text-property next-single-property-change org-clock-put-overlay add-hook before-change-functions local 60 message "Total file time for today: %s (%d hours and %d minutes)" "Total file time (custom): %s (%d hours and %d minutes)" "Total file time: %s (%d hours and %d minutes)" org-duration-from-minutes] 11 (#$ . 64485) "P"])
(defvar org-clock-overlays nil nil)
(make-variable-buffer-local 'org-clock-overlays)
#@211 Put an overlay on the headline at point, displaying TIME.
Create a new overlay and store it in `org-clock-overlays', so
that it will be easy to remove. This function assumes point is
on a headline.
(fn TIME)
(defalias 'org-clock-put-overlay #[257 "\302!\210\303\224b\210\304\303!\211\305\306\307\310iZ\311!\312\313\314 \"\262G#\315]\316\"\317\"\305\320\321\322!\"\323\"Q\324`\325 \"\326\"\210\211 B\211\207" [org-complex-heading-regexp org-clock-overlays org-match-line 4 match-string org-add-props make-string - 60 org-string-width line-prefix get-text-property point-at-bol 0 183 (face shadow) format " %9s " org-duration-from-minutes (face org-clock-overlay) make-overlay line-end-position org-overlay-display] 12 (#$ . 66303)])
#@178 Remove the occur highlights from the buffer.
If NOREMOVE is nil, remove this function from the
`before-change-functions' in the current buffer.
(fn &optional BEG END NOREMOVE)
(defalias 'org-clock-remove-overlays #[768 "?\205 \302\303 \"\210\304\211?\205 \305\306\307\310#\207" [org-inhibit-highlight-removal org-clock-overlays mapc delete-overlay nil remove-hook before-change-functions org-clock-remove-overlays local] 7 (#$ . 67054) 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 #[0 "\306 \205V \205V \307 !\205V \310=\203 \n \235\204& <\205V \n\235\205V \311\312 !\206/ \312 \311p!\2066 p\232\205V ` W\205V \212\214~\210\212\313 \210`+ V\205V \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 (#$ . 67508)])
#@176 Get a formatted clocktable with parameters according to PROPS.
The table is created in a temporary buffer, fully formatted and
fontified, and then returned.
(fn &rest PROPS)
(defalias 'org-clock-get-clocktable #[128 "\300\301\302#\262\303\304\"\204 \300\304\305#\262\303\306\"\204# \300\306\307#\262\310\311!r\211q\210\312\313\314\315\316!\317\"\305$\216\320 \210\321!\210\322 \210\323 \210\305y\210`\324\325\326\327#\210\330 {*\207" [plist-put :name "clocktable" plist-member :maxlevel 2 :scope agenda generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] org-mode org-create-dblock org-update-dblock org-font-lock-ensure re-search-forward "^[ ]*#\\+END" nil t point-at-bol] 8 (#$ . 68189)])
#@533 Update or create a table containing a report about clocked time.
If point is inside an existing clocktable block, update it.
Otherwise, insert a new one.
The new table inherits its properties from the variable
`org-clock-clocktable-default-properties'. The scope of the
clocktable, when not specified in the previous variable, is
`subtree' when the function is 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.
(fn &optional ARG)
(defalias 'org-clock-report #[256 "\301 \210\211\203 \302\303!\210\304 \210\305 \211\204* \306\307\310\311 \203 \312\202! \313D\314#!\210\202/ \211\211b\266\210\315 \207" [org-clock-clocktable-default-properties org-clock-remove-overlays org-find-dblock "clocktable" org-show-entry org-in-clocktable-p org-create-dblock org-combine-plists :scope org-before-first-heading-p file subtree (:name "clocktable") org-update-dblock] 7 (#$ . 68967) "P"])
(eval-after-load 'org #[0 "\300\301\302\"\207" [org-dynamic-block-define "clocktable" org-clock-report] 3])
#@64 Return the day of the week as an integer.
(fn DAY MONTH YEAR)
(defalias 'org-day-of-week #[771 "\300\301\302\303\304 $!!8\207" [6 decode-time date-to-time format "%d-%02d-%02dT00:00:00"] 11 (#$ . 70064)])
#@86 Get the date (week day year) of the first day of a given quarter.
(fn QUARTER YEAR)
(defalias 'org-quarter-to-date #[514 "\300\301U\203E \302\301\211#\262\211\303U\203 \304\305SE\202\336 \211\306U\203* \304\306SE\202\336 \211\307X\2037 \301E\202\336 \211\307V\205\336 \310SE\202\336 \311U\203y \302\301\307#\262\211\303U\203_ \312E\202\336 \211\307W\203l \313E\202\336 \211\307Y\205\336 \312E\202\336 \314U\203\255 \302\301\305#\262\211\303U\203\223 \315E\202\336 \211\307W\203\240 \316E\202\336 \211\307Y\205\336 \315E\202\336 \307U\205\336 \302\301\317#\262\211\303U\203\307 \320E\202\336 \211\307X\203\324 \321E\202\336 \211\307V\205\336 \320E\207" [nil 1 org-day-of-week 0 52 7 6 4 53 2 13 14 3 26 27 10 39 40] 7 (#$ . 70280)])
#@1132 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' or `untilnow'. If set to `interactive',
user is prompted for range boundaries. It can be a string or an
integer.
By default, a week starts Monday 0:00 and ends Sunday 24:00. The
range is determined relative to TIME, which defaults to current
time.
The return value is a list containing two internal times, one for
the beginning of the range and one for its end, like the ones
returned by `current-time' or `encode-time' and a string used to
display information. If AS-STRINGS is non-nil, the returned
times will be formatted strings. Note that the first element is
always nil when KEY is `untilnow'.
If WSTART is non-nil, use this number to specify the starting day
of a week (monday is 1). If MSTART is non-nil, use this number
to specify the starting day of a month (1 is the first day of the
month). If you can combine both, the month starting day will
have priority.
(fn KEY &optional TIME AS-STRINGS WSTART MSTART)
(defalias 'org-clock-special-range #[1281 "\302!\211A@\3038\3048\3058\3068\3078\310\311
\"\312\313Y\203& \305\202; \314Y\2030 \304\202; \305Y\203: \303\202; \315\316\211\211\211\211\211\211\211\317\320\f\"\203] \321 !\262
\315\262\315\262\322\262\202K\317\323\f\"\203\200 \321\324\315
\"!\262
\321\324\303
\"!\262\315\262\325\262\202K\317\326\f\"\203\270 \327\330!\210\331\332\321\324\303\"!\315\321\324\315\"!E!!\211A@\262\211@\262\3038\262\315\262
\333\262\210\202K\317\334\f\"\203\364 \327\330!\210\321\324\303
\"!\262 \331\332\335 \321\324\315\"!\"!!\211A@\262\211@\262\3038\262\315\262
\336\262\210\202K\317\337\f\"\203 \321\324\315
\"!\262
\321\324\303
\"!\262\321\324\304
\"!\262\340\262\202K\317\341\f\"\203K\321\324\315
\"!\262\n\342\343\f\312\315\224#!\262\344>\203K \312V\203K\345\346!\210 \312U\203\203\347\267\202\203\350\262\351\262\n\202\203\333\262\351\262\n\202\203\325\262\351\262\n\202\203\322\262\351\262\n\202\203\336\262\351\262\n\352\267\202\235\312\262\262\353\\\262\n\\\262\202\252\206\245\315\354 _
\312U\203\266\314Z\202\272
Z\\\312\262\262Z\262\314\\\262\266\202\252\262\312\262\206\336\315\262
\n\\\262
T\262\202\252S\n\\\312W\203O\351 S \\_\355\305\"\211A@\312U\203 @Z\262\315\262\315\262\2026@TZ\262\356\304A@_Z\262\306A@Z\262\266\312\262\262\315\262\262\304\\\262\262
\202\252\n\\\312V\203\252\n\\\262\f\262\304 \\S_\312\262\262\315\262\211T\262\305\\\262\210\202\252\312\262\262\315\262\315\262\f\n\\\262
\fT\262\202\252\357>\204\252\360\361\"\210\362\267\202\276\363\316\364\316\365$\202\314\316\202\314\366\312&\367\267\202\341\363\316\364\316\370$\202\371 \202\366\312\n\206\352\n\206\361\n\206\370\n\206\377\n\206&\372\267\202I\373\374\"\202J\373\375\"\202J\373\376\"\202J\373\377\"\202J\201@ !\201A \201B !Q\202J\201C \202J\201D \202J\316\204VE\202h A\205`\373\"\373\"E\262\266\203\207" [org-extend-today-until org-time-stamp-formats decode-time 2 3 4 5 6 format "%s" 0 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-iso-to-absolute week "\\`\\([0-9]+\\)-[qQ]\\([1-4]\\)\\'" org-quarter-to-date quarter "\\`\\([0-9]+\\)-\\([0-9]\\{1,2\\}\\)-\\([0-9]\\{1,2\\}\\)\\'" day "\\([-+][0-9]+\\)\\'" intern substring (quarter thisq) error "Looking forward with quarters isn't implemented" #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (yesterday 345 lastweek 354 lastmonth 363 lastyear 372 lastq 381)) today -1 #s(hash-table size 10 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (today 394 day 394 thisweek 415 week 415 thismonth 466 month 466 thisq 495 quarter 495 thisyear 642 year 642)) 24 -7 cl-floor 13 (untilnow interactive) user-error "No such time block %s" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 689 untilnow 698)) org-read-date t "Range start? " encode-time #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 723 untilnow 732)) "Range end? " current-time #s(hash-table size 12 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (today 783 day 783 thisweek 790 week 790 thismonth 797 month 797 thisyear 804 year 804 thisq 811 quarter 811 interactive 829 untilnow 835)) format-time-string "%A, %B %d, %Y" "week %G-W%V" "%B %Y" "the year %Y" org-count-quarter " quarter of " number-to-string "(Range interactively set)" "now"] 31 (#$ . 71058)])
#@10
(fn N)
(defalias 'org-count-quarter #[257 "\211\300U\203 \301\207\211\302U\203 \303\207\211\304U\203 \305\207\211\306U\205 \307\207" [1 "1st" 2 "2nd" 3 "3rd" 4 "4th"] 3 (#$ . 76006)])
#@434 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.
(fn DIR N)
(defalias 'org-clocktable-shift #[514 "\300!\262\301>\203 \211[\262\212\302 b\210\303\304!\204 \305\306!\202\345\307\224\307\225\310\307!\311\211\211\211\211\211\211\211\211 \312\267\202R \313\262\n\202R \314\262\n\202R \315\262\n\202R \316\262\n\202R \317\262\n\320\321 \"\203\222 \310\307 \"\262 \322\225\203p \323\310\322\f\"!\202q \324\262
\\\262\324U\203\206 \202\215 \325\326\n\n#\262\202\304\320\327 \"\203\300\323\310\307\f\"!\262\330\225\205\255 \310\330 \"\262\331\225\205\273 \323\310\331\f\"!\262\332\225\205\311 \323\310\332\f\"!\262\203\346 \333\334\335\324\211\211 \\
&\"\262\202\304\203(\320\336\"\203(\203(G\324V\203(\337\340!\210\341\342\\\307 E!!\262\333\343\335\324\211\211A@ @\322 8&\"\262\202\304\203\226\320\344\"\203\226\203\226G\324V\203\226\337\340!\210
\\\331V\203R\324\262T\262
\\\324U\203b\345\262S\262\341\342\346\\ \"!!\262\333\347!\350\347\\!Q\335\324\211\211A@ @\322 8&\"\262\202\304\203\260\333\351\335\324\211\211\307 \\
&\"\262\202\304\203\304\347\\!\262\202\304\305\352!\210\205\343 b\210c\210``\fZ\\|\210\353\307!\210\354 \210\355\266\214)\207" [prefix-numeric-value (left down) point-at-bol looking-at "^[ ]*#\\+BEGIN:[ ]+clocktable\\>.*?:block[ ]+\\(\\S-+\\)" user-error "Line needs a :block definition before this command works" 1 match-string nil #s(hash-table size 5 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("yesterday" 55 "lastweek" 61 "lastmonth" 67 "lastyear" 73 "lastq" 79)) "today-1" "thisweek-1" "thismonth-1" "thisyear-1" "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-iso-to-absolute "%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] 24 (#$ . 76203)])
#@45 Write the standard clocktable.
(fn PARAMS)
(defalias 'org-dblock-write:clocktable #[257 "\211C\211\304\242\"\240\210\3052\243\306\242\307\"\310p!\311\267\202> \312\313!\202z \314\312\313!!\202z \315!\211\2055 \314C!\262\202z \211\202z 9\203b \316\317\320!\"\203P \211\202z \321!\203[ \202z \322\323\"\202z \321!\203m \202z :\203v \202z \322\323\"\306\242\324\"\306\242\325\"\306\242\326\"\306\242\327\"\306\242\330\"\306 \242\331\"\306\n\242\332\"\306 \242\333\"\206\260 \206\260 \334\335\203\313 \336 \335\313 %\262\211@\262\211A@\262\203\355 \204\342 \203\336 \204\342 \322\337!\210\340
\242!\210\341\305\335\"\210\342\n:\203\371 \n\202\374 \nC!\210`\n:\203\343\344\345\346\347\350!\351\"\352\353%\f\"\202\201\214\f\203y\f\354\267\202<~\210\202y\355 \210\202y\356 \2041\355 \210\202y\f9\203y\316\317\320!\"\203y\357\360\361\320!\"!\3052t\356 \205s\362\n!\210\363 !X\203Y\341\305\335\"\210\202Y0\210\355 \266\364\335\242\")C?\205\221 :\205\221
\365=?\304\242\366D\"#\266\203\266\2140\207" [org-clocktable-defaults org-clock-clocktable-formatter org-outline-regexp outline-level org-combine-plists exit plist-get :scope org-base-buffer #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (agenda 28 agenda-with-archives 34 file-with-archives 42 tree 58 subtree 58 file 58 nil 58)) org-agenda-files t org-add-archive-files buffer-file-name string-match "\\`tree\\([0-9]+\\)\\'" symbol-name functionp user-error "Unknown scope: %S" :block :tstart :tend :wstart :mstart :step :hidefiles :formatter org-clocktable-write-default nil org-clock-special-range "Clocktable `:step' can only be used with `:block' or `:tstart, :end'" org-clocktable-steps throw org-agenda-prepare-buffers mapcar make-byte-code 257 "r\301!q\210\212\214\302\300\242\"+\207" vconcat vector [find-buffer-visiting org-clock-get-table-data] 4 "\n\n(fn FILE)" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (file 294 subtree 299 tree 305)) org-narrow-to-subtree org-up-heading-safe string-to-number match-string 1 looking-at org-reduced-level org-clock-get-table-data file-with-archives :multifile] 24 (#$ . 78780)])
#@262 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.
(fn IPOS TABLES PARAMS)
(defalias 'org-clocktable-write-default #[771 "\306\307\"\206 \310\306\311\"\306\312\"\306\313\"\306\314\"\306\315\"\306\316\"\206& \317\306\320\"\306 \321\"\306\n\322\"\206= \211\205= \323?\205G \306 \324\"\306\f\325\"\306
\326\"\306\327\"\204a \330W\203e \331\202\205 \332\333\"\306\334\"\206u \335^\204~ \331\202\202 \336\337\"^\262\206\217 \306\340\"\306\341\"\342\336\343\344\345\"\"\346\211\n\203\275 \n\250\203\275 \203\275 \347\350!\210\351\352\353
\"!\262 \n\203\365 \n\250\204\365 \n9\203\341 \354\355\f!\346\342\356#)\266\203\204\352 \357\360\f\"\210\202\365 \342\262\361\355\f!!\262 b\210\362\206.\352\363\364\365\"\366\367\342\211\"!\203,\330\370\346\342\306 \371\"\306 \372\"%8\352\373\"\262\202-\374$!\210\n\203\202\n\250\203\202\211\204\202\362\375\203J\375\202K\374\f\203T\375\202U\374\f\203^\375\202_\374\f\203h\375\202i\374\f\203w\376
G\377\"\202x\374\352\201@ \"&\210\362\375\203\225\364\201A \"\375P\202\226\374\f\203\247\364\201B \"\375P\202\250\374\f\203\271\364\201C \"\375P\202\272\374\f\203\305\201D \202\306\374\f\203\332\201E \201F \375#\375P\202\333\374\364\201G \"\375P\364\201H \"\375P\376\201I S]\377\"
\201J =\203\201K \202 \201L &\n\210\362\201M \375\203%\352\201N \364\201O \"\"\202&\374
\203/\375\2020\374
\2039\375\202:\374
\203C\375\202D\374\376G\377\"\352\n\364\201P \"\"\201Q P\352\n\201R \206e\201I !\"\375\376\201I S]\377\"\201J =\204\374\202\226\203\215\201I U\203\223\201S \202\226\201T \201L &
\210\203\210\201I V\203\210\211\203\207\211@\211@A\211@A\211@A\203\314\201I V\204\326\306 \201U \"\204~\362\201M !\210 \2036\362\352\201V \352 \364\201W %\"\"\201X Q\201Y !\203\201Q \202\374\203\201Q \202\374\203 \201Q \202 \374\203+\376G\377\"\202,\374\201R \n!&!\210\201I V\203~\211\203}\211@\211@A\211@A\211@A\211@A\211@A\211@A\n
\203\242\356\352\201Z \f\"\"\203\231\330\225\203\231\352\201[ \201\\ \331\"\201] \201\\ \330\".\"#\202\240\201] +\"\262\201^ \362\3754\203\260\375\202\261\374,\203\300\352\201_ \"\202\301\374,\203\315\375P\202\316\374,\203\344\201E \201F \n\201` #\375P\202\345\374,\203\201E \201a \201b \201c \201d \201e !\201f \"\201g \201h %.\375#\375P\202\374+\203\"\201i !\202#\3745
#\376\201I 0
^S]\377\"\n7
\201R !#\376\201I 2Z]\377\"/\201J =\203n\352\201j \335\201k 3!\245_\"\202o\374\201L &
\266A\266\202\202@\210\266 A\266\202\202\252\210\201l \201m !\210\203\234\201J =\203\317\201n \306\201o \"!\211\203\313\356\201p \"\203\313\342\262\201L \201\\ \331\"\261\210\201q \201I !\210\210\202\347;\203\341\201r \261\210\342\262\202\347\357\201s !\210b\210\201t \346w\210\201u \210
\203\377\201u \210\203 \212\201v \317!\210\201w @!\210\201x \346A\"\210)\203)\201y \201z !\210)\207" [case-fold-search inhibit-changing-match-data org-clock-total-time-cell-format org-clock-file-time-cell-format org-link-bracket-re org-hide-emphasis-markers plist-get :lang "en" :multifile :block :sort :header :link :maxlevel 3 :emphasize :compact :narrow 40! :level :timestamp :tags :properties 2 1 cl-mapcan #[257 "\211:\205= \211A\211:\205; \211@\300!?\206 \211\301U???\2059 A\211:\2057 \211@A\211?\2055 \302\303\"\262\266\202\262\262\262\207" [wholenump 0 mapcar car] 10 "\n\n(fn TABLE)"] :tcolumns 100 apply max :indent :formula t + mapcar cadr nil message "Using hard narrowing in clocktable to allow for links" intern format "%d!" "\\`[0-9]+!\\'" symbol-name string-match user-error "Invalid value %s of :narrow property in clock table" string-to-number insert-before-markers "#+CAPTION: %s %s%s\n" org-clock--translate "Clock summary at" format-time-string org-time-stamp-format org-clock-special-range :wstart :mstart ", for %s." #1="" "|" make-string 124 "<%d>| |\n" "File" "L" "Timestamp" "Tags |" mapconcat identity "Headline" "Time" 0 % "%|\n" "\n" "|-\n" "| %s " "ALL" "Total time" "| " org-duration-from-minutes "0.0|" "100.0|" :fileskip0 "| %s %s | %s%s%s" "File time" " | *%s*|\n" file-name-nondirectory "\\`%s\\'" "[[%s][%s]]" match-string org-shorten-string #[771 "\300\204 \301\202 \302U\203 \303\202 \304U\203 \305\202 \301\"\207" [format "%s |" 1 "*%s* |" 2 "/%s/ |"] 6 "\n\n(fn EMPH LEVEL F)"] "%d|" ", " make-byte-code 257 "\301\300\"A\206 \302\207" vconcat vector [assoc #1#] 4 "\n\n(fn P)" org-clocktable-indent-string "%.1f |" float delete-char -1 org-string-nw-p :content "^\\([ ]*#\\+tblfm:.*\\)" beginning-of-line "\n#+TBLFM: " "Invalid :formula parameter in clocktable" "^|" org-table-align org-table-goto-line org-table-goto-column org-table-sort-lines org-table-recalculate all] 73 (#$ . 81038)])
#@121 Return indentation string according to LEVEL.
LEVEL is an integer. Indent by two spaces per level above 1.
(fn LEVEL)
(defalias 'org-clocktable-indent-string #[257 "\211\300U\203 \301\207\302\303\304S_\305\"P\207" [1 "" "\\_" make-string 2 32] 5 (#$ . 86144)])
#@156 Create one or more clock tables, according to PARAMS.
Step through the range specifications in plist PARAMS to make
a number of clock tables.
(fn PARAMS)
(defalias 'org-clocktable-steps #[257 "\302\303\"\302\304\"\211\305\267\202\" \306\202& \307\202& \310\202& \311\202& \312\202& \313\314\"\302\315\"\206. \316\302\317\"\2066 \316\302\320\"\211\205K \211\321\322\323%\262\262\211\203V \211@\202[ \302\324\"\211\247\203\213 \211\325!\211@A\211@A\211@A\326\327\330\211 \257\"\266\203\266\207\262\202\227 \211\331\332\206\223 \333!!\262\262\203\243 A@\202\250 \302\334\"\211\247\203\330 \211\325!\211@A\211@A\211@A\326\327\330\211 \257\"\266\203\266\207\262\202\340 \211\331\332!!\262\262\335\"\205\351n\204\360 \336c\210\336\337\340\322\323\"\"\336\261\210\326\327\341!\211A\211A\211A\211@A\211@A\211@A\211@\211 \342\267\202\220\330\211T\257\202\221U\203<\343\202C\344Z\343\"\330\211\\\257\262\202\221\330\211\211\345W\203a\345\202b\316\345W\203l\202nT\257\202\221\330\211\211T\257\202\221\330\211\316\211T\257\202\221\322\266\204\266\213\"\346\330!\347\350\f\351\352\304\322\320\322\324\337\340\323\211\"\"\334\337\340\323\211\"\335\"\203\300\202\302\"\257\n\"!\323\353\354!\210)\n\203\336\211\330\232\203\336\346 |\210\262\266\330\210\202\342 \207" [org-extend-today-until case-fold-search plist-get :stepskip0 :step #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (day 14 week 18 semimonth 22 month 26 year 30)) "Daily report: " "Weekly report starting on: " "Semimonthly report starting on: " "Monthly report starting on: " "Annual report starting on: " user-error "Unknown `:step' specification: %S" :wstart 1 :mstart :block org-clock-special-range nil t :tstart calendar-gregorian-from-absolute apply encode-time 0 seconds-to-time org-matcher-time "<2003-01-01 Thu 00:00>" :tend time-less-p "\n" format-time-string org-time-stamp-format decode-time #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (day 292 week 305 semimonth 340 month 373 year 387)) 7 mod 16 line-beginning-position org-dblock-write:clocktable org-combine-plists :header "" re-search-forward "^[ ]*#\\+END:"] 33 (#$ . 86416)])
#@1347 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 TAGS TIMESTAMP TIME PROPERTIES)
LEVEL: The level of the headline, as an integer. This will be
the reduced level, 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.
TAGS: The list of tags of the headline.
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.
PROPERTIES: The list properties specified in the `:properties' parameter
along with their value, as an alist following the pattern
(NAME . VALUE).
(fn FILE PARAMS)
(defalias 'org-clock-get-table-data #[514 "\301\302\"\206 \303\301\304\"\301\305\"\301\306\"\301\307\"\301\310\"\301\311\"\301\312\"\301 \313\"\301\n\314\"\301 \315\"\301\f\316\"\205C \317!A\320\211\211\211\211\n\203c \321 \320\322%\262@\262A@\262\250\203o \323!\262
\250\203{ \323!\262\203\226 <\203\226 \324\325\3268@A@$\262
\203\261
<\203\261 \324\325\3268@A@$\262\203\274 \327!\262
\203\307 \327!\262\212\330\205\336 \331\320\332\333\334\f\335BBEE#\210eb\210\322\262o\203\377 \320\262\203\377 \336`\337\"\203\377 e\211\262\204 \340`\337\"\211\262\203\252b\210\336\337\"\211\203\246\211\341V\203\246\342 \203\246\343\344 !\211X\203\245\345\322\211\211\211$\f\2049\211\202l\346!\347\350 \204F\202L\324\351\350 #\352\353\354\355#!\320\353\203^\356\202_\357\355\353\360\355##\266\202\"\262\f\205s\361 \205|\362\363\364\"\f\205\225\365\320\366\367\370\371\372\373!\374\"\375\376%\"\"\n\257B\262\266\210\210\202\346 \237E)\207" [org-clock-file-total-minutes plist-get :maxlevel 3 :timestamp :tstart :tend :wstart :mstart :block :link :tags :match :properties :inherit-props org-make-tags-matcher nil org-clock-special-range t calendar-gregorian-from-absolute format "%4d-%02d-%02d" 2 org-matcher-time org-clock-sum lambda let* ((todo (org-get-todo-state)) (tags-list (org-get-tags)) (org-scanner-tags tags-list) (org-trust-scanner-tags t)) funcall (todo tags-list nil) get-text-property :org-clock-minutes next-single-property-change 0 org-at-heading-p org-reduced-level org-current-level org-get-heading org-link-heading-search-string org-link-make-string buffer-file-name "file:%s::%s" org-link-display-format replace-regexp-in-string "\\[[0-9]*\\(?:%\\|/[0-9]*\\)\\]" "" "\\`\\([ ]*\n\\)+" "\\`[ \n
]+" "[ \n
]+\\'" org-get-tags cl-some #[257 "\300`\"\207" [org-entry-get] 4 "\n\n(fn P)"] ("SCHEDULED" "DEADLINE" "TIMESTAMP" "TIMESTAMP_IA") delq mapcar make-byte-code 257 "\301`\300#\211\205\f B\207" vconcat vector [org-entry-get] 5 "\n\n(fn P)"] 34 (#$ . 88747)])
#@28 Was the clock file loaded?
(defvar org-clock-loaded nil (#$ . 92206))
#@73 If this is a CLOCK line, update it and return t.
Otherwise, return nil.
(defalias 'org-clock-update-time-maybe #[0 "\212\303\304!\210\305\306w\210\307!\205\262 \310\311Q\306\211\211\211\211\211\307!\204$ \306\202\260 \312\225\204I \313 !p\232\205\260 `V\205\260 \314 X\205\260 \315\316\304!!\317 \202\260 \320\225\203T \320\224\320\225|\210\304\210\316\304!\262\316\321!\262\322\323\324\325!\"!\322\323\324\325\n!\"!Z\262\326W\262\327!\262\330\331\245!\262\331_Z\262\330\332\245!\262\332_Z\262\333\334\203\246 \335\202\247 \336#\261\210\337\266\207)\207" [org-clock-string org-clock-marker org-clock-start-time beginning-of-line 1 " " nil looking-at "[ ]*" " *[[<]\\([^]>]+\\)[]>]\\(-+[[<]\\([^]>]+\\)[]>]\\([ ]*=>.*\\)?\\)?" 2 marker-buffer point-at-eol org-time-string-to-time match-string org-clock-update-mode-line 4 3 float-time apply encode-time org-parse-time-string 0 abs floor 3600 60 " => " format "-%d:%02d" "%2d:%02d" t] 13 (#$ . 92282) 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 #[0 "\205\222 \204 \n\204 \306 !?\205\222 \307\310!\311\312\313\314\315!\316\"\317$\216r\211q\210\320\321\322 !\323 \324\325\326!!$c\210\327>\203k \330\331 !\332!\205W \333!\205W \f?\206W \334\320\335
\"!\262\203k \320\336\333\330\331 !!\337(!#c\210\340>\205\202 )\205\202 \320\341\342\343\344)!\345#\"c)rq\210\346\347\211\347\312%\210*\266\202\207" [org-clock-persist org-clock-loaded org-clock-has-been-used org-clock-persist-file org-clock-persist-query-save org-clock-heading file-exists-p generate-new-buffer " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 format ";; %s - %s at %s\n" file-name-nondirectory system-name format-time-string org-time-stamp-format t (t clock) org-base-buffer org-clocking-buffer buffer-live-p buffer-file-name y-or-n-p "Save current clock (%s) " "(setq org-clock-stored-resume-clock '(%S . %d))\n" marker-position (t history) "(setq org-clock-stored-history '(%s))\n" mapconcat #[257 "\300\301!!\302!\205 \303!\205 \304\305\303!\306!#\207" [org-base-buffer marker-buffer buffer-live-p buffer-file-name format "(%S . %d)" marker-position] 7 "\n\n(fn M)"] reverse " " write-region nil org-clock-marker org-clock-history] 9 (#$ . 93281)])
#@67 Load clock-related data from disk, maybe resuming a stored clock.
(defalias 'org-clock-load #[0 "\205\202 ?\205\202 \306\n!\204 \307\310\n\"\207\307\311!\210\312\n!\210\313 \211\203: \211@\211@A\211\314\315!\"\266A\266\202\202 \210\f:\205\202 \f@\316!\205\200 \fA\211r\315!q\210
\203g \317\320\321\212b\210\322\313\211\")\"!\205{ b\210\323\324 \325 \210\326 \205z \327 *)\266\202\262\262\207" [org-clock-persist org-clock-loaded org-clock-persist-file org-clock-stored-history org-clock-stored-resume-clock org-clock-persist-query-resume file-readable-p message "Not restoring clock data; %S not found" "Restoring clock data" load-file t org-clock-history-push find-file-noselect file-exists-p y-or-n-p format "Resume clock (%s) " org-get-heading auto-restart nil org-clock-in org-invisible-p org-show-context org-clock-auto-clock-resolution org-clock-in-resume] 10 (#$ . 94694)])
(byte-code "\301\302\303#\210\304\305!\207" [org-mode-map org-defkey "" org-clock-modify-effort-estimate provide org-clock] 4)
Mini Shell