diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2020-07-17 09:09:06 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2020-07-17 09:15:55 +0900 |
| commit | fb28ee4ee49323240bc620c6e784731c09953105 (patch) | |
| tree | 2a62f7a70415d40ee1e9bea34022b8fba12afe7b | |
| parent | 81db0eb7de821aadbfe5392a02a6b1b3468aafdd (diff) | |
toot: Rename from `display-image?` to `pict-enabled?`.
| -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)))))) |