;; disable tool bar and the scroll bar
(dolist (mode '(tool-bar-mode scroll-bar-mode))
  (when (fboundp mode) (funcall mode -1)))

;; auto close bracket insertion
(electric-pair-mode 1)

;; show trailing white space for prog modes
(add-hook 'prog-mode-hook
          (lambda () (setq show-trailing-whitespace t)))

;; this makes emacs slow to work with source
(delete 'Git vc-handled-backends)

;; alias yes-or-no to y-or-n
(fset 'yes-or-no-p 'y-or-n-p)

;; set utf-8 as the default encoding
(prefer-coding-system 'utf-8-unix)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)

;; reload the buffer when a file changes
(global-auto-revert-mode 1)

;; global settings for built-in emacs parameters
(setq auto-save-default nil
      auto-save-list-file-prefix nil
      inhibit-startup-screen t
      initial-scratch-message nil
      make-backup-files nil
      require-final-newline t
      vc-follow-symlinks t
      next-screen-context-lines 5
      column-number-mode t
      ring-bell-function 'ignore
      tab-always-indent 'complete)

;; How long to display an echo-area message when the minibuffer is active.
(setq minibuffer-message-timeout 0.5)

(setq-default indent-tabs-mode nil
              create-lockfiles nil)

;; show parenthesis
(show-paren-mode +1)

;; no blinking cursor
(blink-cursor-mode -1)

;; I don't want a frindge on the right
(fringe-mode '(4 . 0))

;; frame title
(setq frame-title-format '( "%b" " [" (:eval mode-name) "]"))

;; Set default font. Large font for the main window, but small font for the modeline
(set-face-attribute 'default nil :family "Menlo" :height 160 :weight 'normal :width 'normal)
(set-face-attribute 'mode-line nil  :height 110 :background "grey90")

;; nicer background than plain white
(set-face-background 'default "#FAF6EB")

;; where to save custom settings
(setq custom-file (expand-file-name "var/emacs-custom.el" user-emacs-directory))

(provide 'settings)