X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-options.el;h=d690861d5a7d2f34f1fd0f17dcc75908359a0411;hp=cc13625f161a3d2736777b39233831e0155be2b1;hb=8ddc92428d0a3841a46a25b0a1308c85bf3d54ac;hpb=21290cb15e3b73ec3d7528885a5c2bad990d4b8d diff --git a/lisp/riece-options.el b/lisp/riece-options.el index cc13625..d690861 100644 --- a/lisp/riece-options.el +++ b/lisp/riece-options.el @@ -19,8 +19,8 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Code: @@ -29,18 +29,21 @@ ;; 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) (defcustom riece-saved-forms '(riece-server-alist riece-channel-buffer-mode + riece-others-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) @@ -56,22 +59,25 @@ :group 'riece-options) (defgroup riece-looks nil - "Related to look and feel" + "Look and feel." :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." + "Where to look for startup files." :type 'directory :group 'riece-options) @@ -80,7 +86,15 @@ "Where to look for add-on files." :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." @@ -111,18 +125,23 @@ way is to put Riece variables on .emacs or file loaded from there." 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 - "Server settings" + "Server settings." :prefix "riece-" :group 'riece) (defgroup riece-channel nil - "Channel settings" + "Channel settings." :prefix "riece-" :group 'riece) @@ -159,7 +178,7 @@ way is to put Riece variables on .emacs or file loaded from there." (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 @@ -170,14 +189,33 @@ way is to put Riece variables on .emacs or file loaded from there." :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 2 + "Duration of multiple send." + :type 'integer + :group 'riece-server) + (defcustom riece-default-password (getenv "IRCPASSWORD") "Your password." :type '(radio (string :tag "Password") (const :tag "No" nil)) :group 'riece-server) -(defcustom riece-username (or (getenv "IRCNAME") - (user-real-login-name)) +(defcustom riece-username nil + "Your login name." + :type 'string + :group 'riece-server) + +(defcustom riece-realname nil "Your user name." :type 'string :group 'riece-server) @@ -204,7 +242,7 @@ way is to put Riece variables on .emacs or file loaded from there." :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)) @@ -215,11 +253,26 @@ way is to put Riece variables on .emacs or file loaded from there." :type 'function :group 'riece-server) +(defcustom riece-user-cache-max-size 512 + "Maximum size of cache of user names." + :type 'integer + :group 'riece-server) + +(defcustom riece-channel-cache-max-size 512 + "Maximum size of cache of channel names." + :type 'integer + :group 'riece-server) + (defcustom riece-channel-buffer-mode t "When non-nil, Riece will display a channel buffer." :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 @@ -251,6 +304,12 @@ way is to put Riece variables on .emacs or file loaded from there." :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") @@ -261,22 +320,11 @@ way is to put Riece variables on .emacs or file loaded from there." :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) -(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