10sr
/
dotfiles-mirror
镜像来自 https://github.com/10sr/dotfiles.git
1
0
複製 0
程式碼 問題管理 0 版本發佈 0 Wiki Activity
瀏覽代碼

Remove eshell configs 

Now they are available from github.com/10sr/emacs-lisp
pull/15/head
10sr 10 年之前
父節點
e87762b9a9
當前提交
b369696302
共有 1 個文件被更改，包括 2 次插入 和 293 次删除
分割檢視
Diff Options
Show Stats Download Patch File Download Diff File
  1. +2
    -293
      emacs.el

+ 2
- 293
emacs.el 查看文件

@@ -765,8 +765,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
;; file handling

(when (safe-require-or-eval 'editorconfig)
(set-variable 'editorconfig-get-properties-function
'editorconfig-core-get-properties-hash)
;; (set-variable 'editorconfig-get-properties-function
;; 'editorconfig-core-get-properties-hash)
(editorconfig-mode 1))

(setq revert-without-query '(".+"))
@@ -1656,297 +1656,6 @@ the list."
(with-eval-after-load 'dired
(define-key dired-mode-map "a" 'dired-list-all-mode))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; eshell


(set-variable 'eshell-banner-message (format "Welcome to the Emacs shell
%s
C-x t to toggling emacs-text-mode

"
(shell-command-to-string "uname -a")
))

(defvar eshell-text-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "C-x t") 'eshell-text-mode-toggle)
map))

(define-derived-mode eshell-text-mode text-mode
"Eshell-Text"
"Text-mode for Eshell."
nil)

(defun eshell-text-mode-toggle ()
"Toggle eshell-text-mode and eshell-mode."
(interactive)
(cond ((eq major-mode
'eshell-text-mode)
(goto-char (point-max))
(message "Eshell text mode disabled")
(eshell-mode))
((eq major-mode
'eshell-mode)
(message "Eshell text mode enabled")
(eshell-write-history)
(eshell-text-mode))
(t
(message "Not in eshell buffer")
nil)))

(defun my-eshell-backward-delete-char ()
(interactive)
(when (< (save-excursion
(eshell-bol)
(point))
(point))
(backward-delete-char 1)))

(defun my-file-owner-p (file)
"t if FILE is owned by me."
(eq (user-uid) (nth 2 (file-attributes file))))

"http://www.bookshelf.jp/pukiwiki/pukiwiki.php\
?Eshell%A4%F2%BB%C8%A4%A4%A4%B3%A4%CA%A4%B9"
;; ;; written by Stefan Reichoer <reichoer@web.de>
;; (defun eshell/less (&rest args)
;; "Invoke `view-file' on the file.
;; \"less +42 foo\" also goes to line 42 in the buffer."
;; (if args
;; (while args
;; (if (string-match "\\`\\+\\([0-9]+\\)\\'" (car args))
;; (let* ((line (string-to-number (match-string 1 (pop args))))
;; (file (pop args)))
;; (view-file file)
;; (goto-line line))
;; (view-file (pop args))))))

(defun eshell/o (&optional file)
(my-x-open (or file ".")))

;; (defun eshell/vi (&rest args)
;; "Invoke `find-file' on the file.
;; \"vi +42 foo\" also goes to line 42 in the buffer."
;; (while args
;; (if (string-match "\\`\\+\\([0-9]+\\)\\'" (car args))
;; (let* ((line (string-to-number (match-string 1 (pop args))))
;; (file (pop args)))
;; (find-file file)
;; (goto-line line))
;; (find-file (pop args)))))

(defun eshell/clear ()
"Clear the current buffer, leaving one prompt at the top."
(interactive)
(let ((inhibit-read-only t))
(erase-buffer)))

(defvar eshell-prompt-function)
(defun eshell-clear ()
(interactive)
(let ((inhibit-read-only t))
(erase-buffer)
(insert (funcall eshell-prompt-function))))

(defun eshell/d (&optional dirname switches)
"if first arg is omitted open current directory."
(dired (or dirname ".") switches))

(defun eshell/v ()
(view-mode 1))

;; (defun eshell/aaa (&rest args)
;; (message "%S"
;; args))

(defalias 'eshell/: 'ignore)
(defalias 'eshell/type 'eshell/which)
;; (defalias 'eshell/vim 'eshell/vi)
(defalias 'eshell/ff 'find-file)
(defalias 'eshell/q 'eshell/exit)

(defun eshell-goto-prompt ()
""
(interactive)
(goto-char (point-max)))

(defun eshell-delete-char-or-logout (n)
(interactive "p")
(if (equal (eshell-get-old-input)
"")
(progn
(insert "exit")
(eshell-send-input))
(delete-char n)))

(defun eshell-kill-input ()
(interactive)
(delete-region (point)
(progn (eshell-bol)
(point))))

(defalias 'eshell/logout 'eshell/exit)

(defun eshell-cd-default-directory (&optional eshell-buffer-or-name)
"open eshell and change wd
if arg given, use that eshell buffer, otherwise make new eshell buffer."
(interactive)
(let ((dir (expand-file-name default-directory)))
(switch-to-buffer (or eshell-buffer-or-name
(eshell t)))
(unless (equal dir (expand-file-name default-directory))
;; (cd dir)
;; (eshell-interactive-print (concat "cd " dir "\n"))
;; (eshell-emit-prompt)
(goto-char (point-max))
(eshell-kill-input)
(insert "cd " dir)
(eshell-send-input))))

(defadvice eshell-next-matching-input-from-input
;; do not cycle history
(around eshell-history-do-not-cycle activate)
(if (= 0
(or eshell-history-index
0))
(progn
(delete-region eshell-last-output-end (point))
(insert-and-inherit eshell-matching-input-from-input-string)
(setq eshell-history-index nil))
ad-do-it))

(set-variable 'eshell-directory-name (concat user-emacs-directory
"eshell/"))
(set-variable 'eshell-term-name "eterm-color")
(set-variable 'eshell-scroll-to-bottom-on-input 'this)
(set-variable 'eshell-cmpl-ignore-case t)
(set-variable 'eshell-cmpl-cycle-completions nil)
(set-variable 'eshell-highlight-prompt nil)
(if (eq system-type 'darwin)
(set-variable 'eshell-ls-initial-args '("-hCFG")
(set-variable 'eshell-ls-initial-args '("-hCFG"
"--color=auto"
"--time-style=long-iso")) ; "-hF")
))

(set (defvar eshell-prompt-function)
'my-eshell-prompt-function)

(defvar eshell-last-command-status)
(defun my-eshell-prompt-function()
"Prompt function.

It looks like:

:: [10sr@darwin:~/][ESHELL]
:: $
"
(concat ":: ["
(let ((str (concat user-login-name
"@"
(car (split-string system-name
"\\."))
)))
(put-text-property 0
(length str)
'face
'underline
str)
str)
":"
(let ((str (abbreviate-file-name default-directory)))
(put-text-property 0
(length str)
'face
'underline
str)
str)
"][ESHELL]\n:: "
(if (eq 0
eshell-last-command-status)
""
(format "[STATUS:%d] "
eshell-last-command-status))
(if (= (user-uid)
0)
"# "
"$ ")
))

(with-eval-after-load 'eshell
(defvar eshell-mode-map (make-sparse-keymap))
;; (define-key eshell-mode-map (kbd "C-x C-x") (lambda ()
;; (interactive)
;; (switch-to-buffer (other-buffer))))
;; (define-key eshell-mode-map (kbd "C-g") (lambda ()
;; (interactive)
;; (eshell-goto-prompt)
;; (keyboard-quit)))
(define-key eshell-mode-map (kbd "C-x t") 'eshell-text-mode-toggle)
(define-key eshell-mode-map (kbd "C-u") 'eshell-kill-input)
(define-key eshell-mode-map (kbd "C-d") 'eshell-delete-char-or-logout)
;; (define-key eshell-mode-map (kbd "C-l")
;; 'eshell-clear)
(define-key eshell-mode-map (kbd "DEL") 'my-eshell-backward-delete-char)
(define-key eshell-mode-map (kbd "<up>") 'scroll-down-line)
(define-key eshell-mode-map (kbd "<down>") 'scroll-up-line)
;; (define-key eshell-mode-map
;; (kbd "C-p") 'eshell-previous-matching-input-from-input)
;; (define-key eshell-mode-map
;; (kbd "C-n") 'eshell-next-matching-input-from-input)

(defvar eshell-virtual-targets nil)
(add-to-list 'eshell-virtual-targets
'("/dev/less"
(lambda (str)
(if str
(with-current-buffer nil)))
nil))

(defvar eshell-visual-commands nil)
(add-to-list 'eshell-visual-commands "vim")

(defvar eshell-output-filter-functions nil)
(add-to-list 'eshell-output-filter-functions
'eshell-truncate-buffer)

(defvar eshell-command-aliases-list nil)
(mapcar (lambda (alias)
(add-to-list 'eshell-command-aliases-list
alias))
'(
;; ("ll" "ls -l $*")
;; ("la" "ls -a $*")
;; ("lla" "ls -al $*")
("git" "git -c color.ui=always $*")
("g" "git $*")
("eless"
(concat "cat >>> (with-current-buffer "
"(get-buffer-create \"*eshell output\") "
"(erase-buffer) "
"(setq buffer-read-only nil) "
"(current-buffer)) "
"(view-buffer (get-buffer \"*eshell output*\"))"))
))
)

(add-hook 'eshell-mode-hook
(lambda ()

(apply 'eshell/addpath exec-path)
(set (make-local-variable 'scroll-margin) 0)
;; (eshell/export "GIT_PAGER=")
;; (eshell/export "GIT_EDITOR=")
(eshell/export "LC_MESSAGES=C")
(switch-to-buffer (current-buffer)) ; move buffer top of list
(set (make-local-variable (defvar hl-line-range-function))
(lambda ()
'(0 . 0)))

;; (add-to-list 'eshell-visual-commands "git")
))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; my-term



Write Preview
Loading…
取消
儲存