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

Updated jm/org-roam-goto-today to be relative (next/prev)

Browse Source
This commit is contained in:
Jaden Provost Maxwell-Comfort 2024-04-03 13:02:44 -07:00
parent 182e9c30da
commit cf8eaf89bc
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
.emacs.d/functions.org
View File

@ -7,8 +7,15 @@ As of now, I haven't added anything here, though I do expect to start adding som
Shortcut to goto todays org-roam dailies document.
#+begin_src emacs-lisp
(defun jm/dailies-file-p ()
(let ((file-base (file-name-base (buffer-file-name))))
(s-matches-p "^[0-9]+-[0-9]+-[0-9]+$" file-base)))
(defun jm/org-roam-goto-day (days)
(let* ((rel-time (time-add (current-time) (days-to-time days)))
(let* ((base-time (if (and (jm/dailies-file-p) (not (eq days 0)))
(date-to-time (file-name-base (buffer-file-name)))
(current-time)))
(rel-time (time-add base-time (days-to-time days)))
(path (format-time-string "%Y-%m-%d.org" rel-time))
(full-path (file-name-concat org-roam-directory "daily" path)))
(if (file-exists-p full-path)