From 718050842924e80fe9f8622e51066f6a74ba1da1 Mon Sep 17 00:00:00 2001
From: tslil clingman <>
Date: Mon, 16 Nov 2020 11:08:22 -0500
Subject: Tracking gemini stuff

---
 emacs/inits/27-gemini.el | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 emacs/inits/27-gemini.el

(limited to 'emacs/inits')

diff --git a/emacs/inits/27-gemini.el b/emacs/inits/27-gemini.el
new file mode 100644
index 0000000..ff7db33
--- /dev/null
+++ b/emacs/inits/27-gemini.el
@@ -0,0 +1,41 @@
+;; Time-stamp: <2020-11-16 16h06 UTC>
+
+(use-package elpher
+  :ensure t
+  :defer)
+
+(use-package visual-fill-column
+  :ensure t
+  :defer)
+
+(defvar gemlog-directory (expand-file-name "~/hobbies/l-3.space/"))
+(defvar gemlog-file-name "%y%02m%02d")
+(defvar gemlog-time-string "%Y-%02m-%02d %02Hh%02M %Z")
+(defvar gemlog-time-zone "UTC")
+
+(use-package gemini-mode
+  :load-path "~/.emacs.d/scripts/gemini.el/"
+  :hook (gemini-mode . (lambda ()
+                         (setq time-stamp-time-zone gemlog-time-zone
+                               time-stamp-format gemlog-time-string)
+                         (auto-fill-mode -1)
+                         (set-fill-column 80))))
+
+(defun gemlog-new-entry ()
+  (interactive)
+  (let* ((title (read-string "Title: "))
+         (number 1)
+         (file (format "%s/log-%s-%d.gmi"
+                       gemlog-directory
+                       (format-time-string gemlog-file-name nil gemlog-time-zone)
+                       number)))
+    (while (file-exists-p file)
+      (setq number (+ 1 number))
+      (setq file (format "%s/log-%s-%d.gmi"
+                         gemlog-directory
+                         (format-time-string gemlog-file-name nil gemlog-time-zone)
+                         number)))
+    (find-file file)
+    (insert "Time-stamp: <>") (newline) (newline)
+    (insert "# " title) (newline) (newline)
+    (time-stamp)))
-- 
cgit v1.2.3