Current File : //usr/local/share/emacs/27.2/lisp/org/org-timer.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require cl-lib org-clock] 2)
#@28 t=0 for the running timer.
(defvar org-timer-start-time nil (#$ . 478))
#@33 Time when the timer was paused.
(defvar org-timer-pause-time nil (#$ . 556))
#@154 Current countdown timer.
This is a timer object if there is an active countdown timer,
`paused' if there is a paused countdown timer, and nil
otherwise.
(defvar org-timer-countdown-timer nil (#$ . 640))
#@61 Title for notification displayed when a countdown finishes.
(defvar org-timer-countdown-timer-title nil (#$ . 849))
#@48 Regular expression used to match timer stamps.
(defconst org-timer-re "\\([-+]?[0-9]+\\):\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)" (#$ . 971))
(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\311& \210\300\321\302\303\322DD\323\306\307\310\324&\207" [custom-declare-variable org-timer-format funcall function #[0 "\300\207" [#1="%s "] 1 #1#] "The format to insert the time of the timer.\nThis format must contain one instance of \"%s\" which will be replaced by\nthe value of the timer." :group org-time :type string org-timer-default-timer #[0 "\300\207" [#2="0"] 1 #2#] "The default timer when a timer is set, in minutes or hh:mm:ss format.\nWhen 0, the user is prompted for a value." :version "26.1" :package-version (Org . "8.3") org-timer-display #[0 "\300\207" [mode-line] 1] "Define where running timer is displayed, if at all.\nWhen a timer is running, Org can display it in the mode line\nand/or frame title. Allowed 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 timer is not displayed" (choice (const :tag "Mode line" mode-line) (const :tag "Frame title" frame-title) (const :tag "Both" both) (const :tag "None" nil))] 12)
#@43 Hook run after relative timer is started.
(defvar org-timer-start-hook nil (#$ . 2316))
#@57 Hook run before relative or countdown timer is stopped.
(defvar org-timer-stop-hook nil (#$ . 2410))
#@56 Hook run before relative or countdown timer is paused.
(defvar org-timer-pause-hook nil (#$ . 2517))
#@58 Hook run after relative or countdown timer is continued.
(defvar org-timer-continue-hook nil (#$ . 2624))
#@40 Hook run after countdown timer is set.
(defvar org-timer-set-hook nil (#$ . 2736))
#@46 Hook run after countdown timer reaches zero.
(defvar org-timer-done-hook nil (#$ . 2825))
#@539 Set the starting time for the relative timer to now.
When called with prefix argument OFFSET, prompt the user for an offset time,
with the default taken from a timer stamp at point, if any.
If OFFSET is a string or an integer, it is directly taken to be the offset
without user interaction.
When called with a double prefix arg, all timer strings in the active
region will be shifted by a specific amount. You will be prompted for
the amount, with the default to make the first timer string in
the region 0:00:00.
(fn &optional OFFSET)
(defalias 'org-timer-start #[256 "\211\304\232\203\n \305\306!\207\203 \307\310!\207\311\211\211\204 \312 \202c \250\203* \262\202_ ;\2037 \313!\262\202_ \314\n!\203C \315\316!\202D \317\262\320\321\322\"!\262\323\324\"\204X \262\313\325!!\262\326!\311\327\330!\210\331\332\333\334 \"\335\206v \316!#\210\336\337!\207" [org-timer-countdown-timer org-timer-start-time org-timer-re org-timer-pause-time (16) call-interactively org-timer-change-times-in-region user-error "Countdown timer is running. Cancel first" nil current-time org-timer-hms-to-secs org-in-regexp match-string 0 "0:00:00" read-string format "Restart timer with offset [%s]: " string-match "\\S-" org-timer-fix-incomplete org-time-since org-timer-set-mode-line on message "Timer start time set to %s, current value is %s" format-time-string "%T" org-timer-secs-to-hms run-hooks org-timer-start-hook] 9 (#$ . 2922) "P"])
#@113 Pause or continue the relative or countdown timer.
With prefix arg STOP, stop it entirely.
(fn &optional STOP)
(defalias 'org-timer-pause-or-continue #[256 "\211\203 \304 \207\204 \305\306!\207 \203D \307!\307 !\n\203. Z\310 \"\311\312\"\210\2024 \313Z!\312\314\315!\210\316\317!\210\320\321\322 \"\207\n\203N \323\n!\210\324\316\325!\210\326 \314\324!\210\320\327\322 \"\207" [org-timer-start-time org-timer-pause-time org-timer-countdown-timer org-timer-countdown-timer-title org-timer-stop error "No timer is running" float-time org-timer--run-countdown-timer org-time-add nil org-time-since org-timer-set-mode-line on run-hooks org-timer-continue-hook message "Timer continues at %s" org-timer-value-string cancel-timer paused org-timer-pause-hook current-time "Timer paused at %s"] 7 (#$ . 4379) "P"])
#@39 Stop the relative or countdown timer.
(defalias 'org-timer-stop #[0 "\204 \303\304!\210\305 !\203 \306 !\210\307\310!\210\311\211\311\312\313!\210\314\315!\207" [org-timer-start-time org-timer-countdown-timer org-timer-pause-time user-error "No timer running" timerp cancel-timer run-hooks org-timer-stop-hook nil org-timer-set-mode-line off message "Timer stopped"] 3 (#$ . 5209) nil])
#@531 Insert a H:MM:SS string from the timer into the buffer.
The first time this command is used, the timer is started.
When used with a `\[universal-argument]' prefix, force restarting the timer.
When used with a `\[universal-argument] \[universal-argument]' prefix, change all the timer strings
in the region by a fixed amount. This can be used to re-calibrate
a timer that was not started at the correct moment.
If NO-INSERT is non-nil, return the string instead of inserting
it in the buffer.
(fn &optional RESTART NO-INSERT)
(defalias 'org-timer #[512 "\301\232\203\n \302!\207\303\232\204 \204 \302 \210\211\203 \304 \207\304 c\207" [org-timer-start-time (16) org-timer-start (4) org-timer-value-string] 4 (#$ . 5609) "P"])
#@30 Return current timer string.
(defalias 'org-timer-value-string #[0 "\304\305\306 !\306\n!Z\307\310 \203 [\202 !!\262!\"\207" [org-timer-format org-timer-pause-time org-timer-start-time org-timer-countdown-timer format org-timer-secs-to-hms float-time abs floor] 7 (#$ . 6352)])
#@67 Change all h:mm:ss time in region by a DELTA.
(fn BEG END DELTA)
(defalias 'org-timer-change-times-in-region #[771 "\300\301\302\303\"\2041 \212b\210\304\305#\2030 \306\307!\262\310!\311\232\203+ \312\313\"\262\2020 \314P\262)\315\316!!\262\307U\203B \317\320!\210\212b\210\321\305#\205x `\262\322\323 \324\307\325\326\327!\330\"\331$\216\332\315\306\307!!\\!)\262\305\211#\210\211b\210\202F )\207" ["[-+]?[0-9]+:[0-9]\\{2\\}:[0-9]\\{2\\}" nil string-match "\\S-" re-search-forward t match-string 0 string-to-char 45 substring 1 "-" org-timer-hms-to-secs org-timer-fix-incomplete error "No change" re-search-backward replace-match match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-timer-secs-to-hms] 13 (#$ . 6642) "r\nsEnter time difference like \"-1:08:26\". Default is first time to zero: "])
#@82 Insert a description-type item with the current timer value.
(fn &optional ARG)
(defalias 'org-timer-item #[256 "\301 `\203< b\203< \302 \203< \303 \304!\305\205 \306\307\"\310P\311\312%\262\313\314!\"\210\315!\210\316\225b\266\203\202\\ \203I \211b\210\317\320!\202\\ \321 \210\322 \210\323c\210\305\205X \324!\210\310c\207" [org-list-full-item-re org-in-item-p org-at-item-timer-p org-list-struct org-list-prevs-alist org-timer (4) t ":: " org-list-insert-item nil org-list-write-struct org-list-parents-alist looking-at 0 error "This is not a timer list" beginning-of-line org-indent-line "- " (4)] 12 (#$ . 7513) "P"])
#@84 If hms is a H:MM:SS string with missing hour or hour and minute, fix it.
(fn HMS)
(defalias 'org-timer-fix-incomplete #[257 "\300\301\"\2037 \302\303\304\305\225\203 \306\307\305\"!\202 \310\311\225\203) \306\307\311\"!\202* \310\306\307\312\"!$\313\211$\207\314\315\"\207" [string-match "\\(?:\\([0-9]+:\\)?\\([0-9]+:\\)\\)?\\([0-9]+\\)" replace-match format "%d:%02d:%02d" 1 string-to-number match-string 0 2 3 t error "Cannot parse HMS string \"%s\""] 10 (#$ . 8158)])
#@124 Convert h:mm:ss string to an integer time.
If the string starts with a minus sign, the integer will be negative.
(fn HMS)
(defalias 'org-timer-hms-to-secs #[257 "\300\301\"\204 \302\207\303\304\305\"!\303\304\306\"!\303\304\307\"!\310\304\305\"\302\305#\311\232\312!\262\211\2033 \313\2024 \305\314\314_\\_\\_\207" [string-match "\\([-+]?[0-9]+\\):\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)" 0 string-to-number match-string 1 2 3 substring "-" abs -1 60] 11 (#$ . 8649)])
#@101 Convert integer S into h:mm:ss.
If the integer is negative, the string will start with "-".
(fn S)
(defalias 'org-timer-secs-to-hms #[257 "\300\211\211\301W\203
\302\202 \303\262\304!\262\305\245\262\305_Z\262\305\245\262\305_Z\262\306\307%\207" [nil 0 "-" "" abs 60 format "%s%d:%02d:%02d"] 10 (#$ . 9137)])
(defvar org-timer-mode-line-timer nil)
(defvar org-timer-mode-line-string nil)
#@111 Set the mode-line display for relative or countdown timer.
VALUE can be `on', `off', or `paused'.
(fn VALUE)
(defalias 'org-timer-set-mode-line #[257 "\304=\204\f \305=\203 \204 \306\307 >\204 \310 \311\"\312=\204) \305=\2034 \307\n>\2044 \310\n\313\"\211\314\267\202\302 \203D \315 !\210\316\304=\204P \305=\203U \317\307 \"\312=\204a \305=\203f \317\307\n\"\320 \207 \205\303 \315 !\210\316\211\207\304=\204\201 \305=\203\222 \204\207 \321\307 >\204\222 \310 \322\"\312=\204\236 \305=\203\251 \307\n>\204\251 \310\n\323\"\324 \210 \203\266 \315 !\210\316\205\303 \325\326\211\324#\211\207\316\207" [org-timer-display global-mode-string frame-title-format org-timer-mode-line-timer mode-line both (#1="") org-timer-mode-line-string append (org-timer-mode-line-string) frame-title (org-timer-mode-line-string) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (off 58 paused 105 on 117)) cancel-timer nil delq force-mode-line-update (#1#) (org-timer-mode-line-string) (org-timer-mode-line-string) org-timer-update-mode-line run-with-timer 1] 5 (#$ . 9554)])
#@41 Update the timer time in the mode line.
(defalias 'org-timer-update-mode-line #[0 "?\205 \302\303\304 \305\306#\307Q\310 \207" [org-timer-pause-time org-timer-mode-line-string " <" substring org-timer-value-string 0 -1 ">" force-mode-line-update] 5 (#$ . 10685)])
#@51 Display the remaining time before the timer ends.
(defalias 'org-timer-show-remaining-time #[0 "\301\204 \302\202 \303\304\305\306!\307\"\310\311\"\262\"!\207" [org-timer-countdown-timer message "No timer set" format-seconds "%m minute(s) %s seconds left before next time out" org-time-subtract timer--time nil time-convert integer] 7 (#$ . 10958) nil])
#@783 Prompt for a duration in minutes or hh:mm:ss and set a timer.
If `org-timer-default-timer' is not "0", suggest this value as
the default duration for the timer. If a timer is already set,
prompt the user if she wants to replace it.
Called with a numeric prefix argument, use this numeric value as
the duration of the timer in minutes.
Called with a `C-u' prefix arguments, use `org-timer-default-timer'
without prompting the user for a duration.
With two `C-u' prefix arguments, use `org-timer-default-timer'
without prompting the user for a duration and automatically
replace any running timer.
By default, the timer duration will be set to the number of
minutes in the Effort property, if any. You can ignore this by
using three `C-u' prefix arguments.
(fn &optional OPT)
(defalias 'org-timer-set-timer #[256 "\203\f \204\f \306\307!\210\n\247\203 \310\n!\202 \n\311\312 \"\313!\205' \314\315!!\262\247\2034 \310!\206a \316\232\204D \211\203D \310!\206a :\203M \206a ;\203V \206a \317\320\321\230?\205` \"\322\323\"\203m \211\324P\262\322\325\"\204y \326 \202\266 \327\330!! \203\224 \331\232\204\224 \332\333!\204\224 \334\335!\202\264 \336 !\203\236 \337 !\210\340 \341\f\"\342\343!\210\344\312\"\312\345\346!\262\207" [org-timer-start-time org-timer-countdown-timer org-timer-default-timer org-effort-property org-timer-countdown-timer-title org-timer-pause-time user-error "Relative timer is running. Stop first" number-to-string org-entry-get nil org-string-nw-p floor org-duration-to-minutes (64) read-from-minibuffer "How much time left? (minutes or h:mm:ss) " "0" string-match "\\`[0-9]+\\'" ":00" "[0-9]+" org-timer-show-remaining-time org-timer-hms-to-secs org-timer-fix-incomplete (16) y-or-n-p "Replace current timer? " message "No timer set" timerp cancel-timer org-timer--get-timer-title org-timer--run-countdown-timer run-hooks org-timer-set-hook org-time-add org-timer-set-mode-line on] 8 (#$ . 11325) "P"])
#@139 Start countdown timer that will last SECS.
TITLE will be appended to the notification message displayed when
time is up.
(fn SECS TITLE)
(defalias 'org-timer--run-countdown-timer #[514 "\301\302\"\303\304\305\304\306\307E\310BBBB#\207" [org-clock-sound format "%s: time out" run-with-timer nil lambda (setq org-timer-countdown-timer nil org-timer-start-time nil) org-notify ((org-timer-set-mode-line 'off) (run-hooks 'org-timer-done-hook))] 12 (#$ . 13296)])
#@81 Construct timer title.
Try to use an Org header, otherwise use the buffer name.
(defalias 'org-timer--get-timer-title #[0 "\300\301!\203C \302`\303\"\302`\304\"\206 \211\205B \305!\205B r\305!q\210\212\214~\210\211b\210\306 \210\30716 \310 0\202: \210\202= \206A \311\312 !+\207\300\313!\203T \3141Q \310 0\207\210\315\207\311\312 !\207" [derived-mode-p org-agenda-mode get-text-property org-marker org-hd-marker marker-buffer org-show-entry (error) org-get-heading buffer-name buffer-base-buffer org-mode (error) nil] 4 (#$ . 13767)])
(provide 'org-timer)
Mini Shell