Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add non-vc backed project backend

Browse Source
This commit is contained in:
Alexander Rosenberg 2023-11-02 21:38:31 -07:00
parent 21df11c7c2
commit d39d3b2d41
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
init.el
View File

@ -527,6 +527,8 @@ visual states."
(stringp val))) (stringp val)))
(defvar my/-project-run-history '() (defvar my/-project-run-history '()
"Commands previously run with `my/project-run'") "Commands previously run with `my/project-run'")
(defvar my/project-root-marker ".project-root"
"Marker file to look for in non-vc backed projects.")
(defun my/project-get-root-dir () (defun my/project-get-root-dir ()
"Get the root dir for the current project" "Get the root dir for the current project"
(let* ((proj (project-current nil)) (let* ((proj (project-current nil))
@ -559,7 +561,12 @@ COMMAND and COMINT are like `compile'."
(compile-command nil)) (compile-command nil))
(compile command comint) (compile command comint)
(when (not my/project-run-command) (when (not my/project-run-command)
(setq my/project-run-command command))))) (setq my/project-run-command command))))
:config
(defun my/project-try-dotfile (dir)
(if-let (root (locate-dominating-file dir my/project-root-marker))
(list 'vc nil root)))
(add-hook 'project-find-functions #'my/project-try-dotfile))
;; nxml ;; nxml
(use-package nxml-mode (use-package nxml-mode