■[SLIME][emacs] *slime-repl* ウィンドウを左右分割で表示

こうかな

(defun slime-horizontally ()
  (interactive)
  (let ((buf (window-buffer)))
    (split-window-horizontally)
    (slime)
    (select-window (car (get-buffer-window-list buf)))))

　追記

とりあえずこれにしておく

;; aif, my-pop-to-buffer-horizontally がいる
(defun slime-horizontally ()
  (interactive)
  (let ((buf (window-buffer)))  
    (aif (get-buffer "*slime-repl sbcl*") ; <num>未対応
         (my-pop-to-buffer-horizontally it)
         (progn
           (split-window-horizontally)
           (other-window 1)
           (slime)))
    (select-window (car (get-buffer-window-list buf)))))

Permalink | コメント(0)