Add a function/keybind to delete invisible frames

Workaround for annoying "Attempt to delete a surrogate minibuffer
frame" issues when closing frames

.emacs.d/init.el

@@ -295,12 +295,19 @@
             #'(lambda () (setq-local show-trailing-whitespace t))))
 
 (use-package frame :demand
+  :bind ("C-x C-S-c" . delete-invisible-frames)
   :config
   (defun suspend-frame ()
     "If running in a secondary tty, call `suspend-tty', else nop"
     (interactive)
     (when (eq (framep (selected-frame)) t)
-        (suspend-tty))))
+      (suspend-tty)))
+  (defun delete-invisible-frames ()
+    "Delete all non-visible frames, to fix \"Attempt to delete a surrogate minibuffer frame\" issues"
+    (interactive)
+    (mapc (lambda (frame)
+            (unless (frame-visible-p frame) (delete-frame frame)))
+          (frame-list))))
 
 (use-package cc-styles
   :config