Multi-project simplifies working with different projects in Emacs by providing support for creating, deleting, and searching with projects. Multi-project
supports interactively finding a file within a project by using a TAGS file.
| Revision | bebc10d7944010a89996f4fe9aeeb1de0d3e19db (tree) |
|---|---|
| Zeit | 2019-02-18 01:32:07 |
| Autor |  Shawn Ellis <shawn.ellis17@gmai...> |
| Commiter | Shawn Ellis |
Added additional menu options. TAGS creation now recognizes gradle and
multi-project.el (diff)| @@ -3,7 +3,7 @@ | ||
| 3 | 3 | ;; Copyright (C) 2010 - 2019 |
| 4 | 4 | |
| 5 | 5 | ;; Author: Shawn Ellis <shawn.ellis17@gmail.com> |
| 6 | -;; Version: 0.0.29 | |
| 6 | +;; Version: 0.0.30 | |
| 7 | 7 | ;; Package-Requires: ((emacs "25")) |
| 8 | 8 | ;; URL: https://bitbucket.org/ellisvelo/multi-project/overview |
| 9 | 9 | ;; Keywords: convenience project management |
| @@ -173,6 +173,8 @@ | ||
| 173 | 173 | '("MP" |
| 174 | 174 | ["Jump to a project" multi-project-display-projects t] |
| 175 | 175 | ["Jump to the project root" multi-project-root t] |
| 176 | + ["Jump to current project" multi-project-present-project t] | |
| 177 | + ["Visit a project in new frame" multi-project-visit-project t] | |
| 176 | 178 | ["Compile..." multi-project-compile t] |
| 177 | 179 | ["Find file..." multi-project-find-file t] |
| 178 | 180 | ["Grep project ..." multi-project-interactive-grep t] |
| @@ -1128,7 +1130,15 @@ | ||
| 1128 | 1130 | ((file-exists-p (concat local-project-directory "/.git")) |
| 1129 | 1131 | (setq files-command |
| 1130 | 1132 | (concat "git log --pretty=format: --name-only " |
| 1131 | - "--diff-filter=A | sort - | grep -v '^$'")))) | |
| 1133 | + "--diff-filter=A | sort - | grep -v '^$'"))) | |
| 1134 | + | |
| 1135 | + ((file-exists-p (concat local-project-directory "/build.gradle")) | |
| 1136 | + (setq files-command (concat "cd " local-project-directory "; " | |
| 1137 | + "find . -path '*/build' -prune -o -type f -print"))) | |
| 1138 | + ((file-exists-p (concat local-project-directory "/pom.xml")) | |
| 1139 | + (setq files-command | |
| 1140 | + (concat "cd " local-project-directory "; " | |
| 1141 | + "find . -path '*/target' -prune -o -type f -print")))) | |
| 1132 | 1142 | |
| 1133 | 1143 | (concat files-command " | etags -o " local-project-tags " -")))) |
| 1134 | 1144 |
Fork