From e63cfd0ddf6ada99bec0aca50c9d5be84a69f23b Mon Sep 17 00:00:00 2001 From: Alan Pearce Date: Mon, 9 May 2016 14:28:49 +0200 Subject: Emacs: Remove unused functions --- tag-emacs/emacs.d/init.org | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org index 85a7df3..14e700e 100644 --- a/tag-emacs/emacs.d/init.org +++ b/tag-emacs/emacs.d/init.org @@ -336,14 +336,7 @@ based upon some folder conventions I use. projectile-project-root-files-functions)) (-filter #'file-directory-p (directory-files dir t "\\<"))))) - (defun ap/-add-known-subfolder-projects (dir) - (-map #'projectile-add-known-project (--map (concat (file-name-as-directory dir) it) (ap/subfolder-projects dir)))) - - (defun ap/add-known-subfolder-projects () - (interactive) - (ap/-add-known-subfolder-projects (read-directory-name "Add projects under: "))) - - (defun ap/open-subfolder-project (from-dir &optional arg) + (defun ap/open-subfolder-project (from-dir &optional arg) (let ((project-dir (projectile-completing-read "Open project: " (ap/subfolder-projects from-dir)))) (projectile-switch-project-by-name (expand-file-name project-dir from-dir) arg))) -- cgit 1.4.1