;;; Code:
(require 'riece-message)
+(require 'riece-biff)
(defgroup riece-mini nil
"riece on minibuffer"
(let ((max-mini-window-height height)
(resize-mini-windows t))
(setq riece-mini-backlog-shown t)
+ (when (and (memq 'riece-biff riece-addons)
+ riece-biff-enabled)
+ (riece-biff-clear))
(riece-mini-message-no-log
"%s" (mapconcat #'identity riece-mini-backlog-history "\n"))))))
(setq riece-mini-backlog-shown nil)
(riece-mini-message-no-log ""))))
+(defun riece-mini-requires ()
+ (if (memq 'riece-biff riece-addons)
+ '(riece-biff)))
+
(defun riece-mini-insinuate ()
(add-hook 'riece-after-display-message-functions
'riece-mini-display-message-function)