exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: exot:ab09a694ae3df99fef57094a3eb099fb4d33693c
Branches Tags
exot:master
..
compare: exot:df98f37f69202981bd84ae0ed099787bcfb3d2af
Branches Tags
exot:master

No commits in common. "ab09a694ae3df99fef57094a3eb099fb4d33693c" and "df98f37f69202981bd84ae0ed099787bcfb3d2af" have entirely different histories.
ab09a694ae ... df98f37f69

2 changed files with 4 additions and 6 deletions
Show Stats Expand all files Collapse all files

5
init.el
View File

@ -741,8 +741,7 @@ split horizontally again, but this extra work should not matter much."
:pin "gnu" :pin "gnu"
:bind (:map org-mode-map :bind (:map org-mode-map
([remap org-return] . (lambda () (interactive) (org-return :indent))) ([remap org-return] . (lambda () (interactive) (org-return :indent)))
([remap org-clock-goto] . db/org-clock-goto-first-open-checkbox) ([remap org-clock-goto] . db/org-clock-goto-first-open-checkbox))
([remap org-goto] . consult-org-heading))
:autoload (org-get-todo-state :autoload (org-get-todo-state
org-entry-get) org-entry-get)
:commands (org-return) :commands (org-return)
@ -954,7 +953,7 @@ split horizontally again, but this extra work should not matter much."
;; Use consult for querying refile targets ;; Use consult for querying refile targets
(define-advice org-refile-get-location (:around (define-advice org-refile-get-location (:around
(orig-func &optional prompt default-buffer new-nodes) (orig-func prompt default-buffer new-nodes)
use-consult-instead) use-consult-instead)
(ignore orig-func) (ignore orig-func)
(db/org-refile-get-location prompt default-buffer new-nodes)))) (db/org-refile-get-location prompt default-buffer new-nodes))))

5
site-lisp/db-org.el
View File

@ -478,7 +478,7 @@ Via %%(with-temp-buffer (db/org-add-link-to-current-clock) (string-trim (buffer-
;; any agenda when a super-item is tagged with :HOLD:. ;; any agenda when a super-item is tagged with :HOLD:.
(not (member "HOLD" (org-get-tags (point)))))) (not (member "HOLD" (org-get-tags (point))))))
(defun db/org-refile-get-location (&optional prompt default-buffer new-nodes) (defun db/org-refile-get-location (prompt default-buffer new-nodes)
"Replacement function for `org-refile-get-location' using `consult'. "Replacement function for `org-refile-get-location' using `consult'.
This function can be used instead of `org-refile-get-location', This function can be used instead of `org-refile-get-location',
@ -496,8 +496,7 @@ Also note that the usual variables governing the behavior of
(db/org-get-location t nil (concat prompt " "))))) ; TODO: incorporate verify function (db/org-get-location t nil (concat prompt " "))))) ; TODO: incorporate verify function
(list (buffer-name (marker-buffer pom)) (list (buffer-name (marker-buffer pom))
(buffer-file-name (marker-buffer pom)) (buffer-file-name (marker-buffer pom))
;; The third entry is some regexp matching the headline, apparently? "" ; some regexp matching the headline?
(format org-complex-heading-regexp-format (org-entry-get pom "ITEM"))
(marker-position pom)))) (marker-position pom))))