;; User modifiable variables.
(defgroup riece nil
- "Riece specific customize group")
+ "Riece specific customize group.")
(defgroup riece-options nil
- "Riece user customizable variables"
+ "Riece user customizable variables."
:prefix "riece-"
:group 'riece)
:group 'riece-options)
(defgroup riece-looks nil
- "Related to look and feel"
+ "Look and feel."
:prefix "riece-"
:group 'riece)
(defcustom riece-data-directory
(if (fboundp 'locate-data-directory)
(locate-data-directory "riece")
- (file-name-directory (locate-library (symbol-file 'riece-data-directory))))
+ (file-name-directory load-file-name))
"Where to look for data files."
:type 'directory
:group 'riece-options)
:group 'riece-options)
(defgroup riece-server nil
- "Server settings"
+ "Server settings."
:prefix "riece-"
:group 'riece)
(defgroup riece-channel nil
- "Channel settings"
+ "Channel settings."
:prefix "riece-"
:group 'riece)
:type 'boolean
:group 'riece-server)
-(defcustom riece-quit-timeout 10
+(defcustom riece-quit-timeout 1
"Quit timeout when there is no response from server."
:type '(radio (integer :tag "Seconds")
(const nil))