[emacs] Add vulpea for org-roam improvements

This commit is contained in:
2023-01-27 17:36:17 -05:00
parent a6b362a05e
commit bd2c56b2e6
4 changed files with 10 additions and 7 deletions

View File

@ -139,10 +139,9 @@
latex-mode)) latex-mode))
(load! "+agenda-fix") (load! "+agenda-fix")
(defun vulpea-agenda-files-update (&rest _) (defun vulpea-agenda-files-update (&rest _)
"Update the value of `org-agenda-files'." "Update the value of `org-agenda-files'."
(setq org-agenda-files (vulpea-project-files))) (setq org-agenda-files (append (vulpea-project-files) '("~/src/code.unbl.ink/vrobbler/todos.org"))))
(advice-add 'org-agenda :before #'vulpea-agenda-files-update) (advice-add 'org-agenda :before #'vulpea-agenda-files-update)
(advice-add 'org-todo-list :before #'vulpea-agenda-files-update) (advice-add 'org-todo-list :before #'vulpea-agenda-files-update)
@ -153,6 +152,7 @@
(setq org-directory (expand-file-name "~/var/org/") (setq org-directory (expand-file-name "~/var/org/")
org-ellipsis "" org-ellipsis ""
org-image-actual-width '(600) org-image-actual-width '(600)
org-log-done 'time
org-fontify-quote-and-verse-blocks t org-fontify-quote-and-verse-blocks t
org-agenda-dim-blocked-tasks nil org-agenda-dim-blocked-tasks nil
org-pretty-entities t org-pretty-entities t
@ -165,7 +165,7 @@
org-id))) org-id)))
;; Refiling ;; Refiling
(setq org-refile-targets '(("~/var/org/index.org" :maxlevel . 9))) (setq org-refile-targets '((vulpea-project-files :maxlevel . 9)))
(setq org-outline-path-complete-in-steps nil) ; Refile in a single go (setq org-outline-path-complete-in-steps nil) ; Refile in a single go
(setq org-refile-use-outline-path t) ; Show full paths for refiling (setq org-refile-use-outline-path t) ; Show full paths for refiling

View File

@ -205,12 +205,13 @@ There's also a really cool trick that I picked from [[https://d12frosted.io/post
look through org files to see if they have org todos rather than just processing look through org files to see if they have org todos rather than just processing
them all every time. them all every time.
This uses the super helpful "vulpea" module.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(load! "+agenda-fix") (load! "+agenda-fix")
(defun vulpea-agenda-files-update (&rest _) (defun vulpea-agenda-files-update (&rest _)
"Update the value of `org-agenda-files'." "Update the value of `org-agenda-files'."
(setq org-agenda-files (vulpea-project-files))) (setq org-agenda-files (append (vulpea-project-files) '("~/src/code.unbl.ink/vrobbler/todos.org"))))
(advice-add 'org-agenda :before #'vulpea-agenda-files-update) (advice-add 'org-agenda :before #'vulpea-agenda-files-update)
(advice-add 'org-todo-list :before #'vulpea-agenda-files-update) (advice-add 'org-todo-list :before #'vulpea-agenda-files-update)
@ -221,6 +222,7 @@ them all every time.
(setq org-directory (expand-file-name "~/var/org/") (setq org-directory (expand-file-name "~/var/org/")
org-ellipsis "" org-ellipsis ""
org-image-actual-width '(600) org-image-actual-width '(600)
org-log-done 'time
org-fontify-quote-and-verse-blocks t org-fontify-quote-and-verse-blocks t
org-agenda-dim-blocked-tasks nil org-agenda-dim-blocked-tasks nil
org-pretty-entities t org-pretty-entities t
@ -233,7 +235,7 @@ them all every time.
org-id))) org-id)))
;; Refiling ;; Refiling
(setq org-refile-targets '(("~/var/org/index.org" :maxlevel . 9))) (setq org-refile-targets '((vulpea-project-files :maxlevel . 9)))
(setq org-outline-path-complete-in-steps nil) ; Refile in a single go (setq org-outline-path-complete-in-steps nil) ; Refile in a single go
(setq org-refile-use-outline-path t) ; Show full paths for refiling (setq org-refile-use-outline-path t) ; Show full paths for refiling
#+END_SRC #+END_SRC

View File

@ -10,7 +10,7 @@
;; Your init file should contain only one such instance. ;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right. ;; If there is more than one, they won't work right.
'(package-selected-packages '(package-selected-packages
'(exec-path-from-shell org-fancy-priorities hackernews selectrum)) '(vulpea exec-path-from-shell org-fancy-priorities hackernews selectrum))
'(when '(when
(or (or
(not (not

View File

@ -16,6 +16,7 @@
(package! ob-http) (package! ob-http)
(package! org-web-tools) (package! org-web-tools)
(package! org-fancy-priorities) (package! org-fancy-priorities)
(package! vulpea)
;; handy tools ;; handy tools
(package! w3m) (package! w3m)