amybunny.tgirl.gay
+7
-4
skeet.el
+7
-4
skeet.el
···
58
58
(aux num ""))
59
59
60
60
(defun skeet--get-epoch ()
61
-
(truncate (* 1000 (float-time))))
61
+
(time-convert nil 1000000))
62
+
63
+
(defun skeet--ts (ts)
64
+
(car ts))
62
65
63
66
(defun skeet--get-clock-id ()
64
67
(floor (random 1023)))
···
66
69
(defun skeet--tid (ts clock-id)
67
70
"Generate a new Timestamp Identifier (TID)
68
71
Used for Record keys"
69
-
(format "%s%s" (skeet--to-base32-sortable (floor ts))
72
+
(format "%s%s" (skeet--to-base32-sortable ts)
70
73
(string-pad (skeet--to-base32-sortable clock-id) 2 ?2)))
71
74
72
75
(defun skeet--time-to-iso-8601 (ts)
73
-
(format-time-string "%Y-%m-%dT%T.%3NZ" (/ ts 1000)))
76
+
(format-time-string "%Y-%m-%dT%T.%3NZ" ts))
74
77
75
78
(defun skeet--resolve-did-by-handle (handle)
76
79
"Resolve the user's DID by handle using QuickDID"
···
192
195
(pds (skeet--get-pds did))
193
196
(session (skeet--create-session-if-not-exists did pds))
194
197
(post-id (skeet--tid
195
-
(skeet--get-epoch)
198
+
(skeet--ts (skeet--get-epoch))
196
199
(skeet--get-clock-id))))
197
200
(request (skeet--to-pds-route pds "com.atproto.repo.createRecord")
198
201
:data (json-encode (skeet--make-post-data did