From 0e2bd2322887b9aa953383b80ba2bdef83574c50 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 13 Apr 2014 16:44:20 -0400 Subject: Simplify km/org-refile-to-other-org-buffer - Call `km/org-refile-to-other-file' non-interactively instead of repeating logic. - Move org buffer completion to separate function. --- lisp/init-org.el | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) (limited to 'lisp') diff --git a/lisp/init-org.el b/lisp/init-org.el index c4746b0..7cf0421 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -207,17 +207,12 @@ A numeric prefix can be given to set MAXLEVEL (defaults to 2)." (defun km/org-refile-to-other-org-buffer (buffer &optional maxlevel) "Refile with `org-refile-targets' set to BUFFER file name. A numeric prefix can be given to set MAXLEVEL (defaults to 2)." - (interactive (list - (org-icompleting-read "Buffer: " - (mapcar 'buffer-name - (org-buffer-list 'files))))) - (let* ((maxlevel (if current-prefix-arg - (prefix-numeric-value current-prefix-arg) - 2)) - (org-refile-targets - `((,(substring-no-properties (buffer-file-name (get-buffer buffer))) - :maxlevel . ,maxlevel)))) - (org-refile))) + (interactive (list (km/get-org-file-buffer))) + (km/org-refile-to-other-file (buffer-file-name (get-buffer buffer)))) + +(defun km/get-org-file-buffer () + (org-icompleting-read "Buffer: " (mapcar 'buffer-name + (org-buffer-list 'files)))) (eval-after-load 'org '(add-to-list 'org-mode-hook -- cgit v1.2.3