diff options
Diffstat (limited to 'en/index.org')
| -rw-r--r-- | en/index.org | 51 |
1 files changed, 47 insertions, 4 deletions
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 | + + |