emacs: Install and use org-ql

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 "NEXT(n)" "TODO(t)" "WAIT(w@/!)" "|" "DONE(d!)" "CNCL(k@)")
-                  (sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)")
+                                    (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
+  :after org
- :demand t
+  :demand t
- :config
+  :config
- (setq org-gtd-directory "~/org")
+  (setq org-gtd-directory "~/org")
- (setq org-gtd-default-file-name "actionable")
+  (setq org-gtd-default-file-name "actionable")
- (setq org-edna-use-inheritance t)
+  (setq org-edna-use-inheritance t)
- ;(setq org-gtd-areas-of-focus '("house" "haskell" "foss"))
+                                        ;(setq org-gtd-areas-of-focus '("house" "haskell" "foss"))
- ;(setq org-gtd-organize-hooks '(org-gtd-set-area-of-focus org-set-tags-command))
+                                        ;(setq org-gtd-organize-hooks '(org-gtd-set-area-of-focus org-set-tags-command))
- (org-edna-mode)
+  (org-edna-mode)
- (map! :leader
+  (map! :leader
         :desc "Capture"        "X"  #'org-gtd-capture
-       (:prefix ("d" . "org-gtd")
+        (:prefix ("d" . "org-gtd")
-        :desc "Capture"        "c"  #'org-gtd-capture
+         :desc "Capture"        "c"  #'org-gtd-capture
-        :desc "Engage"         "e"  #'org-gtd-engage-grouped-by-context
+         :desc "Engage"         "e"  #'org-gtd-engage-grouped-by-context
-        :desc "Process inbox"  "p"  #'org-gtd-process-inbox
+         :desc "Process inbox"  "p"  #'org-gtd-process-inbox
-        :desc "Show all next"  "n"  #'org-gtd-show-all-next
+         :desc "Show all next"  "n"  #'org-gtd-show-all-next
-        (:prefix ("r" . "Review")
+         (:prefix ("r" . "Review")
-        :desc "Stuck projects" "p"  #'org-gtd-review-stuck-projects
+          :desc "Stuck projects" "p"  #'org-gtd-review-stuck-projects
-        :desc "Stuck actions" "a"  #'org-gtd-review-stuck-single-action-items
+          :desc "Stuck actions" "a"  #'org-gtd-review-stuck-single-action-items
-        :desc "Stuck habits" "h"  #'org-gtd-review-stuck-habit-items
+          :desc "Stuck habits" "h"  #'org-gtd-review-stuck-habit-items
-        )
+          )
-        ))
+         ))
- (map! :map org-gtd-clarify-map
+  (map! :map org-gtd-clarify-map
-       :desc "Organize this item" "C-c C-c" #'org-gtd-organize)
+        :desc "Organize this item" "C-c C-c" #'org-gtd-organize)
- :bind
+  :bind
- (("C-c d c" . #'org-gtd-capture)
+  (("C-c d c" . #'org-gtd-capture)
-  ("C-c d e" . #'org-gtd-engage-grouped-by-context)
+   ("C-c d e" . #'org-gtd-engage-grouped-by-context)
-  ("C-c d p" . #'org-gtd-process-inbox)
+   ("C-c d p" . #'org-gtd-process-inbox)
-  ("C-c d n" . #'org-gtd-show-all-next)
+   ("C-c d n" . #'org-gtd-show-all-next)
-  ("C-c d r p" . #'org-gtd-review-stuck-projects))
+   ("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

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
+;;(package! another-package
-;  :recipe (:host github :repo "username/repo"))
+;;  :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
+;;(package! this-package
-;  :recipe (:host github :repo "username/repo"
+;;  :recipe (:host github :repo "username/repo"
-;           :files ("some-file.el" "src/lisp/*.el")))
+;;           :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 :recipe (:nonrecursive t))
-;(package! builtin-package-2 :recipe (:repo "myfork/package"))
+;;(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
+;;(package! this-package
-;  :recipe (:host github :repo "username/repo"
+;;  :recipe (:host github :repo "username/repo"
-;           :files ("some-file.el" "src/lisp/*.el")))
+;;           :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)