From fb28ee4ee49323240bc620c6e784731c09953105 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Fri, 17 Jul 2020 09:09:06 +0900
Subject: toot: Rename from `display-image?` to `pict-enabled?`.

---
 toot.scm | 12 ++++++------
 1 file 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))))))
-- 
cgit v1.2.3