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

Ixed the eshell-propject function

Browse source
This commit is contained in:
Howard Abrams 2022-08-31 08:56:10 -07:00
parent c4023f3416
commit 6725f2a354
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
ha-remoting.org
View file

@ -29,7 +29,7 @@ The following section configures my Terminal experience, both inside and outside
I used to use [[http://www.howardism.org/Technical/Emacs/eshell.html][Eshell all the time]], but now I've migrated most of /work/ directly into Emacs (rewriting all those shell scripts a Emacs Lisp code). A shell is pretty good for my brain at organizing files (old habits, maybe). I used to use [[http://www.howardism.org/Technical/Emacs/eshell.html][Eshell all the time]], but now I've migrated most of /work/ directly into Emacs (rewriting all those shell scripts a Emacs Lisp code). A shell is pretty good for my brain at organizing files (old habits, maybe).
First, my /aliases/ follow me around, and the following creates the alias file, =~/.emacs.d/eshell/alias=: First, my /aliases/ follow me around, and the following creates the alias file, =~/.emacs.d/eshell/alias=:
#+begin_src shell :tangle (identity eshell-aliases-file) :mkdirp yes #+begin_src shell :tangle elisp:(identity eshell-aliases-file) :mkdirp yes
alias ll ls -l $* alias ll ls -l $*
alias clear recenter 0 alias clear recenter 0
alias emacs 'find-file $1' alias emacs 'find-file $1'
@ -60,7 +60,8 @@ I usually want a new window running Eshell, that is smaller than the current buf
(split-string "/" t) (split-string "/" t)
(last) (last)
(car))) (car)))
(height (/ (window-total-height) 3))) (height (/ (window-total-height) 3))
(default-directory parent))
(split-window-vertically (- height)) (split-window-vertically (- height))
(eshell "new") (eshell "new")
(rename-buffer (concat "*eshell: " name "*")) (rename-buffer (concat "*eshell: " name "*"))