contrapunctus
/
chronometrist
Archived
1
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Rename chronometrist-task-list -> chronometrist--task-list

This commit is contained in:
contrapunctus 2021-01-09 10:29:42 +05:30
parent 5f46b51fef
commit 8513119243
7 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
doc/manual.info
View File

@ -539,7 +539,7 @@ Variable - chronometrist-date-re
@item
Variable - chronometrist-time-re-ui
@item
Variable - chronometrist-task-list
Internal Variable - chronometrist--task-list
@item
Internal Variable - chronometrist--fs-watch
@item

2
doc/manual.org
View File

@ -219,7 +219,7 @@ Each of these has a corresponding function to clear it and fill it with values -
1. Variable - chronometrist-empty-time-string
2. Variable - chronometrist-date-re
3. Variable - chronometrist-time-re-ui
4. Variable - chronometrist-task-list
4. Internal Variable - chronometrist--task-list
5. Internal Variable - chronometrist--fs-watch
6. Function - chronometrist-current-task ()
7. Function - chronometrist-format-time (seconds &optional (blank " "))

2
elisp/chronometrist-common.el
View File

@ -40,7 +40,7 @@ This is distinct from `chronometrist-time-re-file' (which see) -
`chronometrist-time-re-ui' is meant for the user interface, and
must correspond to the output from `chronometrist-format-time'.")
(defvar chronometrist-task-list nil
(defvar chronometrist--task-list nil
"List of tasks in `chronometrist-file', as returned by `chronometrist-tasks-from-table'.")
(defvar chronometrist--fs-watch nil

2
elisp/chronometrist-queries.el
View File

@ -45,7 +45,7 @@ The return value is seconds, as an integer."
TS must be a ts struct (see `ts.el')
Return value is seconds as an integer."
(->> chronometrist-task-list
(->> chronometrist--task-list
(--map (chronometrist-task-time-one-day it ts))
(-reduce #'+)
(truncate)))

2
elisp/chronometrist-report.el
View File

@ -99,7 +99,7 @@ The first date is the first occurrence of
"Create entries to be displayed in the `chronometrist-report' buffer."
(let* ((week-dates (chronometrist-report-date->week-dates))) ;; uses today if chronometrist-report--ui-date is nil
(setq chronometrist-report--ui-week-dates week-dates)
(cl-loop for task in chronometrist-task-list collect
(cl-loop for task in chronometrist--task-list collect
(let* ((durations (--map (chronometrist-task-time-one-day task (chronometrist-date it))
week-dates))
(duration-strings (mapcar #'chronometrist-format-time

2
elisp/chronometrist-statistics.el
View File

@ -142,7 +142,7 @@ reduced to the desired range using
active-percent
average-time)))
(list task content)))
chronometrist-task-list))
chronometrist--task-list))
(defun chronometrist-statistics-entries ()
"Create entries to be displayed in the buffer created by `chronometrist-statistics'."

4
elisp/chronometrist.el
View File

@ -180,7 +180,7 @@ Return the value returned by Fₙ."
;; latter should refresh from a file.
;; (chronometrist-events-populate)
;; (chronometrist-events-clean)
(->> (-sort #'string-lessp chronometrist-task-list)
(->> (-sort #'string-lessp chronometrist--task-list)
(--map-indexed
(let* ((task it)
(index (number-to-string (1+ it-index)))
@ -401,7 +401,7 @@ Argument _FS-EVENT is ignored."
(--> (chronometrist-loop-file for plist in chronometrist-file collect (plist-get plist :name))
(cl-remove-duplicates it :test #'equal)
(sort it #'string-lessp)
(setq chronometrist-task-list it)))
(setq chronometrist--task-list it)))
(setq chronometrist--file-state
(list :last (chronometrist-file-hash :before-last nil)
:rest (chronometrist-file-hash nil :before-last t)))