Update keybinds for chronometrist-open-file

chronometrist-common.el

@@ -191,7 +191,7 @@ SECONDS)."
                  (format "%02d" s))))
         (concat h m s)))))
 
-(defun chronometrist-open-chronometrist-file (&optional button)
+(defun chronometrist-open-file (&optional button)
   (interactive)
   (find-file-other-window chronometrist-file)
   (goto-char (point-max)))

chronometrist-report.el

@@ -169,9 +169,9 @@ FORMAT-STRING."
     (insert-text-button "next week"
                         'action #'chronometrist-report-next-week
                         'follow-link t)
-    (chronometrist-report-print-keybind 'chronometrist-open-timeclock-file)
+    (chronometrist-report-print-keybind 'chronometrist-open-file)
     (insert-text-button "open log file"
-                        'action #'chronometrist-open-timeclock-file
+                        'action #'chronometrist-open-file
                         'follow-link t)))
 
 (defun chronometrist-report-refresh (&optional ignore-auto noconfirm)
@@ -196,7 +196,7 @@ Argument FS-EVENT is ignored."
 
 (defvar chronometrist-report-mode-map
   (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "l") #'chronometrist-open-timeclock-file)
+    (define-key map (kbd "l") #'chronometrist-open-file)
     (define-key map (kbd "b") #'chronometrist-report-previous-week)
     (define-key map (kbd "f") #'chronometrist-report-next-week)
     ;; Works when number of projects < screen length; after that, you

chronometrist-statistics.el

@@ -284,7 +284,7 @@ of `revert-buffer-function'."
 
 (defvar chronometrist-statistics-mode-map
   (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "l") #'chronometrist-open-timeclock-file)
+    (define-key map (kbd "l") #'chronometrist-open-file)
     (define-key map (kbd "b") #'chronometrist-statistics-previous-range)
     (define-key map (kbd "f") #'chronometrist-statistics-next-range)
     map)

chronometrist.el

@@ -191,9 +191,9 @@ If FIRSTONLY is non-nil, return only the first keybinding found."
                           'action #'chronometrist-report
                           'follow-link t)
 
-      (chronometrist-print-keybind 'chronometrist-open-timeclock-file)
+      (chronometrist-print-keybind 'chronometrist-open-file)
       (insert-text-button "open log file"
-                          'action #'chronometrist-open-timeclock-file
+                          'action #'chronometrist-open-file
                           'follow-link t)
       (insert "\n"))))
 
@@ -314,7 +314,7 @@ is the clocked-out project.")
   (let ((map (make-sparse-keymap)))
     (define-key map (kbd "RET")   #'chronometrist-toggle-project)
     (define-key map (kbd "M-RET") #'chronometrist-toggle-project-no-reason)
-    (define-key map (kbd "l")     #'chronometrist-open-timeclock-file)
+    (define-key map (kbd "l")     #'chronometrist-open-file)
     (define-key map (kbd "r")     #'chronometrist-report)
     (define-key map [mouse-1]     #'chronometrist-toggle-project)
     (define-key map [mouse-3]     #'chronometrist-toggle-project-no-reason)

doc/API.md

@@ -16,7 +16,7 @@ DEPRECATED - function is deprecated and should be removed in the future
 
 # chronometrist-common
 ## Commands
-### chronometrist-open-timeclock-file
+### chronometrist-open-file
 
 ## Predicates
 ### chronometrist-buffer-exists?

doc/functions.org

@@ -35,5 +35,5 @@
   - [ ] chronometrist-get-end-time (target-date)
   - [X] chronometrist-project-time-one-day (project &optional date)
   - [ ] chronometrist-format-time (time)
-  - [ ] chronometrist-open-timeclock-file ()
+  - [ ] chronometrist-open-file ()
   - [X] interval-test (start target)