Przeglądaj źródła

[emacs] Add vulpea for org-roam improvements

Colin Powell 2 lat temu
rodzic
commit
bd2c56b2e6

+ 3 - 3
emacs/.config/doom/config.el

@@ -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
 
 

+ 5 - 3
emacs/.config/doom/config.org

@@ -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

+ 1 - 1
emacs/.config/doom/custom.el

@@ -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

+ 1 - 0
emacs/.config/doom/packages.el

@@ -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)