mirror of github:amycatgirl/amycatgirl.github.io
chore: drop trivia dependency, replace with case
closes #4
Signed-off-by: Amy <amy+git@amogus.cloud>
+2
-2
+2
-2
fallback.lisp
+2
-2
fallback.lisp
···
2
2
;; Last authored: Thu 19 Mar 18:41:03 AST 2026
3
3
;; Depends on: drakma, yason, uiop, cl-ppcre, trivia, alexandria, spinneret, local-time
4
4
5
-
(ql:quickload '(drakma yason uiop cl-ppcre trivia alexandria spinneret local-time))
5
+
(ql:quickload '(drakma yason uiop cl-ppcre alexandria spinneret local-time))
6
6
7
7
(defconstant +user-did+ "did:plc:gijpvbkdbr56kazbdjhfvb3d"
8
8
"DID of the user to fetch entries from")
···
78
78
(defun resolve-pds (did)
79
79
"Resolve a PDS by DID."
80
80
(let* ((did-method (get-did-method did))
81
-
(document (trivia:match did-method
81
+
(document (case did-method
82
82
("web" (resolve-did-document--web did))
83
83
("plc" (resolve-did-document--plc did))
84
84
(_ (error "Unsuported DID method ~S" did-method))))