From b994a2704fd8248cbc83acc384bf73ea8bc3f224 Mon Sep 17 00:00:00 2001
From: tslil clingman <>
Date: Mon, 27 May 2024 20:19:08 +0200
Subject: [emacs] minor changes

---
 emacs/inits/27-gemini.el | 47 ++++++++++++++++++++++++++---------------------
 1 file changed, 26 insertions(+), 21 deletions(-)

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

diff --git a/emacs/inits/27-gemini.el b/emacs/inits/27-gemini.el
index 26a4724..7a2a1ae 100644
--- a/emacs/inits/27-gemini.el
+++ b/emacs/inits/27-gemini.el
@@ -1,14 +1,16 @@
-;; Time-stamp: <2023-01-18 20h54 CET (anker)>
+;; Time-stamp: <2024-05-27 20h18 CEST (83a9252e)>
 
 (use-package elpher
   :ensure t
-  :defer)
+  :demand
+  :config
+  (setq elpher-default-url-type "gemini"))
 
 (use-package visual-fill-column
   :ensure t
   :defer)
 
-(defvar gemlog-directory (expand-file-name "~/logs/l-3.space/"))
+(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")
@@ -16,33 +18,35 @@
 (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)))
+         (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)))
+                         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)
+                time-stamp-format gemlog-time-string)
     (insert "Time-stamp: <>") (newline) (newline)
     (insert "# " title) (newline) (newline)
-    (time-stamp)))
+    (time-stamp)
+    (require 'gemini-mode)
+    (gemini-mode)))
 
 (defvar gemini-footnote-symbols '("⁰" "¹" "²" "³" "⁴" "⁵" "⁶" "⁷" "⁸" "⁹" "ᵃ" "ᵇ" "ᶜ" "ᵈ" "ᵉ" "ᶠ"))
 
 (defun gemini-insert-footnote ()
   (interactive)
   (let ((symb (car gemini-footnote-symbols))
-    (n 0))
+        (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)))
+            symb (nth n gemini-footnote-symbols)))
     (if (not symb) (message "Ran out of footnote symbols. Customise `gemini-footnote-symbols'.")
       (insert symb)
       (end-of-buffer)
@@ -51,11 +55,12 @@
 
 (use-package gemini-mode
   :ensure t
+  :demand
   :bind (:map gemini-mode-map
-          ("C-c C-f" . gemini-insert-footnote))
+              ("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))))
+                         (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