mirror of
https://codeberg.org/cage/tinmop/
synced 2025-06-05 01:09:17 +02:00
- rendered visibility of a status when printed on the main window;
- tested with latest croatoan: no problem so far.
This commit is contained in:
@@ -228,27 +228,35 @@
|
|||||||
(username (db:row-message-username message-row))
|
(username (db:row-message-username message-row))
|
||||||
(display-name (db:row-message-user-display-name message-row))
|
(display-name (db:row-message-user-display-name message-row))
|
||||||
(creation-time (db:row-message-creation-time message-row))
|
(creation-time (db:row-message-creation-time message-row))
|
||||||
|
(visibility (db:row-message-visibility message-row))
|
||||||
(lockedp (db-utils:db-not-nil-p (db:row-lockedp message-row)))
|
(lockedp (db-utils:db-not-nil-p (db:row-lockedp message-row)))
|
||||||
(locked-mark (swconf:message-window-account-locking-status-mark lockedp))
|
(locked-mark (swconf:message-window-account-locking-status-mark lockedp))
|
||||||
(encoded-date (db-utils:encode-datetime-string creation-time))
|
(encoded-date (db-utils:encode-datetime-string creation-time))
|
||||||
(from-label (_ "From: "))
|
(from-label (_ "From: "))
|
||||||
(boosted-label (_ "Boosted: "))
|
(boosted-label (_ "Boosted: "))
|
||||||
|
(visibility-label (_ "Visibility: "))
|
||||||
(boosted-id (db:row-message-reblog-id message-row))
|
(boosted-id (db:row-message-reblog-id message-row))
|
||||||
(boosted-username (and boosted-id
|
(boosted-username (and boosted-id
|
||||||
(db:status-id->username boosted-id)))
|
(db:status-id->username boosted-id)))
|
||||||
(date-label (_ "Date: "))
|
(date-label (_ "Date: "))
|
||||||
(padding-length (max (length from-label)
|
(padding-length (max (length from-label)
|
||||||
(length date-label)
|
(length date-label)
|
||||||
(length boosted-label)))
|
(length boosted-label)
|
||||||
|
(length visibility-label)))
|
||||||
(text (misc:make-fresh-array 0 #\Space 'character nil)))
|
(text (misc:make-fresh-array 0 #\Space 'character nil)))
|
||||||
(with-output-to-string (stream text)
|
(with-output-to-string (stream text)
|
||||||
(format stream
|
(format stream
|
||||||
"~a(~a) ~a~a~%"
|
"~a(~a) ~a~a~%"
|
||||||
(right-padding from-label padding-length)
|
(right-padding from-label padding-length)
|
||||||
display-name username locked-mark)
|
display-name username locked-mark)
|
||||||
(format stream "~a~a~2%"
|
(format stream
|
||||||
|
"~a~a~%"
|
||||||
(right-padding date-label padding-length)
|
(right-padding date-label padding-length)
|
||||||
(format-time encoded-date date-format))
|
(format-time encoded-date date-format))
|
||||||
|
(format stream
|
||||||
|
"~a~a~2%"
|
||||||
|
(right-padding visibility-label padding-length)
|
||||||
|
visibility)
|
||||||
(when boosted-id
|
(when boosted-id
|
||||||
(format stream "~a~a~%"
|
(format stream "~a~a~%"
|
||||||
(right-padding boosted-label padding-length)
|
(right-padding boosted-label padding-length)
|
||||||
|
Reference in New Issue
Block a user