diff options
| -rw-r--r-- | qkbox/toot.scm | 40 |
1 files changed, 39 insertions, 1 deletions
diff --git a/qkbox/toot.scm b/qkbox/toot.scm index a917bef..8241794 100644 --- a/qkbox/toot.scm +++ b/qkbox/toot.scm @@ -29,6 +29,7 @@ #:use-module (ice-9 optargs) #:use-module (srfi srfi-9) #:use-module (srfi srfi-1) + #:use-module (srfi srfi-19) #:use-module (srfi srfi-9 gnu) #:use-module (pict) #:use-module ((htmlprag) @@ -36,7 +37,8 @@ #:use-module ((sxml fold) #:select (foldt)) #:use-module ((sxml xpath) - #:select (sxpath))) + #:select (sxpath)) + #:use-module (rnrs io ports)) (define-syntax-rule (and/nil test expr) (if test @@ -49,6 +51,9 @@ (define current-mastodon-access-token (make-parameter (getenv "MASTODON_ACCESS_TOKEN"))) +(define (created-at-string->date str) + (string->date str "~Y-~m-~dT~H:~M~S.~NZ")) + (define*-public (post text #:key spoiler-text @@ -120,6 +125,35 @@ (account-id account) (account-acct account)))) +(define-record-type <notification> + (make-notification json) + notification? + (json notification-json)) + +(define (notification-id notification) + (assoc-ref (notification-json notification) + "id")) + +(define (notification-status notification) + (make-status + (assoc-ref (notification-json notification) + "status"))) + +(define (notification-account notification) + (make-account + (assoc-ref (notification-json notification) + "account"))) + +(define (notification-type notification) + (string->symbol + (assoc-ref (notification-json notification) + "type"))) + +(define (notification-creation-time notification) + (created-at-string->date + (assoc-ref (notification-json notification) + "created_at"))) + (define-public (status-public? status) (eq? 'public (status-visibility status))) @@ -311,6 +345,10 @@ #f id))) +(define (status-creation-time status) + (created-at-string->date (assoc-ref (status-json status) + "created_at"))) + (define (emoji-static-url emoji) (assoc-ref (emoji-json emoji) "static_url")) |