copy-buffer-file-name-as-kill

1 files changed, 23 insertions, 1 deletions

diff --git a/init.el b/init.el
index 51a48f7..517d292 100644
--- a/init.el
+++ b/init.el
@@ -937,6 +937,26 @@
                   (diff-buffer-with-file (buffer-file-name buffer)))
                "show diff between the buffer and its file"))
 
+;;;; copy buffer file name
+;; https://stackoverflow.com/questions/18812938/copy-full-file-path-into-copy-paste-clipboard
+(defun copy-buffer-file-name-as-kill (choice)
+  "Copy the buffer-file-name to the kill-ring"
+  (interactive "cCopy Buffer Name (F) Full, (D) Directory, (N) Name")
+  (let ((new-kill-string)
+        (name (if (eq major-mode 'dired-mode)
+                  (dired-get-filename)
+                (or (buffer-file-name) ""))))
+    (cond ((eq choice ?f)
+           (setq new-kill-string name))
+          ((eq choice ?d)
+           (setq new-kill-string (file-name-directory name)))
+          ((eq choice ?n)
+           (setq new-kill-string (file-name-nondirectory name)))
+          (t (message "Quit")))
+    (when new-kill-string
+      (message "%s copied" new-kill-string)
+      (kill-new new-kill-string))))
+
 ;;; Windows
 ;;;; splitting and switch
 (setq split-height-threshold 80
@@ -3315,7 +3335,9 @@
    ["Helpers"
     ("a" "aptitude" jao-term-aptitude)
     ("l" "packages" jao-list-packages)
-    ("r" "reveal" jao-reveal)
+    ;; ("r" "reveal" jao-reveal)
+    ("r" "translate" reverso)
+    ("f" "copy buffer file name" copy-buffer-file-name-as-kill)
     ("k" (lambda () (concat "keyboard" (when (jao-kb-toggled-p) "*")))
      jao-kb-toggle :if jao-x11-p)]])