annotate lisp/calendar/timeclock.el @ 79001:014d07e8bae7

*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 Oct 2007 03:22:40 +0000
parents 93e11478c954
children 974a828870fe b98604865ea0
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1 ;;; timeclock.el --- mode for keeping track of how much you work
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
2
75346
7a3f13e2dd57 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 72331
diff changeset
3 ;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
67465
a55ee709ec8d Update copyright pending Emacs 22.
Glenn Morris <rgm@gnu.org>
parents: 65680
diff changeset
4 ;; Free Software Foundation, Inc.
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
5
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
6 ;; Author: John Wiegley <johnw@gnu.org>
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
7 ;; Created: 25 Mar 1999
77900
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
8 ;; Version: 2.6.1
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
9 ;; Keywords: calendar data
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
10
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
11 ;; This file is part of GNU Emacs.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
12
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
13 ;; GNU Emacs is free software; you can redistribute it and/or modify
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
14 ;; it under the terms of the GNU General Public License as published by
78216
93e11478c954 Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 77900
diff changeset
15 ;; the Free Software Foundation; either version 3, or (at your option)
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
16 ;; any later version.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
17
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
18 ;; GNU Emacs is distributed in the hope that it will be useful,
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
21 ;; GNU General Public License for more details.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
22
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
23 ;; You should have received a copy of the GNU General Public License
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 61327
diff changeset
25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 61327
diff changeset
26 ;; Boston, MA 02110-1301, USA.
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
27
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
28 ;;; Commentary:
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
29
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
30 ;; This mode is for keeping track of time intervals. You can use it
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
31 ;; for whatever purpose you like, but the typical scenario is to keep
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
32 ;; track of how much time you spend working on certain projects.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
33 ;;
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
34 ;; Use `timeclock-in' when you start on a project, and `timeclock-out'
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
35 ;; when you're done. Once you've collected some data, you can use
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
36 ;; `timeclock-workday-remaining' to see how much time is left to be
51871
0c6d39d0f49d Minor commentary changes.
Glenn Morris <rgm@gnu.org>
parents: 51861
diff changeset
37 ;; worked today (where `timeclock-workday' specifies the length of the
0c6d39d0f49d Minor commentary changes.
Glenn Morris <rgm@gnu.org>
parents: 51861
diff changeset
38 ;; working day), and `timeclock-when-to-leave' to calculate when you're free.
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
39
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
40 ;; You'll probably want to bind the timeclock commands to some handy
51871
0c6d39d0f49d Minor commentary changes.
Glenn Morris <rgm@gnu.org>
parents: 51861
diff changeset
41 ;; keystrokes. At the moment, C-x t is unused:
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
42 ;;
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
43 ;; (require 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
44 ;;
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
45 ;; (define-key ctl-x-map "ti" 'timeclock-in)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
46 ;; (define-key ctl-x-map "to" 'timeclock-out)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
47 ;; (define-key ctl-x-map "tc" 'timeclock-change)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
48 ;; (define-key ctl-x-map "tr" 'timeclock-reread-log)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
49 ;; (define-key ctl-x-map "tu" 'timeclock-update-modeline)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
50 ;; (define-key ctl-x-map "tw" 'timeclock-when-to-leave-string)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
51
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
52 ;; If you want Emacs to display the amount of time "left" to your
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
53 ;; workday in the modeline, you can either set the value of
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
54 ;; `timeclock-modeline-display' to t using M-x customize, or you
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
55 ;; can add this code to your .emacs file:
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
56 ;;
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
57 ;; (require 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
58 ;; (timeclock-modeline-display)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
59 ;;
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
60 ;; To cancel this modeline display at any time, just call
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
61 ;; `timeclock-modeline-display' again.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
62
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
63 ;; You may also want Emacs to ask you before exiting, if you are
54704
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
64 ;; currently working on a project. This can be done either by setting
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
65 ;; `timeclock-ask-before-exiting' to t using M-x customize (this is
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
66 ;; the default), or by adding the following to your .emacs file:
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
67 ;;
51263
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
68 ;; (add-hook 'kill-emacs-query-functions 'timeclock-query-out)
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
69
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
70 ;; NOTE: If you change your .timelog file without using timeclock's
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
71 ;; functions, or if you change the value of any of timeclock's
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
72 ;; customizable variables, you should run the command
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
73 ;; `timeclock-reread-log'. This will recompute any discrepancies in
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
74 ;; your average working time, and will make sure that the various
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
75 ;; display functions return the correct value.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
76
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
77 ;;; History:
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
78
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
79 ;;; Code:
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
80
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
81 (defgroup timeclock nil
61327
804adc56eee2 (timeclock): Docstring fix.
Lute Kamstra <lute@gnu.org>
parents: 55207
diff changeset
82 "Keeping track of the time that gets spent."
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
83 :group 'data)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
84
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
85 ;;; User Variables:
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
86
30795
5b4027fef808 (timeclock-file): Run .timelog through convert-standard-filename.
Eli Zaretskii <eliz@gnu.org>
parents: 30781
diff changeset
87 (defcustom timeclock-file (convert-standard-filename "~/.timelog")
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
88 "*The file used to store timeclock data in."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
89 :type 'file
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
90 :group 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
91
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
92 (defcustom timeclock-workday (* 8 60 60)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
93 "*The length of a work period."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
94 :type 'integer
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
95 :group 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
96
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
97 (defcustom timeclock-relative t
72331
4e0c58818901 (timeclock-use-elapsed): Added a new variable, which causes timeclock
John Wiegley <johnw@newartisans.com>
parents: 68721
diff changeset
98 "*Whether to make reported time relative to `timeclock-workday'.
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
99 For example, if the length of a normal workday is eight hours, and you
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
100 work four hours on Monday, then the amount of time \"remaining\" on
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
101 Tuesday is twelve hours -- relative to an averaged work period of
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
102 eight hours -- or eight hours, non-relative. So relative time takes
51871
0c6d39d0f49d Minor commentary changes.
Glenn Morris <rgm@gnu.org>
parents: 51861
diff changeset
103 into account any discrepancy of time under-worked or over-worked on
0c6d39d0f49d Minor commentary changes.
Glenn Morris <rgm@gnu.org>
parents: 51861
diff changeset
104 previous days. This only affects the timeclock modeline display."
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
105 :type 'boolean
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
106 :group 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
107
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
108 (defcustom timeclock-get-project-function 'timeclock-ask-for-project
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
109 "*The function used to determine the name of the current project.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
110 When clocking in, and no project is specified, this function will be
54704
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
111 called to determine what is the current project to be worked on.
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
112 If this variable is nil, no questions will be asked."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
113 :type 'function
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
114 :group 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
115
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
116 (defcustom timeclock-get-reason-function 'timeclock-ask-for-reason
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
117 "*A function used to determine the reason for clocking out.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
118 When clocking out, and no reason is specified, this function will be
54704
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
119 called to determine what is the reason.
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
120 If this variable is nil, no questions will be asked."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
121 :type 'function
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
122 :group 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
123
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
124 (defcustom timeclock-get-workday-function nil
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
125 "*A function used to determine the length of today's workday.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
126 The first time that a user clocks in each day, this function will be
54704
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
127 called to determine what is the length of the current workday. If
46341
ff3a56c0df0f (timeclock-get-workday-function): `timeclock-workday' is not a valid
Glenn Morris <rgm@gnu.org>
parents: 46160
diff changeset
128 the return value is nil, or equal to `timeclock-workday', nothing special
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48224
diff changeset
129 will be done. If it is a quantity different from `timeclock-workday',
46341
ff3a56c0df0f (timeclock-get-workday-function): `timeclock-workday' is not a valid
Glenn Morris <rgm@gnu.org>
parents: 46160
diff changeset
130 however, a record will be output to the timelog file to note the fact that
54704
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
131 that day has a length that is different from the norm."
46341
ff3a56c0df0f (timeclock-get-workday-function): `timeclock-workday' is not a valid
Glenn Morris <rgm@gnu.org>
parents: 46160
diff changeset
132 :type '(choice (const nil) function)
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
133 :group 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
134
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
135 (defcustom timeclock-ask-before-exiting t
51871
0c6d39d0f49d Minor commentary changes.
Glenn Morris <rgm@gnu.org>
parents: 51861
diff changeset
136 "*If non-nil, ask if the user wants to clock out before exiting Emacs.
54704
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
137 This variable only has effect if set with \\[customize]."
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
138 :set (lambda (symbol value)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
139 (if value
51263
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
140 (add-hook 'kill-emacs-query-functions 'timeclock-query-out)
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
141 (remove-hook 'kill-emacs-query-functions 'timeclock-query-out))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
142 (setq timeclock-ask-before-exiting value))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
143 :type 'boolean
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
144 :group 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
145
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
146 (defvar timeclock-update-timer nil
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
147 "The timer used to update `timeclock-mode-string'.")
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
148
51549
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
149 ;; For byte-compiler.
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
150 (defvar display-time-hook)
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
151 (defvar timeclock-modeline-display)
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
152
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
153 (defcustom timeclock-use-display-time t
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
154 "*If non-nil, use `display-time-hook' for doing modeline updates.
54704
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
155 The advantage of this is that one less timer has to be set running
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
156 amok in Emacs' process space. The disadvantage is that it requires
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
157 you to have `display-time' running. If you don't want to use
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
158 `display-time', but still want the modeline to show how much time is
51871
0c6d39d0f49d Minor commentary changes.
Glenn Morris <rgm@gnu.org>
parents: 51861
diff changeset
159 left, set this variable to nil. Changing the value of this variable
0c6d39d0f49d Minor commentary changes.
Glenn Morris <rgm@gnu.org>
parents: 51861
diff changeset
160 while timeclock information is being displayed in the modeline has no
0c6d39d0f49d Minor commentary changes.
Glenn Morris <rgm@gnu.org>
parents: 51861
diff changeset
161 effect. You should call the function `timeclock-modeline-display' with
0c6d39d0f49d Minor commentary changes.
Glenn Morris <rgm@gnu.org>
parents: 51861
diff changeset
162 a positive argument to force an update."
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
163 :set (lambda (symbol value)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
164 (let ((currently-displaying
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
165 (and (boundp 'timeclock-modeline-display)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
166 timeclock-modeline-display)))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
167 ;; if we're changing to the state that
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
168 ;; `timeclock-modeline-display' is already using, don't
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
169 ;; bother toggling it. This happens on the initial loading
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
170 ;; of timeclock.el.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
171 (if (and currently-displaying
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
172 (or (and value
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
173 (boundp 'display-time-hook)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
174 (memq 'timeclock-update-modeline
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
175 display-time-hook))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
176 (and (not value)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
177 timeclock-update-timer)))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
178 (setq currently-displaying nil))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
179 (and currently-displaying
37437
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
180 (set-variable 'timeclock-modeline-display nil))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
181 (setq timeclock-use-display-time value)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
182 (and currently-displaying
37437
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
183 (set-variable 'timeclock-modeline-display t))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
184 timeclock-use-display-time))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
185 :type 'boolean
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
186 :group 'timeclock
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
187 :require 'time)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
188
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
189 (defcustom timeclock-first-in-hook nil
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
190 "*A hook run for the first \"in\" event each day.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
191 Note that this hook is run before recording any events. Thus the
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
192 value of `timeclock-hours-today', `timeclock-last-event' and the
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
193 return value of function `timeclock-last-period' are relative previous
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
194 to today."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
195 :type 'hook
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
196 :group 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
197
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
198 (defcustom timeclock-load-hook nil
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
199 "*Hook that gets run after timeclock has been loaded."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
200 :type 'hook
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
201 :group 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
202
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
203 (defcustom timeclock-in-hook nil
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
204 "*A hook run every time an \"in\" event is recorded."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
205 :type 'hook
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
206 :group 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
207
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
208 (defcustom timeclock-day-over-hook nil
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
209 "*A hook that is run when the workday has been completed.
51861
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
210 This hook is only run if the current time remaining is being displayed
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
211 in the modeline. See the variable `timeclock-modeline-display'."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
212 :type 'hook
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
213 :group 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
214
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
215 (defcustom timeclock-out-hook nil
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
216 "*A hook run every time an \"out\" event is recorded."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
217 :type 'hook
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
218 :group 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
219
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
220 (defcustom timeclock-done-hook nil
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
221 "*A hook run every time a project is marked as completed."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
222 :type 'hook
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
223 :group 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
224
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
225 (defcustom timeclock-event-hook nil
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
226 "*A hook run every time any event is recorded."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
227 :type 'hook
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
228 :group 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
229
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
230 (defvar timeclock-last-event nil
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
231 "A list containing the last event that was recorded.
33020
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
232 The format of this list is (CODE TIME PROJECT).")
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
233
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
234 (defvar timeclock-last-event-workday nil
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
235 "The number of seconds in the workday of `timeclock-last-event'.")
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
236
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
237 ;;; Internal Variables:
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
238
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
239 (defvar timeclock-discrepancy nil
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
240 "A variable containing the time discrepancy before the last event.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
241 Normally, timeclock assumes that you intend to work for
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
242 `timeclock-workday' seconds every day. Any days in which you work
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
243 more or less than this amount is considered either a positive or
54704
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
244 a negative discrepancy. If you work in such a manner that the
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
245 discrepancy is always brought back to zero, then you will by
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
246 definition have worked an average amount equal to `timeclock-workday'
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
247 each day.")
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
248
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
249 (defvar timeclock-elapsed nil
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
250 "A variable containing the time elapsed for complete periods today.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
251 This value is not accurate enough to be useful by itself. Rather,
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
252 call `timeclock-workday-elapsed', to determine how much time has been
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
253 worked so far today. Also, if `timeclock-relative' is nil, this value
72331
4e0c58818901 (timeclock-use-elapsed): Added a new variable, which causes timeclock
John Wiegley <johnw@newartisans.com>
parents: 68721
diff changeset
254 will be the same as `timeclock-discrepancy'.")
4e0c58818901 (timeclock-use-elapsed): Added a new variable, which causes timeclock
John Wiegley <johnw@newartisans.com>
parents: 68721
diff changeset
255
4e0c58818901 (timeclock-use-elapsed): Added a new variable, which causes timeclock
John Wiegley <johnw@newartisans.com>
parents: 68721
diff changeset
256 (defvar timeclock-use-elapsed nil
4e0c58818901 (timeclock-use-elapsed): Added a new variable, which causes timeclock
John Wiegley <johnw@newartisans.com>
parents: 68721
diff changeset
257 "Non-nil if the modeline should display time elapsed, not remaining.")
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
258
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
259 (defvar timeclock-last-period nil
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
260 "Integer representing the number of seconds in the last period.
54704
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
261 Note that you shouldn't access this value, but instead should use the
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
262 function `timeclock-last-period'.")
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
263
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
264 (defvar timeclock-mode-string nil
51263
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
265 "The timeclock string (optionally) displayed in the modeline.
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
266 The time is bracketed by <> if you are clocked in, otherwise by [].")
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
267
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
268 (defvar timeclock-day-over nil
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
269 "The date of the last day when notified \"day over\" for.")
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
270
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
271 ;;; User Functions:
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
272
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
273 ;;;###autoload
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
274 (defun timeclock-modeline-display (&optional arg)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
275 "Toggle display of the amount of time left today in the modeline.
51263
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
276 If `timeclock-use-display-time' is non-nil (the default), then
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
277 the function `display-time-mode' must be active, and the modeline
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
278 will be updated whenever the time display is updated. Otherwise,
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
279 the timeclock will use its own sixty second timer to do its
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
280 updating. With prefix ARG, turn modeline display on if and only
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
281 if ARG is positive. Returns the new status of timeclock modeline
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
282 display (non-nil means on)."
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
283 (interactive "P")
51263
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
284 ;; cf display-time-mode.
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
285 (setq timeclock-mode-string "")
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
286 (or global-mode-string (setq global-mode-string '("")))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
287 (let ((on-p (if arg
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
288 (> (prefix-numeric-value arg) 0)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
289 (not timeclock-modeline-display))))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
290 (if on-p
51263
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
291 (progn
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
292 (or (memq 'timeclock-mode-string global-mode-string)
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
293 (setq global-mode-string
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
294 (append global-mode-string '(timeclock-mode-string))))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
295 (unless (memq 'timeclock-update-modeline timeclock-event-hook)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
296 (add-hook 'timeclock-event-hook 'timeclock-update-modeline))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
297 (when timeclock-update-timer
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
298 (cancel-timer timeclock-update-timer)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
299 (setq timeclock-update-timer nil))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
300 (if (boundp 'display-time-hook)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
301 (remove-hook 'display-time-hook 'timeclock-update-modeline))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
302 (if timeclock-use-display-time
51263
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
303 (progn
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
304 ;; Update immediately so there is a visible change
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
305 ;; on calling this function.
51871
0c6d39d0f49d Minor commentary changes.
Glenn Morris <rgm@gnu.org>
parents: 51861
diff changeset
306 (if display-time-mode (timeclock-update-modeline)
77900
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
307 (message "Activate `display-time-mode' or turn off \
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
308 `timeclock-use-display-time' to see timeclock information"))
51263
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
309 (add-hook 'display-time-hook 'timeclock-update-modeline))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
310 (setq timeclock-update-timer
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
311 (run-at-time nil 60 'timeclock-update-modeline))))
51861
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
312 (setq global-mode-string
51263
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
313 (delq 'timeclock-mode-string global-mode-string))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
314 (remove-hook 'timeclock-event-hook 'timeclock-update-modeline)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
315 (if (boundp 'display-time-hook)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
316 (remove-hook 'display-time-hook
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
317 'timeclock-update-modeline))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
318 (when timeclock-update-timer
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
319 (cancel-timer timeclock-update-timer)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
320 (setq timeclock-update-timer nil)))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
321 (force-mode-line-update)
51861
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
322 (setq timeclock-modeline-display on-p)))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
323
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
324 ;; This has to be here so that the function definition of
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
325 ;; `timeclock-modeline-display' is known to the "set" function.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
326 (defcustom timeclock-modeline-display nil
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
327 "Toggle modeline display of time remaining.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
328 You must modify via \\[customize] for this variable to have an effect."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
329 :set (lambda (symbol value)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
330 (setq timeclock-modeline-display
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
331 (timeclock-modeline-display (or value 0))))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
332 :type 'boolean
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
333 :group 'timeclock
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
334 :require 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
335
51549
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
336 (defsubst timeclock-time-to-date (time)
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
337 "Convert the TIME value to a textual date string."
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
338 (format-time-string "%Y/%m/%d" time))
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
339
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
340 ;;;###autoload
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
341 (defun timeclock-in (&optional arg project find-project)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
342 "Clock in, recording the current time moment in the timelog.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
343 With a numeric prefix ARG, record the fact that today has only that
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
344 many hours in it to be worked. If arg is a non-numeric prefix arg
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
345 \(non-nil, but not a number), 0 is assumed (working on a holiday or
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
346 weekend). *If not called interactively, ARG should be the number of
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
347 _seconds_ worked today*. This feature only has effect the first time
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
348 this function is called within a day.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
349
54704
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
350 PROJECT is the project being clocked into. If PROJECT is nil, and
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
351 FIND-PROJECT is non-nil -- or the user calls `timeclock-in'
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
352 interactively -- call the function `timeclock-get-project-function' to
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
353 discover the name of the project."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
354 (interactive
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
355 (list (and current-prefix-arg
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
356 (if (numberp current-prefix-arg)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
357 (* current-prefix-arg 60 60)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
358 0))))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
359 (if (equal (car timeclock-last-event) "i")
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
360 (error "You've already clocked in!")
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
361 (unless timeclock-last-event
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
362 (timeclock-reread-log))
46350
9cead6e97a53 (timeclock-in): Run the new day section if, after rereading the log file,
Glenn Morris <rgm@gnu.org>
parents: 46341
diff changeset
363 ;; Either no log file, or day has rolled over.
9cead6e97a53 (timeclock-in): Run the new day section if, after rereading the log file,
Glenn Morris <rgm@gnu.org>
parents: 46341
diff changeset
364 (unless (and timeclock-last-event
9cead6e97a53 (timeclock-in): Run the new day section if, after rereading the log file,
Glenn Morris <rgm@gnu.org>
parents: 46341
diff changeset
365 (equal (timeclock-time-to-date
9cead6e97a53 (timeclock-in): Run the new day section if, after rereading the log file,
Glenn Morris <rgm@gnu.org>
parents: 46341
diff changeset
366 (cadr timeclock-last-event))
9cead6e97a53 (timeclock-in): Run the new day section if, after rereading the log file,
Glenn Morris <rgm@gnu.org>
parents: 46341
diff changeset
367 (timeclock-time-to-date (current-time))))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
368 (let ((workday (or (and (numberp arg) arg)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
369 (and arg 0)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
370 (and timeclock-get-workday-function
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
371 (funcall timeclock-get-workday-function))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
372 timeclock-workday)))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
373 (run-hooks 'timeclock-first-in-hook)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
374 ;; settle the discrepancy for the new day
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
375 (setq timeclock-discrepancy
46350
9cead6e97a53 (timeclock-in): Run the new day section if, after rereading the log file,
Glenn Morris <rgm@gnu.org>
parents: 46341
diff changeset
376 (- (or timeclock-discrepancy 0) workday))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
377 (if (not (= workday timeclock-workday))
77671
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
378 (timeclock-log "h" (number-to-string
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
379 (/ workday (if (zerop (% workday (* 60 60)))
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
380 60 60.0) 60))))))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
381 (timeclock-log "i" (or project
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
382 (and timeclock-get-project-function
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
383 (or find-project (interactive-p))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
384 (funcall timeclock-get-project-function))))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
385 (run-hooks 'timeclock-in-hook)))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
386
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
387 ;;;###autoload
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
388 (defun timeclock-out (&optional arg reason find-reason)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
389 "Clock out, recording the current time moment in the timelog.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
390 If a prefix ARG is given, the user has completed the project that was
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
391 begun during the last time segment.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
392
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
393 REASON is the user's reason for clocking out. If REASON is nil, and
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
394 FIND-REASON is non-nil -- or the user calls `timeclock-out'
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
395 interactively -- call the function `timeclock-get-reason-function' to
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
396 discover the reason."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
397 (interactive "P")
40671
526c9b7941f5 (timeclock-out): Signal an error if timeclock-last-event is nil.
Eli Zaretskii <eliz@gnu.org>
parents: 37652
diff changeset
398 (or timeclock-last-event
526c9b7941f5 (timeclock-out): Signal an error if timeclock-last-event is nil.
Eli Zaretskii <eliz@gnu.org>
parents: 37652
diff changeset
399 (error "You haven't clocked in!"))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
400 (if (equal (downcase (car timeclock-last-event)) "o")
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
401 (error "You've already clocked out!")
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
402 (timeclock-log
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
403 (if arg "O" "o")
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
404 (or reason
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
405 (and timeclock-get-reason-function
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
406 (or find-reason (interactive-p))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
407 (funcall timeclock-get-reason-function))))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
408 (run-hooks 'timeclock-out-hook)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
409 (if arg
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
410 (run-hooks 'timeclock-done-hook))))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
411
51861
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
412 ;; Should today-only be removed in favour of timeclock-relative? - gm
51549
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
413 (defsubst timeclock-workday-remaining (&optional today-only)
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
414 "Return the number of seconds until the workday is complete.
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
415 The amount returned is relative to the value of `timeclock-workday'.
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
416 If TODAY-ONLY is non-nil, the value returned will be relative only to
51861
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
417 the time worked today, and not to past time."
51549
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
418 (let ((discrep (timeclock-find-discrep)))
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
419 (if discrep
51861
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
420 (- (if today-only (cadr discrep)
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
421 (car discrep)))
51549
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
422 0.0)))
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
423
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
424 ;;;###autoload
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
425 (defun timeclock-status-string (&optional show-seconds today-only)
51861
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
426 "Report the overall timeclock status at the present moment.
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
427 If SHOW-SECONDS is non-nil, display second resolution.
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
428 If TODAY-ONLY is non-nil, the display will be relative only to time
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
429 worked today, ignoring the time worked on previous days."
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
430 (interactive "P")
72331
4e0c58818901 (timeclock-use-elapsed): Added a new variable, which causes timeclock
John Wiegley <johnw@newartisans.com>
parents: 68721
diff changeset
431 (let ((remainder (timeclock-workday-remaining
4e0c58818901 (timeclock-use-elapsed): Added a new variable, which causes timeclock
John Wiegley <johnw@newartisans.com>
parents: 68721
diff changeset
432 (or today-only
4e0c58818901 (timeclock-use-elapsed): Added a new variable, which causes timeclock
John Wiegley <johnw@newartisans.com>
parents: 68721
diff changeset
433 (not timeclock-relative))))
51549
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
434 (last-in (equal (car timeclock-last-event) "i"))
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
435 status)
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
436 (setq status
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
437 (format "Currently %s since %s (%s), %s %s, leave at %s"
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
438 (if last-in "IN" "OUT")
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
439 (if show-seconds
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
440 (format-time-string "%-I:%M:%S %p"
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
441 (nth 1 timeclock-last-event))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
442 (format-time-string "%-I:%M %p"
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
443 (nth 1 timeclock-last-event)))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
444 (or (nth 2 timeclock-last-event)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
445 (if last-in "**UNKNOWN**" "workday over"))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
446 (timeclock-seconds-to-string remainder show-seconds t)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
447 (if (> remainder 0)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
448 "remaining" "over")
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
449 (timeclock-when-to-leave-string show-seconds today-only)))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
450 (if (interactive-p)
65591
a65f8ec418fc message format spec fixes, commit # 10
Deepak Goel <deego@gnufans.org>
parents: 64085
diff changeset
451 (message "%s" status)
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
452 status)))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
453
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
454 ;;;###autoload
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
455 (defun timeclock-change (&optional arg project)
54704
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
456 "Change to working on a different project.
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
457 This clocks out of the current project, then clocks in on a new one.
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
458 With a prefix ARG, consider the previous project as finished at the
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
459 time of changeover. PROJECT is the name of the last project you were
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
460 working on."
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
461 (interactive "P")
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
462 (timeclock-out arg)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
463 (timeclock-in nil project (interactive-p)))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
464
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
465 ;;;###autoload
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
466 (defun timeclock-query-out ()
54704
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
467 "Ask the user whether to clock out.
51263
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
468 This is a useful function for adding to `kill-emacs-query-functions'."
51549
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
469 (and (equal (car timeclock-last-event) "i")
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
470 (y-or-n-p "You're currently clocking time, clock out? ")
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
471 (timeclock-out))
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
472 ;; Unconditionally return t for `kill-emacs-query-functions'.
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
473 t)
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
474
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
475 ;;;###autoload
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
476 (defun timeclock-reread-log ()
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
477 "Re-read the timeclock, to account for external changes.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
478 Returns the new value of `timeclock-discrepancy'."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
479 (interactive)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
480 (setq timeclock-discrepancy nil)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
481 (timeclock-find-discrep)
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
482 (if (and timeclock-discrepancy timeclock-modeline-display)
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
483 (timeclock-update-modeline))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
484 timeclock-discrepancy)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
485
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
486 (defun timeclock-seconds-to-string (seconds &optional show-seconds
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
487 reverse-leader)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
488 "Convert SECONDS into a compact time string.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
489 If SHOW-SECONDS is non-nil, make the resolution of the return string
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
490 include the second count. If REVERSE-LEADER is non-nil, it means to
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
491 output a \"+\" if the time value is negative, rather than a \"-\".
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
492 This is used when negative time values have an inverted meaning (such
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
493 as with time remaining, where negative time really means overtime)."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
494 (if show-seconds
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
495 (format "%s%d:%02d:%02d"
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
496 (if (< seconds 0) (if reverse-leader "+" "-") "")
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
497 (truncate (/ (abs seconds) 60 60))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
498 (% (truncate (/ (abs seconds) 60)) 60)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
499 (% (truncate (abs seconds)) 60))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
500 (format "%s%d:%02d"
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
501 (if (< seconds 0) (if reverse-leader "+" "-") "")
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
502 (truncate (/ (abs seconds) 60 60))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
503 (% (truncate (/ (abs seconds) 60)) 60))))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
504
33020
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
505 (defsubst timeclock-currently-in-p ()
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
506 "Return non-nil if the user is currently clocked in."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
507 (equal (car timeclock-last-event) "i"))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
508
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
509 ;;;###autoload
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
510 (defun timeclock-workday-remaining-string (&optional show-seconds
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
511 today-only)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
512 "Return a string representing the amount of time left today.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
513 Display second resolution if SHOW-SECONDS is non-nil. If TODAY-ONLY
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
514 is non-nil, the display will be relative only to time worked today.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
515 See `timeclock-relative' for more information about the meaning of
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
516 \"relative to today\"."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
517 (interactive)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
518 (let ((string (timeclock-seconds-to-string
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
519 (timeclock-workday-remaining today-only)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
520 show-seconds t)))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
521 (if (interactive-p)
65591
a65f8ec418fc message format spec fixes, commit # 10
Deepak Goel <deego@gnufans.org>
parents: 64085
diff changeset
522 (message "%s" string)
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
523 string)))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
524
37625
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
525 (defsubst timeclock-workday-elapsed ()
46160
b88409633904 (timeclock-workday-remaining): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 40671
diff changeset
526 "Return the number of seconds worked so far today.
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
527 If RELATIVE is non-nil, the amount returned will be relative to past
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
528 time worked. The default is to return only the time that has elapsed
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
529 so far today."
37625
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
530 (let ((discrep (timeclock-find-discrep)))
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
531 (if discrep
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
532 (nth 2 discrep)
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
533 0.0)))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
534
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
535 ;;;###autoload
37625
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
536 (defun timeclock-workday-elapsed-string (&optional show-seconds)
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
537 "Return a string representing the amount of time worked today.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
538 Display seconds resolution if SHOW-SECONDS is non-nil. If RELATIVE is
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
539 non-nil, the amount returned will be relative to past time worked."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
540 (interactive)
37625
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
541 (let ((string (timeclock-seconds-to-string (timeclock-workday-elapsed)
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
542 show-seconds)))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
543 (if (interactive-p)
65591
a65f8ec418fc message format spec fixes, commit # 10
Deepak Goel <deego@gnufans.org>
parents: 64085
diff changeset
544 (message "%s" string)
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
545 string)))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
546
51549
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
547 (defsubst timeclock-time-to-seconds (time)
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
548 "Convert TIME to a floating point number."
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
549 (+ (* (car time) 65536.0)
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
550 (cadr time)
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
551 (/ (or (car (cdr (cdr time))) 0) 1000000.0)))
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
552
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
553 (defsubst timeclock-seconds-to-time (seconds)
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
554 "Convert SECONDS (a floating point number) to an Emacs time structure."
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
555 (list (floor seconds 65536)
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
556 (floor (mod seconds 65536))
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
557 (floor (* (- seconds (ffloor seconds)) 1000000))))
48facdb1558e (display-time-hook, timeclock-modeline-display): Define for byte-compiler.
Glenn Morris <rgm@gnu.org>
parents: 51263
diff changeset
558
51861
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
559 ;; Should today-only be removed in favour of timeclock-relative? - gm
33020
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
560 (defsubst timeclock-when-to-leave (&optional today-only)
54704
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
561 "Return a time value representing the end of today's workday.
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
562 If TODAY-ONLY is non-nil, the value returned will be relative only to
51861
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
563 the time worked today, and not to past time."
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
564 (timeclock-seconds-to-time
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
565 (- (timeclock-time-to-seconds (current-time))
37625
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
566 (let ((discrep (timeclock-find-discrep)))
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
567 (if discrep
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
568 (if today-only
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
569 (cadr discrep)
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
570 (car discrep))
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
571 0.0)))))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
572
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
573 ;;;###autoload
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
574 (defun timeclock-when-to-leave-string (&optional show-seconds
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
575 today-only)
54704
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
576 "Return a string representing the end of today's workday.
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
577 This string is relative to the value of `timeclock-workday'. If
51861
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
578 SHOW-SECONDS is non-nil, the value printed/returned will include
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
579 seconds. If TODAY-ONLY is non-nil, the value returned will be
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
580 relative only to the time worked today, and not to past time."
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
581 ;; Should today-only be removed in favour of timeclock-relative? - gm
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
582 (interactive)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
583 (let* ((then (timeclock-when-to-leave today-only))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
584 (string
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
585 (if show-seconds
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
586 (format-time-string "%-I:%M:%S %p" then)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
587 (format-time-string "%-I:%M %p" then))))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
588 (if (interactive-p)
65591
a65f8ec418fc message format spec fixes, commit # 10
Deepak Goel <deego@gnufans.org>
parents: 64085
diff changeset
589 (message "%s" string)
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
590 string)))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
591
77900
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
592 (defun timeclock-make-hours-explicit (old-default)
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
593 "Specify all workday lengths in `timeclock-file'.
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
594 OLD-DEFAULT hours are set for every day that has no number indicated."
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
595 (interactive "P")
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
596 (if old-default (setq old-default (prefix-numeric-value old-default))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
597 (error "timelog-make-hours-explicit requires an explicit argument"))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
598 (let ((extant-timelog (find-buffer-visiting timeclock-file))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
599 current-date)
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
600 (with-current-buffer (find-file-noselect timeclock-file t)
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
601 (unwind-protect
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
602 (save-excursion
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
603 (save-restriction
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
604 (widen)
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
605 (goto-char (point-min))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
606 (while (progn (skip-chars-forward "\n") (not (eobp)))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
607 ;; This is just a variant of `timeclock-moment-regexp'.
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
608 (unless (looking-at
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
609 (concat "^\\([bhioO]\\) \\([0-9]+/[0-9]+/[0-9]+\\) "
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
610 "\\([0-9]+:[0-9]+:[0-9]+\\)"))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
611 (error "Can't parse `%s'" timeclock-file))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
612 (let ((this-date (match-string 2)))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
613 (unless (or (and current-date
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
614 (string= this-date current-date))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
615 (string= (match-string 1) "h"))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
616 (insert (format "h %s %s %s\n" (match-string 2)
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
617 (match-string 3) old-default)))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
618 (if (string-match "^[ih]" (match-string 1)) ; ignore logouts
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
619 (setq current-date this-date)))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
620 (forward-line))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
621 (save-buffer)))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
622 (unless extant-timelog (kill-buffer (current-buffer)))))))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
623
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
624 ;;; Internal Functions:
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
625
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
626 (defvar timeclock-project-list nil)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
627 (defvar timeclock-last-project nil)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
628
37324
570c667b4d1c (timeclock-completing-read): new function.
John Wiegley <johnw@newartisans.com>
parents: 37282
diff changeset
629 (defun timeclock-completing-read (prompt alist &optional default)
570c667b4d1c (timeclock-completing-read): new function.
John Wiegley <johnw@newartisans.com>
parents: 37282
diff changeset
630 "A version of `completing-read' that works on both Emacs and XEmacs."
570c667b4d1c (timeclock-completing-read): new function.
John Wiegley <johnw@newartisans.com>
parents: 37282
diff changeset
631 (if (featurep 'xemacs)
570c667b4d1c (timeclock-completing-read): new function.
John Wiegley <johnw@newartisans.com>
parents: 37282
diff changeset
632 (let ((str (completing-read prompt alist)))
570c667b4d1c (timeclock-completing-read): new function.
John Wiegley <johnw@newartisans.com>
parents: 37282
diff changeset
633 (if (or (null str) (= (length str) 0))
570c667b4d1c (timeclock-completing-read): new function.
John Wiegley <johnw@newartisans.com>
parents: 37282
diff changeset
634 default
570c667b4d1c (timeclock-completing-read): new function.
John Wiegley <johnw@newartisans.com>
parents: 37282
diff changeset
635 str))
570c667b4d1c (timeclock-completing-read): new function.
John Wiegley <johnw@newartisans.com>
parents: 37282
diff changeset
636 (completing-read prompt alist nil nil nil nil default)))
570c667b4d1c (timeclock-completing-read): new function.
John Wiegley <johnw@newartisans.com>
parents: 37282
diff changeset
637
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
638 (defun timeclock-ask-for-project ()
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
639 "Ask the user for the project they are clocking into."
37324
570c667b4d1c (timeclock-completing-read): new function.
John Wiegley <johnw@newartisans.com>
parents: 37282
diff changeset
640 (timeclock-completing-read
65680
ed770a0a7846 2005-09-24 Emilio C. Lopes <eclig@gmx.net>
Romain Francoise <romain@orebokech.com>
parents: 65591
diff changeset
641 (format "Clock into which project (default %s): "
37324
570c667b4d1c (timeclock-completing-read): new function.
John Wiegley <johnw@newartisans.com>
parents: 37282
diff changeset
642 (or timeclock-last-project
570c667b4d1c (timeclock-completing-read): new function.
John Wiegley <johnw@newartisans.com>
parents: 37282
diff changeset
643 (car timeclock-project-list)))
570c667b4d1c (timeclock-completing-read): new function.
John Wiegley <johnw@newartisans.com>
parents: 37282
diff changeset
644 (mapcar 'list timeclock-project-list)
570c667b4d1c (timeclock-completing-read): new function.
John Wiegley <johnw@newartisans.com>
parents: 37282
diff changeset
645 (or timeclock-last-project
570c667b4d1c (timeclock-completing-read): new function.
John Wiegley <johnw@newartisans.com>
parents: 37282
diff changeset
646 (car timeclock-project-list))))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
647
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
648 (defvar timeclock-reason-list nil)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
649
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
650 (defun timeclock-ask-for-reason ()
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
651 "Ask the user for the reason they are clocking out."
37324
570c667b4d1c (timeclock-completing-read): new function.
John Wiegley <johnw@newartisans.com>
parents: 37282
diff changeset
652 (timeclock-completing-read "Reason for clocking out: "
570c667b4d1c (timeclock-completing-read): new function.
John Wiegley <johnw@newartisans.com>
parents: 37282
diff changeset
653 (mapcar 'list timeclock-reason-list)))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
654
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
655 (defun timeclock-update-modeline ()
51861
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
656 "Update the `timeclock-mode-string' displayed in the modeline.
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
657 The value of `timeclock-relative' affects the display as described in
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
658 that variable's documentation."
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
659 (interactive)
72331
4e0c58818901 (timeclock-use-elapsed): Added a new variable, which causes timeclock
John Wiegley <johnw@newartisans.com>
parents: 68721
diff changeset
660 (let ((remainder
4e0c58818901 (timeclock-use-elapsed): Added a new variable, which causes timeclock
John Wiegley <johnw@newartisans.com>
parents: 68721
diff changeset
661 (if timeclock-use-elapsed
4e0c58818901 (timeclock-use-elapsed): Added a new variable, which causes timeclock
John Wiegley <johnw@newartisans.com>
parents: 68721
diff changeset
662 (timeclock-workday-elapsed)
4e0c58818901 (timeclock-use-elapsed): Added a new variable, which causes timeclock
John Wiegley <johnw@newartisans.com>
parents: 68721
diff changeset
663 (timeclock-workday-remaining (not timeclock-relative))))
51263
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
664 (last-in (equal (car timeclock-last-event) "i")))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
665 (when (and (< remainder 0)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
666 (not (and timeclock-day-over
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
667 (equal timeclock-day-over
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
668 (timeclock-time-to-date
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
669 (current-time))))))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
670 (setq timeclock-day-over
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
671 (timeclock-time-to-date (current-time)))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
672 (run-hooks 'timeclock-day-over-hook))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
673 (setq timeclock-mode-string
51263
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
674 (propertize
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
675 (format " %c%s%c "
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
676 (if last-in ?< ?[)
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
677 (timeclock-seconds-to-string remainder nil t)
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
678 (if last-in ?> ?]))
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
679 'help-echo "timeclock: time remaining"))))
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
680
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
681 (put 'timeclock-mode-string 'risky-local-variable t)
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
682
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
683 (defun timeclock-log (code &optional project)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
684 "Log the event CODE to the timeclock log, at the time of call.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
685 If PROJECT is a string, it represents the project which the event is
33020
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
686 being logged for. Normally only \"in\" events specify a project."
77671
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
687 (let ((extant-timelog (find-buffer-visiting timeclock-file)))
77900
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
688 (with-current-buffer (find-file-noselect timeclock-file t)
77671
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
689 (save-excursion
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
690 (save-restriction
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
691 (widen)
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
692 (goto-char (point-max))
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
693 (if (not (bolp))
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
694 (insert "\n"))
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
695 (let ((now (current-time)))
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
696 (insert code " "
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
697 (format-time-string "%Y/%m/%d %H:%M:%S" now)
77900
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
698 (or (and (stringp project)
77671
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
699 (> (length project) 0)
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
700 (concat " " project))
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
701 "")
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
702 "\n")
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
703 (if (equal (downcase code) "o")
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
704 (setq timeclock-last-period
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
705 (- (timeclock-time-to-seconds now)
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
706 (timeclock-time-to-seconds
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
707 (cadr timeclock-last-event)))
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
708 timeclock-discrepancy
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
709 (+ timeclock-discrepancy
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
710 timeclock-last-period)))
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
711 (setq timeclock-last-event (list code now project)))))
693e049fff70 (timeclock-in): Fix non-interactive workday specifications.
Richard M. Stallman <rms@gnu.org>
parents: 75346
diff changeset
712 (save-buffer)
77900
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
713 (unless extant-timelog (kill-buffer (current-buffer)))))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
714 (run-hooks 'timeclock-event-hook))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
715
33020
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
716 (defvar timeclock-moment-regexp
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
717 (concat "\\([bhioO]\\)\\s-+"
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
718 "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)\\s-+"
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
719 "\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)[ \t]*" "\\([^\n]*\\)"))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
720
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
721 (defsubst timeclock-read-moment ()
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
722 "Read the moment under point from the timelog."
33020
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
723 (if (looking-at timeclock-moment-regexp)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
724 (let ((code (match-string 1))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
725 (year (string-to-number (match-string 2)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
726 (mon (string-to-number (match-string 3)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
727 (mday (string-to-number (match-string 4)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
728 (hour (string-to-number (match-string 5)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
729 (min (string-to-number (match-string 6)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
730 (sec (string-to-number (match-string 7)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
731 (project (match-string 8)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
732 (list code (encode-time sec min hour mday mon year) project))))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
733
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
734 (defun timeclock-last-period (&optional moment)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
735 "Return the value of the last event period.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
736 If the last event was a clock-in, the period will be open ended, and
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
737 growing every second. Otherwise, it is a fixed amount which has been
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
738 recorded to disk. If MOMENT is non-nil, use that as the current time.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
739 This is only provided for coherency when used by
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
740 `timeclock-discrepancy'."
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
741 (if (equal (car timeclock-last-event) "i")
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
742 (- (timeclock-time-to-seconds (or moment (current-time)))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
743 (timeclock-time-to-seconds
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
744 (cadr timeclock-last-event)))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
745 timeclock-last-period))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
746
33020
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
747 (defsubst timeclock-entry-length (entry)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
748 (- (timeclock-time-to-seconds (cadr entry))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
749 (timeclock-time-to-seconds (car entry))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
750
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
751 (defsubst timeclock-entry-begin (entry)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
752 (car entry))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
753
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
754 (defsubst timeclock-entry-end (entry)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
755 (cadr entry))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
756
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
757 (defsubst timeclock-entry-project (entry)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
758 (nth 2 entry))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
759
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
760 (defsubst timeclock-entry-comment (entry)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
761 (nth 3 entry))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
762
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
763
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
764 (defsubst timeclock-entry-list-length (entry-list)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
765 (let ((length 0))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
766 (while entry-list
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
767 (setq length (+ length (timeclock-entry-length (car entry-list))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
768 (setq entry-list (cdr entry-list)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
769 length))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
770
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
771 (defsubst timeclock-entry-list-begin (entry-list)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
772 (timeclock-entry-begin (car entry-list)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
773
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
774 (defsubst timeclock-entry-list-end (entry-list)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
775 (timeclock-entry-end (car (last entry-list))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
776
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
777 (defsubst timeclock-entry-list-span (entry-list)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
778 (- (timeclock-time-to-seconds (timeclock-entry-list-end entry-list))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
779 (timeclock-time-to-seconds (timeclock-entry-list-begin entry-list))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
780
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
781 (defsubst timeclock-entry-list-break (entry-list)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
782 (- (timeclock-entry-list-span entry-list)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
783 (timeclock-entry-list-length entry-list)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
784
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
785 (defsubst timeclock-entry-list-projects (entry-list)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
786 (let (projects)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
787 (while entry-list
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
788 (let ((project (timeclock-entry-project (car entry-list))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
789 (if projects
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
790 (add-to-list 'projects project)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
791 (setq projects (list project))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
792 (setq entry-list (cdr entry-list)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
793 projects))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
794
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
795
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
796 (defsubst timeclock-day-required (day)
37437
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
797 (or (car day) timeclock-workday))
33020
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
798
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
799 (defsubst timeclock-day-length (day)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
800 (timeclock-entry-list-length (cdr day)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
801
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
802 (defsubst timeclock-day-debt (day)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
803 (- (timeclock-day-required day)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
804 (timeclock-day-length day)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
805
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
806 (defsubst timeclock-day-begin (day)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
807 (timeclock-entry-list-begin (cdr day)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
808
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
809 (defsubst timeclock-day-end (day)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
810 (timeclock-entry-list-end (cdr day)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
811
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
812 (defsubst timeclock-day-span (day)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
813 (timeclock-entry-list-span (cdr day)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
814
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
815 (defsubst timeclock-day-break (day)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
816 (timeclock-entry-list-break (cdr day)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
817
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
818 (defsubst timeclock-day-projects (day)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
819 (timeclock-entry-list-projects (cdr day)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
820
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
821 (defmacro timeclock-day-list-template (func)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
822 `(let ((length 0))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
823 (while day-list
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
824 (setq length (+ length (,(eval func) (car day-list))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
825 (setq day-list (cdr day-list)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
826 length))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
827
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
828 (defun timeclock-day-list-required (day-list)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
829 (timeclock-day-list-template 'timeclock-day-required))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
830
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
831 (defun timeclock-day-list-length (day-list)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
832 (timeclock-day-list-template 'timeclock-day-length))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
833
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
834 (defun timeclock-day-list-debt (day-list)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
835 (timeclock-day-list-template 'timeclock-day-debt))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
836
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
837 (defsubst timeclock-day-list-begin (day-list)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
838 (timeclock-day-begin (car day-list)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
839
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
840 (defsubst timeclock-day-list-end (day-list)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
841 (timeclock-day-end (car (last day-list))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
842
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
843 (defun timeclock-day-list-span (day-list)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
844 (timeclock-day-list-template 'timeclock-day-span))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
845
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
846 (defun timeclock-day-list-break (day-list)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
847 (timeclock-day-list-template 'timeclock-day-break))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
848
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
849 (defun timeclock-day-list-projects (day-list)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
850 (let (projects)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
851 (while day-list
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
852 (let ((projs (timeclock-day-projects (car day-list))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
853 (while projs
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
854 (if projects
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
855 (add-to-list 'projects (car projs))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
856 (setq projects (list (car projs))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
857 (setq projs (cdr projs))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
858 (setq day-list (cdr day-list)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
859 projects))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
860
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
861
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
862 (defsubst timeclock-current-debt (&optional log-data)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
863 (nth 0 (or log-data (timeclock-log-data))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
864
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
865 (defsubst timeclock-day-alist (&optional log-data)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
866 (nth 1 (or log-data (timeclock-log-data))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
867
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
868 (defun timeclock-day-list (&optional log-data)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
869 (let ((alist (timeclock-day-alist log-data))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
870 day-list)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
871 (while alist
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
872 (setq day-list (cons (cdar alist) day-list)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
873 alist (cdr alist)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
874 day-list))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
875
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
876 (defsubst timeclock-project-alist (&optional log-data)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
877 (nth 2 (or log-data (timeclock-log-data))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
878
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
879
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
880 (defun timeclock-log-data (&optional recent-only filename)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
881 "Return the contents of the timelog file, in a useful format.
51861
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
882 If the optional argument RECENT-ONLY is non-nil, only show the contents
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
883 from the last point where the time debt (see below) was set.
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
884 If the optional argument FILENAME is non-nil, it is used instead of
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
885 the file specified by `timeclock-file.'
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
886
33020
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
887 A timelog contains data in the form of a single entry per line.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
888 Each entry has the form:
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
889
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
890 CODE YYYY/MM/DD HH:MM:SS [COMMENT]
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
891
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
892 CODE is one of: b, h, i, o or O. COMMENT is optional when the code is
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
893 i, o or O. The meanings of the codes are:
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
894
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
895 b Set the current time balance, or \"time debt\". Useful when
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
896 archiving old log data, when a debt must be carried forward.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
897 The COMMENT here is the number of seconds of debt.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
898
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
899 h Set the required working time for the given day. This must
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
900 be the first entry for that day. The COMMENT in this case is
54704
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
901 the number of hours in this workday. Floating point amounts
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
902 are allowed.
33020
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
903
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
904 i Clock in. The COMMENT in this case should be the name of the
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
905 project worked on.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
906
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
907 o Clock out. COMMENT is unnecessary, but can be used to provide
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
908 a description of how the period went, for example.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
909
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
910 O Final clock out. Whatever project was being worked on, it is
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
911 now finished. Useful for creating summary reports.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
912
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
913 When this function is called, it will return a data structure with the
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
914 following format:
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
915
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
916 (DEBT ENTRIES-BY-DAY ENTRIES-BY-PROJECT)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
917
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
918 DEBT is a floating point number representing the number of seconds
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
919 \"owed\" before any work was done. For a new file (one without a 'b'
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
920 entry), this is always zero.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
921
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
922 The two entries lists have similar formats. They are both alists,
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
923 where the CAR is the index, and the CDR is a list of time entries.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
924 For ENTRIES-BY-DAY, the CAR is a textual date string, of the form
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
925 YYYY/MM/DD. For ENTRIES-BY-PROJECT, it is the name of the project
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
926 worked on, or t for the default project.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
927
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
928 The CDR for ENTRIES-BY-DAY is slightly different than for
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
929 ENTRIES-BY-PROJECT. It has the following form:
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
930
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
931 (DAY-LENGTH TIME-ENTRIES...)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
932
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
933 For ENTRIES-BY-PROJECT, there is no DAY-LENGTH member. It is simply a
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
934 list of TIME-ENTRIES. Note that if DAY-LENGTH is nil, it means
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
935 whatever is the default should be used.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
936
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
937 A TIME-ENTRY is a recorded time interval. It has the following format
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
938 \(although generally one does not have to manipulate these entries
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
939 directly; see below):
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
940
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
941 (BEGIN-TIME END-TIME PROJECT [COMMENT] [FINAL-P])
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
942
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
943 Anyway, suffice it to say there are a lot of structures. Typically
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
944 the user is expected to manipulate to the day(s) or project(s) that he
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
945 or she wants, at which point the following helper functions may be
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
946 used:
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
947
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
948 timeclock-day-required
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
949 timeclock-day-length
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
950 timeclock-day-debt
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
951 timeclock-day-begin
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
952 timeclock-day-end
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
953 timeclock-day-span
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
954 timeclock-day-break
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
955 timeclock-day-projects
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
956
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
957 timeclock-day-list-required
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
958 timeclock-day-list-length
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
959 timeclock-day-list-debt
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
960 timeclock-day-list-begin
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
961 timeclock-day-list-end
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
962 timeclock-day-list-span
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
963 timeclock-day-list-break
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
964 timeclock-day-list-projects
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
965
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
966 timeclock-entry-length
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
967 timeclock-entry-begin
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
968 timeclock-entry-end
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
969 timeclock-entry-project
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
970 timeclock-entry-comment
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
971
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
972 timeclock-entry-list-length
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
973 timeclock-entry-list-begin
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
974 timeclock-entry-list-end
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
975 timeclock-entry-list-span
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
976 timeclock-entry-list-break
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
977 timeclock-entry-list-projects
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
978
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
979 A few comments should make the use of the above functions obvious:
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
980
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
981 `required' is the amount of time that must be spent during a day, or
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
982 sequence of days, in order to have no debt.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
983
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
984 `length' is the actual amount of time that was spent.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
985
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
986 `debt' is the difference between required time and length. A
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
987 negative debt signifies overtime.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
988
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
989 `begin' is the earliest moment at which work began.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
990
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
991 `end' is the final moment work was done.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
992
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
993 `span' is the difference between begin and end.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
994
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
995 `break' is the difference between span and length.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
996
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
997 `project' is the project that was worked on, and `projects' is a
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
998 list of all the projects that were worked on during a given period.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
999
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1000 `comment', where it applies, could mean anything.
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1001
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1002 There are a few more functions available, for locating day and entry
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1003 lists:
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1004
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1005 timeclock-day-alist LOG-DATA
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1006 timeclock-project-alist LOG-DATA
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1007 timeclock-current-debt LOG-DATA
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1008
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1009 See the documentation for the given function if more info is needed."
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1010 (let* ((log-data (list 0.0 nil nil))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1011 (now (current-time))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1012 (todays-date (timeclock-time-to-date now))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1013 last-date-limited last-date-seconds last-date
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1014 (line 0) last beg day entry event)
33020
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1015 (with-temp-buffer
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1016 (insert-file-contents (or filename timeclock-file))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1017 (when recent-only
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1018 (goto-char (point-max))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1019 (unless (re-search-backward "^b\\s-+" nil t)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1020 (goto-char (point-min))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1021 (while (or (setq event (timeclock-read-moment))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1022 (and beg (not last)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1023 (setq last t event (list "o" now))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1024 (setq line (1+ line))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1025 (cond ((equal (car event) "b")
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1026 (setcar log-data (string-to-number (nth 2 event))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1027 ((equal (car event) "h")
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1028 (setq last-date-limited (timeclock-time-to-date (cadr event))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1029 last-date-seconds (* (string-to-number (nth 2 event))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1030 3600.0)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1031 ((equal (car event) "i")
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1032 (if beg
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1033 (error "Error in format of timelog file, line %d" line)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1034 (setq beg t))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1035 (setq entry (list (cadr event) nil
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1036 (and (> (length (nth 2 event)) 0)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1037 (nth 2 event))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1038 (let ((date (timeclock-time-to-date (cadr event))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1039 (if (and last-date
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1040 (not (equal date last-date)))
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1041 (progn
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1042 (setcar (cdr log-data)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1043 (cons (cons last-date day)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1044 (cadr log-data)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1045 (setq day (list (and last-date-limited
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1046 last-date-seconds))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1047 (unless day
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1048 (setq day (list (and last-date-limited
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1049 last-date-seconds)))))
33020
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1050 (setq last-date date
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1051 last-date-limited nil)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1052 ((equal (downcase (car event)) "o")
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1053 (if (not beg)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1054 (error "Error in format of timelog file, line %d" line)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1055 (setq beg nil))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1056 (setcar (cdr entry) (cadr event))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1057 (let ((desc (and (> (length (nth 2 event)) 0)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1058 (nth 2 event))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1059 (if desc
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1060 (nconc entry (list (nth 2 event))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1061 (if (equal (car event) "O")
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1062 (nconc entry (if desc
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1063 (list t)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1064 (list nil t))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1065 (nconc day (list entry))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1066 (setq desc (nth 2 entry))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1067 (let ((proj (assoc desc (nth 2 log-data))))
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1068 (if (null proj)
33020
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1069 (setcar (cddr log-data)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1070 (cons (cons desc (list entry))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1071 (car (cddr log-data))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1072 (nconc (cdr proj) (list entry)))))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1073 (forward-line))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1074 (if day
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1075 (setcar (cdr log-data)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1076 (cons (cons last-date day)
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1077 (cadr log-data))))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1078 log-data)))
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1079
37625
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1080 (defun timeclock-find-discrep ()
51861
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
1081 "Calculate time discrepancies, in seconds.
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
1082 The result is a three element list, containing the total time
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
1083 discrepancy, today's discrepancy, and the time worked today."
33020
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1084 ;; This is not implemented in terms of the functions above, because
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1085 ;; it's a bit wasteful to read all of that data in, just to throw
e21feeab77fb See ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 32451
diff changeset
1086 ;; away more than 90% of the information afterwards.
37437
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1087 ;;
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1088 ;; If it were implemented using those functions, it would look
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1089 ;; something like this:
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1090 ;; (let ((days (timeclock-day-alist (timeclock-log-data)))
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1091 ;; (total 0.0))
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1092 ;; (while days
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1093 ;; (setq total (+ total (- (timeclock-day-length (cdar days))
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1094 ;; (timeclock-day-required (cdar days))))
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1095 ;; days (cdr days)))
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1096 ;; total)
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1097 (let* ((now (current-time))
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1098 (todays-date (timeclock-time-to-date now))
37648
9baaf32f355a (timeclock-find-discrep): Initialize `elapsed' to 0.
John Wiegley <johnw@newartisans.com>
parents: 37625
diff changeset
1099 (first t) (accum 0) (elapsed 0)
37437
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1100 event beg last-date avg
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1101 last-date-limited last-date-seconds)
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1102 (unless timeclock-discrepancy
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1103 (when (file-readable-p timeclock-file)
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1104 (setq timeclock-project-list nil
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1105 timeclock-last-project nil
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1106 timeclock-reason-list nil
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1107 timeclock-elapsed 0)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1108 (with-temp-buffer
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1109 (insert-file-contents timeclock-file)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1110 (goto-char (point-max))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1111 (unless (re-search-backward "^b\\s-+" nil t)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1112 (goto-char (point-min)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1113 (while (setq event (timeclock-read-moment))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1114 (cond ((equal (car event) "b")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1115 (setq accum (string-to-number (nth 2 event))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1116 ((equal (car event) "h")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1117 (setq last-date-limited
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1118 (timeclock-time-to-date (cadr event))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1119 last-date-seconds
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1120 (* (string-to-number (nth 2 event)) 3600.0)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1121 ((equal (car event) "i")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1122 (when (and (nth 2 event)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1123 (> (length (nth 2 event)) 0))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1124 (add-to-list 'timeclock-project-list (nth 2 event))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1125 (setq timeclock-last-project (nth 2 event)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1126 (let ((date (timeclock-time-to-date (cadr event))))
37625
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1127 (if (if last-date
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1128 (not (equal date last-date))
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1129 first)
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1130 (setq first nil
37625
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1131 accum (- accum (if last-date-limited
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1132 last-date-seconds
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1133 timeclock-workday))))
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1134 (setq last-date date
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1135 last-date-limited nil)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1136 (if beg
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1137 (error "Error in format of timelog file!")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1138 (setq beg (timeclock-time-to-seconds (cadr event))))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1139 ((equal (downcase (car event)) "o")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1140 (if (and (nth 2 event)
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1141 (> (length (nth 2 event)) 0))
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1142 (add-to-list 'timeclock-reason-list (nth 2 event)))
37625
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1143 (if (not beg)
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1144 (error "Error in format of timelog file!")
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1145 (setq timeclock-last-period
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1146 (- (timeclock-time-to-seconds (cadr event)) beg)
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1147 accum (+ timeclock-last-period accum)
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1148 beg nil))
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1149 (if (equal last-date todays-date)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1150 (setq timeclock-elapsed
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1151 (+ timeclock-last-period timeclock-elapsed)))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1152 (setq timeclock-last-event event
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1153 timeclock-last-event-workday
37437
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1154 (if (equal (timeclock-time-to-date now) last-date-limited)
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1155 last-date-seconds
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1156 timeclock-workday))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1157 (forward-line))
37437
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1158 (setq timeclock-discrepancy accum))))
37650
061ef023b0af (timeclock-find-discrep): Set `timeclock-last-event-workday' if it's
John Wiegley <johnw@newartisans.com>
parents: 37648
diff changeset
1159 (unless timeclock-last-event-workday
061ef023b0af (timeclock-find-discrep): Set `timeclock-last-event-workday' if it's
John Wiegley <johnw@newartisans.com>
parents: 37648
diff changeset
1160 (setq timeclock-last-event-workday timeclock-workday))
51263
d115afc922ec Update copyright.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
1161 (setq accum (or timeclock-discrepancy 0)
37652
7fb1a7ce4a40 One more variable coming up nil on the first time around, needing
John Wiegley <johnw@newartisans.com>
parents: 37651
diff changeset
1162 elapsed (or timeclock-elapsed elapsed))
37437
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1163 (if timeclock-last-event
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1164 (if (equal (car timeclock-last-event) "i")
37625
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1165 (let ((last-period (timeclock-last-period now)))
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1166 (setq accum (+ accum last-period)
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1167 elapsed (+ elapsed last-period)))
37437
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1168 (if (not (equal (timeclock-time-to-date
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1169 (cadr timeclock-last-event))
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1170 (timeclock-time-to-date now)))
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1171 (setq accum (- accum timeclock-last-event-workday)))))
37625
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1172 (list accum (- elapsed timeclock-last-event-workday)
53351976477e (timeclock-workday-remaining): Changed logic for determining how much
John Wiegley <johnw@newartisans.com>
parents: 37437
diff changeset
1173 elapsed)))
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1174
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1175 ;;; A reporting function that uses timeclock-log-data
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1176
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1177 (defun timeclock-day-base (&optional time)
51861
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
1178 "Given a time within a day, return 0:0:0 within that day.
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
1179 If optional argument TIME is non-nil, use that instead of the current time."
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1180 (let ((decoded (decode-time (or time (current-time)))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1181 (setcar (nthcdr 0 decoded) 0)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1182 (setcar (nthcdr 1 decoded) 0)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1183 (setcar (nthcdr 2 decoded) 0)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1184 (apply 'encode-time decoded)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1185
77900
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
1186 (defun timeclock-mean (l)
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
1187 "Compute the arithmetic mean of the values in the list L."
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1188 (let ((total 0)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1189 (count 0))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1190 (while l
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1191 (setq total (+ total (car l))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1192 count (1+ count)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1193 l (cdr l)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1194 (if (> count 0)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1195 (/ total count)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1196 0)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1197
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1198 (defun timeclock-generate-report (&optional html-p)
51861
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
1199 "Generate a summary report based on the current timelog file.
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
1200 By default, the report is in plain text, but if the optional argument
54704
3d13cea5e07a (timeclock-relative)
Eli Zaretskii <eliz@gnu.org>
parents: 52401
diff changeset
1201 HTML-P is non-nil, HTML markup is added."
77900
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
1202 (interactive "P")
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1203 (let ((log (timeclock-log-data))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1204 (today (timeclock-day-base)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1205 (if html-p (insert "<p>"))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1206 (insert "Currently ")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1207 (let ((project (nth 2 timeclock-last-event))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1208 (begin (nth 1 timeclock-last-event))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1209 done)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1210 (if (timeclock-currently-in-p)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1211 (insert "IN")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1212 (if (or (null project) (= (length project) 0))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1213 (progn (insert "Done Working Today")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1214 (setq done t))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1215 (insert "OUT")))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1216 (unless done
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1217 (insert " since " (format-time-string "%Y/%m/%d %-I:%M %p" begin))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1218 (if html-p
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1219 (insert "<br>\n<b>")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1220 (insert "\n*"))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1221 (if (timeclock-currently-in-p)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1222 (insert "Working on "))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1223 (if html-p
37282
d30baa39a3b4 (timeclock-generate-report): Added a missing insert of the project
John Wiegley <johnw@newartisans.com>
parents: 36854
diff changeset
1224 (insert project "</b><br>\n")
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1225 (insert project "*\n"))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1226 (let ((proj-data (cdr (assoc project (timeclock-project-alist log))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1227 (two-weeks-ago (timeclock-seconds-to-time
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1228 (- (timeclock-time-to-seconds today)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1229 (* 2 7 24 60 60))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1230 two-week-len today-len)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1231 (while proj-data
55207
a3244da8e396 (timeclock-time-less-p): Remove.
Juanma Barranquero <lekktu@gmail.com>
parents: 54704
diff changeset
1232 (if (not (time-less-p
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1233 (timeclock-entry-begin (car proj-data)) today))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1234 (setq today-len (timeclock-entry-list-length proj-data)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1235 proj-data nil)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1236 (if (and (null two-week-len)
55207
a3244da8e396 (timeclock-time-less-p): Remove.
Juanma Barranquero <lekktu@gmail.com>
parents: 54704
diff changeset
1237 (not (time-less-p
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1238 (timeclock-entry-begin (car proj-data))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1239 two-weeks-ago)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1240 (setq two-week-len (timeclock-entry-list-length proj-data)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1241 (setq proj-data (cdr proj-data))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1242 (if (null two-week-len)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1243 (setq two-week-len today-len))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1244 (if html-p (insert "<p>"))
37437
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1245 (if today-len
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1246 (insert "\nTime spent on this task today: "
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1247 (timeclock-seconds-to-string today-len)
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1248 ". In the last two weeks: "
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1249 (timeclock-seconds-to-string two-week-len))
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1250 (if two-week-len
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1251 (insert "\nTime spent on this task in the last two weeks: "
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1252 (timeclock-seconds-to-string two-week-len))))
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1253 (if html-p (insert "<br>"))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1254 (insert "\n"
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1255 (timeclock-seconds-to-string (timeclock-workday-elapsed))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1256 " worked today, "
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1257 (timeclock-seconds-to-string (timeclock-workday-remaining))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1258 " remaining, done at "
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1259 (timeclock-when-to-leave-string) "\n")))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1260 (if html-p (insert "<p>"))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1261 (insert "\nThere have been "
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1262 (number-to-string
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1263 (length (timeclock-day-alist log)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1264 " days of activity, starting "
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1265 (caar (last (timeclock-day-alist log))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1266 (if html-p (insert "</p>"))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1267 (when html-p
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1268 (insert "<p>
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1269 <table>
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1270 <td width=\"25\"><br></td><td>
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1271 <table border=1 cellpadding=3>
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1272 <tr><th><i>Statistics</i></th>
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1273 <th>Entire</th>
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1274 <th>-30 days</th>
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1275 <th>-3 mons</th>
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1276 <th>-6 mons</th>
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1277 <th>-1 year</th>
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1278 </tr>")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1279 (let* ((day-list (timeclock-day-list))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1280 (thirty-days-ago (timeclock-seconds-to-time
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1281 (- (timeclock-time-to-seconds today)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1282 (* 30 24 60 60))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1283 (three-months-ago (timeclock-seconds-to-time
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1284 (- (timeclock-time-to-seconds today)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1285 (* 90 24 60 60))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1286 (six-months-ago (timeclock-seconds-to-time
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1287 (- (timeclock-time-to-seconds today)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1288 (* 180 24 60 60))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1289 (one-year-ago (timeclock-seconds-to-time
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1290 (- (timeclock-time-to-seconds today)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1291 (* 365 24 60 60))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1292 (time-in (vector (list t) (list t) (list t) (list t) (list t)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1293 (time-out (vector (list t) (list t) (list t) (list t) (list t)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1294 (breaks (vector (list t) (list t) (list t) (list t) (list t)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1295 (workday (vector (list t) (list t) (list t) (list t) (list t)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1296 (lengths (vector '(0 0) thirty-days-ago three-months-ago
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1297 six-months-ago one-year-ago)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1298 ;; collect statistics from complete timelog
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1299 (while day-list
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1300 (let ((i 0) (l 5))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1301 (while (< i l)
55207
a3244da8e396 (timeclock-time-less-p): Remove.
Juanma Barranquero <lekktu@gmail.com>
parents: 54704
diff changeset
1302 (unless (time-less-p
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1303 (timeclock-day-begin (car day-list))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1304 (aref lengths i))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1305 (let ((base (timeclock-time-to-seconds
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1306 (timeclock-day-base
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1307 (timeclock-day-begin (car day-list))))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1308 (nconc (aref time-in i)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1309 (list (- (timeclock-time-to-seconds
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1310 (timeclock-day-begin (car day-list)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1311 base)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1312 (let ((span (timeclock-day-span (car day-list)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1313 (len (timeclock-day-length (car day-list)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1314 (req (timeclock-day-required (car day-list))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1315 ;; If the day's actual work length is less than
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1316 ;; 70% of its span, then likely the exit time
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1317 ;; and break amount are not worthwhile adding to
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1318 ;; the statistic
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1319 (when (and (> span 0)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1320 (> (/ (float len) (float span)) 0.70))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1321 (nconc (aref time-out i)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1322 (list (- (timeclock-time-to-seconds
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1323 (timeclock-day-end (car day-list)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1324 base)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1325 (nconc (aref breaks i) (list (- span len))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1326 (if req
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1327 (setq len (+ len (- timeclock-workday req))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1328 (nconc (aref workday i) (list len)))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1329 (setq i (1+ i))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1330 (setq day-list (cdr day-list)))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1331 ;; average statistics
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1332 (let ((i 0) (l 5))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1333 (while (< i l)
77900
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
1334 (aset time-in i (timeclock-mean (cdr (aref time-in i))))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
1335 (aset time-out i (timeclock-mean (cdr (aref time-out i))))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
1336 (aset breaks i (timeclock-mean (cdr (aref breaks i))))
2e526dc9c6b6 Update version number.
Chong Yidong <cyd@stupidchicken.com>
parents: 77671
diff changeset
1337 (aset workday i (timeclock-mean (cdr (aref workday i))))
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1338 (setq i (1+ i))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1339 ;; Output the HTML table
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1340 (insert "<tr>\n")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1341 (insert "<td align=\"center\">Time in</td>\n")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1342 (let ((i 0) (l 5))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1343 (while (< i l)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1344 (insert "<td align=\"right\">"
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1345 (timeclock-seconds-to-string (aref time-in i))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1346 "</td>\n")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1347 (setq i (1+ i))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1348 (insert "</tr>\n")
37437
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1349
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1350 (insert "<tr>\n")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1351 (insert "<td align=\"center\">Time out</td>\n")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1352 (let ((i 0) (l 5))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1353 (while (< i l)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1354 (insert "<td align=\"right\">"
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1355 (timeclock-seconds-to-string (aref time-out i))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1356 "</td>\n")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1357 (setq i (1+ i))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1358 (insert "</tr>\n")
37437
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1359
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1360 (insert "<tr>\n")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1361 (insert "<td align=\"center\">Break</td>\n")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1362 (let ((i 0) (l 5))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1363 (while (< i l)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1364 (insert "<td align=\"right\">"
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1365 (timeclock-seconds-to-string (aref breaks i))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1366 "</td>\n")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1367 (setq i (1+ i))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1368 (insert "</tr>\n")
37437
ed485de91fcf (timeclock-day-required): If the time required for a particular day is
John Wiegley <johnw@newartisans.com>
parents: 37324
diff changeset
1369
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1370 (insert "<tr>\n")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1371 (insert "<td align=\"center\">Workday</td>\n")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1372 (let ((i 0) (l 5))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1373 (while (< i l)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1374 (insert "<td align=\"right\">"
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1375 (timeclock-seconds-to-string (aref workday i))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1376 "</td>\n")
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1377 (setq i (1+ i))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1378 (insert "</tr>\n"))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1379 (insert "<tfoot>
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1380 <td colspan=\"6\" align=\"center\">
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1381 <i>These are approximate figures</i></td>
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1382 </tfoot>
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1383 </table>
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1384 </td></table>")))))
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1385
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1386 ;;; A helpful little function
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1387
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1388 (defun timeclock-visit-timelog ()
51861
91e4e5fd11de (timeclock-use-display-time, timeclock-day-over-hook)
Glenn Morris <rgm@gnu.org>
parents: 51549
diff changeset
1389 "Open the file named by `timeclock-file' in another window."
36851
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1390 (interactive)
ea0bb03a9658 see ChangeLog
John Wiegley <johnw@newartisans.com>
parents: 36091
diff changeset
1391 (find-file-other-window timeclock-file))
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1392
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1393 (provide 'timeclock)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1394
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1395 (run-hooks 'timeclock-load-hook)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1396
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1397 ;; make sure we know the list of reasons, projects, and have computed
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1398 ;; the last event and current discrepancy.
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1399 (if (file-readable-p timeclock-file)
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1400 (timeclock-reread-log))
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1401
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 51871
diff changeset
1402 ;;; arch-tag: a0be3377-deb6-44ec-b9a2-a7be28436a40
30781
59479ef35bf2 *** empty log message ***
Gerd Moellmann <gerd@gnu.org>
parents:
diff changeset
1403 ;;; timeclock.el ends here