1 ;;; riece-display.el --- buffer arrangement
2 ;; Copyright (C) 1998-2003 Daiki Ueno
4 ;; Author: Daiki Ueno <ueno@unixuser.org>
6 ;; Keywords: IRC, riece
8 ;; This file is part of Riece.
10 ;; This program 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 ;; This program 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.
27 (require 'riece-options)
28 (require 'riece-channel)
30 (require 'riece-layout)
32 (defvar riece-channel-buffer-format "*Channel:%s*"
33 "Format of channel message buffer.")
34 (defvar riece-channel-buffer-alist nil
35 "An alist mapping identities to channel buffers.")
37 (defvar riece-update-buffer-functions nil
38 "Functions to redisplay the buffer.
39 Local to the buffer in `riece-buffer-list'.")
41 (defvar riece-update-indicator-functions
42 '(riece-update-status-indicators
43 riece-update-channel-indicator
44 riece-update-long-channel-indicator
45 riece-update-channel-list-indicator)
46 "Functions to update modeline indicators.")
48 (defun riece-update-user-list-buffer ()
50 (set-buffer riece-user-list-buffer)
51 (if (and riece-current-channel
52 (riece-channel-p (riece-identity-prefix riece-current-channel)))
54 (with-current-buffer (process-buffer (riece-server-process
55 (riece-identity-server
56 riece-current-channel)))
57 (riece-channel-get-users (riece-identity-prefix
58 riece-current-channel))))
62 (riece-kill-all-overlays)
64 (insert (if (memq ?o (cdr (car users)))
66 (if (memq ?v (cdr (car users)))
69 (riece-format-identity
70 (riece-make-identity (car (car users))
71 (riece-identity-server
72 riece-current-channel))
75 (setq users (cdr users)))))))
77 (defun riece-update-channel-list-buffer ()
79 (set-buffer riece-channel-list-buffer)
80 (let ((inhibit-read-only t)
83 (channels riece-current-channels))
85 (riece-kill-all-overlays)
88 (insert (riece-format-channel-list-line
89 index (car channels))))
90 (setq index (1+ index)
91 channels (cdr channels))))))
93 (defun riece-format-channel-list-line (index channel)
94 (or (run-hook-with-args-until-success
95 'riece-format-channel-list-line-functions index channel)
96 (concat (format "%2d:%c" index
97 (if (riece-identity-equal channel riece-current-channel)
100 (riece-format-identity channel)
103 (defun riece-update-channel-indicator ()
104 (setq riece-channel-indicator
105 (if riece-current-channel
106 (riece-format-identity riece-current-channel)
109 (defun riece-update-long-channel-indicator ()
110 (setq riece-long-channel-indicator
111 (if riece-current-channel
112 (if (riece-channel-p (riece-identity-prefix riece-current-channel))
113 (riece-concat-channel-modes
114 riece-current-channel
115 (riece-concat-channel-topic
116 riece-current-channel
117 (riece-format-identity riece-current-channel)))
118 (riece-format-identity riece-current-channel))
121 (defun riece-update-channel-list-indicator ()
122 (if (and riece-current-channels
123 ;; There is at least one channel.
124 (delq nil (copy-sequence riece-current-channels)))
126 (setq riece-channel-list-indicator
134 (format "%d:%s" index
135 (riece-format-identity channel)))
136 (setq index (1+ index))))
137 riece-current-channels))
139 (setq riece-channel-list-indicator "No channel")))
141 (defun riece-update-status-indicators ()
142 (if riece-current-channel
143 (with-current-buffer riece-command-buffer
144 (riece-with-server-buffer (riece-identity-server riece-current-channel)
145 (setq riece-away-indicator
146 (if (and riece-real-nickname
147 (riece-user-get-away riece-real-nickname))
150 riece-operator-indicator
151 (if (and riece-real-nickname
152 (riece-user-get-operator riece-real-nickname))
155 riece-user-indicator riece-real-nickname))))
156 (setq riece-freeze-indicator
157 (with-current-buffer (if (and riece-channel-buffer-mode
158 riece-channel-buffer)
160 riece-dialogue-buffer)
161 (if (eq riece-freeze 'own)
167 (defun riece-update-buffers (&optional buffers)
169 (setq buffers riece-buffer-list))
172 (set-buffer (car buffers))
173 (run-hooks 'riece-update-buffer-functions))
174 (setq buffers (cdr buffers)))
175 (run-hooks 'riece-update-indicator-functions)
176 (force-mode-line-update t)
177 (run-hooks 'riece-update-buffer-hook))
179 (defun riece-channel-buffer-name (identity)
180 (let ((channels (riece-identity-member identity riece-current-channels)))
182 (setq identity (car channels))
184 (message "%S is not a member of riece-current-channels" identity)))
185 (format riece-channel-buffer-format (riece-format-identity identity))))
188 (autoload 'riece-channel-mode "riece"))
189 (defun riece-channel-buffer-create (identity)
191 (riece-get-buffer-create (riece-channel-buffer-name identity)
193 (setq riece-channel-buffer-alist
194 (cons (cons identity (current-buffer))
195 riece-channel-buffer-alist))
196 (unless (eq major-mode 'riece-channel-mode)
198 (let (buffer-read-only)
199 (riece-insert-info (current-buffer)
200 (concat "Created on "
201 (funcall riece-format-time-function
204 (run-hook-with-args 'riece-channel-buffer-create-functions identity)))
207 (defun riece-channel-buffer (identity)
208 (cdr (riece-identity-assoc identity riece-channel-buffer-alist)))
210 (defun riece-switch-to-channel (identity)
211 (let ((last riece-current-channel))
212 (setq riece-current-channel identity
213 riece-channel-buffer (riece-channel-buffer riece-current-channel))
214 (run-hook-with-args 'riece-after-switch-to-channel-functions last)))
216 (defun riece-join-channel (identity)
217 (unless (riece-identity-member identity riece-current-channels)
218 (setq riece-current-channels
219 (riece-identity-assign-binding
220 identity riece-current-channels
224 (riece-parse-identity channel)))
225 riece-default-channel-binding)))
226 (riece-channel-buffer-create identity)))
228 (defun riece-switch-to-nearest-channel (pointer)
229 (let ((start riece-current-channels)
231 (while (and start (not (eq start pointer)))
233 (setq identity (car start)))
234 (setq start (cdr start)))
237 (null (car pointer)))
238 (setq pointer (cdr pointer)))
239 (setq identity (car pointer)))
241 (riece-switch-to-channel identity)
242 (let ((last riece-current-channel))
243 (run-hook-with-args 'riece-after-switch-to-channel-functions last)
244 (setq riece-current-channel nil)))))
246 (defun riece-part-channel (identity)
247 (let ((pointer (riece-identity-member identity riece-current-channels)))
249 (setcar pointer nil))
250 (if (riece-identity-equal identity riece-current-channel)
251 (riece-switch-to-nearest-channel pointer))))
253 (defun riece-redisplay-buffers (&optional force)
254 (riece-update-buffers)
255 (riece-redraw-layout force)
256 (run-hooks 'riece-redisplay-buffers-hook))
258 (provide 'riece-display)
260 ;;; riece-display.el ends here