emacs-window-manager 用に作ってみた。

ensime perspective

(defun e2wm:dp-ensime ()
  (interactive)
  (e2wm:pst-change 'ensime))

(e2wm:pst-class-register
  (make-e2wm:$pst-class
   :name   'ensime
   :title  "Coding"
   :init   'e2wm:dp-ensime-init
   :main   'main
   :switch 'e2wm:dp-code-switch
   :popup  'e2wm:dp-code-popup
   :keymap 'e2wm:dp-code-minor-mode-map))

(defun e2wm:dp-ensime-init ()
  (let*
      ((ensime-wm
        (wlf:no-layout
         e2wm:c-ensime-recipe
         e2wm:c-ensime-winfo))
       (buf (or prev-selected-buffer
                (e2wm:history-get-main-buffer))))

    (when (e2wm:history-recordable-p prev-selected-buffer)
      (e2wm:history-add prev-selected-buffer))

    (wlf:set-buffer ensime-wm 'main buf)
    ensime-wm))

(defvar e2wm:c-ensime-recipe
  '(- (:upper-size-ratio 0.7)
      (| (:left-max-size 35)
         files
         (| (:right-max-size 30)
            main imenu))
      (- (:upper-size-ratio 0.5)
         (| (:left-size-ratio 0.5)
            ensime-sbt ensime-event)
         sub)))

(defvar e2wm:c-ensime-winfo
  '((:name main)
    (:name files :plugin history-list)
    (:name ensime-sbt :buffer "*ensime-sbt*" :default-hide nil)
    (:name sub :buffer "*info*" :default-hide t)
    (:name ensime-event :buffer "*ensime-events*" :default-hide nil)
    (:name imenu :plugin imenu :default-hide nil))
  )