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

- [gemini] prevent overwriting of TOFU warning by other messages.

This commit is contained in:
cage 2020-11-01 18:01:32 +01:00
parent 378ec7fb96
commit 1c1c94a56a
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/gemini-viewer.lisp
View File

@ -529,7 +529,8 @@
:prompt
(format nil
(_ "Host ~s signature changed! This is a potential security risk! Ignore this warning? [y/N] ")
host)))))
host)
:priority program-events:+standard-event-priority+))))
(conditions:not-implemented-error (e)
(ui:notify (format nil (_ "Error: ~a") e)
:as-error t))

8
src/ui-goodies.lisp
View File

@ -141,13 +141,15 @@
(defun input-dialog-immediate (message)
(windows:make-input-dialog *main-window* *main-window* message))
(defun error-message (message)
(defun error-message (message &optional (priority +standard-event-priority+))
(let ((event (make-instance 'error-message-event
:priority priority
:payload message)))
(push-event event)))
(defun info-message (message)
(defun info-message (message &optional (priority +standard-event-priority+))
(let ((event (make-instance 'info-message-event
:priority priority
:payload message)))
(push-event event)))
@ -360,7 +362,7 @@ Metadata includes:
(setf (windows:in-focus win) nil))
(windows:draw-all)
(when info-change-focus-message
(info-message info-change-focus-message)))
(info-message info-change-focus-message +maximum-event-priority+)))
(defmacro gen-focus-to-window (function-suffix window-get-focus
&key