cgit.sxemacs.org Git - riece/blob - lisp/riece-globals.el

   1 ;;; riece-globals.el --- global variables and constants.
   2 ;; Copyright (C) 1998-2003 Daiki Ueno
   3
   4 ;; Author: Daiki Ueno <ueno@unixuser.org>
   5 ;; Created: 1998-09-28
   6 ;; Keywords: IRC, riece
   7
   8 ;; This file is part of Riece.
   9
  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)
  13 ;; any later version.
  14
  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.
  19
  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.
  24
  25 ;;; Code:
  26
  27 (require 'riece-compat)                 ;riece-make-interval-regexp
  28
  29 ;;; Constants:
  30 (defconst riece-strict-channel-regexp
  31   (concat "\\([+&#]\\|!"
  32           (riece-make-interval-regexp "[A-Z0-9]" 5)
  33           "\\|!!\\)[^\0\7\r\n ,:]*\\(:[^\0\7\r\n ,:]*\\)?"))
  34
  35 (defconst riece-strict-user-regexp
  36   (concat "[][\\\\`_^{|}A-Za-z]"
  37           (riece-make-interval-regexp "[][\\\\`_^{|}A-Za-z0-9-]" 0 8)))
  38
  39 (defconst riece-laxed-channel-regexp
  40   "[+&#!][^\0\7\r\n ,:]*\\(:[^\0\7\r\n ,:]*\\)?")
  41
  42 (defconst riece-laxed-user-regexp
  43   "[][\\\\`_^{|}A-Za-z][][\\\\`_^{|}A-Za-z0-9-]*")
  44
  45 (defvar riece-channel-regexp riece-laxed-channel-regexp)
  46 (defvar riece-user-regexp riece-laxed-user-regexp)
  47
  48 ;;; Global variables:
  49 (defvar riece-server-process-alist nil
  50   "An alist mapping server names to processes.")
  51
  52 (defvar riece-current-channel nil
  53   "The channel you currently have joined.")
  54 (defvar riece-current-channels nil
  55   "The channels you have currently joined.")
  56 (defvar riece-join-channel-candidate nil
  57   "The candidate for channel to be used with the next join command.")
  58
  59 (defvar riece-save-variables-are-dirty nil
  60   "Non nil if the variables in `riece-saved-forms' are changed.")
  61
  62 (defvar riece-polling 0
  63   "Interval for polling the server.")
  64
  65 (defvar riece-reconnect-with-password nil
  66   "If non-nil, attempt to reconnect with password.")
  67
  68 (defvar riece-obarray-size 1327
  69   "The size of obarray used by riece on channelname and username space.")
  70
  71 ;;; Variables local to the server buffers:
  72 (defvar riece-server-name nil
  73   "The name of the server.
  74 Local to the server buffers.")
  75 (defvar riece-real-nickname nil
  76   "Your nickname the server offers.
  77 Local to the server buffers.")
  78 (defvar riece-last-nickname nil
  79   "The last nickname you requested.
  80 Local to the server buffers.")
  81 (defvar riece-nick-accepted nil
  82   "The flag your nickname is accepted by the server.
  83 Possible values are nil, `ok', and `sent'.
  84 Local to the server buffers.")
  85 (defvar riece-real-server-name nil
  86   "The server name offered by the server.
  87 Local to the server buffers.")
  88 (defvar riece-real-userhost nil
  89   "Your hostname the server offers.
  90 Local to the server buffers.")
  91 (defvar riece-user-at-host ""
  92   "The user@host for the current input.
  93 Local to the server buffers.")
  94 (defvar riece-user-at-host-type nil
  95   "The authentication type of `riece-user-at-host'.
  96 Possible values are 'ok 'not-verified 'fake or 'invalid.
  97 Local to the server buffers.")
  98 (defvar riece-supported-user-modes nil
  99   "User modes supported by server.
 100 Local to the server buffers.")
 101 (defvar riece-supported-channel-modes nil
 102   "Channel modes supported by server.
 103 Local to the server buffers.")
 104 (defvar riece-channel-filter ""
 105   "Filter of the result of NAMES or LIST.
 106 This enables us to use \\[universal-argument] with NAMES and TOPIC.
 107 Local to the server buffers.")
 108 (defvar riece-read-point nil
 109   "Point at the last input was seen.
 110 Local to the server buffers.")
 111 (defvar riece-send-queue nil
 112   "Send queue for avoiding client flood.
 113 Local to the server buffers.")
 114 (defvar riece-send-size nil
 115   "Size of the last send.
 116 Local to the server buffers.")
 117 (defvar riece-last-send-time nil
 118   "Timestamp of the last send.
 119 Local to the server buffers.")
 120 (defvar riece-obarray nil
 121   "Namespace of the IRC world.
 122 Local to the server buffers.")
 123 (defvar riece-coding-system nil
 124   "Coding system for process I/O.
 125 Local to the server buffers.")
 126
 127 ;;; Variables local to the channel buffers:
 128 (defvar riece-freeze nil
 129   "If t, channel window is locked and will not be scrolled.
 130 If 'own, channel window is locked until the user begins to speak.
 131 Local to the channel buffers.")
 132
 133 (defvar riece-freeze-indicator nil
 134   "String displayed on the modeline to allow the user to tell if the
 135 channel buffer is locked.
 136 Local to the channel buffers.")
 137
 138 (defvar riece-channel-buffer-window-point nil
 139   "Last value of point in window which displayed the channel buffer.
 140 Local to the channel buffers.")
 141
 142 ;;; Modeline indicators:
 143 (defvar riece-channel-indicator "None"
 144   "String displayed on the modeline to indicate the current channel.")
 145 (defvar riece-long-channel-indicator "None"
 146   "String displayed on the modeline to indicate the current channel.
 147 Generally, this string will contain more information than
 148 riece-channel-indicator.")
 149 (defvar riece-channel-list-indicator "No channel"
 150   "String displayed on the modeline to show the joined channels.")
 151 (defvar riece-user-indicator nil
 152   "String displayed on the modeline to show the current nickname.")
 153
 154 (defvar riece-away-indicator "-"
 155   "String displayed on the modeline to allow the user to tell if the
 156 user is away.")
 157 (defvar riece-operator-indicator "-"
 158   "String displayed on the modeline to allow the user to tell if the
 159 user is an operator.")
 160 (defvar riece-channel-status-indicator "-"
 161   "String displayed on the modeline to allow the user to tell if the
 162 user's status on the current channel.")
 163
 164 ;;; Buffers:
 165 (defvar riece-command-buffer nil
 166   "The command buffer.")
 167 (defvar riece-dialogue-buffer nil
 168   "Buffer for whole conversation.")
 169 (defvar riece-others-buffer nil
 170   "Buffer for other messages.")
 171 (defvar riece-channel-list-buffer nil
 172   "Buffer for channel list.")
 173 (defvar riece-user-list-buffer nil
 174   "Buffer for user list.")
 175
 176 (defvar riece-channel-buffer nil
 177   "Buffer for messages arrived in the current channel.")
 178
 179 (defvar riece-buffer-list nil)
 180 (defvar riece-overriding-server-name nil)
 181
 182 (defconst riece-change-prefix "*** Change: ")
 183 (defconst riece-notice-prefix "*** Notice: ")
 184 (defconst riece-wallops-prefix "*** Notice: ")
 185 (defconst riece-error-prefix "*** Error: ")
 186 (defconst riece-info-prefix "*** Info: ")
 187 (defconst riece-prefix-regexp "\\*\\*\\* \\([^:]+: \\)")
 188
 189 (defconst riece-time-prefix-regexp "[0-9][0-9]:[0-9][0-9] ")
 190
 191 (provide 'riece-globals)
 192
 193 ;;; riece-globals.el ends here