From ff707b3ac98df08425d7e6c1ca18e5c4351bb039 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 24 Aug 2014 00:18:50 -0400 Subject: Add project-filename-at-point --- lisp/init-projectile.el | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lisp') diff --git a/lisp/init-projectile.el b/lisp/init-projectile.el index 2734425..9b9332a 100644 --- a/lisp/init-projectile.el +++ b/lisp/init-projectile.el @@ -38,6 +38,11 @@ Interactive arguments are processed according to (call-interactively 'projectile-find-file-other-window) (view-mode 1)) +(defun km/project-filename-at-point () + "Return file name relative to `projectile-project-root'." + (file-relative-name (thing-at-point 'filename) + (projectile-project-root))) + (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 -- cgit v1.2.3