From 053e6d0a317e00d77d44bac1e0cf4181e4cbe89c Mon Sep 17 00:00:00 2001
From: Joel Kronqvist <joel.kronqvist@iki.fi>
Date: Sun, 14 Jun 2026 16:09:01 +0300
Subject: sorted the indexes & added one to the english side

---
 en/index.org | 51 +++++++++++++++++++++++++++++++++++++++++++++++----
 en/pgp.org   |  1 +
 2 files changed, 48 insertions(+), 4 deletions(-)

(limited to 'en')

diff --git a/en/index.org b/en/index.org
index 9480e6f..1249e5e 100644
--- a/en/index.org
+++ b/en/index.org
@@ -2,11 +2,54 @@
 
 Welcome to my website!
 
-I don't publish as much content in English on the web, except much of
-my programming related content. I've also got a gemini capsule for you
-all in English at gemini://cron4.fi. My contact information can be
-found there if you need it.
+I don't publish as much content in English on the web as in Finnish.
+I've got a gemini capsule for you all in English at
+gemini://cron4.fi. My contact information can be found there if you
+need it.
 
 Also, in case you want to send me encrypted messages or verify that I
 have indeed signed a file, you can find my public key & its
 fingerprint [[./pgp.org][here]].
+
+Here is still an explicit index of the English side of my website.
+
+#+begin_src emacs-lisp :exports results :noweb yes
+
+  <<file:../fi/blog/index.org::code:index-utils>>
+
+  (defun generate-entry 
+      (name)
+    "Generates an index entry for file NAME."
+    (let ((extension (file-name-extension name)) (bname (file-name-sans-extension name)))
+      (concat "[[./"
+              name
+              "]["
+              (or
+               (if (string= extension "org")
+                   (get-org-file-title (concat "./" name))
+                 nil)
+               bname)
+              "]] "
+              (or (if (string= extension "org")
+                      (get-org-file-property (concat "./" name) "SUBTITLE")
+                    nil)
+                  "No subtitle available"))))
+
+  (let ((files
+         (seq-filter (lambda (name)
+                       (not (or
+                             (string-suffix-p "~" name)
+                             (string-suffix-p "#" name)
+                             (string-prefix-p "#" name)
+                             (string-prefix-p "." name)
+                             (string= "index.org" name))))
+                     (sort (directory-files "./")
+                           :key (lambda (f) (get-file-date f))
+                           :reverse t))))
+    (seq-map (lambda (name) `(,(generate-entry name))) files))
+#+end_src
+
+#+RESULTS:
+| [[./pgp.org][Public key]] Send encrypted data to me or verify my signature |
+
+
diff --git a/en/pgp.org b/en/pgp.org
index b1f8695..14a7065 100644
--- a/en/pgp.org
+++ b/en/pgp.org
@@ -1,4 +1,5 @@
 #+TITLE: Public key
+#+SUBTITLE: Send encrypted data to me or verify my signature
 
 The fingerprint for my public PGP key is
 ~24F59B15EB13A69D492C300601B3DAEDABD96CE1~. I made a new one because I
-- 
cgit v1.2.3