From f2460c249794138f57aee50337771c80120f541f Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 16 Feb 2014 00:40:37 -0500
Subject: ENH: Add refiling for Bog notes

---
 bog.el | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'bog.el')

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
 
@@ -411,6 +416,23 @@ The citekey is split by groups in `bog-citekey-format' and joined by
   (let ((query (bog-citekey-groups-with-delim citekey "+")))
     (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
 
-- 
cgit v1.2.3