cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-06-05 01:09:17 +02:00
Code Issues Activity

- rendered visibility of a status when printed on the main window;

Browse Source 
- tested with latest croatoan: no problem so far.
This commit is contained in:
cage
2021-01-06 11:42:23 +01:00
parent 6075beee34
commit ade19e76c5
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/message-rendering-utils.lisp
View File

@@ -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)