howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Simple eshell prompt with PWD on modeline

Browse source 
Seems like a nicer way to get more screen estate.
This commit is contained in:
Howard Abrams 2022-10-12 22:35:24 -07:00
parent 238642cb3b
commit a2a61b296b
2 changed files with 43 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
ha-config.org
View file

@ -759,6 +759,7 @@ The goal here is toggle switches and other miscellaneous settings.
"t" '(:ignore t :which-key "toggles") "t" '(:ignore t :which-key "toggles")
"t a" '("abbrev" . abbrev-mode) "t a" '("abbrev" . abbrev-mode)
"t d" '("debug" . toggle-debug-on-error) "t d" '("debug" . toggle-debug-on-error)
"t F" '("show functions" . which-function-mode)
"t f" '("auto-fill" . auto-fill-mode) "t f" '("auto-fill" . auto-fill-mode)
"t l" '("line numbers" . display-line-numbers-mode) "t l" '("line numbers" . display-line-numbers-mode)
"t t" '("truncate" . toggle-truncate-lines) "t t" '("truncate" . toggle-truncate-lines)

38
ha-eshell.org
View file

@ -342,12 +342,16 @@ Here is my initial function. After separating the arguments into two groups (spl
Separate the sequence and the elements with a `::' string. Separate the sequence and the elements with a `::' string.
For instance: For instance:
map chmod a+x _ :: *.org b.txt map chown _ angela :: *.org(u'oscar')
The function substitutes the `_' sequence a single filename element, The function substitutes the `_' sequence to a single filename
and if not specified, it appends the file name to the command." element, and if not specified, it appends the file name to the
(seq-let (forms elements) (--split-when (equal it "::") args) command. So the following works as expected:
map chmod a+x :: *.org"
(seq-let (forms elements) (-split-on "::" args)
(dolist (element (-flatten (-concat elements))) (dolist (element (-flatten (-concat elements)))
;; Replace the _ or append the filename:
(let* ((form (if (-contains? forms "_") (let* ((form (if (-contains? forms "_")
(-replace "_" element forms) (-replace "_" element forms)
(-snoc forms element))) (-snoc forms element)))
@ -360,6 +364,8 @@ The [[help:eshell-named-command][eshell-named-command]] takes the command separa
The =e= is an alias to [[help:find-file][find-file]] (which takes one argument), we define a special function to open each argument in a different window. We define a /helper function/ for dealing with more than one argument. It takes two functions, where we call the first function on the first argument, and call the second function on each of the rest. The =e= is an alias to [[help:find-file][find-file]] (which takes one argument), we define a special function to open each argument in a different window. We define a /helper function/ for dealing with more than one argument. It takes two functions, where we call the first function on the first argument, and call the second function on each of the rest.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun eshell-fn-on-files (fun1 fun2 args) (defun eshell-fn-on-files (fun1 fun2 args)
"Call FUN1 on the first element in list, ARGS.
Call FUN2 on all the rest of the elements in ARGS."
(unless (null args) (unless (null args)
(let ((filenames (flatten-list args))) (let ((filenames (flatten-list args)))
(funcall fun1 (car filenames)) (funcall fun1 (car filenames))
@ -730,6 +736,30 @@ Now tie it all together with a prompt function can color each of the prompts com
#+end_src #+end_src
Here is the result: Here is the result:
[[http://imgur.com/nkpwII0.png]] [[http://imgur.com/nkpwII0.png]]
** Simple Prompt with Mode Line
To achieve more /screen estate/, leave your prompt simple:
#+begin_src emacs-lisp
(setq eshell-prompt-function (lambda () "$ "))
#+end_src
Display detailed information, like the current working directory, in the mode line using [[https://www.emacswiki.org/emacs/WhichFuncMode][which-function-mode]].
The [[help:eshell/pwd][eshell/pwd]] function returns the current working directory, but we need to have a function that returns that only in =eshell-mode=, otherwise, we will have the current working directory in /every buffer/:
#+begin_src emacs-lisp
(defun ha-eshell-mode-line ()
"Return the current working directory if in eshell-mode."
(when (eq major-mode 'eshell-mode)
(thread-last default-directory
(s-replace-regexp (rx (eval (getenv "HOME"))) "~")
(s-replace-regexp (rx "/" line-end) ""))))
#+end_src
Add this function to the [[elisp:(describe-variable 'which-func-functions)][which-func-functions]] list:
#+begin_src emacs-lisp
(add-to-list 'which-func-functions 'ha-eshell-mode-line)
#+end_src
Turn on the global minor mode to display this. See [[file:ha-config.org::*Toggle Switches][Toggle Switches]] leader for that.
** Fringe Status ** Fringe Status
The [[http://projects.ryuslash.org/eshell-fringe-status/][eshell-fringe-status]] project shows a color-coded icon of the previous command run (green for success, red for error). Doesn’t work reliably, but the fringe is inconspicuous. Seems to me, that if would be useful to rejuggle those fringe markers so that the marker matched the command entered (instead of seeing a red mark, and needing to scroll back to seethe command that made the error). Still... The [[http://projects.ryuslash.org/eshell-fringe-status/][eshell-fringe-status]] project shows a color-coded icon of the previous command run (green for success, red for error). Doesn’t work reliably, but the fringe is inconspicuous. Seems to me, that if would be useful to rejuggle those fringe markers so that the marker matched the command entered (instead of seeing a red mark, and needing to scroll back to seethe command that made the error). Still...
#+begin_src emacs-lisp #+begin_src emacs-lisp