#+TITLE: Joel Kronqvist

Welcome to my website!

I don't publish as much content in English on the web as in Finnish.
You might want to check out [[https://git.cron4.fi][my git repositories]]. The source of my
website is available there too.

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.

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:
| [[./lcm-python.org][A Pythonic FP adventure]] Designing a horrible implementation for LCM |
| [[./pgp.org][Public key]] Send encrypted data to me or verify my signature         |
| [[./site-update.org][Site update]] What has happened to this website and why?              |