* riece-display.el (riece-configure-windows-predicate): New function.

[riece] / lisp / riece-display.el

diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index 65de48d..b99f12b 100644 (file)
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -39,6 +39,12 @@
   :type 'function
   :group 'riece-looks)
 
+(defcustom riece-configure-windows-predicate
+  #'riece-configure-windows-predicate
+  "Function to check whether window reconfiguration is needed."
+  :type 'function
+  :group 'riece-looks)
+
 (defun riece-configure-windows ()
   (let ((buffer (current-buffer))
        (show-user-list
@@ -214,11 +220,15 @@
     (unless (riece-identity-assoc-no-server
             identity riece-channel-buffer-alist)
       (let ((buffer (riece-channel-buffer-create identity)))
-       (push (cons identity buffer) riece-channel-buffer-alist)))
+       (setq riece-channel-buffer-alist
+             (cons (cons identity buffer)
+                   riece-channel-buffer-alist))))
     (unless (riece-identity-assoc-no-server
             identity riece-user-list-buffer-alist)
       (let ((buffer (riece-user-list-buffer-create identity)))
-       (push (cons identity buffer) riece-user-list-buffer-alist)))))
+       (setq riece-user-list-buffer-alist
+             (cons (cons identity buffer)
+                   riece-user-list-buffer-alist))))))
 
 (defun riece-switch-to-nearest-channel (pointer)
   (let ((start riece-current-channels)
@@ -247,18 +257,21 @@
     (if (riece-identity-equal-no-server identity riece-current-channel)
        (riece-switch-to-nearest-channel pointer))))
 
+(defun riece-configure-windows-predicate ()
+  ;; The current channel is changed, and some buffers are visible.
+  (unless (equal riece-last-channel riece-current-channel)
+    (let ((buffers riece-buffer-list))
+      (catch 'found
+       (while buffers
+         (if (and (buffer-live-p (car buffers))
+                  (get-buffer-window (car buffers)))
+             (throw 'found t)
+           (setq buffers (cdr buffers))))))))
+
 (defun riece-redisplay-buffers (&optional force)
   (riece-update-buffers)
   (if (or force
-         ;; The current channel is changed, and some buffers are visible.
-         (unless (equal riece-last-channel riece-current-channel)
-           (let ((buffers riece-buffer-list))
-             (catch 'found
-               (while buffers
-                 (if (and (buffer-live-p (car buffers))
-                          (get-buffer-window (car buffers)))
-                     (throw 'found t)
-                   (setq buffers (cdr buffers))))))))
+         (funcall riece-configure-windows-predicate))
       (funcall riece-configure-windows-function)))
 
 (provide 'riece-display)