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

bugfix - error in report

Browse Source
This commit is contained in:
Kashish Sharma 2018-10-04 00:53:37 +05:30
parent 8dfd42ce2b
commit a20d22cf64
2 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
chronometrist-report.el
View File

@ -22,9 +22,8 @@
(defun chronometrist-report-maybe-start-timer ()
(unless chronometrist-report--timer-object
(setq chronometrist-report--timer-object
(run-at-time t
chronometrist-report-update-interval
#'chronometrist-report-timer))))
(run-at-time t chronometrist-report-update-interval #'chronometrist-report-timer))
t))
(defvar chronometrist-report--timer-object nil)
@ -238,13 +237,12 @@ FORMAT-STRING."
(let* ((w (get-buffer-window chronometrist-report-buffer-name t))
(wp (window-point w))
(p (point)))
;; (setq chronometrist-report--point p)
(timeclock-reread-log)
(tabulated-list-print t nil)
(chronometrist-report-print-non-tabular)
(chronometrist-report-maybe-start-timer)
(if (equal w (frame-selected-window))
(goto-char chronometrist-report--point)
(goto-char (or chronometrist-report--point p))
(set-window-point w wp)))))
;; ## MAJOR MODE ##
@ -311,7 +309,7 @@ current week. Otherwise, display data from the week specified by
(chronometrist-report-mode)
(switch-to-buffer buffer)
(chronometrist-report-refresh)
(goto-char chronometrist-report--point))))))
(goto-char (or chronometrist-report--point 1)))))))
(defun chronometrist-report-previous-week (arg)
"View the previous week's report."

7
chronometrist.el
View File

@ -59,6 +59,8 @@
;; ## VARIABLES ##
(defvar chronometrist--timer-object nil)
(defvar chronometrist--point nil)
;; ## TIMER ##
(defun chronometrist-timer ()
(when (get-buffer-window chronometrist-buffer-name t)
@ -86,8 +88,6 @@ else do nothing and return nil."
chronometrist--timer-object nil)
(chronometrist-maybe-start-timer))
(defvar chronometrist--point nil)
;; ## FUNCTIONS ##
(defun chronometrist-current-project ()
"Return the name of the currently clocked-in project, or nil if
@ -248,8 +248,7 @@ integer."
(let* ((w (get-buffer-window chronometrist-buffer-name t))
(p (window-point w)))
(with-current-buffer chronometrist-buffer-name
(timeclock-reread-log) ;; required when we create a new activity
;; Trying to update partially doesn't update the activity indicator. Why?
(timeclock-reread-log)
(tabulated-list-print t nil)
(chronometrist-print-non-tabular)
(chronometrist-maybe-start-timer)