~gentemplate.org -> gentemplate module

Gentemplate is one of those things that just makes sense as a module.
Thus, converted it. I may convert a few more org files into full blown modules.

1 files changed, 32 insertions, 0 deletions

diff --git a/doom.d/modules/private/gentemplate/config.el b/doom.d/modules/private/gentemplate/config.el
new file mode 100644
index 0000000..ae5b973
--- /dev/null
+++ b/doom.d/modules/private/gentemplate/config.el
@@ -0,0 +1,32 @@
+;;; private/gentemplate/config.el -*- lexical-binding: t; -*-
+
+(require 'cl)
+
+(setq +gentemplate/template-list (list "CTemplate" "CPPTemplate" "PythonTemplate" "NodeTemplate" "ArduinoTemplate" "JavaTemplate"))
+(setq +gentemplate/profile-url "https://github.com/oreodave/")
+
+(defun +gentemplate/offline ()
+  (eq (list-length (network-interface-list)) 1))
+
+(after! magit-clone
+  (defun +gentemplate/download-template (template-name dest)
+    "Download a given template via its `template-name' to the `dest' folder"
+    (magit-clone-regular (concat +gentemplate/profile-url template-name) dest nil)))
+
+(defun +gentemplate/copy-template (template-name dest)
+  "Copy a template project via it's `template-name' to a folder called `dest'"
+  (copy-directory (expand-file-name (concat "~/Code/Templates/" template-name)) dest))
+
+(after! (ivy magit-clone)
+  (defun +gentemplate/generate-template ()
+    (interactive)
+    (ivy-read
+     "Enter template: "
+     +gentemplate/template-list
+     :action
+     (lambda (template-name)
+       (let ((dir (read-directory-name "Enter directory to download to: "))
+             (offline (+gentemplate/offline)))
+         (if offline
+             (+gentemplate/copy-template template-name dir)
+           (+gentemplate/download-template template-name dir)))))))