From 97fb80d3174e6f21478b680ae355dd504f3131d6 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 20 Aug 2023 15:01:51 +0300 Subject: emacs: update eshell aliases --- emacs.org | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) (limited to 'emacs.org') diff --git a/emacs.org b/emacs.org index 9ade990..4b23b59 100755 --- a/emacs.org +++ b/emacs.org @@ -1044,22 +1044,16 @@ Create function to watch videos using ~mpv~ '((g . magit) (gl . magit-log) (d . dired) - (o . find-file) + (o . find-file) (oo . find-file-other-window) - (ls . "ls -la"))) + (ls . (lambda () (eshell/ls '-la))) + (ll . (lambda () (eshell/ls))))) ;; Define aliases using `mapcar` (mapc (lambda (alias) - (let ((alias-name (if (symbolp (car alias)) - (symbol-name (car alias)) - (car alias))) - (alias-value (if (symbolp (cdr alias)) - (symbol-name (cdr alias)) - (cdr alias)))) - (eshell/alias alias-name alias-value))) + (defalias (car alias) (cdr alias))) thanos/eshell-aliases) - ;; PATH (defvar eshell-path-env (getenv "~/.local/bin")) #+end_src -- cgit v1.2.3