X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Friece-commands.el;h=a4c0cf2223541c6c82f633425a9ddb0452f1995d;hb=107d20094003503fbc588b00e239c490f17d5c67;hp=83035047b49b8625ff6f1c79e60bd376cdac10c2;hpb=20da61a91da192ea5f55b807a9501d2dbf397204;p=riece

diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el
index 8303504..a4c0cf2 100644
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -26,6 +26,7 @@
 
 (require 'riece-channel)
 (require 'riece-complete)
+(require 'riece-layout)
 (require 'riece-display)
 (require 'riece-version)
 (require 'riece-server)
@@ -112,6 +113,12 @@
   (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)))
+  (customize-set-variable 'riece-layout name))
+
 (defun riece-command-toggle-channel-buffer-mode ()
   (interactive)
   (setq riece-channel-buffer-mode