From 0a118f184e4e84f603c293e7f637369ccfe4a827 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sat, 30 Aug 2014 01:31:37 -0400 Subject: Move dired-copy-project-filename-as-kill This is more consistent with location of 'km/org-open-dired-marked-files'. --- lisp/init-dired.el | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'lisp/init-dired.el') diff --git a/lisp/init-dired.el b/lisp/init-dired.el index ca5bb5c..0e5b2cf 100644 --- a/lisp/init-dired.el +++ b/lisp/init-dired.el @@ -28,6 +28,25 @@ (setq dired-guess-shell-alist-user '(("\\.pdf\\'" "zathura"))) +(defun km/dired-copy-project-filename-as-kill () + "Copy names of marked project files into kill ring. +This is similar to `dired-copy-filename-as-kill', but the leading +path is always relative to `projectile-project-root'." + (interactive) + (let* ((project-dir (projectile-project-root)) + (string + (mapconcat 'identity + (--map (file-relative-name it project-dir) + (dired-get-marked-files t)) + " "))) + (if (eq last-command 'kill-region) + (kill-append string nil) + (kill-new string)) + (message "%s" string))) + +(after 'projectile + (define-key dired-mode-map "W" 'km/dired-copy-project-filename-as-kill)) + (defun km/dired-switch-to-buffer () (interactive) (let ((buffer-name (km/dired-completing-buffer))) -- cgit v1.2.3