.emacs.d/appearance.el

;; Disable splash page
(setq inhibit-startup-message t)

;; Set default font
(if gui-window-system
    ;;; Large
    ;; (set-face-attribute 'default nil :family "Monaco" :height 110)
    ;; (set-face-attribute 'default nil :family "Menlo" :height 110)

    ;;; Small
    (set-face-attribute 'default nil :family "Monaco" :height 100)
    ;; (set-face-attribute 'default nil :family "Menlo" :height 100)
    ;; (set-face-attribute 'default nil :family "Inconsolata" :height 120)
)

;; Load Theme
(if gui-window-system (require 'twilight-anti-bright-theme)
  (require 'tomorrow-night-paradise-theme))

;; Disable menu-bar
(menu-bar-mode 0)

;; Disable toolbar
(tool-bar-mode -1)

;; Disable Scrollbar
(if gui-window-system (set-scroll-bar-mode 'nil))

;; Show matching parentheses
(show-paren-mode t)

;; Show column number globally
(column-number-mode t)

;; Highlight current line globally
(global-hl-line-mode t)

;; Don't use OSX Native fullscreen mode
(setq ns-use-native-fullscreen nil)

;; Customize line numbers - In gui mode the fringe is the spacer between line
;; numbers and code, while in console mode we add an extra space for it.
(if gui-window-system (setq linum+-dynamic-format " %%%dd")
  (setq linum+-dynamic-format " %%%dd "))

;; Linum+ resets linum-format to "smart" when it's loaded, hence we have to
;; use a eval-after-load hook to set it to "dynamic".
(eval-after-load "linum+" '(progn (setq linum-format 'dynamic)))

;; Enable git-gutter-fringe mode.
(if gui-window-system
    (when (require 'git-gutter-fringe nil 'noerror)
      (global-git-gutter-mode)))

;; Display up to 20 results in when using grizzl completion.
(when (require 'grizzl nil 'noerror)
  (setq *grizzl-read-max-results* 20))

;; Use ido completion in projectile.
(setq projectile-completion-system 'ido)

;; Display ido results vertically, rather than horizontally.
(when (require 'ido-vertical-mode nil 'noerror)
  (ido-vertical-mode 1))

;; meaningful names for buffers with the same name
(require 'uniquify)
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)
(setq uniquify-separator "/")
(setq uniquify-after-kill-buffer-p t)    ; rename after killing uniquified
(setq uniquify-ignore-buffers-re "^\\*") ; don't muck with special buffers

;; Display whitespace characters globally
(global-whitespace-mode t)

;; Customize Whitespace Characters
;;  - Newline: \u00AC = ¬
;;  - Tab:     \u2192 = →
;;             \u00BB = »
;;             \u25B6 = ▶
(setq whitespace-display-mappings
      (quote ((newline-mark ?\n [?\u00AC ?\n] [?$ ?\n])
              (tab-mark     ?\t [?\u2192 ?\t] [?\u00BB ?\t] [?\\ ?\t]))))

(setq whitespace-style
      (quote (face tabs trailing space-before-tab newline
                   indentation space-after-tab tab-mark newline-mark
                   empty)))

;; Cursor
(blink-cursor-mode t)
(setq initial-frame-alist
      (cons '(cursor-type . bar) (copy-alist initial-frame-alist)))
(setq default-frame-alist
      (cons '(cursor-type . bar) (copy-alist default-frame-alist)))

;; Transparency (via helpers.el)
(setq transparency-level 99)
(transparency-set-value transparency-level)
(add-hook 'after-make-frame-functions
          (lambda (selected-frame)
            (set-frame-parameter selected-frame 'alpha transparency-level)))

(when (require 'diminish nil 'noerror)
  (diminish 'visual-line-mode)
  (eval-after-load "undo-tree" '(diminish 'undo-tree-mode))
  (eval-after-load "auto-complete" '(diminish 'auto-complete-mode))
  (eval-after-load "yasnippet" '(diminish 'yas-minor-mode))
  (eval-after-load "smartparens" '(diminish 'smartparens-mode))
  (eval-after-load "hs-minor-mode" '(diminish 'hs-minor-mode))
  (eval-after-load "git-gutter-mode" '(diminish 'git-gutter-mode))
  (eval-after-load "whitespace-mode" '(diminish 'whitespace-mode))
  (eval-after-load "textmate-mode" '(diminish 'textmate-mode)))


;; Relative line numbers -- from: http://stackoverflow.com/a/6928112/42146
;; (defvar my-linum-format-string "%3d ")
;; ;; (add-hook 'linum-before-numbering-hook 'my-linum-get-format-string)
;; (defun my-linum-get-format-string ()
;;   (let* ((width (1+ (length (number-to-string
;;                              (count-lines (point-min) (point-max))))))
;;          (format (concat "%" (number-to-string width) "d")))
;;     (setq my-linum-format-string format)))
;; (defvar my-linum-current-line-number 0)
;; (setq linum-format 'my-linum-relative-line-numbers)
;; (defun my-linum-relative-line-numbers (line-number)
;;   (let ((offset (abs(- line-number my-linum-current-line-number))))
;;     (propertize (format my-linum-format-string offset) 'face 'linum)))
;; (defadvice linum-update (around my-linum-update)
;;   (let ((my-linum-current-line-number (line-number-at-pos)))
;;     ad-do-it))
;; (ad-activate 'linum-update)


;; Customize git-gutter-fringe glyphs.
(when (and gui-window-system (require 'fringe-helper nil 'noerror))
  ;; (setq-default left-fringe-width  20)
  ;; (setq-default right-fringe-width 20)
  (fringe-helper-define 'git-gutter-fr:added nil
    "........"
    "........"
    "........"
    "...XX..."
    "...XX..."
    "........"
    "........"
    "........")

  (fringe-helper-define 'git-gutter-fr:deleted nil
    "........"
    "........"
    "........"
    "...XX..."
    "...XX..."
    "........"
    "........"
    "........")

  (fringe-helper-define 'git-gutter-fr:modified nil
    "........"
    "........"
    "........"
    "...XX..."
    "...XX..."
    "........"
    "........"
    "........")
  )