浏览代码

Merge branch 'master' of github.com:10sr/dotfiles

pull/1/head
10sr 10 年前
父节点
当前提交
cdd82cc445
共有 1 个文件被更改,包括 36 次插入32 次删除
  1. +36
    -32
      emacs.el

+ 36
- 32
emacs.el 查看文件

@@ -1820,39 +1820,43 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
(setq eshell-ls-initial-args '("-hCFG"
"--color=auto"
"--time-style=long-iso")) ; "-hF")

(setq eshell-prompt-function
(lambda ()
(with-temp-buffer
(let (p1 p2 p3 p4)
(insert ":: [")
(setq p1 (point))
(insert user-login-name
"@"
system-name
)
(setq p2 (point))
(insert ":")
(setq p3 (point))
(insert (abbreviate-file-name default-directory))
(setq p4 (point))
(insert "]")
(insert "\n:: ")
(unless (eq 0
eshell-last-command-status)
(insert (format "[STATUS:%d] "
eshell-last-command-status)))
(insert (if (= (user-uid)
0)
"# "
"$ "))
(add-text-properties p1
p2
'(face underline))
(add-text-properties p3
p4
'(face underline))
(buffer-substring (point-min)
(point-max))))))
'my-eshell-prompt-function)

(defun my-eshell-prompt-function ()
(with-temp-buffer
(let (p1 p2 p3 p4)
(insert ":: [")
(setq p1 (point))
(insert user-login-name
"@"
(car (split-string system-name
"\\."))
)
(setq p2 (point))
(insert ":")
(setq p3 (point))
(insert (abbreviate-file-name default-directory))
(setq p4 (point))
(insert "]")
(insert "\n:: ")
(unless (eq 0
eshell-last-command-status)
(insert (format "[STATUS:%d] "
eshell-last-command-status)))
(insert (if (= (user-uid)
0)
"# "
"$ "))
(add-text-properties p1
p2
'(face underline))
(add-text-properties p3
p4
'(face underline))
(buffer-substring (point-min)
(point-max)))))

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


正在加载...
取消
保存