projects
/
elisp
/
riece.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece-options.el (riece-saved-forms): Added riece-addons.
[elisp/riece.git]
/
lisp
/
riece-options.el
diff --git
a/lisp/riece-options.el
b/lisp/riece-options.el
index
d7306da
..
7e6815b
100644
(file)
--- a/
lisp/riece-options.el
+++ b/
lisp/riece-options.el
@@
-29,18
+29,21
@@
;; User modifiable variables.
(defgroup riece nil
;; User modifiable variables.
(defgroup riece nil
- "Riece specific customize group")
+ "Riece specific customize group.")
(defgroup riece-options nil
(defgroup riece-options nil
- "Riece user customizable variables"
+ "Riece user customizable variables."
:prefix "riece-"
:group 'riece)
(defcustom riece-saved-forms
'(riece-server-alist
riece-channel-buffer-mode
:prefix "riece-"
:group 'riece)
(defcustom riece-saved-forms
'(riece-server-alist
riece-channel-buffer-mode
+ riece-others-buffer-mode
riece-user-list-buffer-mode
riece-user-list-buffer-mode
- riece-layout)
+ riece-channel-list-buffer-mode
+ riece-layout
+ riece-addons)
"Variables saved after each session is completed."
:type 'string
:group 'riece-options)
"Variables saved after each session is completed."
:type 'string
:group 'riece-options)
@@
-56,7
+59,7
@@
:group 'riece-options)
(defgroup riece-looks nil
:group 'riece-options)
(defgroup riece-looks nil
- "Related to look and feel"
+ "Look and feel."
:prefix "riece-"
:group 'riece)
:prefix "riece-"
:group 'riece)
@@
-74,7
+77,7
@@
See the document of the function `recenter'."
:group 'riece-looks)
(defcustom riece-directory (expand-file-name "~/.riece")
:group 'riece-looks)
(defcustom riece-directory (expand-file-name "~/.riece")
- "Where to look for data files."
+ "Where to look for startup files."
:type 'directory
:group 'riece-options)
:type 'directory
:group 'riece-options)
@@
-84,6
+87,14
@@
See the document of the function `recenter'."
:type 'directory
:group 'riece-options)
:type 'directory
:group 'riece-options)
+(defcustom riece-data-directory
+ (if (fboundp 'locate-data-directory)
+ (locate-data-directory "riece")
+ (file-name-directory load-file-name))
+ "Where to look for data files."
+ :type 'directory
+ :group 'riece-options)
+
(defcustom riece-variables-file
(expand-file-name "init" riece-directory)
"Where to look for variables."
(defcustom riece-variables-file
(expand-file-name "init" riece-directory)
"Where to look for variables."
@@
-114,18
+125,23
@@
way is to put Riece variables on .emacs or file loaded from there."
riece-button
riece-menu
riece-icon
riece-button
riece-menu
riece-icon
- riece-ignore)
+ riece-ignore
+ riece-log
+ riece-toolbar
+ riece-alias
+ riece-ctlseq
+ riece-keyword)
"Add-ons insinuated into Riece."
:type '(repeat symbol)
:group 'riece-options)
(defgroup riece-server nil
"Add-ons insinuated into Riece."
:type '(repeat symbol)
:group 'riece-options)
(defgroup riece-server nil
- "Server settings"
+ "Server settings."
:prefix "riece-"
:group 'riece)
(defgroup riece-channel nil
:prefix "riece-"
:group 'riece)
(defgroup riece-channel nil
- "Channel settings"
+ "Channel settings."
:prefix "riece-"
:group 'riece)
:prefix "riece-"
:group 'riece)
@@
-178,12
+194,12
@@
way is to put Riece variables on .emacs or file loaded from there."
:type 'symbol
:group 'riece-server)
:type 'symbol
:group 'riece-server)
-(defcustom riece-max-send-size 1500
+(defcustom riece-max-send-size 512
"Maximum size of messages to be sent at a time."
:type 'integer
:group 'riece-server)
"Maximum size of messages to be sent at a time."
:type 'integer
:group 'riece-server)
-(defcustom riece-send-delay 1
+(defcustom riece-send-delay 2
"Duration of multiple send."
:type 'integer
:group 'riece-server)
"Duration of multiple send."
:type 'integer
:group 'riece-server)
@@
-194,8
+210,7
@@
way is to put Riece variables on .emacs or file loaded from there."
(const :tag "No" nil))
:group 'riece-server)
(const :tag "No" nil))
:group 'riece-server)
-(defcustom riece-username (or (getenv "IRCNAME")
- (user-real-login-name))
+(defcustom riece-username nil
"Your user name."
:type 'string
:group 'riece-server)
"Your user name."
:type 'string
:group 'riece-server)
@@
-222,7
+237,7
@@
way is to put Riece variables on .emacs or file loaded from there."
:type 'boolean
:group 'riece-server)
: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))
"Quit timeout when there is no response from server."
:type '(radio (integer :tag "Seconds")
(const nil))
@@
-238,6
+253,11
@@
way is to put Riece variables on .emacs or file loaded from there."
:type 'boolean
:group 'riece-looks)
:type 'boolean
:group 'riece-looks)
+(defcustom riece-others-buffer-mode t
+ "When non-nil, Riece will display an \"*Others*\" buffer."
+ :type 'boolean
+ :group 'riece-looks)
+
(defcustom riece-user-list-buffer-mode t
"When non-nil, Riece will display a nick list buffer."
:type 'boolean
(defcustom riece-user-list-buffer-mode t
"When non-nil, Riece will display a nick list buffer."
:type 'boolean
@@
-269,6
+289,12
@@
way is to put Riece variables on .emacs or file loaded from there."
:type '(string :tag "Quit message")
:group 'riece-options)
:type '(string :tag "Quit message")
:group 'riece-options)
+(defcustom riece-part-message nil
+ "Default part message."
+ :type '(choice (const :tag "No message" nil)
+ (string :tag "Part message"))
+ :group 'riece-options)
+
(defcustom riece-away-message "Gone"
"Default away message."
:type '(string :tag "Away message")
(defcustom riece-away-message "Gone"
"Default away message."
:type '(string :tag "Away message")
@@
-279,7
+305,7
@@
way is to put Riece variables on .emacs or file loaded from there."
:type 'boolean
:group 'riece-options)
:type 'boolean
:group 'riece-options)
-(defcustom riece-buffer-dispose-function #'bury-buffer
+(defcustom riece-buffer-dispose-function #'kill-buffer
"Function called after the buffer was disposed."
:type 'function
:group 'riece-options)
"Function called after the buffer was disposed."
:type 'function
:group 'riece-options)
@@
-289,12
+315,17
@@
way is to put Riece variables on .emacs or file loaded from there."
:type 'integer
:group 'riece-options)
:type 'integer
:group 'riece-options)
-(defcustom riece-max-buffer-size 65535
+(defcustom riece-max-buffer-size nil
"Maximum size of channel buffers."
:type '(radio (integer :tag "Number of characters")
(const nil))
:group 'riece-options)
"Maximum size of channel buffers."
:type '(radio (integer :tag "Number of characters")
(const nil))
:group 'riece-options)
+(defcustom riece-shrink-buffer-remove-chars (/ riece-max-send-size 2)
+ "Number of chars removed when shrinking channel buffers."
+ :type 'integer
+ :group 'riece-options)
+
(defcustom riece-format-time-function #'current-time-string
"Function to convert the specified time to the human readable form."
:type 'function
(defcustom riece-format-time-function #'current-time-string
"Function to convert the specified time to the human readable form."
:type 'function