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

[fix] total time spacing

This commit is contained in:
contrapunctus 2021-08-03 06:55:28 +05:30
parent d692453472
commit 5076f52088
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
elisp/chronometrist.org
View File

@ -2234,12 +2234,11 @@ is the name of the task to be clocked out of."
(defun chronometrist-print-non-tabular ()
"Print the non-tabular part of the buffer in `chronometrist'."
(with-current-buffer chronometrist-buffer-name
(let ((inhibit-read-only t)
(w "\n "))
(let ((inhibit-read-only t))
(goto-char (point-max))
(--> (chronometrist-active-time-one-day)
(chronometrist-format-duration it 'chronometrist-total)
(format "%s%- 29s%s" w "Total" it)
(format "\n%s%- 29s% 7s" (make-string 4 ?\s) "Total" it)
(insert it)))))
#+END_SRC
**** goto-nth-task :procedure: