快速打开/隐藏eshell

最新推荐文章于 2024-10-20 11:26:48 发布

九袋长老

最新推荐文章于 2024-10-20 11:26:48 发布

阅读量535

点赞数

分类专栏： Emacs 文章标签： autoload shell c

本文链接：https://blog.csdn.net/jensonhjt/article/details/3238551

版权

Emacs 专栏收录该内容

9 篇文章 0 订阅

订阅专栏

仿照shell即开即关的程序（shell-toggle.el），自己改写了一个eshell即开机关的功能。

安装方法：把下面的代码以"eshell-toggle.el”为文件名，放到您的加载目录中；并在.emacs中添加如下代码

 
   (autoload 'shell-toggle "eshell-toggle" 
  "Toggles between the *shell* buffer and whatever buffer you are editing."
  t)
(autoload 'shell-toggle-cd "eshell-toggle" 
  "Pops up a shell-buffer and insert a /"cd <file-dir>/" command." t)
(global-set-key [M-f1] 'shell-toggle)
(global-set-key [C-f1] 'shell-toggle-cd)
 
  

eshell-toggle.el文件的内容：

 
   ;;; eshell-toggle.el --- Toggle to and from the *eshell* buffer
;;; Version 1.2 - 98-11-19
;;; Copyright (C) 1997, 1998 Mikael Sj鰀in (mic@docs.uu.se)
;;;
;;; Author: Mikael Sj鰀in  --  mic@docs.uu.se
;;;
;;; This file is NOT part of GNU Emacs.
;;; You may however redistribute it and/or modify it under the terms of the GNU
;;; General Public License as published by the Free Software Foundation; either
;;; version 2, or (at your option) any later version.
;;;
;;; The file 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.
;;; ----------------------------------------------------------------------
;;; Description:
;;;
;;; Provides the command shell-toggle which toggles between the
;;; *eshell* buffer and whatever buffer you are editing.
;;;
;;; This is done in an "intelligent" way.  Features are:
;;; o Starts a shell if non is existing.
;;; o Minimum distortion of your window configuration.
;;; o When done in the shell-buffer you are returned to the same window
;;;   configuration you had before you toggled to the shell.
;;; o If you desire, you automagically get a "cd" command in the shell to the
;;;   directory where your current buffers file exists; just call
;;;   shell-toggle-cd instead of shell-toggle.
;;; o You can convinently choose if you want to have the shell in another
;;;   window or in the whole frame.  Just invoke shell-toggle again to get the
;;;   shell in the whole frame.
;;;
;;; This file has been tested under Emacs 20.2.
;;;
;;; This file can be obtained from http://www.docs.uu.se/~mic/emacs.html  
;;; ----------------------------------------------------------------------
;;; Installation:
;;;
;;; o Place this file in a directory in your 'load-path.
;;; o Put the following in your .emacs file:
;;;   (autoload 'shell-toggle "eshell-toggle" 
;;;    "Toggles between the *eshell* buffer and whatever buffer you are editing."
;;;    t)
;;;   (autoload 'shell-toggle-cd "eshell-toggle" 
;;;    "Pops up a shell-buffer and insert a /"cd <file-dir>/" command." t)
;;;   (global-set-key [M-f1] 'shell-toggle)
;;;   (global-set-key [C-f1] 'shell-toggle-cd)
;;; o Restart your Emacs.  To use shell-toggle just hit M-f1 or C-f1
;;;
;;; For a list of user options look in code below.
;;;
;;; ----------------------------------------------------------------------
;;; BUGS:
;;;  No reported bugs as of today
;;; ----------------------------------------------------------------------
;;; Thanks to:
;;;   Christian Stern <Christian.Stern@physik.uni-regensburg.de> for helpful
;;;   sugestions.
;;; ======================================================================
;;; User Options:
(defvar shell-toggle-goto-eob t
  "*If non-nil `shell-toggle' will move point to the end of the shell-buffer
whenever the `shell-toggle' switched to the shell-buffer.
When `shell-toggle-cd' is called the point is allways moved to the end of the
shell-buffer")
(defvar shell-toggle-automatic-cd t
  "*If non-nil `shell-toggle-cd' will send the /"cd/" command to the shell.
If nil `shell-toggle-cd' will only insert the /"cd/" command in the 
shell-buffer.  Leaving it to the user to press RET to send the command to 
the shell.")
;;; ======================================================================
;;; Commands:
(defun shell-toggle-cd ()
  "Calls `shell-toggle' with a prefix argument.  Se command `shell-toggle'"
  (interactive)
  (shell-toggle t))
(defun shell-toggle (make-cd)
  "Toggles between the *eshell* buffer and whatever buffer you are editing.
With a prefix ARG also insert a /"cd DIR/" command into the shell, where DIR is
the directory of the current buffer.
Call twice in a row to get a full screen window for the *eshell* buffer.
When called in the *eshell* buffer returns you to the buffer you were editing
before caling the first time.
Options: `shell-toggle-goto-eob'"
  (interactive "P")
  ;; Try to descide on one of three possibilities:
  ;; If not in shell-buffer, switch to it.
  ;; If in shell-buffer and called twice in a row, delete other windows
  ;; If in shell-buffer and not called twice in a row, return to state before
  ;;  going to the shell-buffer 
  (if (eq major-mode 'eshell-mode)
      (if (and (or (eq last-command 'shell-toggle)
           (eq last-command 'shell-toggle-cd))
           (not (eq (count-windows) 1)))
      (delete-other-windows)
    (shell-toggle-buffer-return-from-shell))
    (shell-toggle-buffer-goto-shell make-cd)))
;;; ======================================================================
;;; Internal functions and declarations
(defvar shell-toggle-pre-shell-win-conf nil
  "Contains the window configuration before the *eshell* buffer was selected")
(defun shell-toggle-buffer-return-from-shell ()
  "Restores the window configuration used before switching the *eshell* buffer.
If no configuration has been stored, just burry the *eshell* buffer."
  (if (window-configuration-p shell-toggle-pre-shell-win-conf)
      (progn
    (set-window-configuration shell-toggle-pre-shell-win-conf)
    (setq shell-toggle-pre-shell-win-conf nil)
    (bury-buffer (get-buffer "*eshell*")))
    (bury-buffer))
  )
(defun shell-toggle-buffer-goto-shell (make-cd)
  "Switches other window to the *eshell* buffer.  If no *eshell* buffer exists
start a new shell and switch to it in other window.  If argument MAKE-CD is
non-nil, insert a /"cd DIR/" command into the shell, where DIR is the directory
of the current buffer.
Stores the window cofiguration before creating and/or switching window."
  (setq shell-toggle-pre-shell-win-conf (current-window-configuration))
  (let ((shell-buffer (get-buffer "*eshell*"))
    (cd-command
     ;; Find out which directory we are in (the method differs for
     ;; different buffers)
     (or (and make-cd 
          (buffer-file-name)
          (file-name-directory (buffer-file-name))
          (concat "cd " (file-name-directory (buffer-file-name))))
         (and make-cd
          list-buffers-directory
          (concat "cd " list-buffers-directory)))))
    ;; Switch to an existin shell if one exists, otherwise switch to another
    ;; window and start a new shell
    (if shell-buffer
    (switch-to-buffer-other-window shell-buffer)
      (shell-toggle-buffer-switch-to-other-window)
      ;; Sometimes an error is generated when I call `eshell'
      ;; (it has to do with my shell-mode-hook which inserts text into the
      ;; newly created shell-buffer and thats not allways a good idea).
      (condition-case the-error
      (eshell)
    (error (switch-to-buffer "*eshell*"))))
    (if (or cd-command shell-toggle-goto-eob)
    (goto-char (point-max)))
    (if cd-command
    (progn
      (insert cd-command)
      (if shell-toggle-automatic-cd
          (comint-send-input))
      ))))
(defun shell-toggle-buffer-switch-to-other-window ()
  "Switches to other window.  If the current window is the only window in the
current frame, create a new window and switch to it.
/(This is less intrusive to the current window configuration then 
`switch-buffer-other-window')"
  (let ((this-window (selected-window)))
    (other-window 1)
    ;; If we did not switch window then we only have one window and need to
    ;; create a new one.
    (if (eq this-window (selected-window))
    (progn
      (split-window-vertically)
          (other-window 1)))))
    
(provide 'shell-toggle)
 
  