random936/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed bug in jm/dailies-file-p for buffers with nil name

Browse Source
This commit is contained in:
Jaden Provost Maxwell-Comfort 2024-04-09 15:12:15 -07:00
parent cf8eaf89bc
commit 284a9e0a57
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
.emacs.d/functions.org
View File

@ -8,12 +8,13 @@ Shortcut to goto todays org-roam dailies document.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun jm/dailies-file-p () (defun jm/dailies-file-p ()
(let ((file-base (file-name-base (buffer-file-name)))) (when-let ((file (buffer-file-name))
(file-base (file-name-base (buffer-file-name))))
(s-matches-p "^[0-9]+-[0-9]+-[0-9]+$" file-base))) (s-matches-p "^[0-9]+-[0-9]+-[0-9]+$" file-base)))
(defun jm/org-roam-goto-day (days) (defun jm/org-roam-goto-day (days)
(let* ((base-time (if (and (jm/dailies-file-p) (not (eq days 0))) (let* ((base-time (if (and (jm/dailies-file-p) (not (eq days 0)))
(date-to-time (file-name-base (buffer-file-name))) (date-to-time (file-name-base (buffer-file-name)))
(current-time))) (current-time)))
(rel-time (time-add base-time (days-to-time days))) (rel-time (time-add base-time (days-to-time days)))
(path (format-time-string "%Y-%m-%d.org" rel-time)) (path (format-time-string "%Y-%m-%d.org" rel-time))