From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Tue, 9 May 2017 14:08:51 +0000 (+0200)
Subject: bba-copy-buffer-name
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=4bd6d2f07e37cf84250f52e60a058929a293b09b;p=emacsconfig.git

bba-copy-buffer-name

* with universal-argument copy only filename to kill-ring.

Signed-off-by: Andreas Gerler <baron@bundesbrandschatzamt.de>
---

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