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

- [TITAN] fixed paremeter: 'size'.

This commit is contained in:
cage 2023-07-21 15:10:58 +02:00
parent 88c86f2def
commit e22b53e348
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/gui/client/titan-window.lisp
View File

@ -73,8 +73,8 @@
(setf has-error-p t) (setf has-error-p t)
(gui-goodies:notify-request-error (_ "Neither a file to upload has been specified nor text data has been typed"))) (gui-goodies:notify-request-error (_ "Neither a file to upload has been specified nor text data has been typed")))
(setf mime constants:+mime-type-text+ (setf mime constants:+mime-type-text+
size (length (gui:text data-text)) size (length trimmed-data-text)
titan-data (trim-blanks (gui:text data-text))))) titan-data trimmed-data-text)))
(when (not has-error-p) (when (not has-error-p)
(let ((query (gemini-client:make-titan-query mime size (gui:text token-entry)))) (let ((query (gemini-client:make-titan-query mime size (gui:text token-entry))))
(setf (uri:query url) query) (setf (uri:query url) query)