blob: 84acf2f4edb0cbe703bc6df2128e99fbdc9d4eb3 (
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
|
#+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]]. 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:
| [[./pgp.org][Public key]] Send encrypted data to me or verify my signature |
|
