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

25
src/api-client.lisp
View File

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

7
src/windows.lisp
View File

@ -648,13 +648,14 @@ inserted by the user"
:croatoan-window low-level-window)))
(win-set-background window (make-win-background bg :color-fg fg))
(add-flush-left-text window message 2 :has-border-p t)
(win-refresh window)
(win-refresh window)
(setf (c:cursor-visible-p screen-low-level) t)
(let ((res (croatoan:edit low-level-window)))
(setf (c:cursor-visible-p screen-low-level) nil)
(win-close window)
(and res
(c:value field))))))
(if (null res)
:canceled
(c:value field))))))
(defun make-checklist-dialog (screen parent title options)
(with-croatoan-window (screen-low-level screen)