X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-options.el;h=e76b3bbc5df53a134c5c33f31550eef8f4c25bfc;hp=7c7515e17b1b3f9ca31339a84a5174cb73f30ae2;hb=14b2f20ab2cf572cdf1113747dbc9d52c5aee374;hpb=fe7ce5e9a344721b1ecdd4d9ec1adce5dc908a49

diff --git a/lisp/riece-options.el b/lisp/riece-options.el
index 7c7515e..e76b3bb 100644
--- a/lisp/riece-options.el
+++ b/lisp/riece-options.el
@@ -68,29 +68,16 @@
   :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)
@@ -113,6 +100,11 @@ way is to put Riece variables on .emacs or file loaded from there."
   :type '(repeat (file :tag "Initialization File"))
   :group 'riece-options)
 
+(defcustom riece-addons '(riece-highlight riece-ctcp)
+  "Add-ons insinuated into Riece."
+  :type '(repeat symbol)
+  :group 'riece-options)
+
 (defgroup riece-server nil
   "Server settings"
   :prefix "riece-"
@@ -185,16 +177,16 @@ way is to put Riece variables on .emacs or file loaded from there."
   :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 60
+  "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
@@ -211,12 +203,7 @@ way is to put Riece variables on .emacs or file loaded from there."
   :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)
 
@@ -232,8 +219,13 @@ way is to put Riece variables on .emacs or file loaded from there."
   :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