;;; Code:
+(require 'riece-compat) ;riece-make-interval-regexp
+
;;; Constants:
(defconst riece-channel-regexp
- "\\([+&#]\\|![A-Z0-9]\\{5\\}\\)[^\0\7\r\n ,:]*\\(:[^\0\7\r\n ,:]*\\)?")
+ (concat "\\([+&#]\\|!"
+ (riece-make-interval-regexp "[A-Z0-9]" 5)
+ "\\|!!\\)[^\0\7\r\n ,:]*\\(:[^\0\7\r\n ,:]*\\)?"))
+
(defconst riece-user-regexp
- "[][\\\\`_^{|}A-Za-z][][\\\\`_^{|}A-Za-z0-9-]\\{0,8\\}")
+ (concat "[][\\\\`_^{|}A-Za-z]"
+ (riece-make-interval-regexp "[][\\\\`_^{|}A-Za-z0-9-]" 0 8)))
-;;; Miscellaneous global variables:
-(defvar riece-process-list nil
- "List of processes opened in the current session.")
+;;; Global variables:
+(defvar riece-server-process-alist nil
+ "An alist mapping server names to processes.")
(defvar riece-current-channel nil
"The channel you currently have joined.")
;;; Modeline indicators:
(defvar riece-channel-indicator "None"
"A modeline indicator of the current channel.")
+(defvar riece-long-channel-indicator "None"
+ "A modeline indicator of the current channel.")
(defvar riece-channel-list-indicator "No channel"
"A modeline indicator of the current joined channels.")
-(defvar riece-short-channel-indicator "None"
- "A modeline indicator of the current channel.")
(defvar riece-user-indicator nil)
(defvar riece-away-indicator "-")
(defvar riece-freeze-indicator "-")
;;; Buffers:
-(defvar riece-command-buffer "*Commands*"
- "Name of command input buffer.")
-(defvar riece-dialogue-buffer "*Dialogue*"
- "Name of dialogue output buffer.")
-(defvar riece-private-buffer "*Private*"
- "Name of private message buffer.")
-(defvar riece-others-buffer "*Others*"
- "Name of others message buffer.")
+(defvar riece-command-buffer nil
+ "The command buffer.")
+(defvar riece-dialogue-buffer nil
+ "Buffer for whole conversation.")
+(defvar riece-others-buffer nil
+ "Buffer for other messages.")
+(defvar riece-channel-list-buffer nil
+ "Buffer for channel list.")
+(defvar riece-user-list-buffer nil
+ "Buffer for user list.")
+
(defvar riece-channel-buffer nil
- "Name of channel message buffer.")
-(defvar riece-channel-buffer-format "*Channel:%s*"
- "Format of channel message buffer.")
-(defvar riece-channel-list-buffer "*Channels*"
- "Name of channel list buffer.")
-(defvar riece-user-list-buffer " *Users*"
- "Name of user list buffer.")
-(defvar riece-wallops-buffer " *WALLOPS*")
+ "Buffer for messages arrived in the current channel.")
(defvar riece-buffer-list nil)
(defvar riece-overriding-server-name nil)