| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file contains utf-8 non-ASCII characters, | |
| 7 | ;;; and so cannot be loaded into Emacs 22 or earlier. | |
| 8 | (and (boundp 'emacs-version) | |
| 9 | (< (aref emacs-version (1- (length emacs-version))) ?A) | |
| 10 | (string-lessp emacs-version "23") | |
| 11 | (error "`%s' was compiled for Emacs 23 or later" #$)) | |
| 12 | ||
| 13 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 14 | ||
| 15 | ||
| 16 | (byte-code "\300\301!\210\300\302!\207" [require cl-lib org] 2) | |
| 17 | (defvar org-frame-title-format-backup frame-title-format) | |
| 18 | (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) | |
| 19 | #@232 Value of `org-clock-into-drawer'. but let properties overrule. | |
| 20 | ||
| 21 | If the current entry has or inherits a CLOCK_INTO_DRAWER | |
| 22 | property, it will be used instead of the default value. | |
| 23 | ||
| 24 | Return value is either a string, an integer, or nil. | |
| 25 | (defalias 'org-clock-into-drawer #[0 "\302\303\304\305\306$\211\307\232\203 \303\202\\ \211\310\232\203 \311 \206\\ \312\202\\ \313!\203? \314\303\306\315#)\266\203\203; \316!\202\\ \211\202\\ \313 !\206\\ \250\203N \202\\ \204V \303\202\\ \311 \206\\ \312\207" [inhibit-changing-match-data org-clock-into-drawer org-entry-get nil "CLOCK_INTO_DRAWER" inherit t "nil" "t" org-log-into-drawer "LOGBOOK" org-string-nw-p "\\`[0-9]+\\'" string-match string-to-number] 8 (#$ . 1738)]) | |
| 26 | (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\310\201P &\210\201Q \201R \201S \201T \201U \201V \306\307&\210\300\201W \302\303\201X DD\201Y \306\307\315\201K \310\201Z & \210\300\201[ \302\303\201\\ DD\201] \306\201R \315\201K \310\303& \210\300\201^ \302\303\201_ DD\201` \306\201R \315\201K \310\201a & \210\300\201b \302\303\201c DD\201d \306\201R \310\201Z &\210\300\201e \302\303\201f DD\201g \306\307\310\201h &\210\300\201i \302\303\201j DD\201k \306\307\310\201l &\210\300\201m \302\303\201n DD\201o \306\307\315\201K \310\325& \210\300\201p \302\303\201q DD\201r \306\307\315\201K \310\325& \210\300\201s \302\303\201t DD\201u \310\325\315\201K \306\307& \210\300\201v \302\303\201w DD\201x \306\307\315\201K \310\367& \210\300\201y \302\303\201z DD\201{ \306\307\315\201K \310\367& \210\300\201| \302\303\201} DD\201~ \306\307\310\201 &\210\300\201\200 \302\303\201\201 DD\201\202 \315\201K \306\307\310\201\203 & \210\300\201\204 \302\303\201\205 DD\201\206 \306\307\315\316\317\201\207 \310\367& \210\300\201\210 \302\303\201\211 DD\201\212 \306\307\310\342&\210\300\201\213 \302\303\201\214 DD\201\215 \306\307\310\201\216 \201\217 \201\220 & \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." 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-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\326\327\330\331\311\332\311\333\311\334\311\335\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 :emphasize :link :narrow 40! :indent t :formula :timestamp :level :tcolumns :formatter] 42] "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 :scope file)] 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-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] 12) | |
| 27 | #@179 Hook run when preparing the clock. | |
| 28 | This hook is run before anything happens to the task that | |
| 29 | you want to clock in. For example, you can use this hook | |
| 30 | to add an effort property. | |
| 31 | (defvar org-clock-in-prepare-hook nil (#$ . 15351)) | |
| 32 | #@35 Hook run when starting the clock. | |
| 33 | (defvar org-clock-in-hook nil (#$ . 15587)) | |
| 34 | #@43 Hook run when stopping the current clock. | |
| 35 | (defvar org-clock-out-hook nil (#$ . 15671)) | |
| 36 | #@44 Hook run when canceling the current clock. | |
| 37 | (defvar org-clock-cancel-hook nil (#$ . 15764)) | |
| 38 | #@57 Hook run when selecting the currently clocked-in entry. | |
| 39 | (defvar org-clock-goto-hook nil (#$ . 15861)) | |
| 40 | #@59 Has the clock been used during the current Emacs session? | |
| 41 | (defvar org-clock-has-been-used nil (#$ . 15969)) | |
| 42 | #@46 Clock history, populated by `org-clock-load' | |
| 43 | (defvar org-clock-stored-history nil (#$ . 16083)) | |
| 44 | #@44 Clock to resume, saved by `org-clock-load' | |
| 45 | (defvar org-clock-stored-resume-clock nil (#$ . 16185)) | |
| 46 | (defvar org-mode-line-string "") | |
| 47 | (put 'org-mode-line-string 'risky-local-variable t) | |
| 48 | (defvar org-clock-mode-line-timer nil) | |
| 49 | (defvar org-clock-idle-timer nil) | |
| 50 | (defvar org-clock-start-time "") | |
| 51 | #@72 If non-nil, user canceled a clock; this is when leftover time started. | |
| 52 | (defvar org-clock-leftover-time nil (#$ . 16481)) | |
| 53 | #@49 Effort estimate of the currently clocking task. | |
| 54 | (defvar org-clock-effort "" (#$ . 16608)) | |
| 55 | #@126 Holds total time, spent previously on currently clocked item. | |
| 56 | This does not include the time in the currently running clock. | |
| 57 | (defvar org-clock-total-time nil (#$ . 16705)) | |
| 58 | #@50 List of marker pointing to recent clocked tasks. | |
| 59 | (defvar org-clock-history nil (#$ . 16883)) | |
| 60 | #@146 Marker pointing to the default task that should clock time. | |
| 61 | The clock can be made to switch to this task after clocking out | |
| 62 | of a different task. | |
| 63 | (defvar org-clock-default-task (make-marker) (#$ . 16983)) | |
| 64 | #@77 Marker pointing to the task that has been interrupted by the current clock. | |
| 65 | (defvar org-clock-interrupted-task (make-marker) (#$ . 17193)) | |
| 66 | (defvar org-clock-mode-line-map (make-sparse-keymap)) | |
| 67 | (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) | |
| 68 | #@152 Translate string S into using string LANGUAGE. | |
| 69 | Assume S in the English term to translate. Return S as-is if it | |
| 70 | cannot be translated. | |
| 71 | ||
| 72 | (fn S LANGUAGE) | |
| 73 | (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 (#$ . 17553)]) | |
| 74 | #@60 Return currently clocked heading, formatted for mode line. | |
| 75 | (defalias 'org-clock--mode-line-heading #[0 "\303!\203 \207\304 \203 \305\207\306 \307\310\311\211\211\211$\312\211\203) \313\314G\n$\210\2021 \315\314G\312$\210\266\202#\207" [org-clock-heading-function org-bracket-link-analytic-regexp org-rm-props functionp org-before-first-heading-p "???" replace-regexp-in-string "\\5" org-get-heading t nil remove-text-properties 0 set-text-properties] 10 (#$ . 18183)]) | |
| 76 | (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]) | |
| 77 | #@64 Push a marker to the clock history. | |
| 78 | ||
| 79 | (fn &optional POS BUFFER) | |
| 80 | (defalias 'org-clock-history-push #[512 "\302\303^]\304 \206 `\305\206 p!\223\306\211 \235\211\262\203) @\306\211\223\210\202 \307\306\310\311 \"\"\211G\211\262Y\203E \312\313# \237\233\237 B\211\207" [org-clock-history-length org-clock-history 1 35 make-marker org-base-buffer nil delq mapcar #[257 "\300!\205 \211\207" [marker-buffer] 3 "\n\n(fn X)"] - -1] 11 (#$ . 18977)]) | |
| 81 | #@61 Save relative positions of markers in region. | |
| 82 | ||
| 83 | (fn BEG END) | |
| 84 | (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 (#$ . 19443)]) | |
| 85 | #@55 Return clock drawer's name for current entry, or nil. | |
| 86 | (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 (#$ . 19818)]) | |
| 87 | #@72 Return the clocking buffer if we are currently clocking a task or nil. | |
| 88 | (defalias 'org-clocking-buffer #[0 "\301!\207" [org-clock-marker marker-buffer] 2 (#$ . 20084)]) | |
| 89 | #@32 Return t when clocking a task. | |
| 90 | (defalias 'org-clocking-p #[0 "\300 \301\232?\207" [org-clocking-buffer nil] 2 (#$ . 20259)]) | |
| 91 | #@63 Hook called in task selection just before prompting the user. | |
| 92 | (defvar org-clock-before-select-task-hook nil (#$ . 20390)) | |
| 93 | #@187 Select a task that was recently associated with clocking. | |
| 94 | Return marker position of the selected task. Raise an error if | |
| 95 | there is no recent clock to choose from. | |
| 96 | ||
| 97 | (fn &optional PROMPT) | |
| 98 | (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=\203 \305\202=\360=\203(\305\202=\361\"\2039\361\"A\202=\310\362\")\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 113 120 assoc "Invalid task choice %c"] 14 (#$ . 20519)]) | |
| 99 | #@151 Insert a line for the clock selection menu. | |
| 100 | And return a cons cell with the selection character integer and the marker | |
| 101 | pointing to it. | |
| 102 | ||
| 103 | (fn I MARKER) | |
| 104 | (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\316P \"G\303O\211\2620\202K \210\202L \210+\205c \205c \317\320$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 org-fontify-like-in-org-mode format "[%c] %-12s %s\n"] 11 (#$ . 22311)]) | |
| 105 | #@69 Internal flag indicating if the clock has overrun the planned time. | |
| 106 | (defvar org-clock-task-overrun nil (#$ . 22998)) | |
| 107 | #@59 Number of seconds between mode line clock string updates. | |
| 108 | (defvar org-clock-update-period 60 (#$ . 23121)) | |
| 109 | #@208 Form a clock-string, that will be shown in the mode line. | |
| 110 | If an effort estimate was defined for the current item, use | |
| 111 | 01:30/01:50 format (clocked/estimated). | |
| 112 | If not, show simply the clocked time like 01:50. | |
| 113 | (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 (#$ . 23235)]) | |
| 114 | #@54 Get the last clock-out time for the current subtree. | |
| 115 | (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 (#$ . 23915)]) | |
| 116 | #@125 Update mode line with clock information. | |
| 117 | When optional argument is non-nil, refresh cached heading. | |
| 118 | ||
| 119 | (fn &optional REFRESH) | |
| 120 | (defalias 'org-clock-update-mode-line #[256 "\203\n \306 \210\202\f \307\211\203 \310 \311\312 \313 \314V\2032 G V\2032 \311\314 O\315\316\nQ#\2027 \311\315#\266\202\317\f\320\321% \203Q \203Q \311\322\323# P\324 \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 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 (#$ . 24228)]) | |
| 121 | #@142 Get the clocked time for the current item in minutes. | |
| 122 | The time returned includes the time spent on this task in | |
| 123 | previous clocking intervals. | |
| 124 | (defalias 'org-clock-get-clocked-time #[0 "\302\303 \303!Z\304\"\211 \206 \305\\\207" [org-clock-start-time org-clock-total-time floor float-time 60 0] 4 (#$ . 25063)]) | |
| 125 | #@538 Add to or set the effort estimate of the item currently being clocked. | |
| 126 | VALUE can be a number of minutes, or a string with format hh:mm or mm. | |
| 127 | When the string starts with a + or a - sign, the current value of the effort | |
| 128 | property will be changed by that amount. If the effort value is expressed | |
| 129 | as an `org-effort-durations' (e.g. "3h"), the modified value will be | |
| 130 | converted to a hh:mm duration. | |
| 131 | ||
| 132 | This command will update the "Effort" property of the currently | |
| 133 | clocked item, and the value displayed in the mode line. | |
| 134 | ||
| 135 | (fn &optional VALUE) | |
| 136 | (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\303O\262\202? \315\262\313!\262\211\316\232\203R Z\262\202] \211\317\232\203] \\\262\315]\262\320!\321 \322#\210\323 \210\324\325\"\207\324\326!\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 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 (#$ . 25382) nil]) | |
| 137 | #@46 Shows if we have shown notification already. | |
| 138 | (defvar org-clock-notification-was-shown nil (#$ . 26619)) | |
| 139 | #@100 Show notification if we spent more time than we estimated before. | |
| 140 | Notification is shown only once. | |
| 141 | (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 (#$ . 26730)]) | |
| 142 | #@141 Send a NOTIFICATION and maybe PLAY-SOUND. | |
| 143 | If PLAY-SOUND is non-nil, it overrides `org-clock-sound'. | |
| 144 | ||
| 145 | (fn NOTIFICATION &optional PLAY-SOUND) | |
| 146 | (defalias 'org-notify #[513 "\300!\210\211\205 \301!\207" [org-show-notification org-clock-play-sound] 4 (#$ . 27277)]) | |
| 147 | #@142 Show notification. | |
| 148 | Use `org-show-notification-handler' if defined, | |
| 149 | use libnotify if available, or fall back on a message. | |
| 150 | ||
| 151 | (fn NOTIFICATION) | |
| 152 | (defalias 'org-show-notification #[257 "\301!\203\n !\207;\203 \302\303\304$\207\305\306!\203& \306\307\310\311\312\313&\207\314\315!\2033 \302\303\304\315$\207\316\317\"\207" [org-show-notification-handler functionp start-process "emacs-timer-notification" nil fboundp notifications-notify :title "Org mode message" :body :urgency low executable-find "notify-send" message "%s"] 8 (#$ . 27547)]) | |
| 153 | #@171 Play sound as configured by `org-clock-sound'. | |
| 154 | Use alsa's aplay tool if available. | |
| 155 | If CLOCK-SOUND is non-nil, it overrides `org-clock-sound'. | |
| 156 | ||
| 157 | (fn &optional CLOCK-SOUND) | |
| 158 | (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 (#$ . 28103)]) | |
| 159 | #@56 Information for the mode line about the running clock. | |
| 160 | (defvar org-clock-mode-line-entry nil (#$ . 28673)) | |
| 161 | #@68 Search through the given file and find all open clocks. | |
| 162 | ||
| 163 | (fn FILE) | |
| 164 | (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 (#$ . 28786)]) | |
| 165 | #@62 Return t if CLOCK is the currently active clock. | |
| 166 | ||
| 167 | (fn CLOCK) | |
| 168 | (defalias 'org-is-active-clock #[257 "\301 \205 @U\207" [org-clock-marker org-clock-is-active] 3 (#$ . 29182)]) | |
| 169 | (put 'org-is-active-clock 'byte-optimizer 'byte-compile-inline-expand) | |
| 170 | #@80 Evaluate FORMS with CLOCK as the current active clock. | |
| 171 | ||
| 172 | (fn CLOCK &rest FORMS) | |
| 173 | (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 (#$ . 29435)])) | |
| 174 | (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) | |
| 175 | #@150 Evaluate FORMS with CLOCK as the current active clock. | |
| 176 | This macro also protects the current active clock from being altered. | |
| 177 | ||
| 178 | (fn CLOCK &rest FORMS) | |
| 179 | (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 (#$ . 29869)])) | |
| 180 | (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) | |
| 181 | #@136 Clock in to the clock located by CLOCK. | |
| 182 | If necessary, clock-out of the currently active clock. | |
| 183 | ||
| 184 | (fn CLOCK &optional RESUME START-TIME) | |
| 185 | (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 (#$ . 30502)]) | |
| 186 | (put 'org-clock-clock-in 'byte-optimizer 'byte-compile-inline-expand) | |
| 187 | #@85 Clock out of the clock located by CLOCK. | |
| 188 | ||
| 189 | (fn CLOCK &optional FAIL-QUIETLY AT-TIME) | |
| 190 | (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 (#$ . 30907)]) | |
| 191 | (put 'org-clock-clock-out 'byte-optimizer 'byte-compile-inline-expand) | |
| 192 | #@48 Cancel the clock located by CLOCK. | |
| 193 | ||
| 194 | (fn CLOCK) | |
| 195 | (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 (#$ . 31559)]) | |
| 196 | (put 'org-clock-clock-cancel 'byte-optimizer 'byte-compile-inline-expand) | |
| 197 | (defvar org-clock-clocking-in nil) | |
| 198 | (defvar org-clock-resolving-clocks nil) | |
| 199 | (defvar org-clock-resolving-clocks-due-to-idleness nil) | |
| 200 | #@198 Resolve `CLOCK' given the time `RESOLVE-TO', and the present. | |
| 201 | `CLOCK' is a cons cell of the form (MARKER START-TIME). | |
| 202 | ||
| 203 | (fn CLOCK RESOLVE-TO CLOCK-OUT-TIME &optional CLOSE-P RESTART-P FAIL-QUIETLY) | |
| 204 | (defalias 'org-clock-resolve-clock #[1539 "\306\204\207 \307@\310@!\"\311 \205 @U\262\203$ \312 \210\202Q r\313@!q\210\212\214~\210@b\210\314 \210A\315\211\211@\212\316\306!\210\317 ) \312 \210. \240\266\205\344?\205\344\315\211r\313@!q\210\212\214~\210@b\210\314 \210\206{ \320\315\",\266\203\202\344\321=\2031\203\225 \322\323!\210\204\236 \203\372 \315\307@\310@!\"\311 \205\263 @U\262\203\301 \324\315#\210\202\362 r\313@!q\210\212\214~\210@b\210\314 \210A\315\211\211@\212\316\306!\210\317 ) \324\315#\210. \240\266\204\202\344\311 \205 @U\262?\205\344\306\315r\313@!q\210\212\214~\210@b\210\314 \210\206% \320\315\",\266\203\202\344\325\326 \"\204?\322\327!\202\344\203G\322\323!\210\206O\307@\310@!\"\311 \205a @U\262\203o\324\315#\210\202\240r\313@!q\210\212\214~\210@b\210\314 \210A\315\211\211@\212\316\306!\210\317 ) \324\315#\210. \240\266?\205\344\203\273?\205\265\211\202\344\315\205\303r\313@!q\210\212\214~\210@b\210\314 \210\206\333 \320\315\",\266\203)\207" [org-clock-resolving-clocks org-clock-marker org-clock-hd-marker org-clock-effort org-clock-history org-clock-total-time t copy-marker marker-insertion-type org-clock-is-active org-clock-cancel marker-buffer beginning-of-line nil org-back-to-heading point-marker org-clock-in now error "RESTART-P is not valid here" org-clock-out time-less-p current-time "RESOLVE-TO must refer to a time in the past" org-clock-start-time org-clock-clocking-in org-clock-in-resume org-clock-leftover-time] 17 (#$ . 32301)]) | |
| 205 | #@34 | |
| 206 | ||
| 207 | (fn &optional EFFECTIVE-CLOCK) | |
| 208 | (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\233 \212\214~\210\320\321\322;\203_ \202` \323!\"\212\314\315!\210`)\3242\230 \325\315#\205\227 \326 \327!\330=\203\223 \331\332\"@V\203\216 \333\313\"\210\334\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 error "No 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-flag-drawer throw] 10 (#$ . 34134) nil]) | |
| 209 | #@856 Resolve an open Org clock. | |
| 210 | An open clock was found, with `dangling' possibly being non-nil. | |
| 211 | If this function was invoked with a prefix argument, non-dangling | |
| 212 | open clocks are ignored. The given clock requires some sort of | |
| 213 | user intervention to resolve it, either because a clock was left | |
| 214 | dangling or due to an idle timeout. The clock resolution can | |
| 215 | either be: | |
| 216 | ||
| 217 | (a) deleted, the user doesn't care about the clock | |
| 218 | (b) restarted from the current time (if no other clock is open) | |
| 219 | (c) closed, giving the clock X minutes | |
| 220 | (d) closed and then restarted | |
| 221 | (e) resumed, as if the user had never left | |
| 222 | ||
| 223 | The format of clock is (CONS MARKER START-TIME), where MARKER | |
| 224 | identifies the buffer and position the clock is open at (and | |
| 225 | thus, the heading it's under), and START-TIME is when the clock | |
| 226 | was started. | |
| 227 | ||
| 228 | (fn CLOCK &optional PROMPT-FN LAST-VALID FAIL-QUIETLY) | |
| 229 | (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 > ?\326 \210\327\330!\210+\211 @\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 \"!\351\245!\352>\205\232 \353\354\"\355>\205\244 \353\356\"\357>\346!\346\nA!Z\343W\205\270 \211\360>\203\331 \361=\203\322 \362 \363\324\325\324 &\210\320 !\202j\203\345 \364>\204\353 \365\366!\202j\362 \367=\204\371 \203\375 \324\202R\204 \203\312U\203\n\202R\203 U\204(\203,U\203,\363\202R\203>\370 \371 \351_!\"\202R\203O\347\350 \371\351_!\"\202R\372\373!\205Y \n\374>\205f \375>? &\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\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) ding read-char " [jkKgGSscCiq]? " 45 (105 113) floor float-time time-subtract current-time 60 (107 75) read-number "Keep how many minutes? " (103 71) "Got back how many minutes ago? " (115 83) (106 74) 74 org-clock-resolve-clock now (107 75 103 71 115 83 67) message "" 67 time-add seconds-to-time error "Unexpected, please report this as a bug" (75 71 83) (75 71 83 67) inhibit-modification-hooks inhibit-read-only standard-output] 19 (#$ . 35056)]) | |
| 230 | #@200 Resolve all currently open Org clocks. | |
| 231 | If `only-dangling-p' is non-nil, only ask to resolve dangling | |
| 232 | (i.e., not currently open and valid) clocks. | |
| 233 | ||
| 234 | (fn &optional ONLY-DANGLING-P PROMPT-FN LAST-VALID) | |
| 235 | (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\303 \303A!Z\304\"\"\207" [format "Dangling clock started %d mins ago" floor float-time 60] 7 "\n\n(fn CLOCK)"]] 13 (#$ . 38705) "P"]) | |
| 236 | #@68 Return the current Emacs idle time in seconds, or nil if not idle. | |
| 237 | (defalias 'org-emacs-idle-seconds #[0 "\300 \211\203\f \301!\202 \302\207" [current-idle-time float-time 0] 3 (#$ . 39404)]) | |
| 238 | #@46 Return the current Mac idle time in seconds. | |
| 239 | (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 (#$ . 39604)]) | |
| 240 | (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)) | |
| 241 | #@46 Return the current X11 idle time in seconds. | |
| 242 | (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 (#$ . 40070)]) | |
| 243 | #@104 Return the number of seconds the user has been idle for. | |
| 244 | This routine returns a floating point number. | |
| 245 | (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 (#$ . 40280)]) | |
| 246 | #@178 Resolve all currently open Org clocks. | |
| 247 | This is performed after `org-clock-idle-time' minutes, to check | |
| 248 | if the user really wants to stay clocked in after being idle for | |
| 249 | so long. | |
| 250 | (defalias 'org-resolve-clocks-if-idle #[0 "\205= ?\205= \n\205= \306\n!\205= \307 \310\311 \312 !\"\313 \314_V\205: \315\n B\316\317\320\321\322!\323\"\324\325%#*\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 time-subtract current-time seconds-to-time t 60 org-clock-resolve make-byte-code 257 "\301\302\303\304\305 \300\"!\306\245\"\207" vconcat vector [format "Clocked in & idle for %.1f mins" float-time time-subtract current-time 60.0] 7 "\n\n(fn _)"] 9 (#$ . 40629)]) | |
| 251 | #@28 Task currently clocked in. | |
| 252 | (defvar org-clock-current-task nil (#$ . 41450)) | |
| 253 | (defvar org-clock-out-time nil) | |
| 254 | #@675 Start the clock on the current item. | |
| 255 | ||
| 256 | If necessary, clock-out of the currently active clock. | |
| 257 | ||
| 258 | With a `\[universal-argument]' prefix argument SELECT, offer a list of recently clocked | |
| 259 | tasks to clock into. | |
| 260 | ||
| 261 | When SELECT is `\[universal-argument] \[universal-argument]', clock into the current task and mark it as | |
| 262 | the default task, a special task that will always be offered in the | |
| 263 | clocking selection, associated with the letter `d'. | |
| 264 | ||
| 265 | When SELECT is `\[universal-argument] \[universal-argument] \[universal-argument]', clock in by using the last clock-out | |
| 266 | time as the start time. See `org-clock-continuously' to make this | |
| 267 | the default behavior. | |
| 268 | ||
| 269 | (fn &optional SELECT START-TIME) | |
| 270 | (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\203n \321\322!\262\203j \323!\262\202n \324\325!\210\326\232\203x \327 \210\203\326 \212\204\205 \330\313!\210\331C!\203\223 \331!\202\224 p\232\205\262 \332C!\203\246 \332!\202\247 `U\205\262 D\333\334 8\232)\203\301 \335\336E\"\210\317\310\306\"\210F\332G!\331G!\223\210\313 @\337\306\313\"\210)m\203\345 \340 \204\345 \341\342!\202\346 `\262\212\203\331!\203\343\331!!q\210\332!\262\306\211\223\210\212\214~\210b\210\330\313!\210\204F\306\211\223\210\344\345!\210\346 \210\333\334 8D\347H!\203H\306 I\350J!\210)H\351\352!!\211\203D\353!\210\210\202^H\203^\350K\354H\355R!\204^\353H!\210\356 E\357L!\210L\203\244\350\360M\361\362R!\203\244\335\363\351\364!\"\210\365\351\364!\366Q\262\364\225b\210\367\370\371\351\364!!\"N\372`O\"P\373\374 !Q\202UL\375=\203\300\335\376!\210\377 \210\201[ \352!\210\317\310\306\"\210\202U\201\\ \201] !\210\201^ u\210\201_ \210\212\342\210\201` )\203\357\201a \364!\210\201b \201c \352Z!\210M\201d \261\210\372`O\"P\373\374 !QA\203B\206E\211\2039\201e \201f \201g \201h \201i R\313\"!\201h !Z\201j \245\"!\2039\211\206E\206E\201i R\313\"N\201k N\201l \201m #\262G`\201n \223\210C\212\330\313!\210`)\201n \223\210\313ST\201o =\204\202T\201p =\203\240U\204\214\201q U\201r U>\204\240\201s U\201t \"UT\201u =\204\262T\201p =\203\266VW\201v \210X\203\312\201w X!\210\306XT\203\333\201x Y\211\201v #XZ\203\352\201w Z!\210\306Z\201x \201j \211\201y #Z\335\201z \f#\210\344\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: " copy-marker error "Abort" (16) org-clock-mark-default-task org-back-to-heading marker-buffer marker-position 4 org-heading-components message "Clock continues in \"%s\"" org-clock-out org-at-heading-p point-at-bol 0 org-base-buffer run-hooks org-clock-in-prepare-hook org-clock-history-push 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 "[" "]" apply encode-time org-parse-time-string 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 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 org-clock-frame-title-format frame-title-format org-clock-mode-line-timer org-clock-update-period org-clock-idle-timer sit-for insert-before-markers "\n" -1 org-indent-line org-in-item-p beginning-of-line indent-line-to org-get-indentation " " y-or-n-p format "You stopped another clock %d mins ago; start this one from then? " float-time org-current-time 60 org-insert-time-stamp with-hm inactive buffer-base-buffer mode-line both (#1#) org-mode-line-string append (org-mode-line-string) frame-title org-clock-update-mode-line cancel-timer run-with-timer org-resolve-clocks-if-idle "Clock starts at %s - %s" org-clock-in-hook] 15 (#$ . 41565) "P"]) | |
| 271 | #@449 Clock in the last closed clocked item. | |
| 272 | When already clocking in, send a warning. | |
| 273 | With a universal prefix argument, select the task you want to | |
| 274 | clock in from the last clocked in tasks. | |
| 275 | With two universal prefix arguments, start clocking using the | |
| 276 | last clock-out time, if any. | |
| 277 | With three universal prefix arguments, interactively prompt | |
| 278 | for a todo state to switch to, overriding the existing value | |
| 279 | `org-clock-in-switch-to-state'. | |
| 280 | ||
| 281 | (fn &optional ARG) | |
| 282 | (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 (#$ . 46200) "P"]) | |
| 283 | #@36 Mark current task as default task. | |
| 284 | (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 (#$ . 47405) nil]) | |
| 285 | #@359 Return the time from which clock times should be counted. | |
| 286 | ||
| 287 | This is for the currently running clock as it is displayed in the | |
| 288 | mode line. This function looks at the properties LAST_REPEAT and | |
| 289 | in particular CLOCK_MODELINE_TOTAL and the corresponding variable | |
| 290 | `org-clock-mode-line-total' and then decides which time to use. | |
| 291 | ||
| 292 | The time is always returned as UTC. | |
| 293 | (defalias 'org-clock-get-sum-start #[0 "\303\304\305\306#\206 \307!\303\304\310\"\311\232\203 \312\313 \202\217 \314\232\203T \315\316 \3178\3208\nW\203; \320\233\211S\240\266AA\211\n\240\266\321\322\323\324\211DAA\"\"\266\203\202\217 \325\232\204h \203d \326\232\203n \211\204n \327\304\202\217 \330\232\204\202 \203~ \326\232\203\216 \211\203\216 \331\211\205\217 \332!\202\217 \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" "current" "showing time in current clock instance" current-time "today" "showing today's task time." decode-time 2 3 apply encode-time append 0 "all" "auto" "showing entire task time." "repeat" "showing task time since last repeat." org-time-string-to-time] 10 (#$ . 47597)]) | |
| 294 | #@197 Find the location where the next clock line should be inserted. | |
| 295 | When FIND-UNCLOSED is non-nil, first check if there is an unclosed clock | |
| 296 | line and position cursor in that line. | |
| 297 | ||
| 298 | (fn FIND-UNCLOSED) | |
| 299 | (defalias 'org-clock-find-position #[257 "\303\304!\210\3052K\306 \212\307 \210`)\300 \310 \203F \311 \312\313R\314\304#\203E \315 \316!\317=\203A \320\321\"\322=\203A \323 \210\324\305\304\"\210\210\202 \210\211\203\205 b\210\325\326!\327Q\314\304#\203\204 \315 \316!\330=\203\200 \320\331\"\n\204w \211\203w \211b\210\202z \332y\210\324\305\304\"\266\210\202S \210b\210\311 P\333\332\212\314\304#\203\257 \315 \316!\317=\203\253 \306 B\262T\262\210\202\216 )\211\204\350 \334 \210n\204\276 \335c\210\205E\336!\203\316 \337W\205E`\340\341\261\210\342`\"\210\211b\210\343\304!\210\332y\262\202E\336!\203\365 TY\202\366 \2036\334 \210`\344\345\335#\346\261\210\347 b\210\212\340\350\261\210)\343\304!\210\342`\"\210\332y\210\n\204+\211b\210\323\351!\210\211\332\211\223\262\262\202E\n\203B\352!@b\202E\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-drawer 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" -1 last] 12 (#$ . 48796)]) | |
| 300 | #@302 Stop the currently running clock. | |
| 301 | Throw an error if there is no running clock and FAIL-QUIETLY is nil. | |
| 302 | With a universal prefix, prompt for a state to switch the clocked out task | |
| 303 | to, overriding the existing value of `org-clock-out-switch-to-state'. | |
| 304 | ||
| 305 | (fn &optional SWITCH-TO-STATE FAIL-QUIETLY AT-TIME) | |
| 306 | (defalias 'org-clock-out #[768 "\3062\236\307 \204# \310\311\" \312 \210\203 \313\306\314\"\210\202# \315\316!\210\2038 \317\320r\321 !q\210\f)\322\314\323%\2029 \324@!\322\211\211\211\211\211 A\212\325 q\210\214~\210 b\210\326\327!\210\330\331BP!\203s \332\327!C\232\203s \332\333!\262\202\204 \203\200 \313\306\322\"\210\202\204 \334\335!\210\336\225b\210`\337 |\210\340c\210\341 \206\230 \342\343#\262\344\345\346\347!\"!\344\345\346\347\n!\"!Z\262\350\351\245!\262\351_Z\262\350\352\245!\262\211\352_Z\262\353\354\355#\261\210 \322\211\223\210D\322\211\223\210E\203\374 \\\336U\203\374 \314\262\356 \356\333!|\210\202F\203\357\360\322\211\211\361\362\314!\363Q%\210G\203\364G!\210\322GH\203(\364H!\210\322H\310\311\" \203o\212\365\314!\210\322 I\366 !\203[\322 J\330K!\210) \332\333!!\211\203W\367!\210\210\202n \203n\330L\331 \370R!\204n\367 !\210*\312 \210\371\372\373\352_\\!\374Q\203\207\375\202\210\376#\210\377\201N !\210\307 ?\205\232\322\211M+\266\2100\207" [global-mode-string org-frame-title-format-backup frame-title-format org-clock-marker org-todo-keywords-1 org-clock-out-switch-to-state exit org-clocking-p delq org-mode-line-string 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 float-time apply encode-time org-parse-time-string floor 3600 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 " org-duration-from-minutes "%s" " => LINE REMOVED" "" run-hooks org-clock-rounding-minutes org-clock-out-time 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 (#$ . 50773) "P"]) | |
| 307 | (add-hook 'org-clock-out-hook 'org-clock-remove-empty-clock-drawer) | |
| 308 | #@48 Remove empty clock drawers in current subtree. | |
| 309 | (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 (#$ . 53385)]) | |
| 310 | #@112 Increase CLOCK timestamps at cursor. | |
| 311 | Optional argument N tells to change by that many units. | |
| 312 | ||
| 313 | (fn &optional N) | |
| 314 | (defalias 'org-clock-timestamps-up #[256 "\300\301\"\207" [org-clock-timestamps-change up] 4 (#$ . 53828) "P"]) | |
| 315 | #@112 Increase CLOCK timestamps at cursor. | |
| 316 | Optional argument N tells to change by that many units. | |
| 317 | ||
| 318 | (fn &optional N) | |
| 319 | (defalias 'org-clock-timestamps-down #[256 "\300\301\"\207" [org-clock-timestamps-change down] 4 (#$ . 54059) "P"]) | |
| 320 | #@178 Change CLOCK timestamps synchronously at cursor. | |
| 321 | UPDOWN tells whether to change `up' or `down'. | |
| 322 | Optional argument N tells to change by that many units. | |
| 323 | ||
| 324 | (fn UPDOWN &optional N) | |
| 325 | (defalias 'org-clock-timestamps-change #[513 "\302=\203\n \303\202 \304\305\306!\307\211\211\211\211\211\205\244 \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\244 !\210\203b \202c \203k \202l \316\317 !\317!\"\262\212\211b\210\320\321\322! \323\267\202\232 \324\202\233 \325\202\233 \326\202\233 \327\202\233 \330\202\233 \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 31553280.0 updown] 17 (#$ . 54294)]) | |
| 326 | #@59 Cancel the running clock by removing the start timestamp. | |
| 327 | (defalias 'org-clock-cancel #[0 "\306 \204 \307\310\" \311 \210\312\313!\210\212\314 q\210 b\210\315\316\f\317Q\320 \"\2034 \321 S\322 |\210\323`!\210\202< \324\325!\210\326\327!\210) \330\211\223\210 \330\211\223\210\307\310\" \311 \210\324\331!\210\332\333!\207" [global-mode-string org-frame-title-format-backup frame-title-format org-clock-marker org-clock-string org-clock-hd-marker org-clocking-p delq org-mode-line-string force-mode-line-update error "No active clock" org-clocking-buffer 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 (#$ . 55387) nil]) | |
| 328 | #@167 Go to the currently clocked-in entry, or to the most recently clocked one. | |
| 329 | With prefix arg SELECT, offer recently clocked tasks for selection. | |
| 330 | ||
| 331 | (fn &optional SELECT) | |
| 332 | (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\321!\210\322 !\210\323 \210\203f \324\325!\210\326\327!\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: " 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 org-cycle-hide-drawers children recenter org-reveal message "No running clock, this is the most recently clocked task" run-hooks org-clock-goto-hook] 6 (#$ . 56190) "@P"]) | |
| 333 | #@72 Holds the file total time in minutes, after a call to `org-clock-sum'. | |
| 334 | (defvar org-clock-file-total-minutes nil (#$ . 57128)) | |
| 335 | (make-variable-buffer-local 'org-clock-file-total-minutes) | |
| 336 | #@75 Sum the times for each subtree for today. | |
| 337 | ||
| 338 | (fn &optional HEADLINE-FILTER) | |
| 339 | (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 (#$ . 57319)]) | |
| 340 | #@90 Sum the times for each subtree for today. | |
| 341 | ||
| 342 | (fn &optional HEADLINE-FILTER RANGE PROPNAME) | |
| 343 | (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 (#$ . 57555)]) | |
| 344 | #@512 Sum the times for each subtree. | |
| 345 | Puts the resulting times in minutes as a text property on each headline. | |
| 346 | TSTART and TEND can mark a time range to be considered. | |
| 347 | HEADLINE-FILTER is a zero-arg function that, if specified, is called for | |
| 348 | each headline in the time range with point at the headline. Headlines for | |
| 349 | which HEADLINE-FILTER returns nil are excluded from the clock summation. | |
| 350 | PROPNAME lets you set a custom text property instead of :org-clock-minutes. | |
| 351 | ||
| 352 | (fn &optional TSTART TEND HEADLINE-FILTER PROPNAME) | |
| 353 | (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\373\316\225\203\311 \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\304 \342\343\245!\\\262\266\202i \344\225\203\342 \345\346\341\347!!\346\341\344!!\343_#\262\202i \f\203 \350 p=\203 \351 !`=\203 \203 \203 \3243!Y\203 \3243!X\203 \342\324 \3243!Z\343\"\\\262\210\352`\353\" ?\206?\212\334 \310\311\335\313\314!\354\"\337$\216\f )\262)\355\225\355\224Z\262 Y\203_\313\322 \311\"\"\262\316_\262 \311V\204oH\311V\203\366\211\204w\203\331\211\203\231\311X\203\227 H\\I\210T\262\202~\266H\262\311\224b\210\356`\357 \206\256\327$\210\f\203\331\212\334 \310\311\335\313\314!\360\"\337$\216\361 \203\326\356`\362 \353\307$\210\202\306)\210)\311\262 SX\203\364 \311I\210T\262\202\341\266\266\202i \311H\2114)\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 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 (#$ . 57998)]) | |
| 354 | #@71 Return time, clocked on current item in total. | |
| 355 | ||
| 356 | (fn &optional TSTART) | |
| 357 | (defalias 'org-clock-sum-current-item #[256 "\212\214\301 \210\302!\210*\207" [org-clock-file-total-minutes org-narrow-to-subtree org-clock-sum] 3 (#$ . 60686)]) | |
| 358 | #@519 Show subtree times in the entire buffer. | |
| 359 | ||
| 360 | By default, show the total time for the range defined in | |
| 361 | `org-clock-display-default-range'. With `\[universal-argument]' prefix, show | |
| 362 | the total time for today instead. | |
| 363 | ||
| 364 | With `\[universal-argument] \[universal-argument]' prefix, use a custom range, entered at prompt. | |
| 365 | ||
| 366 | With `\[universal-argument] \[universal-argument] \[universal-argument]' prefix, display the total time in the | |
| 367 | echo area. | |
| 368 | ||
| 369 | Use `\[org-clock-remove-overlays]' to remove the subtree times. | |
| 370 | ||
| 371 | (fn &optional ARG) | |
| 372 | (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\327\330\203\241 \331\202\253 \203\252 \332\202\253 \333\"\334\n!\335Q#\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 format "Total file time%s: " " for today" " (custom)" "" org-duration-from-minutes " (%d hours and %d minutes)"] 10 (#$ . 60927) "P"]) | |
| 373 | (defvar org-clock-overlays nil nil) | |
| 374 | (make-variable-buffer-local 'org-clock-overlays) | |
| 375 | #@167 Put an overlays on the current line, displaying TIME. | |
| 376 | This creates a new overlay and stores it in `org-clock-overlays', so that it | |
| 377 | will be easy to remove. | |
| 378 | ||
| 379 | (fn TIME) | |
| 380 | (defalias 'org-clock-put-overlay #[257 "\303\211\304 \210\303\305 !\203 \306\224b\210)\307`\310 \"\262\311`\306\225\"\312\313\314\315\316iZ\306\225\306\224Z\317\320\321 \"\262G#]\322\"\323\"\312\324\325\326!\"\327\"\330R\262\331\332#\210\nB\211\207" [case-fold-search org-complex-heading-regexp org-clock-overlays nil beginning-of-line looking-at 4 make-overlay point-at-eol buffer-substring-no-properties org-add-props make-string 0 - 60 line-prefix get-text-property point-at-bol 183 (face shadow) format " %9s " org-duration-from-minutes (face org-clock-overlay) "" overlay-put display] 14 (#$ . 62685)]) | |
| 381 | #@178 Remove the occur highlights from the buffer. | |
| 382 | If NOREMOVE is nil, remove this function from the | |
| 383 | `before-change-functions' in the current buffer. | |
| 384 | ||
| 385 | (fn &optional BEG END NOREMOVE) | |
| 386 | (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 (#$ . 63478) nil]) | |
| 387 | #@197 Clock out if the current entry contains the running clock. | |
| 388 | This is used to stop the clock after a TODO entry is marked DONE, | |
| 389 | and is only done if the variable `org-clock-out-when-done' is not nil. | |
| 390 | (defalias 'org-clock-out-if-current #[0 "\306 \205R \205R \307 !\205R \310=\203 \n \235\204& <\205R \n\235\205R \311\312 !\206/ \312 \311p!\2066 p\232\205R ` W\205R \212\313 \210`) V\205R \314\211 \315 *\207" [org-clock-out-when-done org-clock-marker org-state org-done-keywords org-clock-out-switch-to-state org-log-note-clock-out org-clocking-p marker-buffer t buffer-base-buffer org-clocking-buffer outline-next-heading nil org-clock-out] 3 (#$ . 63932)]) | |
| 391 | (add-hook 'org-after-todo-state-change-hook 'org-clock-out-if-current) | |
| 392 | #@176 Get a formatted clocktable with parameters according to PROPS. | |
| 393 | The table is created in a temporary buffer, fully formatted and | |
| 394 | fontified, and then returned. | |
| 395 | ||
| 396 | (fn &rest PROPS) | |
| 397 | (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 (#$ . 64671)]) | |
| 398 | #@533 Update or create a table containing a report about clocked time. | |
| 399 | ||
| 400 | If point is inside an existing clocktable block, update it. | |
| 401 | Otherwise, insert a new one. | |
| 402 | ||
| 403 | The new table inherits its properties from the variable | |
| 404 | `org-clock-clocktable-default-properties'. The scope of the | |
| 405 | clocktable, when not specified in the previous variable, is | |
| 406 | `subtree' when the function is called from within a subtree, and | |
| 407 | `file' elsewhere. | |
| 408 | ||
| 409 | When called with a prefix argument, move to the first clock table | |
| 410 | in the buffer and update it. | |
| 411 | ||
| 412 | (fn &optional ARG) | |
| 413 | (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 (#$ . 65449) "P"]) | |
| 414 | #@65 Returns the day of the week as an integer. | |
| 415 | ||
| 416 | (fn DAY MONTH YEAR) | |
| 417 | (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 (#$ . 66438)]) | |
| 418 | #@86 Get the date (week day year) of the first day of a given quarter. | |
| 419 | ||
| 420 | (fn QUARTER YEAR) | |
| 421 | (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 (#$ . 66655)]) | |
| 422 | #@1065 Return two times bordering a special time range. | |
| 423 | ||
| 424 | KEY is a symbol specifying the range and can be one of `today', | |
| 425 | `yesterday', `thisweek', `lastweek', `thismonth', `lastmonth', | |
| 426 | `thisyear', `lastyear' or `untilnow'. If set to `interactive', | |
| 427 | user is prompted for range boundaries. It can be a string or an | |
| 428 | integer. | |
| 429 | ||
| 430 | By default, a week starts Monday 0:00 and ends Sunday 24:00. The | |
| 431 | range is determined relative to TIME, which defaults to current | |
| 432 | time. | |
| 433 | ||
| 434 | The return value is a list containing two internal times, one for | |
| 435 | the beginning of the range and one for its end, like the ones | |
| 436 | returned by `current time' or `encode-time' and a string used to | |
| 437 | display information. If AS-STRINGS is non-nil, the returned | |
| 438 | times will be formatted strings. | |
| 439 | ||
| 440 | If WSTART is non-nil, use this number to specify the starting day | |
| 441 | of a week (monday is 1). If MSTART is non-nil, use this number | |
| 442 | to specify the starting day of a month (1 is the first day of the | |
| 443 | month). If you can combine both, the month starting day will | |
| 444 | have priority. | |
| 445 | ||
| 446 | (fn KEY &optional TIME AS-STRINGS WSTART MSTART) | |
| 447 | (defalias 'org-clock-special-range #[1281 "\301!\211A@\3028\3038\3048\3058\3068\307\310 \"\311\312Y\203& \304\202; \313Y\2030 \303\202; \304Y\203: \302\202; \314\315\211\211\211\211\211\211\211\316\317\f\"\203] \320 !\262 \314\262\314\262\321\262\202J\316\322\f\"\203\200 \320\323\314 \"!\262 \320\323\302 \"!\262\314\262\324\262\202J\316\325\f\"\203\270 \326\327!\210\330\331\320\323\302\"!\314\320\323\314\"!E!!\211A@\262\211@\262\3028\262\314\262 \332\262\210\202J\316\333\f\"\203\364 \326\327!\210\320\323\302 \"!\262 \330\331\334 \320\323\314\"!\"!!\211A@\262\211@\262\3028\262\314\262 \335\262\210\202J\316\336\f\"\203 \320\323\314 \"!\262 \320\323\302 \"!\262\320\323\303 \"!\262\337\262\202J\316\340\f\"\203J\320\323\314 \"!\262\n\341 \311\314\224O!\262\342>\203J \311V\203J\343\344!\210 \311U\203\202\345\267\202\202\346\262\347\262\n\202\202\332\262\347\262\n\202\202\324\262\347\262\n\202\202\321\262\347\262\n\202\202\335\262\347\262\n\350>\203\234\311\262\311\262\351\262\n\\\262\202\302\352>\203\326\206\251\314\n\353_ \311U\203\272\313Z\202\276 Z\\\311\262\311\262Z\262\313\\\262\266\202\302\354>\203\372\311\262\311\262\206\351\314\262 \n\\\262 T\262\202\302\355>\203\223S\n\\\311W\203`S\n\\[\356\304\"\211A@\311U\203/@Z\262\314\262\314\262\202G@TZ\262\357A@\303_Z\262\305A@Z\262\266\311\262\311\262\314\262\262\303\\\262\262 \202\302\n\\\311V\203\302\n\\\262\f\262\n\\S\303_\311\262\311\262\314\262\211T\262\304\\\262\210\202\302\360>\203\265\311\262\311\262\314\262\314\262\f\n\\\262 \fT\262\202\302\361>\204\302\362\363\"\210\364\267\202\336\365\315\366\315\367$\202\354\370\311\211\211\211\211\371&\202\354\370\311&\372\267\202\365\315\366\315\373$\202(\374 \202(\370\311\n\206\n\n\206\n\206\n\206 \n\206&&\375>\2036\376\377\"\202\246\201@ >\203H\376\201A \"\202\246\201B >\203Z\376\201C \"\202\246\201D >\203l\376\201E \"\202\246\201F >\203\207\201G !\201H \201I !Q\202\246\201J =\203\226\201K \202\246\201L =\203\245\201M \202\246\315\204\262E\202\300A\376\"\376\"E\262\266\203\207" [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 (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 344 lastweek 353 lastmonth 362 lastyear 371 lastq 380)) today -1 (today day) 24 (thisweek week) -7 (thismonth month) (thisq quarter) cl-floor 13 (thisyear year) (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 713 untilnow 722)) org-read-date t "Range start? " encode-time -50000 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 755 untilnow 764)) "Range end? " current-time (today day) format-time-string "%A, %B %d, %Y" (thisweek week) "week %G-W%V" (thismonth month) "%B %Y" (thisyear year) "the year %Y" (thisq quarter) org-count-quarter " quarter of " number-to-string interactive "(Range interactively set)" untilnow "now"] 31 (#$ . 67433)]) | |
| 448 | #@10 | |
| 449 | ||
| 450 | (fn N) | |
| 451 | (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 (#$ . 72246)]) | |
| 452 | #@434 Try to shift the :block date of the clocktable at point. | |
| 453 | Point must be in the #+BEGIN: line of a clocktable, or this function | |
| 454 | will throw an error. | |
| 455 | DIR is a direction, a symbol `left', `right', `up', or `down'. | |
| 456 | Both `left' and `down' shift the block toward the past, `up' and `right' | |
| 457 | push it toward the future. | |
| 458 | N is the number of shift steps to take. The size of the step depends on | |
| 459 | the currently selected interval size. | |
| 460 | ||
| 461 | (fn DIR N) | |
| 462 | (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-+\\)" 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 (#$ . 72443)]) | |
| 463 | #@45 Write the standard clocktable. | |
| 464 | ||
| 465 | (fn PARAMS) | |
| 466 | (defalias 'org-dblock-write:clocktable #[257 "\211C\211\305\242\"\240\210\3062\202\307\242\310\"\211\311=\203 \312\313!\202X \211\314=\203- \315\312\313!!\202X \211\316=\203> \205X \315 C!\202X \317!\203I \211 \202X \211:\203R \211\202X \301 \206X p\307\242\320\"\307\242\321\"\307\242\322\"\307\242\323\"\307\242\324\"\307\242\325\"\307 \242\326\"\206\207 \n\206\207 \327\330\203\242 \331\330\313%\262\211@\262\211A@\262\203\303 \204\270 \203\264 \204\270 \332\333!\210\334 \242!\210\335\306\330\"\210\336 :\203\317 \202\322 C!\210` :\203\357 \337\340\341\342\343\344!\345\"\346\347% \"\202e\214\n\203]\n\350=\203~\210\202]\n\351=\203\352 \210\202]\n\353=\203 \354 \204\352 \210\202]\n9\203]\355\356\357 !\"\203]\360\361\362\357!\"!\3062X\354 \205W\363 !\210\364\f !X\203=\335\306\330\"\210\202=0\210\352 \266\365\330 \242\")C\n:\205p \316=?\305\242\366D\"#\266\203\266\2120\207" [org-clocktable-defaults buffer-file-name org-clock-clocktable-formatter org-outline-regexp outline-level org-combine-plists exit plist-get :scope agenda org-agenda-files t agenda-with-archives org-add-archive-files file-with-archives functionp :block :tstart :tend :wstart :mstart :step :formatter org-clocktable-write-default nil org-clock-special-range error "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)" file subtree org-narrow-to-subtree tree org-up-heading-safe string-match "\\`tree\\([0-9]+\\)\\'" symbol-name string-to-number match-string 1 looking-at org-reduced-level org-clock-get-table-data :multifile] 22 (#$ . 75015)]) | |
| 467 | #@262 Write out a clock table at position IPOS in the current buffer. | |
| 468 | TABLES is a list of tables with clocking data as produced by | |
| 469 | `org-clock-get-table-data'. PARAMS is the parameter property list obtained | |
| 470 | from the dynamic block definition. | |
| 471 | ||
| 472 | (fn IPOS TABLES PARAMS) | |
| 473 | (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\"\204\\ \327W\203` \330\202\200 \331\332\"\306\333\"\206p \334^\204y \330\202} \335\336\"^\262\206\211 \306\337\"\306\340\"\341\335\342\343\344\"\"\345\211 \203\267 \250\203\267 \203\267 \346\347!\210\350\351\352\f\"!\262\n \203\357 \250\204\357 9\203\333 \353\354 !\345\341\355#)\266\203\204\344 \356\357 \"\210\202\357 \341\262\360\354 !!\262\nb\210\361\206(\351\362\363\364\"\365\366\341\211\"!\203&\327\367\345\341\306 \370\"\306 \371\"%8\351\372\"\262\202'\373$!\210 \203p \250\203p\211\204p\361\374\203D\374\202E\373 \203N\374\202O\373 \203X\374\202Y\373 \203g\375\fG\376\"\202h\373\351\377\"&\210\361\374\203\203\363\201@ \"\374P\202\204\373 \203\225\363\201A \"\374P\202\226\373 \203\247\363\201B \"\374P\202\250\373 \203\274\201C \201D \374#\374P\202\275\373\363\201E \"\374P\363\201F \"\374P\375\201G S]\376\"\f\201H =\203\350\201I \202\353\201J & \210\361\201K \374\203\351\201L \363\201M \"\"\202\373\f\203\374\202\373\f\203\374\202 \373\375 G\376\"\351\n\363\201N \"\"\201O P\351\n\201P \206=\201G !\"\374\375\201G S]\376\"\201H =\204W\373\202n \203e \201G U\203k\201Q \202n\201R \201J &\f\210\2037\201G V\2037\211\2036\211@\211@A\211@A\211@A\203\244\201G V\204\256\306 \201S \"\204-\361\201K !\210 \203\361\351\201T \351 \363\201U $\"\"\201V Q\201W !\203\334\201O \202\335\373\203\350\201O \202\351\373\203\367\375G\376\"\202\370\373\201P !&!\210\201G V\203-\211\203,\211@\211@A\211@A\211@A\211@A\211@A\n \203h\355\351\201X \f\"\"\203_\317\225\203_\351\201Y \201Z \330\"\201[ \201Z \317\"*\"#\202f\201[ '\"\262\201\\ \361\3740\203v\374\202w\373(\203\206\351\201] \"\202\207\373(\203\223\374P\202\224\373(\203\302\201C \201^ \201_ \201` \201a \201b !\201c \"\201d \201e %*\374#\374P\202\303\373'\203\321\201f !\202\322\3730\n\f#\375\201G ,\f^S]\376\" 2\f\201P !#\375\201G .Z]\376\"+\201H =\203 \351\201g \201h .!\245\334_\"\202 \373\201J &\f\266A\266\202\202\f\210\266 A\266\202\202\202\210\201i \201j !\210\203K\201H =\203~\201k \306\201l \"!\211\203z\355\201m \"\203z\341\262\201J \201Z \330\"\261\210\201n \201G !\210\210\202\230;\203\220\201o \261\210\341\262\202\230\201p \201q !\210b\210\201r \345w\210\201s \210 \203\260\201s \210\203\316\212\201t \317!\210\201u @!\210\201v \345A\"\210)\203\332\201w \201x !\210)\207" [case-fold-search inhibit-changing-match-data org-clock-total-time-cell-format org-clock-file-time-cell-format org-bracket-link-regexp org-hide-emphasis-markers plist-get :lang "en" :multifile :block :sort :header :link :maxlevel 3 :emphasize :compact :narrow 40! :level :timestamp :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 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" 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" "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: " user-error "Invalid :formula parameter in clocktable" "^|" org-table-align org-table-goto-line org-table-goto-column org-table-sort-lines org-table-recalculate all] 67 (#$ . 76892)]) | |
| 474 | #@121 Return indentation string according to LEVEL. | |
| 475 | LEVEL is an integer. Indent by two spaces per level above 1. | |
| 476 | ||
| 477 | (fn LEVEL) | |
| 478 | (defalias 'org-clocktable-indent-string #[257 "\211\300U\203 \301\207\302\303S\304_\305\"P\207" [1 "" "\\_" make-string 2 32] 5 (#$ . 81785)]) | |
| 479 | #@71 Step through the range to make a number of clock tables. | |
| 480 | ||
| 481 | (fn PARAMS) | |
| 482 | (defalias 'org-clocktable-steps #[257 "\300\301\"\300\302\"\300\303\"\300\304\"\300\305\"\211\306\236A\300\307\"\300\310\"\311\211\203< \312\311\313 %\262@\262\nA@\262 \247\203k \314\n!\211@A\211@A\211@A\315\316\317\211\211 &!\262\266\n\202{ \203{ \315\320\316\321 !\"!\262\n\247\203\252 \314 !\211@A\211@A\211@A\315\316\317\211\211 &!\262\266\n\202\272 \203\272 \315\320\316\321\f!\"!\262 \322=\203\342 \323\324\325\f!!8\211 X\203\324 \n\202\335 \n\nZ\326_Z\262\202\344 \262\211 W\205|n\204\364 \327c\210\325 ]!\323\324\325!!8\330=\204\211 U\203\202\nZ\326_\262\\\262\327\330=\203,\331\202-\332\333\334\311\313\"\"\327\261\210\335\317!\336\337\340\341\305\311\310\311\301\333\334\313\211\" \"\302\333\334\313\211\"\325^!\"\257\n\"!\342\343!\210\203t\211\317\232\203t\335 |\210\266\317\210\202\346 \207" [plist-get :tstart :tend :wstart :mstart :step ((day . 86400) (week . 604800)) :stepskip0 :block nil org-clock-special-range t calendar-gregorian-from-absolute float-time encode-time 0 apply org-parse-time-string week 6 decode-time seconds-to-time 86400 "\n" day "Daily report: " "Weekly report starting on: " format-time-string org-time-stamp-format line-beginning-position org-dblock-write:clocktable org-combine-plists :header "" re-search-forward "^[ ]*#\\+END:"] 30 (#$ . 82056)]) | |
| 483 | #@1296 Get the clocktable data for file FILE, with parameters PARAMS. | |
| 484 | FILE is only for identification - this function assumes that | |
| 485 | the correct buffer is current, and that the wanted restriction is | |
| 486 | in place. | |
| 487 | The return value will be a list with the file name and the total | |
| 488 | file time (in minutes) as 1st and 2nd elements. The third element | |
| 489 | of this list will be a list of headline entries. Each entry has the | |
| 490 | following structure: | |
| 491 | ||
| 492 | (LEVEL HEADLINE TIMESTAMP TIME PROPERTIES) | |
| 493 | ||
| 494 | LEVEL: The level of the headline, as an integer. This will be | |
| 495 | the reduced level, so 1,2,3,... even if only odd levels | |
| 496 | are being used. | |
| 497 | HEADLINE: The text of the headline. Depending on PARAMS, this may | |
| 498 | already be formatted like a link. | |
| 499 | TIMESTAMP: If PARAMS require it, this will be a time stamp found in the | |
| 500 | entry, any of SCHEDULED, DEADLINE, NORMAL, or first inactive, | |
| 501 | in this sequence. | |
| 502 | TIME: The sum of all time spend in this tree, in minutes. This time | |
| 503 | will of cause be restricted to the time block and tags match | |
| 504 | specified in PARAMS. | |
| 505 | PROPERTIES: The list properties specified in the `:properties' parameter | |
| 506 | along with their value, as an alist following the pattern | |
| 507 | (NAME . VALUE). | |
| 508 | ||
| 509 | (fn FILE PARAMS) | |
| 510 | (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\"\205> \316!A\317\211\211\211\211 \203^ \320\n\317\321%\262@\262A@\262 \250\203j \322!\262\f\250\203v \322 !\262 \203\221 <\203\221 \323\324\3258@A@$\262\f\203\254 \f<\203\254 \323\324\3258@A@$\262 \203\267 \326!\262\f\203\302 \326 !\262 \212\327\205\331 \330\317\331\332\333\f\334BBEE#\210eb\210\321\262o\203\372 \317\262\203\372 \335`\336\"\203\372 e\211\262\204\337`\336\"\211\262\203\235b\210\335\336\"\211\203\231\211\340V\203\231\341 \203\231\342\343 !\211X\203\230\344\321\211\211\211$ \2044\211\202g\345!\346\347 \204A\202G\323\350\347 #\351\352\353\354#!\317\352\203Y\355\202Z\356\354\352\357\354##\266\202\"\262\205p\360\361\362\" \205\211\363\317\364\365\366\367\370\371!\372\"\373\374%\"\"\257B\262\266\210\210\202\341 \237E)\207" [org-clock-file-total-minutes plist-get :maxlevel 3 :timestamp :tstart :tend :wstart :mstart :block :link :tags :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* ((tags-list (org-get-tags-at)) (org-scanner-tags tags-list) (org-trust-scanner-tags t)) funcall (nil 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-make-org-heading-search-string org-make-link-string buffer-file-name "file:%s::%s" org-link-display-format replace-regexp-in-string "\\[[0-9]+%\\]\\|\\[[0-9]+/[0-9]+\\]" "" "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "[ \n ]+\\'" 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)"] 33 (#$ . 83534)]) | |
| 511 | #@28 Was the clock file loaded? | |
| 512 | (defvar org-clock-loaded nil (#$ . 86877)) | |
| 513 | #@73 If this is a CLOCK line, update it and return t. | |
| 514 | Otherwise, return nil. | |
| 515 | (defalias 'org-clock-update-time-maybe #[0 "\212\303\304!\210\305\306w\210\307!\205\266 \310\311\312R\306\211\211\211\211\211\307!\204% \306\202\264 \313\225\204M \314 !p\232\205\264 `V\205\264 \315 X\205\264 \316\317\320\321\304!!\"\322 \202\264 \323\225\203X \323\224\323\225|\210\304\210\321\304!\262\321\324!\262\325\316\317\320!\"!\325\316\317\320\n!\"!Z\262\326W\262\327!\262\330\331\245!\262\331_Z\262\330\332\245!\262\211\332_Z\262\333\334\203\252 \335\202\253 \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 apply encode-time org-parse-time-string match-string org-clock-update-mode-line 4 3 float-time 0 abs floor 3600 60 " => " format "-%d:%02d" "%2d:%02d" t] 13 (#$ . 86953) nil]) | |
| 516 | #@130 Persist various clock-related data to disk. | |
| 517 | The details of what will be saved are regulated by the variable | |
| 518 | `org-clock-persist'. | |
| 519 | (defalias 'org-clock-save #[0 "\205\224 \204 \n\204 \306 !?\205\224 \307\310\311!!\312\313\314\315\316!\317\"\320$\216r\211q\210\321\322\323 !\324 \325\326\327!!$c\210\330>\203m \331\332 !\333!\205Y \334!\205Y \f?\206Y \335\321\336 \"!\262\203m \321\337\334\331\332 !!\340)!#c\210\341>\205\204 *\205\204 \321\342\343\344\345*!\346#\"c)rq\210\347\350\211\350\313%\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 get-buffer-create generate-new-buffer-name " *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 (#$ . 87948)]) | |
| 520 | #@67 Load clock-related data from disk, maybe resuming a stored clock. | |
| 521 | (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 (#$ . 89389)]) | |
| 522 | (byte-code "\301\302\303#\210\304\305!\207" [org-mode-map org-defkey "" org-clock-modify-effort-estimate provide org-clock] 4) | |
