home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / misc / multi-shell.el < prev    next >
Encoding:
Text File  |  1991-08-04  |  6.1 KB  |  154 lines
  1. ; Path: dg-rtp!rock!mcnc!stanford.edu!snorkelwacker.mit.edu!think.com!spool.mu.edu!uwm.edu!ux1.cso.uiuc.edu!m.cs.uiuc.edu!sane
  2. ; From: sane@cs.uiuc.edu (Aamod Sane)
  3. ; Newsgroups: gnu.emacs.help,comp.emacs
  4. ; Subject: Tracking-shell (Re: multiple concurrent emacs shells?)
  5. ; Date: 21 Jul 91 21:12:29 GMT
  6. ; References: <1991Jul20.014343.11662@milton.u.washington.edu>
  7. ; Organization: University of Illinois, Dept. of Comp. Sci., Urbana, IL
  8. ; Nntp-Posting-Host: clitus.cs.uiuc.edu
  9. ; 
  10. ; narf@milton.u.washington.edu (Francis Taylor) writes:
  11. ; 
  12. ; >Does anyone out there know of any way to have multiple running shells
  13. ; >in one emacs session?  Thanks.
  14. ; 
  15. ; Here is a lisp file that will do it automatically for you. REquires
  16. ; cmushell , which is a better shell than normal shell. You will
  17. ; be find it at any archive, prep.ai.mit.edu or tut.cis.ohio-state.edu etc.
  18. ; 
  19. ; multi-shell makes multiple shells , tracking-shell  when invoked from
  20. ; a buffer will already do a cd to the buffer disrectory. Usually,
  21. ; you do not require multiple shells at all in this case.
  22. ; You can change this to use shell if you want
  23. ; 
  24. ; From tracking shell comments:
  25. ; 
  26. ;; When invoked from a buffer, Tracking-Shell cd's to that buffers directory.
  27. ;; Thus to do something in the current directory of a buffer, pop up
  28. ;; a tracking-shell, do whatever, and close the shell. Automatic cd'ing
  29. ;; allows direct usage of shell commands; complicated key sequences are
  30. ;; not neccessary for file manipulation.
  31.  
  32.  
  33. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  34. ;;
  35. ;;    Multiple Simultaneous shell 
  36. ;;    Trakcing shell - track the directory of buffer every time
  37. ;;
  38. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  39. ;; Copyright (C) Aamod Sane (sane@cs.uiuc.edu)
  40. ;; Author: Aamod Sane
  41. ;; This file is not part of GNU Emacs yet.
  42. ;; The FSF copyright below applies to this file.
  43.  
  44. ;; LCD Archive Entry:
  45. ;; multi-shell|Aamod Sane|sane@cs.uiuc.edu
  46. ;; |Multiple simultaneous shells
  47. ;; |91-07-21||~/misc/multi-shell.el.Z|
  48.  
  49. ;; GNU Emacs is distributed in the hope that it will be useful,
  50. ;; but WITHOUT ANY WARRANTY.  No author or distributor
  51. ;; accepts responsibility to anyone for the consequences of using it
  52. ;; or for whether it serves any particular purpose or works at all,
  53. ;; unless he says so in writing.  Refer to the GNU Emacs General Public
  54. ;; License for full details.
  55.  
  56. ;; Everyone is granted permission to copy, modify and redistribute
  57. ;; GNU Emacs, but only under the conditions described in the
  58. ;; GNU Emacs General Public License.   A copy of this license is
  59. ;; supposed to have been given to you along with GNU Emacs so you
  60. ;; can know your rights and responsibilities.  It should be in a
  61. ;; file named COPYING.  Among other things, the copyright notice
  62. ;; and this notice must be preserved on all copies.
  63.  
  64. (require 'cmushell)
  65.  
  66. (defun multi-shell(&optional n)
  67.   "Each time you invoke this, a new shell will be popped.
  68. See the documentation for cmushell for other details."
  69.   (interactive)
  70.   (let* ((name (if (null n) "MultiShell" n)) 
  71.      (buf (generate-new-buffer name)) 
  72.      (bufnam (buffer-name buf)))
  73.     (cond ((not (comint-check-proc bufnam))
  74.        (let* ((prog (or explicit-shell-file-name
  75.                 (getenv "ESHELL")
  76.                 (getenv "SHELL")
  77.                 "/bin/sh"))             
  78.           (name (file-name-nondirectory prog))
  79.           (startfile (concat "~/.emacs_" name))
  80.           (xargs-name (intern-soft (concat "explicit-" name "-args"))))
  81.          (save-excursion 
  82.            (set-buffer (apply 'multi-comint bufnam prog
  83.                   (if (file-exists-p startfile) startfile)
  84.                   (if (and xargs-name (boundp xargs-name))
  85.                       (symbol-value xargs-name)
  86.                     '("-i"))))
  87.            (cmushell-mode)))))
  88.     bufnam))
  89.  
  90.  
  91. (defun multi-comint (name program &optional startfile &rest switches)
  92.   (let* ((buffer (get-buffer-create name))
  93.      (proc (get-buffer-process buffer)))
  94.     ;; If no process, or nuked process, crank up a new one and put buffer in
  95.     ;; comint mode. Otherwise, leave buffer and existing process alone.
  96.     (cond ((or (not proc) (not (memq (process-status proc) '(run stop))))
  97.        (save-excursion
  98.          (set-buffer buffer)
  99.          (comint-mode)) ; Install local vars, mode, keymap, ...
  100.        (comint-exec buffer name program startfile switches)))
  101.     buffer))
  102.  
  103. (defconst tracking-shell-name "*Tracking-Shell*")
  104. (defconst tracking-shell-name-nostar "Tracking-Shell")
  105.  
  106. (defvar tracking-shell-other-window t
  107.   "*Whether tracking shell should appear in current window or not")
  108.  
  109. ;; When invoked from a buffer, Tracking-Shell cd's to that buffers directory.
  110. ;; Thus to do something in the current directory of a buffer, pop up
  111. ;; a tracking-shell, do whatever, and close the shell. Automatic cd'ing
  112. ;; allows direct usage of shell commands; complicated key sequences are
  113. ;; not neccessary for file manipulation.
  114.  
  115. (defun tracking-shell()
  116.   "When invoked from a buffer, if Tracking-Shell does
  117. not exist, it is created. If it exists, a cd is sent to the shell
  118. to synchronize the directory to that of the buffer in which this function is
  119. called. See the documentation of cmushell for other details."
  120.   (interactive)
  121.   (cond ((not (comint-check-proc tracking-shell-name))
  122.      (let* ((prog (or explicit-shell-file-name
  123.               (getenv "ESHELL")
  124.               (getenv "SHELL")
  125.               "/bin/sh"))             
  126.         (name (file-name-nondirectory prog))
  127.         (startfile (concat "~/.emacs_" name))
  128.         (xargs-name (intern-soft (concat "explicit-" name "-args"))))
  129.        (set-buffer (apply 'make-comint tracking-shell-name-nostar prog
  130.                   (if (file-exists-p startfile) startfile)
  131.                   (if (and xargs-name (boundp xargs-name))
  132.                   (symbol-value xargs-name)
  133.                 '("-i"))))
  134.        (cmushell-mode)))
  135.     (t 
  136.      (let ((dir default-directory))
  137.        (comint-send-string 
  138.         (get-buffer-process tracking-shell-name)
  139.         (concat "cd " dir "\n"))
  140.        (save-excursion
  141.          (set-buffer tracking-shell-name)
  142.          (cd dir)))))
  143.   (if tracking-shell-other-window
  144.       (switch-to-buffer-other-window tracking-shell-name)
  145.   (switch-to-buffer tracking-shell-name)))
  146.  
  147. ;; example of using tracking shell
  148. ;; (global-set-key "\C-c\C-s" 'tracking-shell)
  149. ;;            Open tracking shell window
  150. ;; (global-set-key "\C-c\C-t" 'delete-window) ;; could use C-x 0
  151. ;;           Close tracking shell window
  152.  
  153. (provide 'multishell)
  154.