ecb 布局配置 (emacs-ecb-cust-layout.el)

; -*- mode: Lisp -*-

;; reference path-to-ecb/ecb-layout-defs.el

(ecb-layout-define "leftright-sa-m" left-right
  "This function creates the following layout:

   --------------------------------------------------------------
   |              |                               |             |
   |              |                               |             |
   |              |                               |             |
   |  Sources     |                               |             |
   |              |                               |             |
   |              |                               |             |
   |              |                               |             |
   |--------------|             Edit              |  Methods    |
   |              |                               |             |
   |              |                               |             |
   |  Analyse     |                               |             |
   |              |                               |             |
   |              |                               |             |
   |              |                               |             |
   --------------------------------------------------------------
   |                                                            |
   |                    Compilation                             |
   |                                                            |
   --------------------------------------------------------------

If you have not set a compilation-window in `ecb-compile-window-height' then
the layout contains no persistent compilation window and the other windows get a
little more place."
  (ecb-set-sources-buffer)
  (ecb-split-ver 0.4)
  (ecb-set-analyse-buffer)
  (select-window (next-window (next-window)))
  (ecb-set-methods-buffer)
  (select-window (previous-window (previous-window (selected-window) 0) 0)))

(when (not (memq 'leftright-sa-m ecb-layout-window-sizes))
  (add-to-list 'ecb-layout-window-sizes
    '("leftright-sa-m"
      (0.17 . 0.3)
      (0.17 . 0.4)
      (0.25 . 0.7)
    )
  )
)

(ecb-layout-define "leftright-da-m" left-right
  "This function creates the following layout:

   --------------------------------------------------------------
   |              |                               |             |
   |              |                               |             |
   |              |                               |             |
   |  Directories |                               |             |
   |              |                               |             |
   |              |                               |             |
   |              |                               |             |
   |--------------|             Edit              |  Methods    |
   |              |                               |             |
   |              |                               |             |
   |  Analyse     |                               |             |
   |              |                               |             |
   |              |                               |             |
   |              |                               |             |
   --------------------------------------------------------------
   |                                                            |
   |                    Compilation                             |
   |                                                            |
   --------------------------------------------------------------

If you have not set a compilation-window in `ecb-compile-window-height' then
the layout contains no persistent compilation window and the other windows get a
little more place."
  (ecb-set-directories-buffer)
  (ecb-split-ver 0.4)
  (ecb-set-analyse-buffer)
  (select-window (next-window (next-window)))
  (ecb-set-methods-buffer)
  (select-window (previous-window (previous-window (selected-window) 0) 0)))

(when (not (memq 'leftright-da-m ecb-layout-window-sizes))
  (add-to-list 'ecb-layout-window-sizes
    '("leftright-da-m"
      (0.17 . 0.4)
      (0.17 . 0.3)
      (0.25 . 0.7)
    )
  )
)
(when (not (memq "leftright-da-m" ecb-show-sources-in-directories-buffer))
  (add-to-list 'ecb-show-sources-in-directories-buffer "leftright-da-m")
)


(ecb-layout-define "leftright-dsa-m" left-right
  "This function creates the following layout:

   --------------------------------------------------------------
   |              |                               |             |
   |  Directories |                               |             |
   |              |                               |             |
   |              |                               |             |
   |              |                               |             |
   |              |                               |             |
   |              |                               |             |
   |--------------|             Edit              |  Methods    |
   |              |                               |             |
   |  Sources     |                               |             |
   |              |                               |             |
   |--------------|                               |             |
   |              |                               |             |
   |  Analyse     |                               |             |
   |              |                               |             |
   --------------------------------------------------------------
   |                                                            |
   |                    Compilation                             |
   |                                                            |
   --------------------------------------------------------------

If you have not set a compilation-window in `ecb-compile-window-height' then
the layout contains no persistent compilation window and the other windows get a
little more place."
  (ecb-set-directories-buffer)
  (ecb-split-ver 0.3)
  (ecb-set-sources-buffer)
  (ecb-split-ver 0.4)
  (ecb-set-analyse-buffer)
  (select-window (next-window (next-window)))
  (ecb-set-methods-buffer)
  (select-window (previous-window (previous-window (selected-window) 0) 0)))

(when (not (memq 'leftright-dsa-m ecb-layout-window-sizes))
  (add-to-list 'ecb-layout-window-sizes
    '("leftright-dsa-m"
      (0.17 . 0.2)
      (0.17 . 0.2)
      (0.17 . 0.4)
      (0.23 . 0.8)
    )
  )
)

(ecb-layout-define "left-speedbar" left
  "This function creates the following layout:

   -------------------------------------------------------
   |              |                                      |
   |              |                                      |
   |              |                                      |
   |              |                                      |
   |              |                                      |
   |              |                                      |
   |              |                                      |
   |   Speedbar   |                 Edit                 |
   |              |                                      |
   |              |                                      |
   |              |                                      |
   |              |                                      |
   |              |                                      |
   |              |                                      |
   |              |                                      |
   -------------------------------------------------------
   |                                                     |
   |                    Compilation                      |
   |                                                     |
   -------------------------------------------------------

If you have not set a compilation-window in `ecb-compile-window-height' then
the layout contains no persistent compilation window and the other windows get a
little more place. "
  (ecb-set-speedbar-buffer)
  (select-window (next-window)))


(when (not (memq 'left-speedbar ecb-layout-window-sizes))
  (add-to-list 'ecb-layout-window-sizes
    '("left-speedbar"
      (0.3 . 0.8)
    )
  )
)



(ecb-layout-define "right-speedbar" right
  "This function creates the following layout:
   -------------------------------------------------------
   |                                     |               |
   |                                     |               |
   |                                     |               |
   |                                     |               |
   |                                     |               |
   |                                     |               |
   |                                     |               |
   |                 Edit                |  Speedbar     |
   |                                     |               |
   |                                     |               |
   |                                     |               |
   |                                     |               |
   |                                     |               |
   |                                     |               |
   |                                     |               |
   -------------------------------------------------------
   |                                                     |
   |                    Compilation                      |
   |                                                     |
   -------------------------------------------------------
If you have not set a compilation-window in `ecb-compile-window-height' then
the layout contains no persistent compilation window and the other windows get a
little more place."
  (let ((edit-win (previous-window (selected-window) 0)))
    (ecb-set-speedbar-buffer)
    (select-window edit-win)))

(when (not (memq 'right-speedbar ecb-layout-window-sizes))
  (add-to-list 'ecb-layout-window-sizes
    '("right-speedbar"
      (0.3 . 0.8)
    )
  )
)

(ecb-layout-define "right-m" right
  "This function creates the following layout:

   -------------------------------------------------------
   |                                      |              |
   |                                      |              |
   |                                      |              |
   |                                      |              |
   |                                      |              |
   |                                      |              |
   |                                      |              |
   |                 Edit                 |   Methods    |
   |                                      |              |
   |                                      |              |
   |                                      |              |
   |                                      |              |
   |                                      |              |
   |                                      |              |
   |                                      |              |
   -------------------------------------------------------
   |                                                     |
   |                    Compilation                      |
   |                                                     |
   -------------------------------------------------------

If you have not set a compilation-window in `ecb-compile-window-height' then
the layout contains no persistent compilation window and the other windows get a
little more place."
  (ecb-set-methods-buffer)
  (select-window (next-window)))
(when (not (memq 'right-m ecb-layout-window-sizes))
  (add-to-list 'ecb-layout-window-sizes
    '("right-m"
      (0.25 . 0.8)
    )
  )
)