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

Merge branch 'dev' into third-time

This commit is contained in:
contrapunctus 2022-02-14 08:07:22 +05:30
parent 8fc0e5718e 21c442069e
commit 8b4cd461d8
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
elisp/chronometrist.el
View File

@ -1105,6 +1105,7 @@ hash table values must be in chronological order.")
;; [[file:chronometrist.org::*on-file-path-change][on-file-path-change:1]]
(cl-defmethod chronometrist-on-file-path-change ((backend chronometrist-file-backend-mixin) _old-path new-path)
"Update path and file slots of BACKEND to use NEW-PATH when `chronometrist-file' is changed."
(with-slots (path extension file) backend
(setf path new-path
file (concat path "." extension))))

3
elisp/chronometrist.org
View File

@ -1810,9 +1810,10 @@ These can be implemented in terms of the minimal protocol above.
(find-file-noselect file)))))
#+END_SRC
**** on-file-path-change :generic:function:
**** on-file-path-change :writer:method:
#+BEGIN_SRC emacs-lisp
(cl-defmethod chronometrist-on-file-path-change ((backend chronometrist-file-backend-mixin) _old-path new-path)
"Update path and file slots of BACKEND to use NEW-PATH when `chronometrist-file' is changed."
(with-slots (path extension file) backend
(setf path new-path
file (concat path "." extension))))