(provide 'setup-applications)
|
|
(require 'eshell)
|
(require 'em-alias)
|
(require 'cl)
|
|
;; Advise find-file-other-window to accept more than one file
|
(defadvice find-file-other-window (around find-files activate)
|
"Also find all files within a list of files. This even works recursively."
|
(if (listp filename)
|
(loop for f in filename do (find-file-other-window f wildcards))
|
ad-do-it))
|
|
;; In Eshell, you can run the commands in M-x
|
;; Here are the aliases to the commands.
|
;; $* means accepts all arguments.
|
(eshell/alias "o" "")
|
(eshell/alias "o" "find-file-other-window $*")
|
(eshell/alias "vi" "find-file-other-window $*")
|
(eshell/alias "vim" "find-file-other-window $*")
|
(eshell/alias "emacs" "find-file-other-windpow $*")
|
(eshell/alias "em" "find-file-other-window $*")
|
|
(add-hook
|
'eshell-mode-hook
|
(lambda ()
|
(setq pcomplete-cycle-completions nil)))
|
|
;; change listing switches based on OS
|
(when (not (eq system-type 'windows-nt))
|
(eshell/alias "ls" "ls --color -h --group-directories-first $*"))
|
