summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--toot.scm12
1 files changed, 6 insertions, 6 deletions
diff --git a/toot.scm b/toot.scm
index 1e709c7..9811554 100644
--- a/toot.scm
+++ b/toot.scm
@@ -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))))))