+++ /dev/null
-;;; riece-layout.el --- layout management
-;; Copyright (C) 1998-2003 Daiki Ueno
-
-;; Author: Daiki Ueno <ueno@unixuser.org>
-;; TAKAHASHI "beatmaria" Kaoru <kaoru@kaisei.org>
-;; Keywords: IRC, riece
-
-;; This file is part of Riece.
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
-
-;;; Code:
-
-(require 'riece-globals)
-(require 'riece-misc)
-
-(defgroup riece-layout nil
- "Window layouts."
- :prefix "riece-"
- :group 'riece)
-
-(defcustom riece-layout "default"
- "Current layout setting."
- :type 'string
- :group 'riece-layout)
-
-(defcustom riece-layout-alist
- '(("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)
- ("spiral" riece-configure-windows-spiral)
- ("default" . "middle-right"))
- "An alist mapping the names to layout functions.
-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)
-
-(defun riece-redraw-layout (&optional force)
- "Reconfigure windows with the current layout.
-If optional argument FORCE is non-nil, window reconfiguration will
-happen unconditionally."
- (let ((layout (cdr (assoc riece-layout riece-layout-alist))))
- (unless layout
- (error "No such 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)
- (with-current-buffer riece-user-list-buffer
- (unless (riece-frozen riece-user-list-buffer)
- (set-window-start (get-buffer-window riece-user-list-buffer)
- (point-min)))))
- (if (get-buffer-window riece-channel-list-buffer)
- (with-current-buffer riece-channel-list-buffer
- (unless (riece-frozen riece-channel-list-buffer)
- (set-window-start (get-buffer-window riece-channel-list-buffer)
- (point-min)))))
- (if (and riece-channel-buffer
- (get-buffer-window riece-channel-buffer))
- (with-current-buffer riece-channel-buffer
- (if (riece-frozen riece-channel-buffer)
- (if riece-channel-buffer-window-point
- (set-window-point (get-buffer-window riece-channel-buffer)
- riece-channel-buffer-window-point))
- (set-window-point (get-buffer-window riece-channel-buffer)
- (point-max)))))
- (if (get-buffer-window riece-others-buffer)
- (with-current-buffer riece-others-buffer
- (unless (riece-frozen riece-others-buffer)
- (set-window-point (get-buffer-window riece-others-buffer)
- (point-max)))))
- (if (get-buffer-window riece-dialogue-buffer)
- (with-current-buffer riece-dialogue-buffer
- (unless (riece-frozen riece-dialogue-buffer)
- (set-window-point (get-buffer-window riece-dialogue-buffer)
- (point-max))))))
-
-(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
- riece-current-channel
- ;; User list buffer is nuisance for private conversation.
- (riece-channel-p (riece-identity-prefix
- riece-current-channel)))))
- ;; Can't expand minibuffer to full frame.
- (if (eq (selected-window) (minibuffer-window))
- (other-window 1))
- (delete-other-windows)
- (if (and riece-current-channel
- (or show-user-list riece-channel-list-buffer-mode))
- (let ((rest-window (split-window (selected-window)
- (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)
- riece-channel-list-buffer)
- (set-window-buffer (selected-window)
- riece-user-list-buffer))
- (if show-user-list
- (set-window-buffer (selected-window)
- riece-user-list-buffer)
- (if riece-channel-list-buffer-mode
- (set-window-buffer (selected-window)
- riece-channel-list-buffer))))
- (select-window rest-window)))
- (if (and riece-current-channel
- riece-channel-buffer-mode)
- (progn
- (if (eq vpos 'top)
- (let ((rest-window (split-window nil 4)))
- (set-window-buffer (selected-window)
- riece-command-buffer)
- (select-window rest-window)
- (if riece-others-buffer-mode
- (set-window-buffer (split-window rest-window)
- riece-others-buffer))
- (set-window-buffer (selected-window)
- riece-channel-buffer))
- (if (and (eq vpos 'middle)
- riece-others-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)
- (set-window-buffer rest-window
- riece-command-buffer))
- (let ((rest-window (split-window nil (- (window-height) 4))))
- (if riece-others-buffer-mode
- (progn
- (set-window-buffer (selected-window)
- riece-others-buffer)
- (set-window-buffer (split-window)
- riece-channel-buffer))
- (set-window-buffer (selected-window)
- riece-channel-buffer))
- (set-window-buffer rest-window
- riece-command-buffer)))))
- (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-configure-windows-top (&rest plist)
- "Candidate of `riece-configure-windows-function'.
-PLIST accept :command-height, :user-list-width, and :channel-list-width."
- (let ((command-height (or (plist-get plist :command-height) 4))
- (user-list-width (or (plist-get plist :user-list-width) (+ 9 1 1)))
- (channel-list-width (or (plist-get plist :channel-list-width) 18))
- (buffer (window-buffer))
- (show-user-list
- (and riece-user-list-buffer-mode
- riece-current-channel
- ;; User list buffer is nuisance for private conversation.
- (riece-channel-p (riece-identity-prefix
- riece-current-channel)))))
- ;; Can't expand minibuffer to full frame.
- (when (eq (selected-window) (minibuffer-window))
- (other-window 1))
- (delete-other-windows)
- ;; top of frame
- (let ((rest-window (split-window (selected-window) command-height)))
- (set-window-buffer (selected-window)
- riece-command-buffer)
- (select-window rest-window))
- ;; middle of frame (vertical-spilit when need)
- (when (or (and riece-current-channel riece-channel-buffer-mode)
- show-user-list)
- (let ((rest-window
- (split-window (selected-window)
- (/ (* 5 (+ (window-height) command-height)) 8))))
- (cond
- ;; channel-buffer + user-list
- ((and show-user-list
- (and riece-current-channel riece-channel-buffer-mode))
- (let ((user-list-window (split-window (selected-window) nil t)))
- (set-window-buffer (selected-window) riece-channel-buffer)
- (set-window-buffer user-list-window riece-user-list-buffer)
- (select-window user-list-window)
- (shrink-window-horizontally (- (window-width) user-list-width))))
- ;; only user-list
- (show-user-list
- (set-window-buffer (selected-window) riece-user-list-buffer))
- ;; only channel-buffer
- (riece-channel-buffer-mode
- (set-window-buffer (selected-window) riece-channel-buffer)))
- (select-window rest-window)))
- ;; bottom of frame
- (if (and riece-current-channel
- riece-channel-list-buffer-mode)
- (let ((channel-list-window (split-window (selected-window) nil t)))
- (set-window-buffer (selected-window) riece-others-buffer)
- (set-window-buffer channel-list-window riece-channel-list-buffer)
- (select-window channel-list-window)
- (shrink-window-horizontally (- (window-width) channel-list-width)))
- (set-window-buffer (selected-window) riece-dialogue-buffer))
- (riece-set-window-points)
- (select-window (or (get-buffer-window buffer)
- (get-buffer-window riece-command-buffer)))))
-
-;; +---+-------------------+---+
-;; | c | channel | u |
-;; | h | | s |
-;; | a | | e |
-;; | n |-------------------+ r | | +---+
-;; | n | command | s | | | |
-;; | e +-------------------+---+ | +-> |
-;; | l | others | +-----+
-;; | s | |
-;; +---+-----------------------+
-(defun riece-configure-windows-spiral ()
- "spiral placement of windows"
-;; (interactive)
- (let ((command-height 4)
- (users-width 15)
- (channels-width 30)
- (buffer (window-buffer)))
- (when (eq (selected-window) (minibuffer-window)) (other-window 1))
- (delete-other-windows)
-
- ;; (1) create channels window
- (let ((rest (split-window (selected-window) channels-width t)))
- (set-window-buffer (selected-window) riece-channel-list-buffer)
- (select-window rest))
-
- ;; (2) create others window
- (set-window-buffer (split-window (selected-window)
- (+ (/ (window-height) 2)
- command-height))
- riece-others-buffer)
-
- ;; (3) create users window
- (set-window-buffer (split-window (selected-window)
- (- (window-width) users-width) t)
- riece-user-list-buffer)
-
- ;; (4) create current channel window
- (let ((rest (split-window (selected-window)
- (- (window-height) command-height))))
- (set-window-buffer rest riece-command-buffer)
- (set-window-buffer (selected-window) riece-channel-buffer))
-
- (riece-set-window-points)
- (select-window (or (get-buffer-window buffer)
- (get-buffer-window riece-command-buffer)))))
-
-(provide 'riece-layout)
-
-;;; riece-layout.el ends here
projects / packages / blobdiff