ENH: Add refiling for Bog notes

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.
 
diff --git a/bog.el b/bog.el
index 40235a0..dc8dbc6 100644
--- a/bog.el
+++ b/bog.el
@@ -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