;;; Code:
+(require 'riece-version)
(require 'riece-globals)
;; User modifiable variables.
(defcustom riece-saved-forms
'(riece-server-alist
riece-channel-buffer-mode
- riece-user-list-buffer-mode)
+ riece-user-list-buffer-mode
+ riece-layout)
"Variables saved after each session is completed."
:type 'string
:group 'riece-options)
riece-history
riece-url
riece-button
- riece-menu)
+ riece-menu
+ riece-icon
+ riece-ignore)
"Add-ons insinuated into Riece."
:type '(repeat symbol)
:group 'riece-options)
(list (string :tag "Channel") (string :tag "Key"))))
:group 'riece-channel)
+(defcustom riece-startup-server-list nil
+ "A list of servers to connect automatically at startup."
+ :type '(repeat (string :tag "Server"))
+ :group 'riece-server)
+
(defcustom riece-retry-with-new-nickname nil
"When nickname has already been in use, grow-tail automatically."
:type 'boolean
(defcustom riece-quit-timeout 10
"Quit timeout when there is no response from server."
- :type 'integer
+ :type '(radio (integer :tag "Seconds")
+ (const nil))
+ :group 'riece-server)
+
+(defcustom riece-default-open-connection-function #'open-network-stream
+ "Default function used for connecting to an IRC server."
+ :type 'function
:group 'riece-server)
(defcustom riece-channel-buffer-mode t
: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 t
+(defcustom riece-gather-channel-modes nil
"If non-nil, gather channel modes when we join a channel."
:type 'boolean
:group 'riece-options)
:type 'function
:group 'riece-options)
+(defcustom riece-shrink-buffer-idle-time-delay 5
+ "Number of idle seconds to wait before shrinking channel buffers."
+ :type 'integer
+ :group 'riece-options)
+
+(defcustom riece-max-buffer-size 65535
+ "Maximum size of channel buffers."
+ :type '(radio (integer :tag "Number of characters")
+ (const nil))
+ :group 'riece-options)
+
(defcustom riece-format-time-function #'current-time-string
"Function to convert the specified time to the human readable form."
:type 'function