cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fix expanding of message threads: expands reblogged toots if exists; 

- added some vertical space before rendering poll.
This commit is contained in:
cage 2020-07-02 20:20:23 +02:00
parent aa6ea83761
commit 64ffd305bd
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -251,6 +251,7 @@
(let ((expiredp (db:row-poll-expired-p poll))
(multiple-vote-allowed (db:row-poll-multiple-vote-p poll)))
(with-output-to-string (stream)
(format stream "~3%")
(loop
for title in all-titles
for index in all-rendered-indices

3
src/ui-goodies.lisp
View File

@ -567,7 +567,8 @@ Force the checking for new message in the thread the selected message belong."
(line-oriented-window:selected-row-fields specials:*thread-window*))
(timeline (thread-window:timeline-type specials:*thread-window*))
(folder (thread-window:timeline-folder specials:*thread-window*))
(status-id (db:row-message-status-id selected-message))
(status-id (or (db:row-message-reblog-id selected-message)
(db:row-message-status-id selected-message)))
(expand-event (make-instance 'expand-thread-event
:new-folder folder
:new-timeline timeline