Projects

userland/projects.el

@@ -0,0 +1,60 @@
+;;; projects.el --- Project management configuration with whaler -*- lexical-binding: t -*-
+
+;; This file is not part of GNU Emacs
+
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+
+;;; Commentary:
+
+;; commentary
+
+;;; Code:
+
+(require 'subr-x)
+
+(defcustom theurgy-project-default-file-alist '(("~/.emacs.d" . "init.el"))
+  "This alist specifies which file (relative to the project root) to open in the main frame by default when opening a project."
+  :group 'theurgy
+  :group 'theurgy-projects
+  :group 'whaler)
+
+(use-package whaler
+  :ensure t
+  :config
+  (whaler-populate-projects-directories)
+  )
+
+(defun get-project-default-file (dir)
+  "Get the project default file for `DIR', regardless of whether either path is absolute or relative."
+  (let ((absolute-project-dir (expand-file-name (string-remove-suffix "/" dir)))
+	(absolute-project-default-file-alist (mapcar (lambda (x) `(,(string-remove-suffix "/" (expand-file-name (car x))) . ,(cdr x)))
+						     theurgy-project-default-file-alist)))
+    (or (file-name-concat dir (cdr (assoc absolute-project-dir absolute-project-default-file-alist))) dir)))
+
+(defun theurgy-open-project ()
+  "Select a project and update neotree to use it as root."
+  (interactive)
+  (whaler :action (lambda (dir)
+		    (find-file (get-project-default-file dir))
+		    (neotree-dir dir))))
+
+(defun theurgy-edit-projects-list ()
+  "Open list of projects in customize."
+  (interactive)
+  (customize-group 'whaler))
+
+(provide 'projects)
+
+;;; projects.el ends here