(require 'riece-channel)
(require 'riece-complete)
+(require 'riece-layout)
(require 'riece-display)
(require 'riece-version)
(require 'riece-server)
(interactive)
(riece-redisplay-buffers t))
+(defun riece-command-change-layout (name)
+ "Select a layout-name from all current available layouts and change
+the layout to the selected layout-name."
+ (interactive (list (completing-read "Layout: " riece-layout-alist)))
+ (setq riece-layout name)
+ (riece-command-configure-windows))
+
(defun riece-command-toggle-channel-buffer-mode ()
(interactive)
(setq riece-channel-buffer-mode
"Channel/User: " riece-current-channels))
key)
(if (and current-prefix-arg
- (riece-channel-p target))
+ (riece-channel-p (riece-identity-prefix target)))
(setq key
(riece-read-passwd (format "Key for %s: " target))))
(list target key)))