Gecko [ 122.154.134.11 ]

Name	Size	Permission
org-agenda.elc	214.7 KB	-rw-r--r--
org-archive.elc	11.75 KB	-rw-r--r--
org-attach.elc	14.21 KB	-rw-r--r--
org-bbdb.elc	7.37 KB	-rw-r--r--
org-bibtex.elc	4.13 KB	-rw-r--r--
org-clock.elc	35.05 KB	-rw-r--r--
org-colview.elc	41.45 KB	-rw-r--r--
org-compat.elc	7.48 KB	-rw-r--r--
org-exp.elc	149.66 KB	-rw-r--r--
org-export-latex.elc	44.23 KB	-rw-r--r--
org-faces.elc	20.18 KB	-rw-r--r--
org-footnote.elc	13.77 KB	-rw-r--r--
org-gnus.elc	5.74 KB	-rw-r--r--
org-id.elc	16.92 KB	-rw-r--r--
org-info.elc	1.68 KB	-rw-r--r--
org-install.elc	635 B	-rw-r--r--
org-irc.elc	5.89 KB	-rw-r--r--
org-jsinfo.elc	5.39 KB	-rw-r--r--
org-list.elc	32.5 KB	-rw-r--r--
org-mac-message.elc	2.27 KB	-rw-r--r--
org-macs.elc	7.83 KB	-rw-r--r--
org-mew.elc	2.92 KB	-rw-r--r--
org-mhe.elc	5.16 KB	-rw-r--r--
org-mouse.elc	32.83 KB	-rw-r--r--
org-plot.elc	10.28 KB	-rw-r--r--
org-publish.elc	20.43 KB	-rw-r--r--
org-remember.elc	31.7 KB	-rw-r--r--
org-rmail.elc	2.82 KB	-rw-r--r--
org-table.elc	136.62 KB	-rw-r--r--
org-timer.elc	7.61 KB	-rw-r--r--
org-vm.elc	2.91 KB	-rw-r--r--
org-w3m.elc	3.88 KB	-rw-r--r--
org-wl.elc	2.82 KB	-rw-r--r--
org.elc	505.8 KB	-rw-r--r--

Code Editor : org-timer.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:52 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/org/org-timer.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`org-timer.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'org)
#@28 t=0 for the running timer.
(defvar org-timer-start-time nil (#$ . 628))
#@33 Time when the timer was paused.
(defvar org-timer-pause-time nil (#$ . 706))
#@48 Regular expression used to match timer stamps.
(defconst org-timer-re "\$[-+]?[0-9]+\$:\$[0-9]\\{2\\}\$:\$[0-9]\\{2\\}\$" (#$ . 789))
#@150 The format to insert the time of the timer.
This format must contain one instance of "%s" which will be replaced by
the value of the relative timer.
(custom-declare-variable 'org-timer-format '"%s " '(#$ . 936) :group 'org-time :type 'string)
#@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\312 !\313	!Z!\330\331!\210\332\333\334\335\f\"\336\206o�\316!#+\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 time-to-seconds 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] 5 (#$ . 1186) "P"])
#@75 Pause or continue the relative timer.  With prefix arg, stop it entirely.
(defalias 'org-timer-pause-or-continue #[(&optional stop) "\203�\303 \207	\204�\304\305!\207\n\203.�\306\307\310 !\307\n!\307	!ZZ!\311\312\313!\210\314\315\316 \"\207\310 \312\317!\210\314\320\316 \"\207" [stop org-timer-start-time org-timer-pause-time org-timer-stop error "No timer is running" seconds-to-time time-to-seconds current-time nil org-timer-set-mode-line on message "Timer continues at %s" org-timer-value-string pause "Timer paused at %s"] 5 (#$ . 2493) "P"])
#@26 Stop the relative timer.
(defalias 'org-timer-stop #[nil "\302\211\303\304!\207" [org-timer-start-time org-timer-pause-time nil org-timer-set-mode-line off] 3 (#$ . 3054) nil])
#@368 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 `C-u' prefix, force restarting the timer.
When used with a double prefix arg `C-u C-u', 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.
(defalias 'org-timer #[(&optional restart) "\302\232\203	�\303 \210	\204�\303 \210\304 c\207" [restart org-timer-start-time (4) org-timer-start org-timer-value-string] 2 (#$ . 3240) "P"])
(defalias 'org-timer-value-string #[nil "\301\302\303\304 !!\"\207" [org-timer-format format org-timer-secs-to-hms floor org-timer-seconds] 5])
(defalias 'org-timer-seconds #[nil "\302\206�\303 !\302	!Z\207" [org-timer-pause-time org-timer-start-time time-to-seconds current-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�\212b\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 ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-timer-secs-to-hms] 6 (#$ . 4091) "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) "\302\212\303\304x\210\304\305\306\217\210)n\204�\307 \210\310!\210\311c\210\312	\205!�\313!\210\314c)\207" [ind arg 0 " \n	" nil (byte-code "\301 \210\302 \301\207" [ind org-beginning-of-item org-get-indentation] 1) ((error)) newline org-indent-line-to "- " org-timer (4) ":: "] 3 (#$ . 4946) "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 (#$ . 5361)])
#@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 (#$ . 5844)])
#@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 (#$ . 6321)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\304\207" [current-load-list org-timer-mode-line-timer default-boundp set-default nil org-timer-mode-line-string] 3)
#@87 Set the mode-line dispay of the relative timer.
VALUE can be `on', `off', or `pause'.
(defalias 'org-timer-set-mode-line #[(value) "\204�\303\304>\204�\305\306\"	\307\232\203)�\n\203!�\310\n!\210\311\312\304\"\313 \207	\314\232\203;�\n\205d�\310\n!\210\311\211\207	\315\232\205d�\204G�\316\304>\204R�\305\317\"\320 \210\n\203]�\310\n!\210\321\322\211\320#\211\207" [global-mode-string value org-timer-mode-line-timer (#1="") org-timer-mode-line-string append (org-timer-mode-line-string) off cancel-timer nil delq force-mode-line-update pause on (#1#) (org-timer-mode-line-string) org-timer-update-mode-line run-with-timer 1] 4 (#$ . 6852)])
#@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 (#$ . 7517)])
(provide 'org-timer)

${this.title}

Code Editor : org-timer.elc