- added command 'clear-cached-client-tls-certificates'.

etc/init.lisp

@@ -559,6 +559,8 @@
 
 (define-key "c"         #'gemini-change-certificate-password         *gemini-certificates-keymap*)
 
+(define-key "D"         #'clear-cached-client-tls-certificates       *gemini-certificates-keymap*)
+
 ;; gemini subscription window
 
 (define-key "C-J"       #'show-gemlog-to-screen                      *gemlog-subscription-keymap*)

src/os-utils.lisp

@@ -195,7 +195,6 @@
                                           :wait t)))
       (process-exit-success-p process))))
 
-
 (defun send-to-pipe (data program-and-args)
   (croatoan:end-screen)
   (with-input-from-string (stream data)

src/package.lisp

@@ -3093,6 +3093,7 @@
    :open-gemini-address
    :net-address-history-back
    :delete-shown-post
+   :clear-cached-client-tls-certificates
    :address-go-back-in-path
    :address-go-root-path
    :gemini-view-source

src/ui-goodies.lisp

@@ -3586,3 +3586,8 @@ gemini client certificates!)."
   (thread-window:mark-selected-message-to-delete *thread-window*
                                                  :move-down-selected-message nil)
   (focus-to-thread-window))
+
+(defun clear-cached-client-tls-certificates ()
+  "Delete all the password for TLS certificates that has been cached in memory."
+  (gemini-client:clear-cache-certificate-password)
+  (info-message (_ "Cache for TLS passord cleared")))