lisp/liece-globals.el

   1 ;;; liece-globals.el --- Global variables and constants.
   2 ;; Copyright (C) 1998-2000 Daiki Ueno
   3
   4 ;; Author: Daiki Ueno <ueno@unixuser.org>
   5 ;; Created: 1998-09-28
   6 ;; Revised: 1998-11-25
   7 ;; Keywords: IRC, liece
   8
   9 ;; This file is part of Liece.
  10
  11 ;; This program is free software; you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation; either version 2, or (at your option)
  14 ;; any later version.
  15
  16 ;; This program is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  24 ;; Boston, MA 02111-1307, USA.
  25
  26
  27 ;;; Commentary:
  28 ;;
  29
  30 ;;; Code:
  31
  32 (require 'liece-version)
  33
  34 (defvar liece-server-name nil)
  35 (defvar liece-server-process nil)
  36 (defvar liece-status-message-string nil)
  37 (defvar liece-polling 0
  38   "Wheter we are automatically polling the server.")
  39
  40 (defvar liece-real-nickname nil)
  41 (defvar liece-nick-accepted nil)
  42
  43 (defvar liece-current-channel nil
  44   "The channel you currently have joined.")
  45
  46 (defvar liece-current-channels nil
  47   "The channels you have currently joined.")
  48
  49 (defvar liece-current-chat-partner nil
  50   "The person you are in a private conversation with.")
  51
  52 (defvar liece-current-chat-partners nil
  53   "An list containing nics user is chatting with.")
  54
  55 (defvar liece-privmsg-partner nil
  56   "The person who got your last private message.")
  57
  58 (defvar liece-nick-alist nil
  59   "An alist containing the nicknames of users known to be on IRC.
  60 Each element in the list is a list containing a nickname.")
  61
  62 (defvar liece-channel-alist nil
  63   "An alist containing the channels on IRC.
  64 Each element in the list is  a list containing a channel name.")
  65
  66 (defvar liece-operator-alist nil
  67   "An alist of operators on channel.
  68 Each element in the list is a list containing a nickname.")
  69
  70 (defvar liece-supported-user-mode-alist nil
  71   "User modes supported by server.")
  72
  73 (defvar liece-supported-channel-mode-alist nil
  74   "Channel modes supported by server.")
  75
  76 ;; Caches
  77 (defvar liece-save-variables-are-dirty nil
  78   "Non nil if liece_vars.el is changed but not saved.")
  79
  80 (defvar liece-user-at-host ""
  81   "The user@host for the current line.")
  82
  83 (defvar liece-user-at-host-type nil
  84   "The authentication of uerathost.  'ok 'not-verified 'fake or 'invalid.")
  85
  86 (defvar liece-channel-filter ""
  87   "Enables use of \\[universal-argument] with NAMES and TOPIC.")
  88
  89 (defvar liece-default-channel-candidate nil)
  90
  91 (defvar liece-nickname-last nil
  92   "Place to keep old nickname.")
  93
  94 (defvar liece-friends-last nil)
  95 (defvar liece-who-expression nil)
  96
  97 (defconst liece-long-reply-max 38)
  98 (defvar liece-long-reply-count 0)
  99
 100 (defvar liece-obarray nil)
 101
 102 \f
 103 ;; Modeline indicators
 104 (defvar liece-channel-indicator "No channel"
 105   "The current channel, \"pretty-printed.\".")
 106
 107 (defvar liece-private-indicator nil
 108   "String displayed in the modeline indicating private conversation.")
 109
 110 (defvar liece-channels-indicator "No channel"
 111   "The current joined channels, \"pretty-printed.\".")
 112
 113 (defvar liece-away-indicator "-")
 114 (defvar liece-command-buffer-mode-indicator "Channels")
 115 (defvar liece-channel-status-indicator "")
 116
 117 (defvar liece-beep-indicator nil)
 118 (defvar liece-freeze-indicator nil)
 119 (defvar liece-own-freeze-indicator nil)
 120 (defvar liece-beep nil)
 121 (defvar liece-freeze nil)
 122 (defvar liece-own-freeze nil)
 123
 124 (defvar liece-own-freeze nil
 125   "If non-nil, dialogue window will not be scrolled automatically.")
 126
 127 (defvar liece-command-buffer-mode 'channel
 128   "Current command buffer mode.
 129 Which value is 'chat or 'channel.")
 130
 131 ;; Buffers
 132 (defvar liece-command-buffer "*Commands*"
 133   "Name of command input buffer.")
 134
 135 (defvar liece-dialogue-buffer "*Dialogue*"
 136   "Name of dialogue output buffer.")
 137
 138 (defvar liece-private-buffer "*Private*"
 139   "Name of private message buffer.")
 140
 141 (defvar liece-others-buffer "*Others*"
 142   "Name of others message buffer.")
 143
 144 (defvar liece-channel-buffer "*Channel*"
 145   "Name of Channel message buffer.")
 146
 147 (defvar liece-channel-buffer-format " *Channel:%s*"
 148   "Format of Channel message buffer.")
 149
 150 (defvar liece-channel-list-buffer "*Channels*"
 151   "Name of Channel list buffer.")
 152
 153 (defvar liece-nick-buffer " *Nicks*"
 154   "Name of nick list message buffer.")
 155
 156 (defvar liece-nick-buffer-format " *Nicks:%s*"
 157   "Format of nick list buffer.")
 158
 159 (defvar liece-KILLS-buffer " *KILLS*")
 160 (defvar liece-IGNORED-buffer " *IGNORED*")
 161 (defvar liece-WALLOPS-buffer " *WALLOPS*")
 162
 163 (defvar liece-server-buffer nil)
 164
 165 ;; Buffer display variables
 166 (defvar liece-channel-buffer-alist nil)
 167 (defvar liece-nick-buffer-alist nil)
 168
 169 (defvar liece-buffer-list nil
 170   "A list of buffers used in displaying messages.")
 171
 172 (defvar liece-D-buffer (list liece-dialogue-buffer)
 173   "A list of buffer where normal dialogue is sent.")
 174
 175 (defvar liece-O-buffer (list liece-others-buffer)
 176   "A list of buffer where other messages are sent.")
 177
 178 (defvar liece-P-buffer
 179   (list liece-dialogue-buffer liece-private-buffer liece-others-buffer)
 180   "A list of buffers where private messages to me are sent.")
 181
 182 (defvar liece-I-buffer (list liece-IGNORED-buffer)
 183   "A list of buffers where private messages to me are sent.")
 184
 185 (defvar liece-W-buffer (list liece-WALLOPS-buffer)
 186   "A list of buffers where WALLOPS messages to me are sent.")
 187
 188 (defvar liece-K-buffer (list liece-KILLS-buffer)
 189   "A list of buffers where KILL messages to me are sent.")
 190
 191 (defvar liece-000-buffer
 192   (list liece-dialogue-buffer liece-others-buffer)
 193   "A list of buffers where 000 messages to me are sent.")
 194
 195 (defvar liece-200-buffer
 196   (list liece-dialogue-buffer liece-others-buffer)
 197   "A list of buffers where 200 messages to me are sent.")
 198
 199 (defvar liece-300-buffer
 200   (list liece-dialogue-buffer liece-others-buffer)
 201   "A list of buffers where 300 messages to me are sent.")
 202
 203 (defvar liece-400-buffer
 204   (list liece-dialogue-buffer liece-others-buffer)
 205   "A list of buffers where 400 messages to me are sent.")
 206
 207 (defvar liece-500-buffer
 208   (list liece-dialogue-buffer liece-others-buffer)
 209   "A list of buffers where 500 messages to me are sent.")
 210
 211 (provide 'liece-globals)
 212
 213 ;;; liece-globals.el ends here