From 98126492f4092d4b66893f803171dbd50061dfee Mon Sep 17 00:00:00 2001 From: Chizi123 <joelgrun@gmail.com> Date: Wed, 21 Nov 2018 13:20:11 +0000 Subject: [PATCH] removed backup files --- custom/setup-applications.el | 31 +++++++++++++++++++++++++++++++ 1 files changed, 31 insertions(+), 0 deletions(-) diff --git a/custom/setup-applications.el b/custom/setup-applications.el new file mode 100644 index 0000000..405d087 --- /dev/null +++ b/custom/setup-applications.el @@ -0,0 +1,31 @@ +(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 $*")) -- Gitblit v1.9.3