about summary refs log tree commit diff stats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/_foot.htm2
-rw-r--r--src/moved-in.ht44
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 "&ndash; $(command date +%Y)"; fi) 4 $(if [ $(command date +%Y) -gt 2022 ]; then print "&ndash; $(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
4moved into my new house last week! very nice house. i was sick for two days
5afterward, i think due to exhaustion or something. wasn't a good time, let me
6tell you. however, now i'm well and kicking!
7
8my wife's birthday was also this weekend, so we had friends over and everyone
9loved the house. i do too. it's a good house.
10
11oh and the
12=> https://dogs.acdw.net dogs
13are back home, thank goodness! i was missing them very much. they are
14adjusting well, mostly---though apparently the poor things were terrified by the
15mail dropping through the door slot this afternoon.
16
17<hr>
18
19i was originally writing this to share a bit of elisp, so i suppose i will here.
20
21Bozhidar Batsov wrote a blog post called
22=>
23https://emacsredux.com/blog/2022/06/03/extract-version-metadata-from-a-package/
24"Extract Version Metadata from a Package"
25that discusses how to do all of that from package.el, but i don't use
26package.el.
27
28so i hacked something together from some throwaway lines in his blog to do
29almost 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
37this returns the authors (me) and their email from the titlecase.el library:
38
39```
40(("Case Duckworth" . "acdw@acdw.net"))
41```
42
43i still need to think about multi-file libraries and how to find the "real" root
44of the library, i suppose, but that's an easily-enough-solved problem i think.