diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/_foot.htm | 2 | ||||
-rw-r--r-- | src/moved-in.ht | 44 |
2 files changed, 45 insertions, 1 deletions
diff --git a/src/_foot.htm b/src/_foot.htm index 8e1ee54..2cbd5a0 100644 --- a/src/_foot.htm +++ b/src/_foot.htm | |||
@@ -1,5 +1,5 @@ | |||
1 | <footer> | 1 | <footer> |
2 | $(case "$(title)" in ("") ;; (*) print "<a href=\"./index.html\">back</a>" ;; esac) | 2 | $(case "$(title)" in ("") ;; (*) print "<a id="back" href=\"./index.html\">back</a>" ;; esac) |
3 | <span id="copyright">(C) 2022 | 3 | <span id="copyright">(C) 2022 |
4 | $(if [ $(command date +%Y) -gt 2022 ]; then print "– $(command date +%Y)"; fi) | 4 | $(if [ $(command date +%Y) -gt 2022 ]; then print "– $(command date +%Y)"; fi) |
5 | C. Duckworth</span> under the | 5 | C. Duckworth</span> under the |
diff --git a/src/moved-in.ht b/src/moved-in.ht new file mode 100644 index 0000000..27d1555 --- /dev/null +++ b/src/moved-in.ht | |||
@@ -0,0 +1,44 @@ | |||
1 | ;@@title: moved in@@ | ||
2 | ;@@date: 2022-06-06@@ | ||
3 | |||
4 | moved into my new house last week! very nice house. i was sick for two days | ||
5 | afterward, i think due to exhaustion or something. wasn't a good time, let me | ||
6 | tell you. however, now i'm well and kicking! | ||
7 | |||
8 | my wife's birthday was also this weekend, so we had friends over and everyone | ||
9 | loved the house. i do too. it's a good house. | ||
10 | |||
11 | oh and the | ||
12 | => https://dogs.acdw.net dogs | ||
13 | are back home, thank goodness! i was missing them very much. they are | ||
14 | adjusting well, mostly---though apparently the poor things were terrified by the | ||
15 | mail dropping through the door slot this afternoon. | ||
16 | |||
17 | <hr> | ||
18 | |||
19 | i was originally writing this to share a bit of elisp, so i suppose i will here. | ||
20 | |||
21 | Bozhidar Batsov wrote a blog post called | ||
22 | => | ||
23 | https://emacsredux.com/blog/2022/06/03/extract-version-metadata-from-a-package/ | ||
24 | "Extract Version Metadata from a Package" | ||
25 | that discusses how to do all of that from package.el, but i don't use | ||
26 | package.el. | ||
27 | |||
28 | so i hacked something together from some throwaway lines in his blog to do | ||
29 | almost the same thing: | ||
30 | |||
31 | ``` | ||
32 | (with-current-buffer (find-file-noselect (find-library-name "titlecase")) | ||
33 | (require 'lisp-mnt) | ||
34 | (lm-authors)) | ||
35 | ``` | ||
36 | |||
37 | this returns the authors (me) and their email from the titlecase.el library: | ||
38 | |||
39 | ``` | ||
40 | (("Case Duckworth" . "acdw@acdw.net")) | ||
41 | ``` | ||
42 | |||
43 | i still need to think about multi-file libraries and how to find the "real" root | ||
44 | of the library, i suppose, but that's an easily-enough-solved problem i think. | ||