diff options
| -rw-r--r-- | toot.scm | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -49,7 +49,7 @@ #:export (;; parameter mastodon-host mastodon-access-token - display-image? + pict-enabled? ;; get fetch-status @@ -78,7 +78,7 @@ (define mastodon-access-token (make-parameter (getenv "MASTODON_ACCESS_TOKEN"))) -(define display-image? +(define pict-enabled? (make-parameter #f)) (define* (post text @@ -137,7 +137,7 @@ (format port "[NOTIFICATION] ~:@(~a~)~%~@[~s ~]~a ~a~%> " (notification-type notification) - (and (display-image?) + (and (pict-enabled?) (fetch-avatar-static (account-avatar-static account))) (account-to-string account) @@ -164,7 +164,7 @@ (else (format port "~@[~s ~]~a ~a~@?~@?~@?~@?~@?~%~@?~@?" - (and (display-image?) + (and (pict-enabled?) (status-avatar-pict status/original)) (account-to-string account) (creation-time->string @@ -194,7 +194,7 @@ (case (attachment-type att) ((image) (cond - ((and (display-image?) + ((and (pict-enabled?) (fetch-attachment-preview-pict att)) => identity) (else @@ -293,7 +293,7 @@ ((emoji-find emojis shortcode) => (lambda (emoji) - (or (and (display-image?) + (or (and (pict-enabled?) (fetch-emoji-pict emoji)) shortcode)))) (loop (match:suffix mat)))))) |