[emacs] Add vulpea for org-roam improvements
This commit is contained in:
@ -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
|
||||||
|
|
||||||
|
|||||||
@ -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
|
||||||
|
|||||||
@ -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
|
||||||
|
|||||||
@ -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)
|
||||||
|
|||||||
Reference in New Issue
Block a user