From 8a2ba82b0db09672094bbbbd726202a14d726c0d Mon Sep 17 00:00:00 2001 From: cage Date: Thu, 15 Feb 2024 16:21:23 +0100 Subject: [PATCH] - [GUI] added confirmation from user before deleting a certificate. --- src/gui/client/certificates-window.lisp | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/src/gui/client/certificates-window.lisp b/src/gui/client/certificates-window.lisp index f6fe866..f2fc9f0 100644 --- a/src/gui/client/certificates-window.lisp +++ b/src/gui/client/certificates-window.lisp @@ -45,14 +45,15 @@ (defun delete-certificates-clsr (certificate-frame) (lambda () (a:when-let* ((selections (gui:treeview-get-selection (gui-goodies:tree certificate-frame)))) - (loop for selection in selections do - (let ((url (gui:id selection))) - (ev:with-enqueued-process-and-unblock () - (comm:make-request :gemini-delete-client-certificate - 1 - url)) - (let ((new-rows (all-rows))) - (resync-rows certificate-frame new-rows))))))) + (when (gui-goodies:confirm-deletion certificate-frame (length selections)) + (loop for selection in selections do + (let ((url (gui:id selection))) + (ev:with-enqueued-process-and-unblock () + (comm:make-request :gemini-delete-client-certificate + 1 + url)) + (let ((new-rows (all-rows))) + (resync-rows certificate-frame new-rows)))))))) (defun contextual-menu-clrs (treeview-widget) (labels ((row-values ()