1 files changed, 20 insertions, 22 deletions
diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index 775253a..eb468ec 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -1,34 +1,32 @@
 (custom-set-variables
- '(package-selected-packages (quote (evil)))
- '(tool-bar-mode nil)
- ;; set slime history file location
- '(slime-repl-history-file "~/.cache/slime-history.eld"))
+ '(package-selected-packages '(slime smex evil))
+ '(slime-repl-history-file "~/.cache/slime-history.eld")) ; Set slime history file location.
 
 (custom-set-faces
  '(region ((t (:background "color-238")))))
 
-;; disable startup screen
-(setq inhibit-startup-screen t)
+(setq inhibit-startup-screen t)     ; Disable startup screen.
+(setq-default indent-tabs-mode nil) ; Use spaces for indentation.
+(setq inferior-lisp-program "sbcl") ; Enable slime.
+(setq-default mode-line-format nil) ; Remove status line.
 
-;; disable menu bar
-(menu-bar-mode -1)
+(menu-bar-mode   -1)    ; Disable menu bar.
+(tool-bar-mode   -1)    ; Disable tool bar.
+(tooltip-mode    -1)    ; Disable tool tips.
+(scroll-bar-mode -1)    ; Disable scroll bar.
+(set-fringe-mode 10)    ; Create space.
+(ido-mode t)            ; Enable file search interactive mode C-x C-f.
 
-;; use spaces for indentation
-(setq-default indent-tabs-mode nil)
+(setq backup-directory-alist
+  '(("." . "~/.config/emacs/backups")))
 
-;; set up package.el to work with melpa
-(require 'package)
+(require 'package)                                             ; Set up package.el to work with melpa.
 (add-to-list 'package-archives
              '("melpa" . "https://melpa.org/packages/"))
 (package-initialize)
+(unless package-archive-contents (package-refresh-contents))
+(package-install-selected-packages)
 
-;; enable slime
-(setq inferior-lisp-program "sbcl")
-(unless (package-installed-p 'slime)
-  (package-install 'slime))
-
-;; enable evil
-(unless (package-installed-p 'evil)
-  (package-install 'evil))
-(require 'evil)
-(evil-mode 1)
+(global-set-key (kbd "M-x") 'smex)                             ; Enable smex interactive M-x.
+(global-set-key (kbd "M-X") 'smex-major-mode-commands)
+(global-set-key (kbd "C-c C-c M-x") 'execute-extended-command) ; Native M-x binding.