;; 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:
;; 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)
riece-others-buffer-mode
riece-user-list-buffer-mode
riece-channel-list-buffer-mode
- riece-layout)
+ riece-layout
+ riece-addons)
"Variables saved after each session is completed."
:type 'string
:group 'riece-options)
:group 'riece-options)
(defgroup riece-looks nil
- "Related to look and feel"
+ "Look and feel."
:prefix "riece-"
:group 'riece)
:group 'riece-options)
(defcustom riece-data-directory
- (cond ((fboundp 'locate-data-directory)
- (locate-data-directory "riece"))
- ((symbol-file 'riece-data-directory)
- (file-name-directory
- (locate-library (symbol-file 'riece-data-directory))))
- (t
- (expand-file-name "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)
: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 'function
:group 'riece-server)
+(defcustom riece-user-cache-max-size 512
+ "Maximum size of cache of usernames."
+ :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
: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 nil
- "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