kienan
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

multi-term

This commit is contained in:
Kienan Stewart 2013-02-22 09:16:16 -05:00
parent 6adf61ba05
commit f658a37819
2 changed files with 799 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
init.el
View File

@ -1,5 +1,10 @@
;; Generic Emacs stuff
(add-to-list 'load-path "~/.emacs.d")
;; multi-term
(require 'multi-term)
(setq multi-term-program "/bin/bash")
;; Always use spaces instead of tabs, a tab is 4 spaces by default
(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)

794
multi-term.el Normal file
View File

@ -0,0 +1,794 @@
;;; multi-term.el --- Managing multiple terminal buffers in Emacs.
;; Author: Andy Stewart <lazycat.manatee@gmail.com>
;; Maintainer: ahei <ahei0802@gmail.com>
;; Copyright (C) 2008, 2009, Andy Stewart, all rights reserved.
;; Copyright (C) 2010, ahei, all rights reserved.
;; Created: <2008-09-19 23:02:42>
;; Version: 0.8.9
;; Last-Updated: <2013-01-08 10:11:43 Tuesday by jpkotta>
;; URL: http://www.emacswiki.org/emacs/download/multi-term.el
;; Keywords: term, terminal, multiple buffer
;; Compatibility: GNU Emacs 23.2.1
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
;; Floor, Boston, MA 02110-1301, USA.
;; Features that might be required by this library:
;;
;; `term' `cl' `advice'
;;
;;; Commentary:
;;
;; This package is for creating and managing multiple terminal buffers in Emacs.
;;
;; By default, term.el provides a great terminal emulator in Emacs.
;; But I have some troubles with term-mode:
;;
;; 1. term.el just provides commands `term' or `ansi-term'
;; for creating a terminal buffer.
;; And there is no special command to create or switch
;; between multiple terminal buffers quickly.
;;
;; 2. By default, the keystrokes of term.el conflict with global-mode keystrokes,
;; which makes it difficult for the user to integrate term.el with Emacs.
;;
;; 3. By default, executing *NIX command “exit” from term-mode,
;; it will leave an unused buffer.
;;
;; 4. term.el won’t quit running sub-process when you kill terminal buffer forcibly.
;;
;; 5. Haven’t a dedicated window for debug program.
;;
;; And multi-term.el is enhanced with those features.
;;
;;; Installation:
;;
;; Copy multi-term.el to your load-path and add to your ~/.emacs
;;
;; (require 'multi-term)
;;
;; And setup program that `multi-term' will need:
;;
;; (setq multi-term-program "/bin/bash")
;;
;; or setup like me "/bin/zsh" ;)
;;
;; Below are the commands you can use:
;;
;; `multi-term' Create a new term buffer.
;; `multi-term-next' Switch to next term buffer.
;; `multi-term-prev' Switch to previous term buffer.
;; `multi-term-dedicated-open' Open dedicated term window.
;; `multi-term-dedicated-close' Close dedicated term window.
;; `multi-term-dedicated-toggle' Toggle dedicated term window.
;; `multi-term-dedicated-select' Select dedicated term window.
;;
;; Tips:
;;
;; You can type `C-u' before command `multi-term' or `multi-term-dedicated-open'
;; then will prompt you shell name for creating terminal buffer.
;;
;;; Customize:
;;
;; `multi-term-program' default is nil, so when creating new term buffer,
;; send environment variable of `SHELL' (`ESHELL', `/bin/sh') to `make-term'.
;;
;; And you can set it to your liking, like me: ;-)
;;
;; (setq multi-term-program "/bin/zsh")
;;
;; `multi-term-default-dir' default is `~/', only use when current buffer
;; is not in a real directory.
;;
;; `multi-term-buffer-name' is the name of term buffer.
;;
;; `multi-term-scroll-show-maximum-output' controls how interpreter
;; output causes window to scroll.
;;
;; `multi-term-scroll-to-bottom-on-output' controls whether interpreter
;; output causes window to scroll.
;;
;; `multi-term-switch-after-close' try to switch other `multi-term' buffer
;; after close current one.
;; If you don't like this feature just set it with nil.
;;
;; `term-unbind-key-list' is a key list to unbind some keystroke.
;;
;; `term-bind-key-alist' is a key alist that binds some keystroke.
;; If you don't like default, modify it.
;;
;; `multi-term-dedicated-window-height' the height of a dedicated term window.
;;
;; `multi-term-dedicated-max-window-height' the max height limit that dedicated
;; window is allowed.
;;
;; `multi-term-dedicated-skip-other-window-p' whether skip dedicated term
;; window when use command `other-window' to cycle windows order.
;;
;; All of the above can be customize by:
;; M-x customize-group RET multi-term RET
;;
;;; Change log:
;; 2013/01/08
;; * Fix customize group of `multi-term-try-create'.
;; * Add autoloads.
;; * Add new commands `term-send-quote' and `term-send-M-x'.
;;
;; 2009/07/04
;; * Add new option `multi-term-dedicated-select-after-open-p'.
;;
;; 2009/06/29
;; * Fix regexp bug.
;;
;; 2009/04/21
;; * Fix a bug that bring at `2009/03/28':
;; It will kill sub-process in other multi-term buffer
;; when we kill current multi-term buffer.
;;
;; 2009/03/29
;; * Add new command `term-send-reverse-search-history'.
;;
;; 2009/03/28
;; * Add new option `multi-term-switch-after-close'.
;;
;; 2009/02/18
;; * Fix bug between ECB and `multi-term-dedicated-close'.
;;
;; 2009/02/05
;; * Prompt user shell name when type `C-u' before command
;; `multi-term' or `multi-term-dedicated-open'.
;; * Fix doc.
;;
;; 2009/01/29
;; * Use `term-quit-subjob' instead `term-interrupt-subjob'.
;; * Fix doc.
;;
;; 2009/01/13
;; * Rewrite advice for `pop-to-buffer' to avoid `pop-to-buffer' not effect
;; when have many dedicated window in current frame.
;; * Rewrite advice for `delete-other-windows' to avoid use common variable
;; `delete-protected-window-list' and use `window-dedicated-p' instead.
;; Remove variable `delete-protected-window-list' and function
;; `multi-term-dedicated-match-protected-window-p'.
;;
;; 2009/01/06
;; * Improve document.
;;
;; 2008/12/29
;; * Remove option `multi-term-current-window-height' and
;; function `multi-term-current-directory'.
;; * Add some functions to make get dedicated term buffer,
;; those functions is beginning with `multi-term-dedicated-'.
;; * Modified advice `delete-window', make command `delete-window'
;; and delete dedicated window, but will remember window height
;; before deleted.
;; * Don't remember dedicated window height if larger than max value.
;; * Fix some bug with `delete-other-windows' and window configuration.
;; And this bug exists with another extension `sr-speedbar'.
;; * Add new variable `delete-protected-window-list' for protected
;; special window that won't be deleted.
;; This variable is common for any extension that use dedicated
;; window.
;; * Fix doc.
;;
;; 2008/12/21
;; * Default bind `C-m' with `term-send-input'.
;;
;; 2008/12/10
;; * Improve customize interface.
;; * Setup customize automatically, don't need to user setup it up.
;; * Add option `multi-term-try-create'.
;; * Make function `multi-term-switch' accept offset argument.
;; * Fix doc.
;;
;; 2008/10/22
;; * Add variable `multi-term-current-window-height'.
;; * Add variable `multi-term-buffer-name'.
;; * Add variable `term-unbind-key-list'.
;; * Add variable `term-rebind-key-alist'.
;; * Move key setup and some extension from `term-extension.el'.
;; * Create new function `multi-term-keystroke-setup'.
;; * Fix doc.
;;
;; 2008/09/19
;; * First released.
;;
;;; Acknowledgments:
;;
;; Mark Triggs <mst@dishevelled.net>
;; For create multi-shell.el
;; Aaron S. Hawley <aaron.s.hawley@gmail.com>
;; For improve document.
;;
;;; Bug
;;
;;
;;; TODO
;;
;;
;;
;;; Require:
(require 'term)
(require 'cl)
(require 'advice)
;;; Code:
;;; Customize
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Customize ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defgroup multi-term nil
"Multi term manager."
:group 'term)
(defcustom multi-term-program nil
"The program of term.
If this is nil, setup to environment variable of `SHELL'."
:type 'string
:group 'multi-term)
(defcustom multi-term-program-switches nil
"The command-line switches to pass to the term program."
:type 'string
:group 'multi-term)
(defcustom multi-term-try-create t
"Try to create a new term buffer when switch.
When use `multi-term-next' or `multi-term-prev', switch term buffer,
and try to create a new term buffer if no term buffers exist."
:type 'boolean
:group 'multi-term)
(defcustom multi-term-default-dir "~/"
"The default directory for terms if current directory doesn't exist."
:type 'string
:group 'multi-term)
(defcustom multi-term-buffer-name "terminal"
"The buffer name of term buffer."
:type 'string
:group 'multi-term)
(defcustom multi-term-scroll-show-maximum-output nil
"*Controls how interpreter output causes window to scroll.
If non-nil, then show the maximum output when the window is scrolled.
See variable `multi-term-scroll-to-bottom-on-output'."
:type 'boolean
:group 'multi-term)
(defcustom multi-term-scroll-to-bottom-on-output nil
"*Controls whether interpreter output causes window to scroll.
If nil, then do not scroll. If t or `all', scroll all windows showing buffer.
If `this', scroll only the selected window.
If `others', scroll only those that are not the selected window.
The default is nil.
See variable `multi-term-scroll-show-maximum-output'."
:type 'boolean
:group 'multi-term)
(defcustom multi-term-switch-after-close 'NEXT
"Try to switch other `multi-term' buffer after close current one.
If this option is 'NEXT, switch to next `multi-term' buffer;
If this option is 'PREVIOUS, switch to previous `multi-term' buffer.
If this option is nil, don't switch other `multi-term' buffer."
:type 'symbol
:group 'multi-term)
(defcustom term-unbind-key-list
'("C-z" "C-x" "C-c" "C-h" "C-y" "<ESC>")
"The key list that will need to be unbind."
:type 'list
:group 'multi-term)
(defcustom term-bind-key-alist
'(
("C-c C-c" . term-interrupt-subjob)
("C-p" . previous-line)
("C-n" . next-line)
("C-s" . isearch-forward)
("C-r" . isearch-backward)
("C-m" . term-send-raw)
("M-f" . term-send-forward-word)
("M-b" . term-send-backward-word)
("M-o" . term-send-backspace)
("M-p" . term-send-up)
("M-n" . term-send-down)
("M-M" . term-send-forward-kill-word)
("M-N" . term-send-backward-kill-word)
("M-r" . term-send-reverse-search-history)
("M-," . term-send-input)
("M-." . comint-dynamic-complete))
"The key alist that will need to be bind.
If you do not like default setup, modify it, with (KEY . COMMAND) format."
:type 'alist
:group 'multi-term)
(defcustom multi-term-dedicated-window-height 14
"The height of `multi-term' dedicated window."
:type 'integer
:group 'multi-term)
(defcustom multi-term-dedicated-max-window-height 30
"The max height limit of `multi-term' dedicated window.
Default, when hide `multi-term' dedicated window, will remember
window height before hide, except height is larger than this.`"
:type 'integer
:group 'multi-term)
(defcustom multi-term-dedicated-skip-other-window-p nil
"Default, can have `other-window' select window in cyclic ordering of windows.
In cases you don't want to select `multi-term' dedicated window, use `other-window'
and make `multi-term' dedicated window as a viewable sidebar.
So please turn on this option if you want to skip `multi-term' dedicated window with `other-window'.
Default is nil."
:type 'boolean
:set (lambda (symbol value)
(set symbol value)
(when (ad-advised-definition-p 'other-window)
(multi-term-dedicated-handle-other-window-advice value)))
:group 'multi-term)
(defcustom multi-term-dedicated-select-after-open-p nil
"Default, multi-term won't focus terminal window after you open dedicated window.
Please make this option with t if you want focus terminal window.
Default is nil."
:type 'boolean
:group 'multi-term)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Constant ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst multi-term-dedicated-buffer-name "MULTI-TERM-DEDICATED"
"The buffer name of dedicated `multi-term'.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Variable ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar multi-term-dedicated-window nil
"The dedicated `multi-term' window.")
(defvar multi-term-dedicated-buffer nil
"The dedicated `multi-term' buffer.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Interactive Functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;###autoload
(defun multi-term ()
"Create new term buffer.
Will prompt you shell name when you type `C-u' before this command."
(interactive)
(let (term-buffer)
;; Set buffer.
(setq term-buffer (multi-term-get-buffer current-prefix-arg))
(set-buffer term-buffer)
;; Internal handle for `multi-term' buffer.
(multi-term-internal)
;; Switch buffer
(switch-to-buffer term-buffer)))
;;;###autoload
(defun multi-term-next (&optional offset)
"Go to the next term buffer.
If OFFSET is `non-nil', will goto next term buffer with OFFSET."
(interactive "P")
(multi-term-switch 'NEXT (or offset 1)))
;;;###autoload
(defun multi-term-prev (&optional offset)
"Go to the previous term buffer.
If OFFSET is `non-nil', will goto previous term buffer with OFFSET."
(interactive "P")
(multi-term-switch 'PREVIOUS (or offset 1)))
;;;###autoload
(defun multi-term-dedicated-open ()
"Open dedicated `multi-term' window.
Will prompt you shell name when you type `C-u' before this command."
(interactive)
(if (not (multi-term-dedicated-exist-p))
(let ((current-window (selected-window)))
(if (multi-term-buffer-exist-p multi-term-dedicated-buffer)
(unless (multi-term-window-exist-p multi-term-dedicated-window)
(multi-term-dedicated-get-window))
;; Set buffer.
(setq multi-term-dedicated-buffer (multi-term-get-buffer current-prefix-arg t))
(set-buffer (multi-term-dedicated-get-buffer-name))
;; Get dedicate window.
(multi-term-dedicated-get-window)
;; Whether skip `other-window'.
(multi-term-dedicated-handle-other-window-advice multi-term-dedicated-skip-other-window-p)
;; Internal handle for `multi-term' buffer.
(multi-term-internal))
(set-window-buffer multi-term-dedicated-window (get-buffer (multi-term-dedicated-get-buffer-name)))
(set-window-dedicated-p multi-term-dedicated-window t)
;; Select window.
(select-window
(if multi-term-dedicated-select-after-open-p
;; Focus dedicated terminal window if option `multi-term-dedicated-select-after-open-p' is enable.
multi-term-dedicated-window
;; Otherwise focus current window.
current-window)))
(message "`multi-term' dedicated window has exist.")))
(defun multi-term-dedicated-close ()
"Close dedicated `multi-term' window."
(interactive)
(if (multi-term-dedicated-exist-p)
(let ((current-window (selected-window)))
;; Remember height.
(multi-term-dedicated-select)
(multi-term-dedicated-remember-window-height)
;; Close window.
(if (and (require 'ecb nil t)
ecb-activated-window-configuration)
;; Toggle ECB window when ECB window activated.
(progn
(ecb-deactivate)
(ecb-activate))
;; Otherwise delete dedicated window.
(delete-window multi-term-dedicated-window)
(if (multi-term-window-exist-p current-window)
(select-window current-window))))
(message "`multi-term' window is not exist.")))
(defun multi-term-dedicated-remember-window-height ()
"Remember window height."
(let ((win-height (multi-term-current-window-take-height)))
(if (and (multi-term-dedicated-window-p) ;in `multi-term' window
(> win-height 1)
(<= win-height multi-term-dedicated-max-window-height))
(setq multi-term-dedicated-window-height win-height))))
;;;###autoload
(defun multi-term-dedicated-toggle ()
"Toggle dedicated `multi-term' window."
(interactive)
(if (multi-term-dedicated-exist-p)
(multi-term-dedicated-close)
(multi-term-dedicated-open)))
;;;###autoload
(defun multi-term-dedicated-select ()
"Select the `multi-term' dedicated window."
(interactive)
(if (multi-term-dedicated-exist-p)
(select-window multi-term-dedicated-window)
(message "`multi-term' window is not exist.")))
(defun term-send-backward-kill-word ()
"Backward kill word in term mode."
(interactive)
(term-send-raw-string "\C-w"))
(defun term-send-forward-kill-word ()
"Kill word in term mode."
(interactive)
(term-send-raw-string "\ed"))
(defun term-send-backward-word ()
"Move backward word in term mode."
(interactive)
(term-send-raw-string "\eb"))
(defun term-send-forward-word ()
"Move forward word in term mode."
(interactive)
(term-send-raw-string "\ef"))
(defun term-send-reverse-search-history ()
"Search history reverse."
(interactive)
(term-send-raw-string "\C-r"))
(defun term-send-quote ()
"Quote the next character in term-mode.
Similar to how `quoted-insert' works in a regular buffer."
(interactive)
(term-send-raw-string "\C-v"))
(defun term-send-M-x ()
"Type M-x in term-mode."
(interactive)
(term-send-raw-string "\ex"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Utilise Functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun multi-term-internal ()
"Internal handle for `multi-term' buffer."
;; Add customize keystroke with `term-mode-hook'
(remove-hook 'term-mode-hook 'multi-term-keystroke-setup)
(add-hook 'term-mode-hook 'multi-term-keystroke-setup)
;; Load term mode
(term-mode)
(term-char-mode)
;; Handle term buffer close
(multi-term-handle-close)
;; Handle `output' variable.
(setq term-scroll-show-maximum-output multi-term-scroll-show-maximum-output
term-scroll-to-bottom-on-output multi-term-scroll-to-bottom-on-output)
;; Add hook to be sure `term' quit subjob before buffer killed.
(add-hook 'kill-buffer-hook 'multi-term-kill-buffer-hook))
(defun multi-term-get-buffer (&optional special-shell dedicated-window)
"Get term buffer.
If option SPECIAL-SHELL is `non-nil', will use shell from user input.
If option DEDICATED-WINDOW is `non-nil' will create dedicated `multi-term' window ."
(with-temp-buffer
(let ((shell-name (or multi-term-program ;shell name
(getenv "SHELL")
(getenv "ESHELL")
"/bin/sh"))
term-list-length ;get length of term list
index ;setup new term index
term-name) ;term name
(if dedicated-window
(setq term-name multi-term-dedicated-buffer-name)
;; Compute index.
(setq term-list-length (length (multi-term-list)))
(setq index (if term-list-length (1+ term-list-length) 1))
;; switch to current local directory,
;; if in-existence, switch to `multi-term-default-dir'.
(cd (or default-directory (expand-file-name multi-term-default-dir)))
;; adjust value N when max index of term buffer is less than length of term list
(while (buffer-live-p (get-buffer (format "*%s<%s>*" multi-term-buffer-name index)))
(setq index (1+ index)))
(setq term-name (format "%s<%s>" multi-term-buffer-name index)))
;; Try get other shell name if `special-shell' is non-nil.
(if special-shell
(setq shell-name (read-from-minibuffer "Run program: " shell-name)))
;; Make term, details to see function `make-term' in `term.el'.
(if multi-term-program-switches
(make-term term-name shell-name nil multi-term-program-switches)
(make-term term-name shell-name)))))
(defun multi-term-handle-close ()
"Close current term buffer when `exit' from term buffer."
(when (ignore-errors (get-buffer-process (current-buffer)))
(set-process-sentinel (get-buffer-process (current-buffer))
(lambda (proc change)
(when (string-match "\\(finished\\|exited\\)" change)
(kill-buffer (process-buffer proc)))))))
(defun multi-term-kill-buffer-hook ()
"Function that hook `kill-buffer-hook'."
(when (eq major-mode 'term-mode)
;; Quit the current subjob
;; when have alive process with current term buffer.
;; Must do this job BEFORE `multi-term-switch-after-close' action.
(when (term-check-proc (current-buffer))
;; Quit sub-process.
(term-quit-subjob))
;; Remember dedicated window height.
(multi-term-dedicated-remember-window-height)
;; Try to switch other multi-term buffer
;; when option `multi-term-switch-after-close' is non-nil.
(when multi-term-switch-after-close
(multi-term-switch-internal multi-term-switch-after-close 1))))
(defun multi-term-list ()
"List term buffers presently active."
;; Autload command `remove-if-not'.
(autoload 'remove-if-not "cl-seq")
(sort
(remove-if-not (lambda (b)
(setq case-fold-search t)
(string-match
(format "^\\\*%s<[0-9]+>\\\*$" multi-term-buffer-name)
(buffer-name b)))
(buffer-list))
(lambda (a b)
(< (string-to-number
(cadr (split-string (buffer-name a) "[<>]")))
(string-to-number
(cadr (split-string (buffer-name b) "[<>]")))))))
(defun multi-term-switch (direction offset)
"Switch `multi-term' buffers.
If DIRECTION is `NEXT', switch to the next term.
If DIRECTION `PREVIOUS', switch to the previous term.
Option OFFSET for skip OFFSET number term buffer."
(unless (multi-term-switch-internal direction offset)
(if multi-term-try-create
(progn
(multi-term)
(message "Create a new `multi-term' buffer."))
(message "Haven't any `multi-term' buffer exist."))))
(defun multi-term-switch-internal (direction offset)
"Internal `multi-term' buffers switch function.
If DIRECTION is `NEXT', switch to the next term.
If DIRECTION `PREVIOUS', switch to the previous term.
Option OFFSET for skip OFFSET number term buffer."
(let (terms this-buffer)
(setq terms (multi-term-list))
(if (consp terms)
(progn
(setf (cdr (last terms)) terms)
(setq this-buffer (position (current-buffer) (multi-term-list)))
(if this-buffer
(if (eql direction 'NEXT)
(switch-to-buffer (nth (+ this-buffer offset) terms))
(switch-to-buffer (nth (+ (- (length (multi-term-list)) offset)
this-buffer) terms)))
(switch-to-buffer (car terms)))
t)
nil)))
(defun multi-term-keystroke-setup ()
"Keystroke setup of `term-char-mode'.
By default, the key bindings of `term-char-mode' conflict with user's keystroke.
So this function unbinds some keys with `term-raw-map',
and binds some keystroke with `term-raw-map'."
(let (bind-key bind-command)
;; Unbind base key that conflict with user's keys-tokes.
(dolist (unbind-key term-unbind-key-list)
(cond
((stringp unbind-key) (setq unbind-key (read-kbd-macro unbind-key)))
((vectorp unbind-key) nil)
(t (signal 'wrong-type-argument (list 'array unbind-key))))
(define-key term-raw-map unbind-key nil))
;; Add some i use keys.
;; If you don't like my keystroke,
;; just modified `term-bind-key-alist'
(dolist (element term-bind-key-alist)
(setq bind-key (car element))
(setq bind-command (cdr element))
(cond
((stringp bind-key) (setq bind-key (read-kbd-macro bind-key)))
((vectorp bind-key) nil)
(t (signal 'wrong-type-argument (list 'array bind-key))))
(define-key term-raw-map bind-key bind-command))))
(defun multi-term-dedicated-handle-other-window-advice (activate)
"Handle advice for function `other-window'.
If ACTIVATE is `non-nil', will enable advice
`multi-term-dedicated-other-window-advice'.
Otherwise, disable it."
(if activate
(ad-enable-advice 'other-window 'after 'multi-term-dedicated-other-window-advice)
(ad-disable-advice 'other-window 'after 'multi-term-dedicated-other-window-advice))
(ad-activate 'other-window))
(defun multi-term-current-window-take-height (&optional window)
"Return the height the `window' takes up.
Not the value of `window-height', it returns usable rows available for WINDOW.
If `window' is nil, get current window."
(let ((edges (window-edges window)))
(- (nth 3 edges) (nth 1 edges))))
(defun multi-term-dedicated-get-window ()
"Get `multi-term' dedicated window."
(setq multi-term-dedicated-window
(split-window
(selected-window)
(- (multi-term-current-window-take-height) multi-term-dedicated-window-height))))
(defun multi-term-dedicated-get-buffer-name ()
"Get the buffer name of `multi-term' dedicated window."
(format "*%s*" multi-term-dedicated-buffer-name))
(defun multi-term-dedicated-exist-p ()
"Return `non-nil' if `multi-term' dedicated window exist."
(and (multi-term-buffer-exist-p multi-term-dedicated-buffer)
(multi-term-window-exist-p multi-term-dedicated-window)))
(defun multi-term-window-exist-p (window)
"Return `non-nil' if WINDOW exist.
Otherwise return nil."
(and window (window-live-p window)))
(defun multi-term-buffer-exist-p (buffer)
"Return `non-nil' if `BUFFER' exist.
Otherwise return nil."
(and buffer (buffer-live-p buffer)))
(defun multi-term-dedicated-window-p ()
"Return `non-nil' if current window is `multi-term' dedicated window.
Otherwise return nil."
(equal (multi-term-dedicated-get-buffer-name) (buffer-name (window-buffer))))
(defun multi-term-window-dedicated-only-one-p ()
"Only have one non-dedicated window."
(interactive)
(let ((window-number 0)
(dedicated-window-number 0))
(walk-windows
(lambda (w)
(with-selected-window w
(incf window-number)
(if (window-dedicated-p w)
(incf dedicated-window-number)))))
(if (and (> dedicated-window-number 0)
(= (- window-number dedicated-window-number) 1))
t nil)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Advice ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defadvice delete-other-windows (around multi-term-delete-other-window-advice activate)
"This is advice to make `multi-term' avoid dedicated window deleted.
Dedicated window can't deleted by command `delete-other-windows'."
(let ((multi-term-dedicated-active-p (multi-term-window-exist-p multi-term-dedicated-window)))
(if multi-term-dedicated-active-p
(let ((current-window (selected-window)))
(dolist (win (window-list))
(when (and (window-live-p win)
(not (eq current-window win))
(not (window-dedicated-p win)))
(delete-window win))))
ad-do-it)))
(defadvice delete-window (before multi-term-delete-window-advice activate)
"Use `delete-window' delete `multi-term' dedicated window.
Have same effect as command `multi-term-dedicated-close'.
This advice to remember `multi-term' dedicated window height before deleting."
;; Remember window height before deleted.
(multi-term-dedicated-remember-window-height))
(defadvice pop-to-buffer (before multi-term-pop-to-buffer-advice activate)
"This advice fix the problem between `pop-to-buffer' and dedicated window.
By default, function `display-buffer' can't display buffer in selected window
if current window is `dedicated'.
So function `display-buffer' conflicts with `sr-speedbar' window, because
`sr-speedbar' window is a `dedicated' window.
That is to say, when current frame just have one `non-dedicated' window,
any functions that uses `display-buffer' can't split windows
to display buffer, even when the option `pop-up-windows' is enabled.
And the example function that can induce the problem is `pop-to-buffer'.
This advice will fix this problem when current frame just have one `non-dedicated' window."
(when (and pop-up-windows ;`pop-up-windows' is enable
(multi-term-window-dedicated-only-one-p) ;just have one `non-dedicated' window.
(multi-term-window-exist-p multi-term-dedicated-window)
(not (multi-term-dedicated-window-p))) ;not in `sr-speedbar' window
(split-window-vertically)
(windmove-down)))
(defadvice other-window (after multi-term-dedicated-other-window-advice)
"Default, can use `other-window' select window in cyclic ordering of windows.
But sometimes we don't want to select `sr-speedbar' window,
but use `other-window' and just make `multi-term' dedicated
window as a viewable sidebar.
This advice can make `other-window' skip `multi-term' dedicated window."
(let ((count (or (ad-get-arg 0) 1)))
(when (and (multi-term-window-exist-p multi-term-dedicated-window)
(eq multi-term-dedicated-window (selected-window)))
(other-window count))))
(provide 'multi-term)
;; Local Variables:
;; time-stamp-line-limit: 10
;; time-stamp-start: "Last-Updated: <"
;; time-stamp-end: ">"
;; End:
;;; multi-term.el ends here
;;; LocalWords: multi el dir sr Hawley eb ef cd