projects
/
elisp
/
liece.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* liece-vars.el (liece-channel-buffer-mode): Set default to t.
[elisp/liece.git]
/
lisp
/
liece-vars.el
diff --git
a/lisp/liece-vars.el
b/lisp/liece-vars.el
index
0cfd043
..
43a1442
100644
(file)
--- a/
lisp/liece-vars.el
+++ b/
lisp/liece-vars.el
@@
-80,6
+80,17
@@
:type 'boolean
:group 'liece-look)
:type 'boolean
:group 'liece-look)
+(defcustom liece-display-unread-mark nil
+ "If non-nil, display unread mark as XEmacs glyphs or character to channel
+list buffer."
+ :type 'boolean
+ :group 'liece-look)
+
+(defcustom liece-channel-unread-character "!"
+ "Channel unread character."
+ :type 'character
+ :group 'liece-look)
+
(defcustom liece-tab-stop-list '(2 4 6 8 10 12 14 16)
"List of tab stop positions in dialogue buffer."
:type '(repeat integer)
(defcustom liece-tab-stop-list '(2 4 6 8 10 12 14 16)
"List of tab stop positions in dialogue buffer."
:type '(repeat integer)
@@
-99,6
+110,13
@@
(string :tag "Image")))
:group 'liece-look)
(string :tag "Image")))
:group 'liece-look)
+(defcustom liece-inhibit-startup-message nil
+ "If non-nil, the startup message will not be displayed.
+This variable is used before `.liece/init.el' is loaded, so it should
+be set in `.emacs' instead."
+ :group 'liece-look
+ :type 'boolean)
+
(defcustom liece-want-traditional nil
"Do we want /commands."
:type 'boolean
(defcustom liece-want-traditional nil
"Do we want /commands."
:type 'boolean
@@
-363,7
+381,7
@@
Otherwise you might get killed again if automagic reconnect is too fast."
:group 'liece-hook)
;; Channel buffers.
:group 'liece-hook)
;; Channel buffers.
-(defcustom liece-channel-buffer-mode nil
+(defcustom liece-channel-buffer-mode t
"When non-nil, liece will display a channel buffer."
:type 'boolean
:group 'liece-look)
"When non-nil, liece will display a channel buffer."
:type 'boolean
:group 'liece-look)
@@
-401,7
+419,7
@@
Otherwise you might get killed again if automagic reconnect is too fast."
:group 'liece-partner)
;; Nick buffers.
:group 'liece-partner)
;; Nick buffers.
-(defcustom liece-nick-buffer-mode nil
+(defcustom liece-nick-buffer-mode t
"When non-nil, liece will display a nick list buffer."
:type 'boolean
:group 'liece-look)
"When non-nil, liece will display a nick list buffer."
:type 'boolean
:group 'liece-look)
@@
-417,7
+435,7
@@
Otherwise you might get killed again if automagic reconnect is too fast."
:group 'liece-look)
;; Channel list buffer.
:group 'liece-look)
;; Channel list buffer.
-(defcustom liece-channel-list-buffer-mode nil
+(defcustom liece-channel-list-buffer-mode t
"When non-nil, liece will display a channel list buffer."
:type 'boolean
:group 'liece-look)
"When non-nil, liece will display a channel list buffer."
:type 'boolean
:group 'liece-look)
@@
-428,7
+446,7
@@
Otherwise you might get killed again if automagic reconnect is too fast."
:group 'liece-look)
;; Highlight.
:group 'liece-look)
;; Highlight.
-(defcustom liece-highlight-mode nil
+(defcustom liece-highlight-mode t
"If non nil, IRC buffer is highlighted by specific rule."
:type 'boolean
:group 'liece-highlight)
"If non nil, IRC buffer is highlighted by specific rule."
:type 'boolean
:group 'liece-highlight)
@@
-837,6
+855,11
@@
Messages from them won't be displayed."
(define-obsolete-variable-alias 'liece-checkbuffer-interval
'liece-buffer-check-interval))
(define-obsolete-variable-alias 'liece-checkbuffer-interval
'liece-buffer-check-interval))
+(defcustom liece-buffer-dispose-function (function bury-buffer)
+ "Function called after the buffer was disposed of."
+ :type 'function
+ :group 'liece-vars)
+
(defcustom liece-private-window-height 4
"How tall is the window for private messages when shown."
:type 'integer
(defcustom liece-private-window-height 4
"How tall is the window for private messages when shown."
:type 'integer