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

Compare commits

base: exot:0ac05e43ef9039e294baf4a841e8a5ffd1af91ad
Branches Tags
exot:master
...
compare: exot:e6b2f9eefb5e888f35398bd4a86b52bedc56b459
Branches Tags
exot:master

3 Commits
0ac05e43ef ... e6b2f9eefb

Author SHA1 Message Date
Daniel Borchmann
e6b2f9eefb
Make custom Org location query function available in main init file 2025-08-17 15:42:47 +02:00
Daniel Borchmann
9f55facdb6
Do not create new nodes when refiling 
I haven't used this … ever?
 2025-08-17 15:42:00 +02:00
Daniel Borchmann
195a6afb5f
Avoid duplicate entries in Org location queries 
This happens when the current buffer is already part of the Org agenda files.  In this case, we do
not add the default buffer to the list of search files.
 2025-08-17 15:41:07 +02:00
2 changed files with 5 additions and 3 deletions
Show Stats Expand all files Collapse all files

5
init.el
View File

@ -727,7 +727,8 @@ split horizontally again, but this extra work should not matter much."
db/org-bookmark-store-link db/org-bookmark-store-link
db/org-bookmark-export db/org-bookmark-export
db/org-lint-invalid-bookmark-link db/org-lint-invalid-bookmark-link
db/org-lint-possible-bookmark-link)) db/org-lint-possible-bookmark-link
db/org-get-location))
;; This is to make the byte-compiler happy about setting some variables later on ;; This is to make the byte-compiler happy about setting some variables later on
;; that are defined in those packages. ;; that are defined in those packages.
@ -872,7 +873,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 'confirm 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)

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

@ -1896,7 +1896,8 @@ linking to any item."
org-agenda-files))) org-agenda-files)))
(scope (cond (use-all-org-files (scope (cond (use-all-org-files
(append (list (buffer-file-name default-buffer)) (append (unless current-buffer-is-in-org-agenda-files? ; avoid duplicate entries
(list (buffer-file-name default-buffer)))
(org-agenda-files) (org-agenda-files)
(cl-remove-if-not #'stringp (cl-remove-if-not #'stringp
org-agenda-text-search-extra-files))) org-agenda-text-search-extra-files)))