Compare commits
No commits in common. "881d595e7cc313ef68b6150a981b3d7d98bb9a1e" and "ab09a694ae3df99fef57094a3eb099fb4d33693c" have entirely different histories.
881d595e7c
...
ab09a694ae
2
init.el
2
init.el
@ -875,7 +875,7 @@ split horizontally again, but this extra work should not matter much."
|
||||
(db/org-default-notes-file . (:maxlevel . 9)))
|
||||
org-refile-use-outline-path 'buffer-name
|
||||
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-outline-path-complete-in-steps nil
|
||||
org-refile-target-verify-function 'db/verify-refile-target)
|
||||
|
||||
@ -493,10 +493,7 @@ Also note that the usual variables governing the behavior of
|
||||
(when new-nodes
|
||||
(warn "Cannot create new nodes (yet) with consult interface for `org-refile'"))
|
||||
(let ((pom (with-current-buffer (or default-buffer (current-buffer))
|
||||
(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?
|
||||
(db/org-get-location t nil (concat prompt " "))))) ; TODO: incorporate verify function
|
||||
(list (buffer-name (marker-buffer pom))
|
||||
(buffer-file-name (marker-buffer pom))
|
||||
;; The third entry is some regexp matching the headline, apparently?
|
||||
@ -1903,7 +1900,12 @@ always considered to be one large data collection).
|
||||
When USE-ALL-ORG-FILES is non-nil, search through all files in
|
||||
the variables `org-agenda-files',
|
||||
`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))
|
||||
(current-buffer)
|
||||
(find-file-noselect db/org-default-org-file))))
|
||||
|
||||
Loading…
Reference in New Issue
Block a user