- added slot 'modalp' to class wrapper-window.

etc/init.lisp

@@ -142,6 +142,8 @@
 (define-key "C-q"       #'quit)   ;  here we  are calling  the custom
                                   ; function defined above
 
+(define-key "C-I"       #'pass-focus-clockwise)
+
 (define-key "C-a"       #'show-about-window)
 
 (define-key "C d"       #'clear-cache)

src/open-message-link-window.lisp

@@ -16,17 +16,13 @@
 
 (in-package :open-message-link-window)
 
-(defclass open-message-link-window (open-attach-window:open-attach-window)
-  ((center-position
-    :initform nil
-    :initarg  :center-position
-    :reader   center-position-p
-    :writer   (setf center-position))))
+
+(defclass open-message-link-window (open-attach-window:open-attach-window) ())
 
 (defmethod refresh-config :after ((object open-message-link-window))
   (open-attach-window:refresh-view-links-window-config object
                                                        swconf:+key-open-message-link-window+
-                                                       :center-position (center-position-p object)))
+                                                       :center-position (modalp object)))
 
 (defmethod resync-rows-db ((object open-message-link-window) &key
                                                                (redraw t)
@@ -114,7 +110,7 @@
 (defmethod refresh-config :after ((object open-gemini-document-link-window))
   (open-attach-window:refresh-view-links-window-config object
                                                        swconf:+key-open-message-link-window+
-                                                       :center-position (center-position-p object)))
+                                                       :center-position (modalp object)))
 
 (defmethod resync-rows-db ((object open-gemini-document-link-window)
                            &key

src/package.lisp

@@ -1746,6 +1746,8 @@
    :refresh-config-color-map
    :wrapper-window
    :croatoan-window
+   :modalp
+   :modal
    :with-croatoan-window
    :+min-shown-win-height+
    :+min-shown-win-width+
@@ -2819,6 +2821,7 @@
    :pass-focus-on-right
    :pass-focus-on-bottom
    :pass-focus-on-top
+   :pass-focus-clockwise
    :ask-input-on-tofu-error
    :import-gemini-certificate
    :bookmark-gemini-page

src/ui-goodies.lisp

@@ -547,6 +547,13 @@ current has focus"
                  (> (win-x a) (win-x b))))
         (pass-focus #'all-adjacent-fn #'intersect-fn #'sort-predicate)))))
 
+(defun pass-focus-clockwise ()
+  "Move focus to next window in clockwise order"
+  (or (pass-focus-on-right)
+      (pass-focus-on-bottom)
+      (pass-focus-on-left)
+      (pass-focus-on-top)))
+
 (defmacro gen-focus-to-window (function-suffix window-get-focus
                                &key
                                  (info-change-focus-message (_ "Focus changed"))

src/windows.lisp

@@ -86,7 +86,12 @@
     :initform nil
     :initarg  :keybindings
     :accessor keybindings
-    :documentation "The keymap associated to this window"))
+    :documentation "The keymap associated to this window")
+   (modal
+    :initform nil
+    :initarg  :modal
+    :reader   modalp
+    :writer   (setf modalp)))
   (:documentation "This is the parent of all the windows in this program"))
 
 (defmethod initialize-instance :after ((object wrapper-window) &key &allow-other-keys)