Address nearly all byte compiler warnings
For the time being, we use a consistent pattern of packages requiring sexp.el instead of the other way round. chronometrist-current-task has been moved back to chronometrist-common
This commit is contained in:
parent
ea65761ee9
commit
958551d498
|
@ -19,11 +19,7 @@
|
||||||
(require 'chronometrist-custom)
|
(require 'chronometrist-custom)
|
||||||
(require 'chronometrist-report-custom)
|
(require 'chronometrist-report-custom)
|
||||||
(require 'chronometrist-time)
|
(require 'chronometrist-time)
|
||||||
;; (require 'chronometrist-sexp)
|
(require 'chronometrist-sexp)
|
||||||
|
|
||||||
;; (declare-function chronometrist-sexp-open-log "chronometrist-sexp")
|
|
||||||
;; (declare-function chronometrist-sexp-create-file "chronometrist-sexp")
|
|
||||||
;; (declare-function chronometrist-sexp-current-task "chronometrist-sexp")
|
|
||||||
|
|
||||||
;; ## VARIABLES ##
|
;; ## VARIABLES ##
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
@ -53,6 +49,10 @@ must correspond to the output from `chronometrist-format-time'.")
|
||||||
Used to prevent more than one watch being added for the same
|
Used to prevent more than one watch being added for the same
|
||||||
file.")
|
file.")
|
||||||
|
|
||||||
|
(defun chronometrist-current-task ()
|
||||||
|
"Return the name of the currently clocked-in task, or nil if not clocked in."
|
||||||
|
(chronometrist-sexp-current-task))
|
||||||
|
|
||||||
(defun chronometrist-format-time (duration &optional blank)
|
(defun chronometrist-format-time (duration &optional blank)
|
||||||
"Format DURATION as a string suitable for display in Chronometrist buffers.
|
"Format DURATION as a string suitable for display in Chronometrist buffers.
|
||||||
DURATION must be a vector or a list of the form [HOURS MINUTES
|
DURATION must be a vector or a list of the form [HOURS MINUTES
|
||||||
|
|
|
@ -59,7 +59,6 @@ vectors.\)"
|
||||||
This is not guaranteed to be accurate - see (info \"(elisp)Timers\")."
|
This is not guaranteed to be accurate - see (info \"(elisp)Timers\")."
|
||||||
:type 'integer)
|
:type 'integer)
|
||||||
|
|
||||||
(declare-function chronometrist-format-time "chronometrist-common")
|
|
||||||
(eval-when-compile (require 'subr-x))
|
(eval-when-compile (require 'subr-x))
|
||||||
|
|
||||||
(defcustom chronometrist-activity-indicator "*"
|
(defcustom chronometrist-activity-indicator "*"
|
||||||
|
|
|
@ -13,6 +13,7 @@
|
||||||
|
|
||||||
;; (require 'chronometrist-plist-pp)
|
;; (require 'chronometrist-plist-pp)
|
||||||
(require 'chronometrist-common)
|
(require 'chronometrist-common)
|
||||||
|
(require 'chronometrist-sexp)
|
||||||
|
|
||||||
;; external -
|
;; external -
|
||||||
;; chronometrist-day-start-time (-custom)
|
;; chronometrist-day-start-time (-custom)
|
||||||
|
|
|
@ -4,7 +4,6 @@
|
||||||
;;
|
;;
|
||||||
|
|
||||||
(require 'chronometrist-custom)
|
(require 'chronometrist-custom)
|
||||||
(require 'chronometrist-events)
|
|
||||||
(require 'chronometrist-plist-pp)
|
(require 'chronometrist-plist-pp)
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
|
@ -18,12 +18,6 @@
|
||||||
(require 'chronometrist-migrate)
|
(require 'chronometrist-migrate)
|
||||||
(require 'chronometrist-sexp)
|
(require 'chronometrist-sexp)
|
||||||
|
|
||||||
(defvar chronometrist-goals-list)
|
|
||||||
(declare-function 'chronometrist-get-goal "chronometrist-goals")
|
|
||||||
(autoload 'chronometrist-maybe-start-timer "chronometrist-timer" nil t)
|
|
||||||
(autoload 'chronometrist-report "chronometrist-report" nil t)
|
|
||||||
(autoload 'chronometrist-statistics "chronometrist-statistics" nil t)
|
|
||||||
|
|
||||||
;; This is free and unencumbered software released into the public domain.
|
;; This is free and unencumbered software released into the public domain.
|
||||||
;;
|
;;
|
||||||
;; Anyone is free to copy, modify, publish, use, compile, sell, or
|
;; Anyone is free to copy, modify, publish, use, compile, sell, or
|
||||||
|
@ -66,6 +60,15 @@
|
||||||
;; ## VARIABLES ##
|
;; ## VARIABLES ##
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
|
;; `chronometrist-goals' is an optional extension. But even these don't make the
|
||||||
|
;; warnings go away :\
|
||||||
|
(defvar chronometrist-goals-list)
|
||||||
|
(declare-function 'chronometrist-get-goal "chronometrist-goals")
|
||||||
|
|
||||||
|
(autoload 'chronometrist-maybe-start-timer "chronometrist-timer" nil t)
|
||||||
|
(autoload 'chronometrist-report "chronometrist-report" nil t)
|
||||||
|
(autoload 'chronometrist-statistics "chronometrist-statistics" nil t)
|
||||||
|
|
||||||
(defvar chronometrist--task-history nil)
|
(defvar chronometrist--task-history nil)
|
||||||
(defvar chronometrist--point nil)
|
(defvar chronometrist--point nil)
|
||||||
(defvar chronometrist-mode-map)
|
(defvar chronometrist-mode-map)
|
||||||
|
@ -83,10 +86,6 @@ button action."
|
||||||
"Create `chronometrist-file' if it doesn't already exist."
|
"Create `chronometrist-file' if it doesn't already exist."
|
||||||
(chronometrist-sexp-create-file))
|
(chronometrist-sexp-create-file))
|
||||||
|
|
||||||
(defun chronometrist-current-task ()
|
|
||||||
"Return the name of the currently clocked-in task, or nil if not clocked in."
|
|
||||||
(chronometrist-sexp-current-task))
|
|
||||||
|
|
||||||
(defun chronometrist-task-active? (task)
|
(defun chronometrist-task-active? (task)
|
||||||
"Return t if TASK is currently clocked in, else nil."
|
"Return t if TASK is currently clocked in, else nil."
|
||||||
(equal (chronometrist-current-task) task))
|
(equal (chronometrist-current-task) task))
|
||||||
|
|
|
@ -67,16 +67,17 @@
|
||||||
3. Variable - chronometrist-time-re-ui
|
3. Variable - chronometrist-time-re-ui
|
||||||
4. Variable - chronometrist-task-list
|
4. Variable - chronometrist-task-list
|
||||||
5. Internal Variable - chronometrist--fs-watch
|
5. Internal Variable - chronometrist--fs-watch
|
||||||
6. Function - chronometrist-format-time (duration &optional blank)
|
6. Function - chronometrist-current-task ()
|
||||||
|
7. Function - chronometrist-format-time (duration &optional blank)
|
||||||
* vector-duration | list-duration -> "h:m:s"
|
* vector-duration | list-duration -> "h:m:s"
|
||||||
7. Function - chronometrist-common-file-empty-p (file)
|
8. Function - chronometrist-common-file-empty-p (file)
|
||||||
8. Function - chronometrist-common-clear-buffer (buffer)
|
9. Function - chronometrist-common-clear-buffer (buffer)
|
||||||
9. Function - chronometrist-format-keybinds (command map &optional firstonly)
|
10. Function - chronometrist-format-keybinds (command map &optional firstonly)
|
||||||
10. Function - chronometrist-events->time-list (events)
|
11. Function - chronometrist-events->time-list (events)
|
||||||
* (event ...) -> ((encode-time encode-time) ...)
|
* (event ...) -> ((encode-time encode-time) ...)
|
||||||
11. Function - chronometrist-time-list->sum-of-intervals (time-value-lists)
|
12. Function - chronometrist-time-list->sum-of-intervals (time-value-lists)
|
||||||
* ((encode-time encode-time) ...) -> encode-time
|
* ((encode-time encode-time) ...) -> encode-time
|
||||||
12. Function - chronometrist-previous-week-start (date-string)
|
13. Function - chronometrist-previous-week-start (date-string)
|
||||||
*** chronometrist-custom.el
|
*** chronometrist-custom.el
|
||||||
1. Custom variable - chronometrist-file
|
1. Custom variable - chronometrist-file
|
||||||
2. Custom variable - chronometrist-buffer-name
|
2. Custom variable - chronometrist-buffer-name
|
||||||
|
@ -98,35 +99,34 @@
|
||||||
3. Keymap - chronometrist-mode-map
|
3. Keymap - chronometrist-mode-map
|
||||||
4. Command - chronometrist-open-log (&optional button)
|
4. Command - chronometrist-open-log (&optional button)
|
||||||
5. Function - chronometrist-common-create-file ()
|
5. Function - chronometrist-common-create-file ()
|
||||||
6. Function - chronometrist-current-task ()
|
6. Function - chronometrist-task-active? (task)
|
||||||
7. Function - chronometrist-task-active? (task)
|
|
||||||
* String -> Boolean
|
* String -> Boolean
|
||||||
8. Function - chronometrist-activity-indicator ()
|
7. Function - chronometrist-activity-indicator ()
|
||||||
9. Function - chronometrist-entries ()
|
8. Function - chronometrist-entries ()
|
||||||
10. Function - chronometrist-task-at-point ()
|
9. Function - chronometrist-task-at-point ()
|
||||||
11. Function - chronometrist-goto-last-task ()
|
10. Function - chronometrist-goto-last-task ()
|
||||||
12. Function - chronometrist-print-keybind (command &optional description firstonly)
|
11. Function - chronometrist-print-keybind (command &optional description firstonly)
|
||||||
13. Function - chronometrist-print-non-tabular ()
|
12. Function - chronometrist-print-non-tabular ()
|
||||||
14. Function - chronometrist-goto-nth-task (n)
|
13. Function - chronometrist-goto-nth-task (n)
|
||||||
15. Function - chronometrist-refresh (&optional ignore-auto noconfirm)
|
14. Function - chronometrist-refresh (&optional ignore-auto noconfirm)
|
||||||
16. Function - chronometrist-refresh-file (fs-event)
|
15. Function - chronometrist-refresh-file (fs-event)
|
||||||
17. Command - chronometrist-query-stop ()
|
16. Command - chronometrist-query-stop ()
|
||||||
18. Command - chronometrist-in (task &optional prefix)
|
17. Command - chronometrist-in (task &optional prefix)
|
||||||
19. Command - chronometrist-out (&optional prefix)
|
18. Command - chronometrist-out (&optional prefix)
|
||||||
20. Variable - chronometrist-before-in-functions
|
19. Variable - chronometrist-before-in-functions
|
||||||
21. Variable - chronometrist-after-in-functions
|
20. Variable - chronometrist-after-in-functions
|
||||||
22. Variable - chronometrist-before-out-functions
|
21. Variable - chronometrist-before-out-functions
|
||||||
23. Variable - chronometrist-after-out-functions
|
22. Variable - chronometrist-after-out-functions
|
||||||
24. Function - chronometrist-run-functions-and-clock-in (task)
|
23. Function - chronometrist-run-functions-and-clock-in (task)
|
||||||
25. Function - chronometrist-run-functions-and-clock-out (task)
|
24. Function - chronometrist-run-functions-and-clock-out (task)
|
||||||
26. Keymap - chronometrist-mode-map
|
25. Keymap - chronometrist-mode-map
|
||||||
27. Major Mode - chronometrist-mode
|
26. Major Mode - chronometrist-mode
|
||||||
28. Function - chronometrist-toggle-task-button (button)
|
27. Function - chronometrist-toggle-task-button (button)
|
||||||
29. Function - chronometrist-add-new-task-button (button)
|
28. Function - chronometrist-add-new-task-button (button)
|
||||||
30. Command - chronometrist-toggle-task (&optional prefix inhibit-hooks)
|
29. Command - chronometrist-toggle-task (&optional prefix inhibit-hooks)
|
||||||
31. Command - chronometrist-toggle-task-no-hooks (&optional prefix)
|
30. Command - chronometrist-toggle-task-no-hooks (&optional prefix)
|
||||||
32. Command - chronometrist-add-new-task ()
|
31. Command - chronometrist-add-new-task ()
|
||||||
33. Command - chronometrist (&optional arg)
|
32. Command - chronometrist (&optional arg)
|
||||||
*** chronometrist-events.el
|
*** chronometrist-events.el
|
||||||
1. Variable - chronometrist-events
|
1. Variable - chronometrist-events
|
||||||
2. Function - chronometrist-list-midnight-spanning-events ()
|
2. Function - chronometrist-list-midnight-spanning-events ()
|
||||||
|
|
Reference in New Issue