wip(lldap): Consultant

users/crumb/programs/emacs/modules/syd-projects.el

@@ -28,4 +28,29 @@
   ;; `compile-multi-embark-command-map'.
   :config (projection-multi-embark-setup-command-map))
 
+(use-package skeletor
+  :commands (skeletor-create-project-at skeletor-create-project)
+  :custom ((skeletor-project-directory (expand-file-name "~/src"))
+           (skeletor-completing-read-function #'completing-read))
+  :general (:keymaps 'syd-leader-project-map
+            "n" #'skeletor-create-project
+            "N" #'skeletor-create-project-at)
+  :config
+  (skeletor-define-template "clj-nix"
+    :substitutions
+    '(("__PROJECT-OWNER__" . (lambda ()
+                               (read-no-blanks-input "Project owner: "))))
+    :before-git
+    (lambda (dir)
+      ;; Use underscores instead of hyphens in clj file names.
+      (let ((default-directory (file-name-concat dir "src")))
+        (dolist (f (directory-files "." nil "-" t))
+          (rename-file
+           f
+           (string-replace "-" "_" f))))
+      ;; REVIEW: Is it safe to make this be async?  We require that the command
+      ;; has finished before Git initialises.
+      (skeletor-shell-command "nix run github:jlesquembre/clj-nix#deps-lock"
+                              dir))))
+
 (provide 'syd-projects)