(riece-mode-line-buffer-identification
'("Riece: "
mode-line-modified
+ "{"
riece-away-indicator
riece-operator-indicator
- "-- " riece-current-channel " " riece-real-nickname)))
+ riece-freeze-indicator
+ "} "
+ riece-user-indicator
+ " "
+ riece-channel-indicator)))
(riece-simplify-mode-line-format)
(use-local-map riece-command-mode-map)
(riece-mode-line-buffer-identification
'("Riece: "
mode-line-modified
+ "{"
riece-away-indicator
riece-operator-indicator
riece-freeze-indicator
- riece-own-freeze-indicator
- " " riece-channel-list-indicator " "))
+ "} "
+ riece-channel-list-indicator " "))
buffer-read-only t
tab-stop-list riece-tab-stop-list)
(riece-update-status-indicators)
(riece-mode-line-buffer-identification
'("Riece: "
mode-line-modified
+ "{"
riece-away-indicator
riece-operator-indicator
riece-freeze-indicator
- riece-own-freeze-indicator
+ "} "
+ riece-user-indicator
" "
riece-channel-indicator))))
(kill-all-local-variables)
(setq mode-line-modified "--- "
major-mode 'riece-user-list-mode
- mode-name "Riece Channel member"
+ mode-name "User list"
mode-line-buffer-identification
(riece-mode-line-buffer-identification
'("Riece: " riece-channel-indicator " "))
(defun riece-load-and-build-addon-dependencies (addons)
(let ((load-path (cons riece-addon-directory load-path))
- dependencies
- pointer)
+ dependencies)
(while addons
(require (car addons)) ;error will be reported here
(let* ((requires