💾 Archived View for l-3.space › log-201206-1.gmi captured on 2024-08-31 at 11:54:31. Gemini links have been rewritten to link to archived content

-=-=-=-=-=-=-

Time-stamp: <2020-12-06 22h30 UTC>

Emacs + gemini ==> automatic footnotes

Here's a snippet i found i needed to write after laboriously using `C-x 8 RET' for the umpteenth time to insert footnote markers. Throw it in your config, bind it to a something⁰ and enjoy! The code should more-or-less speak for itself, but to be sure:

it searches for the next free footnote symbol (as defined in `gemini-footnote-symbols')
it inserts that symbol at point (the cursor)
it goes to the end of the buffer and inserts the symbol, a space, and leaves you ready to write the footnote

Actually, in the process of writing this article, i noticed a possibly unfortunate gap in the logic: it doesn't distinguish between verbatim blocks (```) and the rest of the body. I can't tell how i feel about this, for now though, WONTFIX :)

(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 " "))))

⁰ I have it bound to `C-c C-f' in gemini-mode.