blob: dce3dbc059edbb91f14176e9fef192efba74b6b9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
#+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? |
|
