mirror of https://codeberg.org/cage/tinmop/
- [fediverse] used quoted lines in reply's text.
This commit is contained in:
parent
053dc9aafc
commit
754cc80bb4
|
@ -2103,7 +2103,7 @@ local file paths."
|
||||||
:exclusive t))
|
:exclusive t))
|
||||||
|
|
||||||
(defun init-main-window (starting-iri)
|
(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)
|
(gui:with-nodgui (:title +program-name+ :debugger-class 'gui:graphical-condition-handler)
|
||||||
(icons:load-icons)
|
(icons:load-icons)
|
||||||
(setf gui-goodies:*toplevel* gui:*tk*)
|
(setf gui-goodies:*toplevel* gui:*tk*)
|
||||||
|
|
|
@ -1381,11 +1381,14 @@ It an existing file path is provided the command will refuse to run."
|
||||||
;; in db (folder, timeline).
|
;; in db (folder, timeline).
|
||||||
(when-let* ((message (db:find-message-id reply-id))
|
(when-let* ((message (db:find-message-id reply-id))
|
||||||
(reply-username (db:row-message-username message))
|
(reply-username (db:row-message-username message))
|
||||||
(quoted-text (db:row-message-rendered-text message))
|
(rendered-text (db:row-message-rendered-text message))
|
||||||
(lines (split-lines quoted-text))
|
(lines (split-lines rendered-text))
|
||||||
(quote-mark (swconf:quote-char))
|
(quote-mark (swconf:quote-char))
|
||||||
(quoted-lines (mapcar (lambda (a) (strcat quote-mark a))
|
(quoted-text (strcat quote-mark
|
||||||
lines)))
|
(join-with-strings lines
|
||||||
|
(format nil
|
||||||
|
"~%~a"
|
||||||
|
quote-mark)))))
|
||||||
(with-open-file (stream
|
(with-open-file (stream
|
||||||
file
|
file
|
||||||
:if-exists :append
|
:if-exists :append
|
||||||
|
|
Loading…
Reference in New Issue