gistfile1.txt

;; JHL Emacs Configuration 2015-03-05

;; Remove GUI 
(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
(if (fboundp 'menu-bar-mode) (menu-bar-mode -1))

;; Simplify Startup
(modify-frame-parameters nil '((wait-for-wm . nil)))
(setq inhibit-startup-message t)

;; Inconsolata.
; requires ~/.fonts/Inconsolata.otf
(set-default-font "-unknown-Inconsolata-normal-normal-normal-*-13-*-*-*-m-0-iso10646-1")
(add-to-list 'default-frame-alist '(font . "-unknown-Inconsolata-normal-normal-normal-*-13-*-*-*-m-0-iso10646-1"))

;; Backups in hidden folder 
(setq
   backup-by-copying t      
   backup-directory-alist
    '(("." . "~/.emacs.d/saves"))    
   delete-old-versions t
   kept-new-versions 6
   kept-old-versions 2
   version-control t)       
; ...

;; Reverse window switching
(defun select-previous-window ()
  "Switch to the previous window" 
  (interactive)
  (select-window (previous-window)))
(global-set-key (kbd "C-x p") 'select-previous-window)

;; Snake controls WASD
(eval-after-load "snake"
  '(progn
     (define-key snake-mode-map "w" 'snake-move-up)
     (define-key snake-mode-map "a" 'snake-move-left)
     (define-key snake-mode-map "s" 'snake-move-down)
     (define-key snake-mode-map "d" 'snake-move-right)))

;; Format Conventions
(setq c-default-style "linux"
      c-basic-offset 4)