From 341b0db7ad500995167bfd8032db4a93a1434489 Mon Sep 17 00:00:00 2001
From: tslil clingman <>
Date: Mon, 22 Mar 2021 11:48:45 -0400
Subject: Collected changes for Zig, Gemini, theming

---
 emacs/inits/27-gemini.el | 85 +++++++++++++++++++++++++-----------------------
 1 file changed, 44 insertions(+), 41 deletions(-)

(limited to 'emacs/inits/27-gemini.el')

diff --git a/emacs/inits/27-gemini.el b/emacs/inits/27-gemini.el
index 9e02780..0017557 100644
--- a/emacs/inits/27-gemini.el
+++ b/emacs/inits/27-gemini.el
@@ -1,12 +1,12 @@
-;; Time-stamp: <2020-12-30 18h02 EST (hobbies)>
+;; Time-stamp: <2021-02-26 17h53 UTC>
 
 (use-package elpher
-  :ensure t
-  :defer)
+	:ensure t
+	:defer)
 
 (use-package visual-fill-column
-  :ensure t
-  :defer)
+	:ensure t
+	:defer)
 
 (defvar gemlog-directory (expand-file-name "~/hobbies/l-3.space/"))
 (defvar gemlog-file-name "%y%02m%02d")
@@ -14,45 +14,48 @@
 (defvar gemlog-time-zone "UTC")
 
 (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 t)
-                       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 t)
-                         number)))
-    (find-file file)
-    (insert "Time-stamp: <>") (newline) (newline)
-    (insert "# " title) (newline) (newline)
-    (time-stamp)))
+	(interactive)
+	(let* ((title (read-string "Title: "))
+				 (number 1)
+				 (file (format "%s/log-%s-%d.gmi"
+											 gemlog-directory
+											 (format-time-string gemlog-file-name nil t)
+											 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 t)
+												 number)))
+		(find-file file)
+		(setq-local time-stamp-time-zone gemlog-time-zone
+								time-stamp-format gemlog-time-string)
+		(insert "Time-stamp: <>") (newline) (newline)
+		(insert "# " title) (newline) (newline)
+		(time-stamp)))
 
 (defvar gemini-footnote-symbols '("⁰" "¹" "²" "³" "⁴" "⁵" "⁶" "⁷" "⁸" "⁹" "ᵃ" "ᵇ" "ᶜ" "ᵈ" "ᵉ" "ᶠ"))
 
 (defun gemini-insert-footnote ()
-  (interactive)
-  (let ((symb (car gemini-footnote-symbols))
-        (n 0))
-    (while (and symb (save-excursion (beginning-of-buffer) (search-forward symb nil t)))
-      (setq n (1+ n)
-            symb (nth n gemini-footnote-symbols)))
-    (if (not symb) (message "Ran out of footnote symbols. Customise `gemini-footnote-symbols'.")
-      (insert symb)
-      (end-of-buffer)
-      (unless (= (point) (point-at-bol)) (newline))
-      (insert symb " "))))
+	(interactive)
+	(let ((symb (car gemini-footnote-symbols))
+				(n 0))
+		(while (and symb (save-excursion (beginning-of-buffer) (search-forward symb nil t)))
+			(setq n (1+ n)
+						symb (nth n gemini-footnote-symbols)))
+		(if (not symb) (message "Ran out of footnote symbols. Customise `gemini-footnote-symbols'.")
+			(insert symb)
+			(end-of-buffer)
+			(unless (= (point) (point-at-bol)) (newline))
+			(insert symb " "))))
 
 (use-package gemini-mode
-  :load-path "~/.emacs.d/scripts/gemini.el/"
-  :bind (:map gemini-mode-map
-              ("C-c C-f" . gemini-insert-footnote))
-  :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))))
+	:ensure t
+	:bind (:map gemini-mode-map
+							("C-c C-f" . gemini-insert-footnote))
+	:hook (gemini-mode . (lambda ()
+												 (setq time-stamp-time-zone gemlog-time-zone
+															 time-stamp-format gemlog-time-string)
+												 (setq-local indent-tabs-mode nil)
+												 (auto-fill-mode -1)
+												 (set-fill-column 80))))
-- 
cgit v1.2.3