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

- [fediverse] used quoted lines in reply's text.

This commit is contained in:
cage 2024-09-25 21:46:32 +02:00
parent 053dc9aafc
commit 754cc80bb4
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/gui/client/main-window.lisp
View File

@ -2103,7 +2103,7 @@ local file paths."
:exclusive t))
(defun init-main-window (starting-iri)
(setf gui:*debug-tk* nil)
(setf gui:*debug-tk* t)
(gui:with-nodgui (:title +program-name+ :debugger-class 'gui:graphical-condition-handler)
(icons:load-icons)
(setf gui-goodies:*toplevel* gui:*tk*)

11
src/ui-goodies.lisp
View File

@ -1381,11 +1381,14 @@ It an existing file path is provided the command will refuse to run."
;; in db (folder, timeline).
(when-let* ((message (db:find-message-id reply-id))
(reply-username (db:row-message-username message))
(quoted-text (db:row-message-rendered-text message))
(lines (split-lines quoted-text))
(rendered-text (db:row-message-rendered-text message))
(lines (split-lines rendered-text))
(quote-mark (swconf:quote-char))
(quoted-lines (mapcar (lambda (a) (strcat quote-mark a))
lines)))
(quoted-text (strcat quote-mark
(join-with-strings lines
(format nil
"~%~a"
quote-mark)))))
(with-open-file (stream
file
:if-exists :append