;;; Code:
+(require 'riece-version)
(require 'riece-globals)
;; User modifiable variables.
:prefix "riece-"
:group 'riece)
-(defcustom riece-truncate-partial-width-windows nil
- "If non-nil, truncate lines in splitting windows such as others buffer."
- :type 'boolean
- :group 'riece-looks)
-
(defcustom riece-use-full-window t
"If non-nil, whole Emacs window is used to display dialogue."
:type 'boolean
:group 'riece-looks)
+(defcustom riece-window-center-line -2
+ "Line number of center point in window when scrolling.
+If nil, erases the entire frame and then redraws with point in the
+center of the window. Negative means relative to bottom of window.
+See the document of the function `recenter'."
+ :type 'integer
+ :group 'riece-looks)
+
(defcustom riece-directory (expand-file-name "~/.riece")
"Where to look for data files."
:type 'directory
"Where to look for add-on files."
:type 'directory
:group 'riece-options)
-
+
(defcustom riece-variables-file
(expand-file-name "init" riece-directory)
"Where to look for variables."
riece-url
riece-button
riece-menu
- riece-icon)
+ riece-icon
+ riece-ignore)
"Add-ons insinuated into Riece."
:type '(repeat symbol)
:group 'riece-options)
(args (list spec)))
(widget-put widget :args args)
widget))
-
+
(defcustom riece-server-alist nil
"An alist mapping server names to plist."
:type 'riece-server-spec
:type 'string
:group 'riece-server)
+(defcustom riece-protocol 'irc
+ "Protocol support."
+ :type 'symbol
+ :group 'riece-server)
+
+(defcustom riece-max-send-size 512
+ "Maximum size of messages to be sent at a time."
+ :type 'integer
+ :group 'riece-server)
+
+(defcustom riece-send-delay 8
+ "Duration of multiple send."
+ :type 'integer
+ :group 'riece-server)
+
(defcustom riece-default-password (getenv "IRCPASSWORD")
"Your password."
:type '(radio (string :tag "Password")
:type 'boolean
:group 'riece-options)
-(defcustom riece-quit-message nil
+(defcustom riece-quit-message (riece-extended-version)
"Default quit message."
- :type '(radio (string :tag "Quit message"))
+ :type '(string :tag "Quit message")
:group 'riece-options)
-(defcustom riece-away-message nil
+(defcustom riece-away-message "Gone"
"Default away message."
- :type '(radio (string :tag "Away message"))
+ :type '(string :tag "Away message")
:group 'riece-options)
(defcustom riece-gather-channel-modes nil