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:881d595e7cc313ef68b6150a981b3d7d98bb9a1e
Branches Tags
exot:master

3 Commits
ab09a694ae ... 881d595e7c

Author SHA1 Message Date
Daniel Borchmann
881d595e7c
Remember to incorporate org-refile-target-verify-function 2025-08-17 18:22:14 +02:00
Daniel Borchmann
8725404332
Remove obsolete docstring parts 2025-08-17 18:14:40 +02:00
Daniel Borchmann
ea24a42152
Don't quote nil 2025-08-17 17:55:42 +02:00
2 changed files with 6 additions and 8 deletions
Show Stats Expand all files Collapse all files

2
init.el
View File

@ -875,7 +875,7 @@ split horizontally again, but this extra work should not matter much."
(db/org-default-notes-file . (:maxlevel . 9))) (db/org-default-notes-file . (:maxlevel . 9)))
org-refile-use-outline-path 'buffer-name org-refile-use-outline-path 'buffer-name
org-refile-use-cache nil org-refile-use-cache nil
org-refile-allow-creating-parent-nodes 'nil org-refile-allow-creating-parent-nodes nil
org-indirect-buffer-display 'current-window org-indirect-buffer-display 'current-window
org-outline-path-complete-in-steps nil org-outline-path-complete-in-steps nil
org-refile-target-verify-function 'db/verify-refile-target) org-refile-target-verify-function 'db/verify-refile-target)

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

@ -493,7 +493,10 @@ Also note that the usual variables governing the behavior of
(when new-nodes (when new-nodes
(warn "Cannot create new nodes (yet) with consult interface for `org-refile'")) (warn "Cannot create new nodes (yet) with consult interface for `org-refile'"))
(let ((pom (with-current-buffer (or default-buffer (current-buffer)) (let ((pom (with-current-buffer (or default-buffer (current-buffer))
(db/org-get-location t nil (concat prompt " "))))) ; TODO: incorporate verify function (db/org-get-location t nil (concat prompt " "))))) ; TODO: incorporate verify
; function, use direct call to
; consult--read for this and
; replace the :predicate key?
(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? ;; The third entry is some regexp matching the headline, apparently?
@ -1900,12 +1903,7 @@ always considered to be one large data collection).
When USE-ALL-ORG-FILES is non-nil, search through all files in When USE-ALL-ORG-FILES is non-nil, search through all files in
the variables `org-agenda-files', the variables `org-agenda-files',
`org-agenda-text-search-extra-files', and the current file or `org-agenda-text-search-extra-files', and the current file or
`db/org-default-org-file' as described above. `db/org-default-org-file' as described above."
Search is always conducted up to level 9. If the selected
location does not have an associated point or mark, error out.
Disable refile cache and any active refile filter hooks to allow
linking to any item."
(let ((default-buffer (if (and (buffer-file-name) (derived-mode-p 'org-mode)) (let ((default-buffer (if (and (buffer-file-name) (derived-mode-p 'org-mode))
(current-buffer) (current-buffer)
(find-file-noselect db/org-default-org-file)))) (find-file-noselect db/org-default-org-file))))