1 ;;; riece-globals.el --- global variables and constants.
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 ;;; Miscellaneous global variables:
28 (defvar riece-server-process nil
29 "Primary server process.")
30 (defvar riece-server-process-alist nil
31 "An alist mapping secondary server name to opened processes.")
33 (defvar riece-current-channel nil
34 "The channel you currently have joined.")
35 (defvar riece-current-channels nil
36 "The channels you have currently joined.")
38 (defvar riece-save-variables-are-dirty nil
39 "Non nil if the variables in `riece-saved-forms' are changed.")
41 (defvar riece-polling 0
42 "Interval for polling the server.")
44 (defvar riece-reconnect-with-password nil
45 "If non-nil, attempt to reconnect with password.")
47 (defvar riece-obarray-size 1327
48 "The size of obarray used by riece on channelname and username space.")
50 ;;; Variables local to the server buffers:
51 (defvar riece-server-name nil
52 "The name of the server.
53 Local to the server buffers.")
54 (defvar riece-real-nickname nil
55 "Your nickname the server offers.
56 Local to the server buffers.")
57 (defvar riece-last-nickname nil
58 "The last nickname you requested.
59 Local to the server buffers.")
60 (defvar riece-nick-accepted nil
61 "The flag your nickname is accepted by the server.
62 Possible values are nil, `ok', and `sent'.
63 Local to the server buffers.")
64 (defvar riece-real-server-name nil
65 "The server name offered by the server.
66 Local to the server buffers.")
67 (defvar riece-real-userhost nil
68 "Your hostname the server offers.
69 Local to the server buffers.")
70 (defvar riece-user-at-host ""
71 "The user@host for the current input.
72 Local to the server buffers.")
73 (defvar riece-user-at-host-type nil
74 "The authentication type of `riece-user-at-host'.
75 Possible values are 'ok 'not-verified 'fake or 'invalid.
76 Local to the server buffers.")
77 (defvar riece-supported-user-modes nil
78 "User modes supported by server.
79 Local to the server buffers.")
80 (defvar riece-supported-channel-modes nil
81 "Channel modes supported by server.
82 Local to the server buffers.")
83 (defvar riece-channel-filter ""
84 "Filter of the result of NAMES or LIST.
85 This enables us to use \\[universal-argument] with NAMES and TOPIC.
86 Local to the server buffers.")
87 (defvar riece-read-point nil
88 "Point at the last input was seen.
89 Local to the server buffers.")
90 (defvar riece-obarray nil
91 "Namespace of the IRC world.
92 Local to the server buffers.")
93 (defvar riece-coding-system nil
94 "Coding system for process I/O.
95 Local to the server buffers.")
97 ;;; Variables local to the command buffer:
98 (defvar riece-default-channel-candidate nil
99 "A channel name used as completion candidate.
100 Local to the command buffer.")
101 (defvar riece-last-channel nil
102 "The channel you joined the last time.")
103 (defvar riece-command-buffer-mode 'channel
104 "Command buffer mode.
105 Possible values are `chat' and `channel'.
106 Local to the command buffer.")
108 ;;; Variables local to the channel buffers:
109 (defvar riece-freeze nil
110 "If t, channel window is not scrolled.
111 If 'own, channel window is not scrolled until you speak.
112 Local to the channel buffers.")
114 ;;; Modeline indicators:
115 (defvar riece-channel-indicator "None"
116 "A modeline indicator of the current channel.")
117 (defvar riece-channel-list-indicator "No channel"
118 "The current joined channels, \"pretty-printed.\".")
119 (defvar riece-user-indicator nil)
121 (defvar riece-away-indicator "-")
122 (defvar riece-operator-indicator "-")
123 (defvar riece-freeze-indicator "-")
126 (defvar riece-command-buffer "*Commands*"
127 "Name of command input buffer.")
128 (defvar riece-dialogue-buffer "*Dialogue*"
129 "Name of dialogue output buffer.")
130 (defvar riece-private-buffer "*Private*"
131 "Name of private message buffer.")
132 (defvar riece-others-buffer "*Others*"
133 "Name of others message buffer.")
134 (defvar riece-channel-buffer nil
135 "Name of channel message buffer.")
136 (defvar riece-channel-buffer-format "*Channel:%s*"
137 "Format of channel message buffer.")
138 (defvar riece-channel-list-buffer " *Channels*"
139 "Name of channel list buffer.")
140 (defvar riece-user-list-buffer nil
141 "Name of user list buffer.")
142 (defvar riece-user-list-buffer-format " *Users:%s*"
143 "Format of user list buffer.")
144 (defvar riece-wallops-buffer " *WALLOPS*")
146 (defvar riece-channel-buffer-alist nil)
147 (defvar riece-user-list-buffer-alist nil)
148 (defvar riece-buffer-list nil)
149 (defvar riece-overriding-server-name nil)
151 (defconst riece-change-prefix "*** Change: ")
152 (defconst riece-notice-prefix "*** Notice: ")
153 (defconst riece-wallops-prefix "*** Notice: ")
154 (defconst riece-error-prefix "*** Error: ")
155 (defconst riece-info-prefix "*** Info: ")
156 (defconst riece-prefix-regexp "\\*\\*\\* \\([^:]+: \\)")
158 (defconst riece-time-prefix-regexp "[0-9][0-9]:[0-9][0-9] ")
160 (provide 'riece-globals)
162 ;;; riece-globals.el ends here