~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.

2 files changed, 53 insertions, 0 deletions

diff --git a/doom.d/modules/private/gentemplate/README.org b/doom.d/modules/private/gentemplate/README.org
new file mode 100644
index 0000000..86e7463
--- /dev/null
+++ b/doom.d/modules/private/gentemplate/README.org
@@ -0,0 +1,21 @@
+#+TITLE:   private/gentemplate
+#+DATE:    March 17, 2020
+#+SINCE:   {replace with next tagged release version}
+#+STARTUP: inlineimages nofold
+
+* Description
+This module allows users to clone templates from my Github to specific machines.
+These templates allow for quick and easy setup for languages or frameworks where
+this sort of thing isn't very nice to do (for example C++).
+
+This module is used through the main function =+gentemplate/generate-template=.
+It will ask what template you want to use then where to put it, finally doing
+the necessary work to get you that template. You may mutate the variables
+=+gentemplate/template-list= and =+gentemplate/profile-url= to customise your
+templates.
+* Prerequisites
+- git
+* Requirements
+- ivy
+- magit
+- cl
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)))))))