diff options
| -rw-r--r-- | bog-todo.org | 3 | ||||
| -rw-r--r-- | bog.el | 22 |
2 files changed, 24 insertions, 1 deletions
diff --git a/bog-todo.org b/bog-todo.org index 475868e..ec72a62 100644 --- a/bog-todo.org +++ b/bog-todo.org @@ -41,7 +41,8 @@ Perhaps use a cache file. This could be used in ** ENH Check for duplicate citekeys headings -** ENH Refiling for just bib notes +** DONE Refiling for just bib notes + CLOSED: [2014-02-16 Sun 00:40] Redefine org refile targets. @@ -151,6 +151,11 @@ It should contain the placeholder \"%s\" for the query." :group 'bog :type 'string) +(defcustom bog-refile-maxlevel 1 + "Consider up to this level when refiling with `bog-refile'." + :group 'bog + :type 'integer) + ;;; General utilities @@ -412,6 +417,23 @@ The citekey is split by groups in `bog-citekey-format' and joined by (format bog-web-search-url query))) +;;; Refiling + +(defun bog-refile () + "Refile heading with note files. +All headings Org files in `bog-notes-directory' at or above level +`bog-refile-maxlevel' are considered." + (interactive) + (let ((org-refile-targets `((,(bog-notes-files) + :maxlevel . ,bog-refile-maxlevel)))) + (org-refile))) + +(defun bog-notes-files () + (file-expand-wildcards + (concat (file-name-as-directory bog-notes-directory) + "*.org"))) + + ;;; Font-lock (defface bog-citekey-face |