diff options
| author | tslil clingman <tslil@posteo.de> | 2023-09-12 21:07:47 +0200 |
|---|---|---|
| committer | tslil clingman <tslil@posteo.de> | 2023-09-12 21:08:54 +0200 |
| commit | 8607fd0b5d3cb9efcd4bd805321128713823271d (patch) | |
| tree | a8e977963943f56f42388449fc2a334a58f550eb /emacs/inits/27-gemini.el | |
| parent | f749a8ac8423e11739ff1315d1ff50256f565d95 (diff) | |
[emacs] misc config updates
Diffstat (limited to 'emacs/inits/27-gemini.el')
| -rw-r--r-- | emacs/inits/27-gemini.el | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/emacs/inits/27-gemini.el b/emacs/inits/27-gemini.el index 65a499d..26a4724 100644 --- a/emacs/inits/27-gemini.el +++ b/emacs/inits/27-gemini.el @@ -1,4 +1,4 @@ -;; Time-stamp: <2021-09-27 08h48 EDT (hobbies)> +;; Time-stamp: <2023-01-18 20h54 CET (anker)> (use-package elpher :ensure t @@ -8,7 +8,7 @@ :ensure t :defer) -(defvar gemlog-directory (expand-file-name "~/hobbies/l-3.space/")) +(defvar gemlog-directory (expand-file-name "~/logs/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,20 +16,20 @@ (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))) @@ -39,10 +39,10 @@ (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) @@ -52,10 +52,10 @@ (use-package gemini-mode :ensure t :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)))) |