ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/org-timer.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'org)
#@28 t=0 for the running timer.
(defvar org-timer-start-time nil (#$ . 425))
#@33 Time when the timer was paused.
(defvar org-timer-pause-time nil (#$ . 503))
#@48 Regular expression used to match timer stamps.
(defconst org-timer-re "\\([-+]?[0-9]+\\):\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)" (#$ . 586))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\313\314\306\315& \210\300\316\317\320\304\305\306\321&\207" [custom-declare-variable org-timer-format "%s " "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 relative timer." :group org-time :type string org-timer-default-timer 0 "The default timer when a timer is set.\nWhen 0, the user is prompted for a value." :version "24.1" number org-timer-display 'mode-line "When a timer is running, org-mode can display it in the mode\nline 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 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))] 10)
#@43 Hook run after relative timer is started.
(defvar org-timer-start-hook nil (#$ . 1707))
#@44 Hook run before relative timer is stopped.
(defvar org-timer-stop-hook nil (#$ . 1801))
#@43 Hook run before relative timer is paused.
(defvar org-timer-pause-hook nil (#$ . 1895))
#@45 Hook run after relative timer is continued.
(defvar org-timer-continue-hook nil (#$ . 1989))
#@40 Hook run after countdown timer is set.
(defvar org-timer-set-hook nil (#$ . 2088))
#@46 Hook run after countdown timer reaches zero.
(defvar org-timer-done-hook nil (#$ . 2177))
#@46 Hook run before countdown timer is canceled.
(defvar org-timer-cancel-hook nil (#$ . 2273))
#@516 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.
(defalias 'org-timer-start #[(&optional offset) "\306\232\203\n \307\310!\207\311\211\211\204 \312 \202[ \250\203$ \202T ;\2030 \313!\202T \314
!\203< \315\316!\202= \317\320\321\322\n\"!\323\324 \"\204N \n\313\325 !!\326\327 Z!\330\331!\210\332\333\334\335\f\"\336 \206k \316!#\210\337\340!+\207" [offset s def delta org-timer-start-time org-timer-re (16) call-interactively org-timer-change-times-in-region 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 seconds-to-time org-float-time 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] 5 (#$ . 2372) "P"])
#@79 Pause or continue the relative timer.
With prefix arg STOP, stop it entirely.
(defalias 'org-timer-pause-or-continue #[(&optional stop) "\203 \303 \207 \204 \304\305!\207\n\2030 \306\307 \307\n!\307 !ZZ!\310\311\312!\210\313\314!\210\315\316\317 \"\207\313\320!\210\321 \311\322!\210\315\323\317 \"\207" [stop org-timer-start-time org-timer-pause-time org-timer-stop error "No timer is running" seconds-to-time org-float-time nil org-timer-set-mode-line on run-hooks org-timer-continue-hook message "Timer continues at %s" org-timer-value-string org-timer-pause-hook current-time pause "Timer paused at %s"] 5 (#$ . 3712) "P"])
(defvar org-timer-current-timer nil)
#@26 Stop the relative timer.
(defalias 'org-timer-stop #[nil "\303\304!\210\305\211\305\306\307!\210\310\311!\207" [org-timer-start-time org-timer-pause-time org-timer-current-timer run-hooks org-timer-stop-hook nil org-timer-set-mode-line off message "Timer stopped"] 3 (#$ . 4389) nil])
#@486 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 double prefix argument \[universal-argument], change all the timer string
in the region by a fixed amount. This can be used to recalibrate a timer
that was not started at the correct moment.
If NO-INSERT-P is non-nil, return the string instead of inserting
it in the buffer.
(defalias 'org-timer #[(&optional restart no-insert-p) "\303\232\204\n \204
\304 \210\n\203 \305 \207\305 c\207" [restart org-timer-start-time no-insert-p (4) org-timer-start org-timer-value-string] 2 (#$ . 4684) "P"])
#@23 Set the timer string.
(defalias 'org-timer-value-string #[nil "\301\302\303\304\305 !!!\"\207" [org-timer-format format org-timer-secs-to-hms abs floor org-timer-seconds] 6 (#$ . 5398)])
(defvar org-timer-timer-is-countdown nil)
(defalias 'org-timer-seconds #[nil "\203 \303 !\303 Z\207\303\n!\303 !Z\207" [org-timer-timer-is-countdown org-timer-start-time org-timer-pause-time org-float-time] 3])
#@47 Change all h:mm:ss time in region by a DELTA.
(defalias 'org-timer-change-times-in-region #[(beg end delta) "\306\307\310\311\n\"\2040 \212 b\210\312 \f\313#\203/ \314\315!\316\n!\317\232\203+ \n\320\307O\202/ \321\nP)\322\323\n!!\211\315U\203@ \324\325!\210\212\fb\210\326 \313#\205h `\327\330 \331\216\332\322\314\315!!\n\\!*\313\211#\210b\210\202D +\207" [p re delta beg end save-match-data-internal "[-+]?[0-9]+:[0-9]\\{2\\}:[0-9]\\{2\\}" nil string-match "\\S-" re-search-forward t match-string 0 string-to-char 45 1 "-" org-timer-hms-to-secs org-timer-fix-incomplete error "No change" re-search-backward replace-match match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-timer-secs-to-hms] 6 (#$ . 5805) "r\nsEnter time difference like \"-1:08:26\". Default is first time to zero: "])
#@62 Insert a description-type item with the current timer value.
(defalias 'org-timer-item #[(&optional arg) "\306 `\211\203@ b\203@ \307 \203@ \310 \311\n!\312\f\205 \313\314\"\315P \316\n \317
%\320\n\321\n!\"\210\322!\210\323\225b+\202` \203M b\210\324\325!\202` \326 \210\327 \210\330c\210\312\f\205\\ \331!\210\315c*\207" [pos itemp struct prevs arg s 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) org-list-full-item-re] 7 (#$ . 6654) "P"])
#@74 If hms is a H:MM:SS string with missing hour or hour and minute, fix it.
(defalias 'org-timer-fix-incomplete #[(hms) "\301\302\"\2034 \303\304\305\306\225\203 \307\310\306\"!\202 \311\312\225\203' \307\310\312\"!\202( \311\307\310\313\"!$\314\211$\207\315\316\"\207" [hms 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\""] 9 (#$ . 7320)])
#@114 Convert h:mm:ss string to an integer time.
If the string starts with a minus sign, the integer will be negative.
(defalias 'org-timer-hms-to-secs #[(hms) "\305\306\"\204 \307\207\310\311\312\"!\310\311\313\"!\310\311\314\"!\311\312\"\307\312O\315\232 \316 !\f\2034 \317\2025 \312 \n \320_\\\320_\\_,\207" [hms h m s sign string-match "\\([-+]?[0-9]+\\):\\([0-9]\\{2\\}\\):\\([0-9]\\{2\\}\\)" 0 string-to-number match-string 1 2 3 "-" abs -1 60] 5 (#$ . 7803)])
#@93 Convert integer S into h:mm:ss.
If the integer is negative, the string will start with "-".
(defalias 'org-timer-secs-to-hms #[(s) "\304\211\211 \305W\203 \306\202 \307\310 !\211\311\245 \311_Z \311\245 \311_Z\312\313\n %+\207" [h m sign s nil 0 "-" "" abs 60 format "%s%d:%02d:%02d"] 7 (#$ . 8280)])
(defvar org-timer-mode-line-timer nil)
(defvar org-timer-mode-line-string nil)
#@88 Set the mode-line display of the relative timer.
VALUE can be `on', `off', or `pause'.
(defalias 'org-timer-set-mode-line #[(value) "\305=\204\f \306=\203 \204 \307\310 >\204 \311 \312\"\313=\204) \306=\2034 \310\n>\2044 \311\n\314\" \315\232\203i \f\203D \316\f!\210\317\305=\204P \306=\203U \320\310 \"\313=\204a \306=\203f \320\310\n\"\321 \207 \322\232\203{ \f\205\315 \316\f!\210\317\211\207 \323\232\205\315 \305=\204\215 \306=\203\236 \204\223 \324\310 >\204\236 \311 \325\"\313=\204\252 \306=\203\265 \310\n>\204\265 \311\n\326\"\327 \210\f\203\302 \316\f!\210\317\205\315 \330\331\211\327#\211\207" [org-timer-display global-mode-string frame-title-format value 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) off cancel-timer nil delq force-mode-line-update pause on (#1#) (org-timer-mode-line-string) (org-timer-mode-line-string) org-timer-update-mode-line run-with-timer 1] 4 (#$ . 8681)])
#@41 Update the timer time in the mode line.
(defalias 'org-timer-update-mode-line #[nil "?\205 \302\303 \304\305O\306Q\307 \207" [org-timer-pause-time org-timer-mode-line-string " <" org-timer-value-string 0 -1 ">" force-mode-line-update] 4 (#$ . 9724)])
#@27 Cancel the current timer.
(defalias 'org-timer-cancel-timer #[nil "\302!\203 \303\304!\210\305!\210\306\211\307\310!\210\311\312!\207" [org-timer-current-timer org-timer-timer-is-countdown eval run-hooks org-timer-cancel-hook cancel-timer nil org-timer-set-mode-line off message "Last timer canceled"] 3 (#$ . 9984) nil])
#@51 Display the remaining time before the timer ends.
(defalias 'org-timer-show-remaining-time #[nil "\304\305!\210\204\f \306\307!\207\310\311\312!\313 \"!\211@ A@\306\314 \n#+\207" [org-timer-current-timer rtime rsecs rmins require time message "No timer set" decode-time time-subtract timer--time current-time "%d minute(s) %d seconds left before next time out"] 5 (#$ . 10317) nil])
#@569 Prompt for a duration and set a timer.
If `org-timer-default-timer' is not zero, 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.
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.
(defalias 'org-timer-set-timer #[(&optional opt) "\247\203 \306!\206' <\203 \203 \306 !\206' \307\310 \311=?\205& \306 !\"\312\313\n\"\2044 \314 \202 \315\316\311\n\"!\211\317_ \312\320\321 \"\203\212 \322`\323\"\206P \324 \322`\325\"\206Y
;\326
! <r\327
!q\210~\210<b\210\330 \210\3311y \332 0\202} \210\202\200 \206\206 \333\334\335 !P,\202\255 \336\337!\203\252 \3401\232 \332 0\202\236 \210\202\241 \206\255 \333\334\335 !P\202\255 \341\342! =\343 >?\203\303 \344\232\204\310 \345\346!\204\310 ?\204\347\350!\210?\203\326 \351?!\210\352\f\343\353\343\354\355\356\357=\"@E\360BBBB#?\361\362!\210\363A\364\365 \366 \317_!\"B\367\370!\202\371\372!,)\207" [opt org-timer-default-timer minutes mins secs marker number-to-string read-from-minibuffer "How many minutes left? " 0 string-match "[0-9]+" org-timer-show-remaining-time string-to-number match-string 60 "Org Agenda" buffer-name get-text-property org-marker org-agenda-error org-hd-marker marker-position marker-buffer org-show-entry (error) org-get-heading "File:" file-name-nondirectory buffer-file-name derived-mode-p org-mode (error) error "Not in an Org buffer" nil (16) y-or-n-p "Replace current timer? " require org-clock cancel-timer run-with-timer lambda (setq org-timer-current-timer nil) org-notify format "%s: time out" ((setq org-timer-timer-is-countdown nil) (org-timer-set-mode-line 'off) (run-hooks 'org-timer-done-hook)) run-hooks org-timer-set-hook t time-add current-time seconds-to-time org-timer-set-mode-line on message "No timer set" hdmarker pos hl timer-set org-timer-current-timer org-clock-sound org-timer-timer-is-countdown org-timer-start-time] 11 (#$ . 10712) "P"])
(provide 'org-timer)
Kontol Shell Bypass