custom.el

;; All your customizations go in this file

;; TODO:
;; whitespace-stripping

;; https://github.com/purcell/exec-path-from-shell
;; set environment variables
(when (memq window-system '(mac ns))
  (exec-path-from-shell-initialize))

;; rubocop
(add-hook 'ruby-mode-hook 'rubocop-mode)

;; scss linter
(add-hook 'scss-mode-hook 'flycheck-mode)

;; turn off beeping
(setq ring-bell-function 'ignore)

;; Make backup (foo~) files in ~/.emacs-saves
(setq backup-directory-alist `(("." . "~/.emacs-saves")))
;; Slow but safe
(setq backup-by-copying t)
;; keep more than one backup of each file
(setq delete-old-versions t
  kept-new-versions 6
  kept-old-versions 2
  version-control t)

;; Always able to answer 'y' instead of 'yes'
(defalias 'yes-or-no-p 'y-or-n-p)

;; turn off icons at the top of the window
(tool-bar-mode -1)

(setq initial-scratch-message "")
(setq initial-major-mode 'text-mode)

(load-theme 'solarized-light t)

(textmate-mode)

;; Turn off the org-mode M-left and M-right keybindings as they
;; drive me crazy.
;; http://stackoverflow.com/questions/17539007/remap-org-shiftmetaright-org-shiftmetaleft-to-shift-select-metaleft-word
;; another option is to do
;; (setq org-replace-disputed-keys t)
;; see http://orgmode.org/manual/Conflicts.html
;; http://orgmode.org/manual/Conflicts.html
(eval-after-load "org"
  '(progn
     (define-key org-mode-map (kbd "<M-S-left>") nil)
     (define-key org-mode-map (kbd "<M-S-right>") nil)
     (define-key org-mode-map (kbd "<M-left>") nil)
     (define-key org-mode-map (kbd "<M-right>") nil)))

;; enable electric-pair-mode in all buffers, and
;; turn on pairing for double-quotes and back-ticks
;; to turn on single-quotes, add this line:
;; (?\"' . ?\')
(electric-pair-mode t) 
(setq electric-pair-pairs '(
                            (?` . ?`)
                            (?\" . ?\")
                            ) )




(mouse-wheel-mode t)

(setq standard-indent 2)
(setq-default tab-width 2)
(setq-default indent-tabs-mode nil)

(server-start) ;; start the emacs server

;; Window switching. (C-x o goes to the next window)
(windmove-default-keybindings 'super) ;; Command+direction

;; settings help from http://stackoverflow.com/questions/293761/how-do-i-make-emacs-show-blank-spaces
;; make whitespace-mode use just basic coloring
;; (setq whitespace-style (quote (face spaces newline tabs space-mark tab-mark newline-mark)))
;; http://pastebin.com/ieAcvLTJ
 (make-face 'whitespace-light-face)
  (set-face-attribute 'whitespace-light-face nil
                      :background nil
                      :foreground "#909090"
                      :weight 'ultra-light)
(setq whitespace-trailing 'whitespace-light-face)
(setq trailing-whitespace 'whitespace-light-face)
(setq show-trailing-whitespace 1)
;; (setq whitespace-space 'whitespace-light-face)
;; make whitespace-mode use just basic coloring
(setq whitespace-style (quote
  ( tabs newline space-mark tab-mark newline-mark face)))
(setq whitespace-hspace 'underline)
(setq whitespace-display-mappings
          '((space-mark   ?\    [? ]     [? ])	; space
            (space-mark   ?\xA0 [?\xA4]     [? ])	; hard space
            (trailing-space-mark   ?\    [?\xB7]     [?.])	; trailing space
            (newline-mark ?\n   [?\xB6 ?\n] [?$ ?\n])	; end-of-line
            ))
;; turn on whitespace mode globally
(global-whitespace-mode 1)


(global-linum-mode)
;; format for line numbers
(setq linum-format "%3d")

; Missing from ruby-mode.el, see https://groups.google.com/group/emacs-on-rails/msg/565fba8263233c28
(defun ruby-insert-end () 
  "Insert \"end\" at point and reindent current line." 
  (interactive) 
  (insert "end") 
  (ruby-indent-line t) 
  (end-of-line))

(add-hook 'ruby-mode-hook (lambda () (ruby-electric-mode t)))
(add-hook 'ruby-mode-hook 'flymake-ruby-load)

(set-face-attribute 'default nil :font "Anonymous Pro")

;; http://nileshk.com/2009/06/13/prompt-before-closing-emacs.html
(defun ask-before-closing ()
  "Ask whether or not to close, and then close if y was pressed"
  (interactive)
  (if (y-or-n-p (format "Are you sure you want to exit Emacs? "))
      (if (< emacs-major-version 22)
          (save-buffers-kill-terminal)
        (save-buffers-kill-emacs))
    (message "Canceled exit")))

(when window-system
  (global-set-key (kbd "C-x C-c") 'ask-before-closing))

;; disable minimize window
(global-unset-key "\C-x\C-z")

;; Use PCRE regexes instead of emacs regexes
(global-set-key [(meta %)] 'pcre-query-replace-regexp)
(global-set-key [(ctrl meta %)] 'pcre-query-replace-regexp)

(scroll-bar-mode -1)
(set-fringe-mode 1)

;; bindings for the move-text package
(global-set-key [s-M-down] 'move-text-down)
(global-set-key [s-M-up] 'move-text-up)

(global-set-key (kbd "C-c r") 'revert-buffer)
(global-set-key (kbd "C-x g") 'magit-status)

;; Font size -- to revert to norma, C-x C-0
(define-key global-map (kbd "C-+") 'text-scale-increase)
(define-key global-map (kbd "C-=") 'text-scale-increase)
(define-key global-map (kbd "C--") 'text-scale-decrease)



;; Use regex searches by default.
(global-set-key (kbd "C-s") 'isearch-forward-regexp)
(global-set-key (kbd "C-r") 'isearch-backward-regexp)
(global-set-key (kbd "C-M-s") 'isearch-forward)
(global-set-key (kbd "C-M-r") 'isearch-backward)


;; Stuff for writing (text-mode and markdown-mode)
(add-hook 'markdown-mode-hook 'turn-on-visual-line-mode)
(add-hook 'text-mode-hook 'turn-on-visual-line-mode)

;; Make the font a little bigger in text-mode and markdown-mode
(defun my-buffer-face-mode-bigger ()
"Make font a little bigger in current buffer"
(interactive)
(setq buffer-face-mode-face '(:family "Anonymous Pro" :height 150 :width normal))
(buffer-face-mode))

(add-hook 'text-mode-hook 'my-buffer-face-mode-bigger)
(add-hook 'markdown-mode-hook 'my-buffer-face-mode-bigger)