From: ueno Date: Mon, 20 Oct 2003 01:47:42 +0000 (+0000) Subject: * riece-options.el (riece-saved-forms): Add riece-layout. X-Git-Tag: riece-0_1_5~27 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bd6dd3e3ae3eb5d4875bb877df528d04925472dc;p=elisp%2Friece.git * riece-options.el (riece-saved-forms): Add riece-layout. * riece-layout.el (riece-layout-alist): Change format. (riece-configure-windows): Take 2 args to specify the position of the command buffer window. * riece-commands.el (riece-command-change-layout): Set riece-save-variables-are-dirty. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b07c9a7..98e3737 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,14 @@ +2003-10-20 Daiki Ueno + + * riece-options.el (riece-saved-forms): Add riece-layout. + + * riece-layout.el (riece-layout-alist): Change format. + (riece-configure-windows): Take 2 args to specify the position of + the command buffer window. + + * riece-commands.el (riece-command-change-layout): Set + riece-save-variables-are-dirty. + 2003-10-19 Daiki Ueno * Riece: Version 0.1.4 released. diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el index c1ab9f7..580e77a 100644 --- a/lisp/riece-commands.el +++ b/lisp/riece-commands.el @@ -117,7 +117,8 @@ "Select a layout-name from all current available layouts and change the layout to the selected layout-name." (interactive (list (completing-read "Layout: " riece-layout-alist))) - (setq riece-layout name) + (setq riece-layout name + riece-save-variables-are-dirty t) (riece-command-configure-windows)) (defun riece-command-toggle-channel-buffer-mode () diff --git a/lisp/riece-layout.el b/lisp/riece-layout.el index 44d1576..3e1af90 100644 --- a/lisp/riece-layout.el +++ b/lisp/riece-layout.el @@ -38,15 +38,24 @@ :group 'riece-layout) (defcustom riece-layout-alist - '(("default" riece-configure-windows riece-reconfigure-windows-predicate) - ("top" riece-configure-windows-top riece-reconfigure-windows-predicate)) + '(("middle-right" riece-configure-windows right middle) + ("middle-left" riece-configure-windows left middle) + ("top-right" riece-configure-windows right top) + ("top-left" riece-configure-windows left top) + ("bottom-right" riece-configure-windows right bottom) + ("bottom-left" riece-configure-windows left bottom) + ("top" riece-configure-windows-top) + ("default" . "middle-right")) "An alist mapping the names to layout functions. -An element of this alist is in the following form: -(NAME CONFIGURE-FUNCTION RECONFIGURE-PREDICATE) -NAME is a string which specifies the layout setting. -CONFIGURE-FUNCTION is a function which does window splitting, etc. -RECONFIGURE-PREDICATE is a function to examine whether windows -reconfiguration is needed." +An element of this alist is either in the following forms: + +(NAME CONFIGURE-FUNCTION [PARAMETERS]) +(NAME1 . NAME2) + +In the first form, NAME is a string which specifies the layout +setting, and CONFIGURE-FUNCTION is a function which does window +splitting, etc. PARAMETERS are collected and passed to CONFIGURE-FUNCTION. +In the second form, NAME1 is an alias for NAME2." :type 'list :group 'riece-layout) @@ -57,9 +66,12 @@ happen unconditionally." (let ((layout (cdr (assoc riece-layout riece-layout-alist)))) (unless layout (error "No such layout!")) - (if (or force - (funcall (nth 1 layout))) - (funcall (car layout))))) + (if (stringp layout) + (let ((riece-layout layout)) + (riece-redraw-layout force)) + (if (or force + (riece-reconfigure-windows-predicate)) + (apply (car layout) (cdr layout)))))) (defun riece-set-window-points () (if (get-buffer-window riece-user-list-buffer) @@ -73,9 +85,13 @@ happen unconditionally." (set-window-start (get-buffer-window riece-channel-list-buffer) (point-min)))))) -(defun riece-configure-windows () - "Configure windows. +(defun riece-reconfigure-windows-predicate () + "Return t, if window reconfiguration is needed. This function is used by \"default\" layout." + (memq (window-buffer (selected-window)) + riece-buffer-list)) + +(defun riece-configure-windows (hpos vpos) (let ((buffer (window-buffer)) (show-user-list (and riece-user-list-buffer-mode @@ -90,7 +106,14 @@ This function is used by \"default\" layout." (if (and riece-current-channel (or show-user-list riece-channel-list-buffer-mode)) (let ((rest-window (split-window (selected-window) - (/ (window-width) 5) t))) + (if (eq hpos 'left) + (- (window-width) + (/ (window-width) 5)) + (/ (window-width) 5)) + t))) + (when (eq hpos 'left) + (setq rest-window (selected-window)) + (other-window 1)) (if (and show-user-list riece-channel-list-buffer-mode) (progn (set-window-buffer (split-window) @@ -106,31 +129,49 @@ This function is used by \"default\" layout." (select-window rest-window))) (if (and riece-current-channel riece-channel-buffer-mode) - (let ((rest-window (split-window))) - (set-window-buffer (selected-window) - riece-channel-buffer) - (set-window-buffer (split-window rest-window 4) - riece-others-buffer) + (progn + (if (eq vpos 'top) + (let ((rest-window (split-window nil 4))) + (set-window-buffer (selected-window) + riece-command-buffer) + (select-window rest-window) + (set-window-buffer (split-window rest-window) + riece-others-buffer) + (set-window-buffer (selected-window) + riece-channel-buffer)) + (if (eq vpos 'middle) + (let ((rest-window (split-window))) + (set-window-buffer (selected-window) + riece-channel-buffer) + (set-window-buffer (split-window rest-window 4) + riece-others-buffer) + (set-window-buffer rest-window + riece-command-buffer)) + (let ((rest-window (split-window nil (- (window-height) 4)))) + (set-window-buffer (selected-window) + riece-others-buffer) + (set-window-buffer (split-window) + riece-channel-buffer) + (set-window-buffer rest-window + riece-command-buffer)))) (with-current-buffer riece-channel-buffer (setq truncate-partial-width-windows nil)) (with-current-buffer riece-others-buffer - (setq truncate-partial-width-windows nil)) - (set-window-buffer rest-window - riece-command-buffer)) - (set-window-buffer (split-window (selected-window) 4) - riece-dialogue-buffer) - (set-window-buffer (selected-window) - riece-command-buffer)) + (setq truncate-partial-width-windows nil))) + (if (eq vpos 'bottom) + (progn + (set-window-buffer (selected-window) + riece-command-buffer) + (set-window-buffer (split-window (selected-window) 4) + riece-dialogue-buffer)) + (set-window-buffer (split-window (selected-window) 4) + riece-dialogue-buffer) + (set-window-buffer (selected-window) + riece-command-buffer))) (riece-set-window-points) (select-window (or (get-buffer-window buffer) (get-buffer-window riece-command-buffer))))) -(defun riece-reconfigure-windows-predicate () - "Return t, if window reconfiguration is needed. -This function is used by \"default\" layout." - (memq (window-buffer (selected-window)) - riece-buffer-list)) - (defun riece-configure-windows-top (&optional plist) "Candidate of `riece-configure-windows-function'. PLIST accept :command-height, :user-list-width, and :channel-list-width." diff --git a/lisp/riece-options.el b/lisp/riece-options.el index 93be792..f07712f 100644 --- a/lisp/riece-options.el +++ b/lisp/riece-options.el @@ -38,7 +38,8 @@ (defcustom riece-saved-forms '(riece-server-alist riece-channel-buffer-mode - riece-user-list-buffer-mode) + riece-user-list-buffer-mode + riece-layout) "Variables saved after each session is completed." :type 'string :group 'riece-options)