cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-15 07:50:36 +01:00
Code Issues

- [GUI] added confirmation from user before deleting a certificate.

Browse Source
This commit is contained in:
cage 2024-02-15 16:21:23 +01:00
parent 07d9c4aea9
commit 8a2ba82b0d
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/gui/client/certificates-window.lisp
View File

@ -45,14 +45,15 @@
(defun delete-certificates-clsr (certificate-frame) (defun delete-certificates-clsr (certificate-frame)
(lambda () (lambda ()
(a:when-let* ((selections (gui:treeview-get-selection (gui-goodies:tree certificate-frame)))) (a:when-let* ((selections (gui:treeview-get-selection (gui-goodies:tree certificate-frame))))
(loop for selection in selections do (when (gui-goodies:confirm-deletion certificate-frame (length selections))
(let ((url (gui:id selection))) (loop for selection in selections do
(ev:with-enqueued-process-and-unblock () (let ((url (gui:id selection)))
(comm:make-request :gemini-delete-client-certificate (ev:with-enqueued-process-and-unblock ()
1 (comm:make-request :gemini-delete-client-certificate
url)) 1
(let ((new-rows (all-rows))) url))
(resync-rows certificate-frame new-rows))))))) (let ((new-rows (all-rows)))
(resync-rows certificate-frame new-rows))))))))
(defun contextual-menu-clrs (treeview-widget) (defun contextual-menu-clrs (treeview-widget)
(labels ((row-values () (labels ((row-values ()