lucas/dotfiles
1
0
Fork 0
Code Activity

feat(emacs): add org-log command

Browse source
This commit is contained in:
Lucas Sta Maria 2025-10-15 22:37:20 -05:00
parent 86ef74cba8
commit a553794083
Signed by: lucas
GPG key ID: F07FB16A826E3B47
1 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
.emacs.d/include/priime-org.el
View file

@ -11,7 +11,8 @@
"i" #'org-roam-node-insert "i" #'org-roam-node-insert
"t" #'org-roam-tag-add "t" #'org-roam-tag-add
"s" #'org-save-all-org-buffers "s" #'org-save-all-org-buffers
"w" #'org-switch-workspace) "w" #'org-switch-workspace
"l" #'org-log)
(defun org-switch-workspace (&optional workspace-name) (defun org-switch-workspace (&optional workspace-name)
"Switch the current org-roam-directory to WORKSPACE-NAME." "Switch the current org-roam-directory to WORKSPACE-NAME."
@ -29,6 +30,17 @@
(setq org-roam-db-location (cddr (assoc workspace-name org-workspaces-alist))) (setq org-roam-db-location (cddr (assoc workspace-name org-workspaces-alist)))
(org-roam-db-sync nil))) (org-roam-db-sync nil)))
(defun org-log ()
"Add a new entry to the log."
(interactive)
(let* ((log-file-id "77f70d99-0674-43fb-8d64-f04cfa6cb495")
(log-file (org-roam-node-from-id log-file-id)))
(org-roam-node-visit log-file)
(beginning-of-buffer)
(org-next-visible-heading 1)
(org-insert-heading)
(org-timestamp '(16))))
(defun org-roam-migrate () (defun org-roam-migrate ()
"Migrate a regular org file into an org-roam file in my format." "Migrate a regular org file into an org-roam file in my format."
(interactive) (interactive)