From ba5a5cc20ff51e86be3b495a5103df9ea69561eb Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Tue, 19 Aug 2014 01:14:55 -0400 Subject: Add projectile view file functions --- lisp/init-projectile.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'lisp') diff --git a/lisp/init-projectile.el b/lisp/init-projectile.el index 43035e4..f957cd5 100644 --- a/lisp/init-projectile.el +++ b/lisp/init-projectile.el @@ -22,6 +22,22 @@ I have set `projectile-switch-project-action' to (let ((default-directory (projectile-project-root))) (km/open-external-terminal))) +(defun km/projectile-view-file () + "View project file. +Interactive arguments are processed according to +`projectile-find-file'." + (interactive) + (call-interactively 'projectile-find-file) + (view-mode 1)) + +(defun km/projectile-view-file-other-window () + "View project file in other window. +Interactive arguments are processed according to +`projectile-find-file-other-window'." + (interactive) + (call-interactively 'projectile-find-file-other-window) + (view-mode 1)) + (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