(riece-define-keys riece-command-mode-map
"\r" riece-command-enter-message
- [tab] riece-command-complete
- [(meta control c) >] riece-command-push
- [(meta control c) <] riece-command-pop)
+ [(control return)] riece-command-enter-message-as-notice)
(riece-define-keys (riece-command-map "\C-c" riece-command-mode-map)
"\177" riece-command-scroll-down
"o" riece-command-set-operators
"\C-p" riece-command-part
"r" riece-command-configure-windows
- "v" riece-command-set-voices)
+ "v" riece-command-set-speakers)
(set-keymap-parent riece-command-map riece-dialogue-mode-map)
(riece-define-keys riece-user-list-mode-map
(setq riece-server (completing-read "Server: " riece-server-alist)))
(if (stringp riece-server)
(setq riece-server (riece-server-name-to-server riece-server)))
- (setq riece-server-process (riece-start-server riece-server))
+ (riece-open-server riece-server)
(riece-create-buffers)
(riece-configure-windows)
(let ((channel-list riece-startup-channel-list))
(interactive)
(kill-all-local-variables)
- (setq major-mode 'riece-command-mode
- mode-name "Commands"
+ (setq riece-freeze riece-default-freeze
+ riece-freeze-indicator (if riece-freeze "F" "-")
+ riece-own-freeze riece-default-own-freeze
+ riece-own-freeze-indicator (if riece-own-freeze "M" "-")
riece-away-indicator "-"
- riece-freeze-indicator "-"
- riece-own-freeze-indicator "-"
+ major-mode 'riece-command-mode
+ mode-name "Commands"
mode-line-buffer-identification
(riece-mode-line-buffer-identification
'("Riece: "
riece-freeze-indicator (if riece-freeze "F" "-")
riece-own-freeze riece-default-own-freeze
riece-own-freeze-indicator (if riece-own-freeze "M" "-")
-
+ riece-away-indicator "-"
major-mode 'riece-dialogue-mode
mode-name "Dialogue"
mode-line-buffer-identification