summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--bog-todo.org3
-rw-r--r--bog.el22
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