ENH: Add refiling for Bog notes

1 files changed, 22 insertions, 0 deletions

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