From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?UTF-8?q?Sebastian=20Reu=C3=9Fe?= Subject: [PATCH 2/2] org-refile: optionally prefix refile targets with buffer name Date: Wed, 3 May 2017 19:50:03 +0200 Message-ID: <20170503175003.22151-2-seb@wirrsal.net> References: <20170503175003.22151-1-seb@wirrsal.net> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:35445) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d5yPu-0005vZ-Fq for emacs-orgmode@gnu.org; Wed, 03 May 2017 13:50:23 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1d5yPr-0006JJ-T1 for emacs-orgmode@gnu.org; Wed, 03 May 2017 13:50:22 -0400 Received: from wirrsal.net ([188.68.36.149]:55826 helo=mail.wirrsal.net) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1d5yPr-0006J4-Lx for emacs-orgmode@gnu.org; Wed, 03 May 2017 13:50:19 -0400 In-Reply-To: <20170503175003.22151-1-seb@wirrsal.net> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org Cc: =?UTF-8?q?Sebastian=20Reu=C3=9Fe?= * org.el (org-refile-get-targets): Add case to optionally prefix refile targets with the buffer name. (org-refile-use-outline-path): Document new option. Having an option to use the buffer name as a prefix is convenient, since this will work hand in hand with uniquify to only show those parts of the filesystem path needed to disambiguate buffers of identically named files, as opposed to prefixing refile targets with the full filesystem path. --- lisp/org.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index ad92f3b2e..06066230f 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -2553,7 +2553,9 @@ (defcustom org-refile-use-outline-path nil into the path. In this case, you can also stop the completion after the file name, to get entries inserted as top level in the file. -When `full-file-path', include the full file path." +When `full-file-path', include the full file path. + +When `id', use the buffer name." :group 'org-refile :type '(choice (const :tag "Not" nil) @@ -11557,6 +11559,8 @@ (defun org-refile-get-targets (&optional default-buffer) (setq f (and f (expand-file-name f))) (when (eq org-refile-use-outline-path 'file) (push (list (file-name-nondirectory f) f nil nil) tgs)) + (when (eq org-refile-use-outline-path 'id) + (push (list (buffer-name (buffer-base-buffer)) f nil nil) tgs)) (org-with-wide-buffer (goto-char (point-min)) (setq org-outline-path-cache nil) @@ -11578,6 +11582,8 @@ (defun org-refile-get-targets (&optional default-buffer) (string-join (cons (pcase org-refile-use-outline-path + (`id (buffer-name + (buffer-base-buffer))) (`file (file-name-nondirectory (buffer-file-name (buffer-base-buffer)))) -- 2.12.2