- (let ((rest-window (split-window)))
- (set-window-buffer (selected-window)
- riece-channel-buffer)
- (set-window-buffer (split-window rest-window 4)
- riece-others-buffer)
+ (progn
+ (if (eq vpos 'top)
+ (let ((rest-window (split-window nil 4)))
+ (set-window-buffer (selected-window)
+ riece-command-buffer)
+ (select-window rest-window)
+ (set-window-buffer (split-window rest-window)
+ riece-others-buffer)
+ (set-window-buffer (selected-window)
+ riece-channel-buffer))
+ (if (eq vpos 'middle)
+ (let ((rest-window (split-window)))
+ (set-window-buffer (selected-window)
+ riece-channel-buffer)
+ (set-window-buffer (split-window rest-window 4)
+ riece-others-buffer)
+ (set-window-buffer rest-window
+ riece-command-buffer))
+ (let ((rest-window (split-window nil (- (window-height) 4))))
+ (set-window-buffer (selected-window)
+ riece-others-buffer)
+ (set-window-buffer (split-window)
+ riece-channel-buffer)
+ (set-window-buffer rest-window
+ riece-command-buffer))))