files/emacs: add function to create cgit repos

1 files changed, 19 insertions, 0 deletions

diff --git a/epistemia/files/emacs/.config/emacs/init.el b/epistemia/files/emacs/.config/emacs/init.el
index e11d7f6..824a36c 100644
--- a/epistemia/files/emacs/.config/emacs/init.el
+++ b/epistemia/files/emacs/.config/emacs/init.el
@@ -323,6 +323,25 @@
 ;; magit -- very good git
 (use-package magit)
 
+(defun vin/cgit-create (name desc section)
+  "Initialize cgit repository in saklas."
+  (interactive
+   (list (read-string "Name: ")
+         (read-string "Description: ")
+         (completing-read "Section: " '("Active"
+                                        "Attic"
+                                        "Completed"
+                                        "Configs"
+                                        "Undergraduate Projects"))))
+  (cd "/ssh:saklas:/data/src/bare/")
+  (shell-command (format "git init --bare %s.git" name))
+  (cd (format "%s.git" name))
+  (with-temp-file "description"
+    (insert desc))
+  (with-temp-file "cgitrc"
+    (insert (format "owner=%s\nsection=%s\n"
+                    "Vineet K" section))))
+
 ;; hl-todo -- highlights TODO/BUG/FIXME/etc. keywords
 (use-package hl-todo
   :hook