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

- input dialog reurn :canceled if the user pressed the 'cancel' button; 

- fixed an infinite loop when the user chose to cancel saving the URI to autorize the client.
This commit is contained in:
cage 2023-02-11 21:01:58 +01:00
parent 5ee623d312
commit 9e7966f697
2 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/api-client.lisp
View File

@ -233,6 +233,7 @@ Returns nil if the user did not provided a server in the configuration file"
(save-credentials () (save-credentials ()
(let* ((message (_ "Please enter below the file where to save the address")) (let* ((message (_ "Please enter below the file where to save the address"))
(filepath (ui:input-dialog-immediate message))) (filepath (ui:input-dialog-immediate message)))
(when (not (eq filepath :canceled))
(cond (cond
((null filepath) ((null filepath)
(save-credentials)) (save-credentials))
@ -244,7 +245,7 @@ Returns nil if the user did not provided a server in the configuration file"
(save-credentials))) (save-credentials)))
(t (t
(fs:dump-sequence-to-file url filepath) (fs:dump-sequence-to-file url filepath)
(notify-file-saved filepath)))))) (notify-file-saved filepath)))))))
(cond (cond
((string= choosen open-item) ((string= choosen open-item)
(os-utils:xdg-open url) (os-utils:xdg-open url)

3
src/windows.lisp
View File

@ -653,7 +653,8 @@ inserted by the user"
(let ((res (croatoan:edit low-level-window))) (let ((res (croatoan:edit low-level-window)))
(setf (c:cursor-visible-p screen-low-level) nil) (setf (c:cursor-visible-p screen-low-level) nil)
(win-close window) (win-close window)
(and res (if (null res)
:canceled
(c:value field)))))) (c:value field))))))
(defun make-checklist-dialog (screen parent title options) (defun make-checklist-dialog (screen parent title options)