From 4bd6d2f07e37cf84250f52e60a058929a293b09b Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Tue, 9 May 2017 16:08:51 +0200 Subject: [PATCH] bba-copy-buffer-name * with universal-argument copy only filename to kill-ring. Signed-off-by: Andreas Gerler --- bba.org | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/bba.org b/bba.org index b3f31194..8d1b94f2 100644 --- a/bba.org +++ b/bba.org @@ -2956,10 +2956,14 @@ line or somewhere else. #+BEGIN_SRC emacs-lisp :tangle yes (defun bba-copy-buffer-name () + "copy buffer name to kill-ring. if `universal-argument` is called first, copy only filename to kill-ring." (interactive) - (kill-new (buffer-file-name)) - (message ( format "stored '%s' in kill-ring" buffer-file-name)) - ) + (let* ((bba-buffer-name (if current-prefix-arg (file-name-nondirectory (buffer-file-name)) + (buffer-file-name) + ))) + (kill-new bba-buffer-name) + (message ( format "stored '%s' in kill-ring" bba-buffer-name)) + )) #+END_SRC * remove element from kill-ring -- 2.47.3