From 51544c68a397626ca9ec93cb5f09a04086859044 Mon Sep 17 00:00:00 2001 From: Alexander Kobjolke Date: Sun, 4 Feb 2024 23:42:15 +0100 Subject: [PATCH] emacs: Install and use `org-ql` --- home/alex/programs/emacs/doom/config.el | 74 ++++++++++++----------- home/alex/programs/emacs/doom/packages.el | 39 ++++++------ 2 files changed, 58 insertions(+), 55 deletions(-) diff --git a/home/alex/programs/emacs/doom/config.el b/home/alex/programs/emacs/doom/config.el index 910a6e4..6a0b340 100644 --- a/home/alex/programs/emacs/doom/config.el +++ b/home/alex/programs/emacs/doom/config.el @@ -37,7 +37,7 @@ ;; do not create a new workspace for each emacsclient (after! persp-mode -  (setq persp-emacsclient-init-frame-behaviour-override "main")) +   (setq persp-emacsclient-init-frame-behaviour-override "main")) (defun my/org-id-update-org-roam-files () "Update Org-ID locations for all Org-roam files." @@ -81,12 +81,14 @@ (use-package! org :config (setq org-log-into-drawer t org-todo-keywords '( - (sequence "NEXT(n)" "TODO(t)" "WAIT(w@/!)" "|" "DONE(d!)" "CNCL(k@)") - (sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)") - ))) + (sequence "NEXT(n)" "TODO(t)" "WAIT(w@/!)" "|" "DONE(d!)" "CNCL(k@)") + (sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)") + ))) + +(use-package! org-ql) (setq ak/bibliography (list (concat org-directory "references.bib"))) -;(setq org-cite-global-bibliography (list (concat org-directory "references.bib"))) + ;(setq org-cite-global-bibliography (list (concat org-directory "references.bib"))) (setq! bibtex-completion-bibliography ak/bibliography) (setq! citar-bibliography ak/bibliography) @@ -124,43 +126,43 @@ ;; Org GTD support (use-package! org-gtd - :after org - :demand t - :config - (setq org-gtd-directory "~/org") - (setq org-gtd-default-file-name "actionable") - (setq org-edna-use-inheritance t) - ;(setq org-gtd-areas-of-focus '("house" "haskell" "foss")) - ;(setq org-gtd-organize-hooks '(org-gtd-set-area-of-focus org-set-tags-command)) - (org-edna-mode) - (map! :leader + :after org + :demand t + :config + (setq org-gtd-directory "~/org") + (setq org-gtd-default-file-name "actionable") + (setq org-edna-use-inheritance t) + ;(setq org-gtd-areas-of-focus '("house" "haskell" "foss")) + ;(setq org-gtd-organize-hooks '(org-gtd-set-area-of-focus org-set-tags-command)) + (org-edna-mode) + (map! :leader :desc "Capture" "X" #'org-gtd-capture - (:prefix ("d" . "org-gtd") - :desc "Capture" "c" #'org-gtd-capture - :desc "Engage" "e" #'org-gtd-engage-grouped-by-context - :desc "Process inbox" "p" #'org-gtd-process-inbox - :desc "Show all next" "n" #'org-gtd-show-all-next - (:prefix ("r" . "Review") - :desc "Stuck projects" "p" #'org-gtd-review-stuck-projects - :desc "Stuck actions" "a" #'org-gtd-review-stuck-single-action-items - :desc "Stuck habits" "h" #'org-gtd-review-stuck-habit-items - ) - )) - (map! :map org-gtd-clarify-map - :desc "Organize this item" "C-c C-c" #'org-gtd-organize) - :bind - (("C-c d c" . #'org-gtd-capture) - ("C-c d e" . #'org-gtd-engage-grouped-by-context) - ("C-c d p" . #'org-gtd-process-inbox) - ("C-c d n" . #'org-gtd-show-all-next) - ("C-c d r p" . #'org-gtd-review-stuck-projects)) - ) + (:prefix ("d" . "org-gtd") + :desc "Capture" "c" #'org-gtd-capture + :desc "Engage" "e" #'org-gtd-engage-grouped-by-context + :desc "Process inbox" "p" #'org-gtd-process-inbox + :desc "Show all next" "n" #'org-gtd-show-all-next + (:prefix ("r" . "Review") + :desc "Stuck projects" "p" #'org-gtd-review-stuck-projects + :desc "Stuck actions" "a" #'org-gtd-review-stuck-single-action-items + :desc "Stuck habits" "h" #'org-gtd-review-stuck-habit-items + ) + )) + (map! :map org-gtd-clarify-map + :desc "Organize this item" "C-c C-c" #'org-gtd-organize) + :bind + (("C-c d c" . #'org-gtd-capture) + ("C-c d e" . #'org-gtd-engage-grouped-by-context) + ("C-c d p" . #'org-gtd-process-inbox) + ("C-c d n" . #'org-gtd-show-all-next) + ("C-c d r p" . #'org-gtd-review-stuck-projects)) + ) (defun ak/org-roam-node-insert-immediate (arg &rest args) (interactive "P") (let ((args (cons arg args)) (org-roam-capture-templates (list (append (car org-capture-templates) '(:immediate-finish t)))) - ) + ) (apply #'org-roam-node-insert args))) (use-package! org-habit diff --git a/home/alex/programs/emacs/doom/packages.el b/home/alex/programs/emacs/doom/packages.el index f8b2fa8..ea27186 100644 --- a/home/alex/programs/emacs/doom/packages.el +++ b/home/alex/programs/emacs/doom/packages.el @@ -7,57 +7,57 @@ ;; To install SOME-PACKAGE from MELPA, ELPA or emacsmirror: -;(package! some-package) +;;(package! some-package) ;; To install a package directly from a remote git repo, you must specify a ;; `:recipe'. You'll find documentation on what `:recipe' accepts here: ;; https://github.com/raxod502/straight.el#the-recipe-format -;(package! another-package -; :recipe (:host github :repo "username/repo")) +;;(package! another-package +;; :recipe (:host github :repo "username/repo")) ;; If the package you are trying to install does not contain a PACKAGENAME.el ;; file, or is located in a subdirectory of the repo, you'll need to specify ;; `:files' in the `:recipe': -;(package! this-package -; :recipe (:host github :repo "username/repo" -; :files ("some-file.el" "src/lisp/*.el"))) +;;(package! this-package +;; :recipe (:host github :repo "username/repo" +;; :files ("some-file.el" "src/lisp/*.el"))) ;; If you'd like to disable a package included with Doom, you can do so here ;; with the `:disable' property: -;(package! builtin-package :disable t) +;;(package! builtin-package :disable t) ;; You can override the recipe of a built in package without having to specify ;; all the properties for `:recipe'. These will inherit the rest of its recipe ;; from Doom or MELPA/ELPA/Emacsmirror: -;(package! builtin-package :recipe (:nonrecursive t)) -;(package! builtin-package-2 :recipe (:repo "myfork/package")) +;;(package! builtin-package :recipe (:nonrecursive t)) +;;(package! builtin-package-2 :recipe (:repo "myfork/package")) ;; Specify a `:branch' to install a package from a particular branch or tag. ;; This is required for some packages whose default branch isn't 'master' (which ;; our package manager can't deal with; see raxod502/straight.el#279) -;(package! builtin-package :recipe (:branch "develop")) +;;(package! builtin-package :recipe (:branch "develop")) ;; Use `:pin' to specify a particular commit to install. -;(package! builtin-package :pin "1a2b3c4d5e") + ;(package! builtin-package :pin "1a2b3c4d5e") ;; Doom's packages are pinned to a specific commit and updated from release to ;; release. The `unpin!' macro allows you to unpin single packages... -;(unpin! pinned-package) + ;(unpin! pinned-package) ;; ...or multiple packages -;(unpin! pinned-package another-pinned-package) + ;(unpin! pinned-package another-pinned-package) ;; ...Or *all* packages (NOT RECOMMENDED; will likely break things) -;(unpin! t) +;;(unpin! t) -;(package! this-package -; :recipe (:host github :repo "username/repo" -; :files ("some-file.el" "src/lisp/*.el"))) +;;(package! this-package +;; :recipe (:host github :repo "username/repo" +;; :files ("some-file.el" "src/lisp/*.el"))) (package! ormolu) (package! org-gtd - :recipe (:host github :repo "Trevoke/org-gtd.el" :branch "master")) + :recipe (:host github :repo "Trevoke/org-gtd.el" :branch "master")) (package! org-fc - :recipe (:host sourcehut :repo "l3kn/org-fc" :branch "main")) + :recipe (:host sourcehut :repo "l3kn/org-fc" :branch "main")) (package! org-edna) (package! org-review :recipe (:host github :repo "jakalx/org-review" :branch "master")) @@ -67,3 +67,4 @@ (package! org-present) (package! denote) (package! org-super-agenda) +(package! org-ql)