:type '(repeat integer)
:group 'riece-looks)
-(defcustom riece-icon-directory nil
- "Location of the icon directory."
- :type 'directory
- :group 'riece-looks)
-
-(defcustom riece-user-image-alist
- '((?@ . "ball.red.xpm")
- (?+ . "ball.gray.xpm")
- (? . "ball.blank.xpm"))
- "An alist of icons to display user's mode."
- :type '(repeat (list (character :tag "Mark")
- (string :tag "XPM file")))
- :group 'riece-looks)
-
-(defcustom riece-inhibit-startup-message nil
- "If non-nil, the startup message will not be displayed."
- :group 'riece-looks
- :type 'boolean)
-
(defcustom riece-directory "~/.riece"
"Where to look for data files."
:type 'directory
:group 'riece-options)
+
+(defcustom riece-addon-directory
+ (expand-file-name "addons" riece-directory)
+ "Where to look for add-on files."
+ :type 'directory
+ :group 'riece-options)
(defcustom riece-variables-file
(expand-file-name "init" riece-directory)
:type '(repeat (file :tag "Initialization File"))
:group 'riece-options)
+(defcustom riece-addons '(riece-highlight riece-ctcp riece-unread)
+ "Add-ons insinuated into Riece."
+ :type '(repeat symbol)
+ :group 'riece-options)
+
(defgroup riece-server nil
"Server settings"
:prefix "riece-"
:type 'string
:group 'riece-server)
-(defcustom riece-startup-channel-list nil
- "A list of channels to join automatically at startup."
- :type '(repeat (string :tag "Startup Channel"))
- :group 'riece-channel)
-
(defcustom riece-retry-with-new-nickname nil
"When nickname has already been in use, grow-tail automatically."
:type 'boolean
:group 'riece-server)
+(defcustom riece-quit-timeout 10
+ "Quit timeout when there is no response from server."
+ :type 'integer
+ :group 'riece-server)
+
(defcustom riece-channel-buffer-mode t
"When non-nil, Riece will display a channel buffer."
:type 'boolean
:group 'riece-looks)
(defcustom riece-default-freeze nil
- "If non nil, channel buffer local freeze flag is on at starting."
- :type 'boolean
- :group 'riece-looks)
-
-(defcustom riece-default-own-freeze nil
- "If non nil, channel buffer local own freeze flag is on at starting."
+ "Channel buffer local freeze flag is on at starting."
:type 'boolean
:group 'riece-looks)
:group 'riece-options)
(defcustom riece-quit-message nil
- "Default signoff message."
- :type '(radio (string :tag "Signoff message"))
+ "Default quit message."
+ :type '(radio (string :tag "Quit message"))
+ :group 'riece-options)
+
+(defcustom riece-away-message nil
+ "Default away message."
+ :type '(radio (string :tag "Away message"))
:group 'riece-options)
(defcustom riece-gather-channel-modes t
:type 'boolean
:group 'riece-options)
-(defcustom riece-connection-timeout 60
- "Default timeout interval."
- :type 'integer
- :group 'riece-server)
-
(defcustom riece-buffer-dispose-function #'bury-buffer
"Function called after the buffer was disposed."
:type 'function
:type 'function
:group 'riece-options)
+(defcustom riece-channel-history-length 3
+ "Length of riece-channel-history."
+ :type 'integer
+ :group 'riece-options)
+
(provide 'riece-options)
;;; riece-options.el ends here