From 36abd6283037ab321b165f34034001d673646cad Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 30 Mar 2014 17:23:08 -0400 Subject: Set org-agenda-text-search-extra-files --- lisp/init-org.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'lisp/init-org.el') diff --git a/lisp/init-org.el b/lisp/init-org.el index fada768..8669c27 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -160,6 +160,8 @@ be restored properly." (setq org-agenda-files '("~/notes/calendar.org" "~/notes/tasks.org") org-default-notes-file "~/notes/tasks.org" + org-agenda-text-search-extra-files '("~/notes/backburner.org" + "~/notes/misc.org") org-agenda-show-all-dates t org-agenda-skip-deadline-if-done t org-agenda-skip-scheduled-if-done t @@ -178,17 +180,15 @@ be restored properly." ;;; Refiling -(defvar km/org-refiling-targets - (append org-agenda-files '("~/notes/backburner.org" "~/notes/misc.org")) - "List of refiling targets for agenda, including non-agenda -files.") - (defun km/verify-refile-target () "Exclude DONE state from refile targets." (not (member (nth 2 (org-heading-components)) org-done-keywords))) -(setq org-refile-targets '((nil :maxlevel . 3) - (km/org-refiling-targets :maxlevel . 2))) +(setq org-refile-targets `((nil :maxlevel . 3) + (,(append org-agenda-files + org-agenda-text-search-extra-files) + :maxlevel . 2))) + (setq org-refile-target-verify-function 'km/verify-refile-target ;; Use ido for refiling. org-outline-path-complete-in-steps nil -- cgit v1.2.3