1 ;;; gnus-win.el --- window configuration functions for Gnus
2 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000
3 ;; Free Software Foundation, Inc.
5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
29 (eval-when-compile (require 'cl))
33 (defgroup gnus-windows nil
34 "Window configuration."
37 (defcustom gnus-use-full-window t
38 "*If non-nil, use the entire Emacs screen."
42 (defvar gnus-window-configuration nil
43 "Obsolete variable. See `gnus-buffer-configuration'.")
45 (defcustom gnus-window-min-width 2
46 "*Minimum width of Gnus buffers."
50 (defcustom gnus-window-min-height 1
51 "*Minimum height of Gnus buffers."
55 (defcustom gnus-always-force-window-configuration nil
56 "*If non-nil, always force the Gnus window configurations."
60 (defvar gnus-buffer-configuration
64 (if gnus-carpal '(group-carpal 4))))
68 (if gnus-carpal '(summary-carpal 4))))
72 (eq gnus-picons-display-where 'picons))
76 (if gnus-carpal '(summary-carpal 4))
78 (vertical ((height . 5) (width . 15)
80 (left . -1) (top . 1))
90 (if gnus-carpal '(summary-carpal 4))
95 (if gnus-carpal '(server-carpal 2))))
99 (if gnus-carpal '(browse-carpal 2))))
102 (message 1.0 point)))
105 (article 1.0 point)))
115 (article 1.0 point)))
119 (edit-form 1.0 point)))
123 (edit-score 1.0 point)))
130 (message 1.0 point)))
133 (message 1.0 point)))
136 (message 1.0 point)))
140 (message 1.0 point)))
144 (if gnus-carpal '(summary-carpal 4))
145 ("*Shell Command Output*" 1.0)))
148 ("*Gnus Help Bug*" 0.5)
149 ("*Gnus Bug*" 1.0 point)))
153 ("*Score Trace*" 1.0)))
157 ("*Score Words*" 1.0)))
161 ("*Split Trace*" 1.0)))
168 (message 1.0 point))))
169 "Window configuration for all possible Gnus buffers.
170 See the Gnus manual for an explanation of the syntax used.")
172 (defvar gnus-window-to-buffer
173 '((group . gnus-group-buffer)
174 (summary . gnus-summary-buffer)
175 (article . gnus-article-buffer)
176 (server . gnus-server-buffer)
177 (browse . "*Gnus Browse Server*")
178 (edit-group . gnus-group-edit-buffer)
179 (edit-form . gnus-edit-form-buffer)
180 (edit-server . gnus-server-edit-buffer)
181 (group-carpal . gnus-carpal-group-buffer)
182 (summary-carpal . gnus-carpal-summary-buffer)