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 | 983a8125e5569a45c592b2f73c4d9740b7d69dc1 (tree) |
|---|---|
| Time | 2019-11-17 21:03:25 |
| Author |  Shawn Ellis <shawn.ellis17@gmai...> |
| Commiter | Shawn Ellis |
Added key binding to create a new frame for the current project.
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.32 | |
| 6 | +;; Version: 0.0.33 | |
| 7 | 7 | ;; Package-Requires: ((emacs "25")) |
| 8 | 8 | ;; URL: https://hg.osdn.net/view/multi-project/multi-project |
| 9 | 9 | ;; Keywords: convenience project management |
| @@ -47,6 +47,7 @@ | ||
| 47 | 47 | ;; C-xpg - Run grep-find Runs grep-find at project root |
| 48 | 48 | ;; C-xpl - Last project or anchor Jumps to the last project or anchor |
| 49 | 49 | ;; C-xpp - Present project Jumps to the current project root |
| 50 | +;; C-xpP - Present project new frame Present project in a new frame | |
| 50 | 51 | ;; C-xpf - Find project files Interactively find project files |
| 51 | 52 | ;; C-xpn - Add a new project Prompts for new project information |
| 52 | 53 | ;; C-xpr - Go to project root Visits the project root |
| @@ -165,6 +166,7 @@ | ||
| 165 | 166 | (define-key map (kbd "C-x pf") 'multi-project-find-file) |
| 166 | 167 | (define-key map (kbd "C-x pn") 'multi-project-add-project) |
| 167 | 168 | (define-key map (kbd "C-x pp") 'multi-project-present-project) |
| 169 | + (define-key map (kbd "C-x pP") 'multi-project-present-project-new-frame) | |
| 168 | 170 | (define-key map (kbd "C-x pg") 'multi-project-interactive-grep) |
| 169 | 171 | (define-key map (kbd "C-x ps") 'multi-project-shell) |
| 170 | 172 | (define-key map (kbd "C-x pt") 'multi-project-recreate-tags) |
| @@ -174,6 +176,7 @@ | ||
| 174 | 176 | ["Jump to a project" multi-project-display-projects t] |
| 175 | 177 | ["Jump to the project root" multi-project-root t] |
| 176 | 178 | ["Jump to current project" multi-project-present-project t] |
| 179 | + ["Jump to current project in new frame " multi-project-present-project-new-frame t] | |
| 177 | 180 | ["Visit a project in new frame" multi-project-visit-project t] |
| 178 | 181 | ["Compile..." multi-project-compile t] |
| 179 | 182 | ["Find file..." multi-project-find-file t] |
| @@ -997,21 +1000,33 @@ | ||
| 997 | 1000 | (let ((projectlist (multi-project-current))) |
| 998 | 1001 | (multi-project-dired-project projectlist))) |
| 999 | 1002 | |
| 1003 | +(defun multi-project-create-frame-parameters () | |
| 1004 | + (let ((frame-parameters-alist default-frame-alist) | |
| 1005 | + frame) | |
| 1006 | + (unless frame-parameters-alist | |
| 1007 | + (let ((frame-start (car (frame-position))) | |
| 1008 | + (frame-width (frame-outer-width))) | |
| 1009 | + (list (cons 'width (frame-width)) | |
| 1010 | + (cons 'height (frame-height)) | |
| 1011 | + (cons 'left (+ frame-start frame-width))))))) | |
| 1012 | + | |
| 1013 | +;;;###autoload | |
| 1014 | +(defun multi-project-present-project-new-frame () | |
| 1015 | + "Jumps to the present project in a new frame." | |
| 1016 | + (interactive) | |
| 1017 | + (let ((frame-parameters-alist (multi-project-create-frame-parameters)) | |
| 1018 | + frame) | |
| 1019 | + (setq frame (make-frame frame-parameters-alist)) | |
| 1020 | + (select-frame-set-input-focus frame) | |
| 1021 | + (multi-project-present-project))) | |
| 1000 | 1022 | |
| 1001 | 1023 | ;;;###autoload |
| 1002 | 1024 | (defun multi-project-visit-project () |
| 1003 | 1025 | "Makes a new frame with the list of projects to visit." |
| 1004 | 1026 | (interactive) |
| 1005 | 1027 | |
| 1006 | - (let ((frame-parameters-alist default-frame-alist) | |
| 1028 | + (let ((frame-parameters-alist (multi-project-create-frame-parameters)) | |
| 1007 | 1029 | frame) |
| 1008 | - (unless frame-parameters-alist | |
| 1009 | - (let ((frame-start (car (frame-position))) | |
| 1010 | - (frame-width (frame-outer-width))) | |
| 1011 | - (setq frame-parameters-alist | |
| 1012 | - (list (cons 'width (frame-width)) | |
| 1013 | - (cons 'height (frame-height)) | |
| 1014 | - (cons 'left (+ frame-start frame-width)))))) | |
| 1015 | 1030 | (setq frame (make-frame frame-parameters-alist)) |
| 1016 | 1031 | (select-frame-set-input-focus frame) |
| 1017 | 1032 | (multi-project-display-projects))) |
Fork