mirror of https://codeberg.org/cage/tinmop/
- fixed line wrapping of announcements window.
This commit is contained in:
parent
ceaeeb8ec6
commit
c1d4024185
|
@ -1895,14 +1895,21 @@
|
||||||
"Shows a window with all announcements"
|
"Shows a window with all announcements"
|
||||||
(when-let* ((all-announcements (api-client:get-announcements))
|
(when-let* ((all-announcements (api-client:get-announcements))
|
||||||
(all-texts (mapcar (lambda (a)
|
(all-texts (mapcar (lambda (a)
|
||||||
(html-utils:html->text a
|
(text-utils:justify-monospaced-text (html-utils:html->text a
|
||||||
:quote-prefix (swconf:message-window-quote-prefix)
|
:quote-prefix
|
||||||
:list-item-prefix (swconf:message-window-bullet-prefix)))
|
(swconf:message-window-quote-prefix)
|
||||||
|
:list-item-prefix
|
||||||
|
(swconf:message-window-bullet-prefix))
|
||||||
|
(truncate (* 3/4
|
||||||
|
(windows:win-width specials:*main-window*)))))
|
||||||
(mapcar #'tooter:content all-announcements)))
|
(mapcar #'tooter:content all-announcements)))
|
||||||
(lines (reduce #'append
|
(lines (mapcar (lambda (a)
|
||||||
(mapcar #'text-utils:split-lines all-texts)))
|
(append a
|
||||||
(window-content (text-utils:join-with-strings* (swconf:config-announcements-separator)
|
(list ""
|
||||||
lines)))
|
(swconf:config-announcements-separator)
|
||||||
|
"")))
|
||||||
|
all-texts))
|
||||||
|
(window-content (flatten lines)))
|
||||||
(api-client:dismiss-all-announcements all-announcements)
|
(api-client:dismiss-all-announcements all-announcements)
|
||||||
(line-oriented-window:make-blocking-list-dialog-window specials:*main-window*
|
(line-oriented-window:make-blocking-list-dialog-window specials:*main-window*
|
||||||
window-content
|
window-content
|
||||||
|
|
Loading…
Reference in New Issue