 ;; Customizing mode line.
 ;; Based on http://emacs-fu.blogspot.co.uk/2011/08/customizing-mode-line.html
 (setq-default mode-line-format
-      (list
-       ;;"★ "
-       "✪ "
-       ;; the buffer name; the file name as a tool tip
-       '(:eval (propertize "%b"
-                           'face 'font-lock-keyword-face
-                           'help-echo (buffer-file-name)))
-
-       '(vc-mode ac/vc-mode-line)
-
-       " | "
-       ;; line and column, '%02' to set to 2 chars at least
-       ;; prevents flickering
-       (propertize "%02l" 'face 'font-lock-type-face)
-       ","
-       (propertize "%02c" 'face 'font-lock-type-face)
-       " | "
-
-       ;; relative position, size of file
-       (propertize "%p" 'face 'font-lock-constant-face) ;; % above top
-       "/"
-       (propertize "%I" 'face 'font-lock-constant-face) ;; size
-       " | "
-
-       ;; the current major mode for the buffer.
-       '(:eval (propertize "%m"
-                           'face
-                           'font-lock-string-face
-                           'help-echo buffer-file-coding-system))
-       " | "
-
-
-       ;; insert vs overwrite mode, input-method in a tooltip
-       '(:eval (propertize (if overwrite-mode "Ovr" "Ins")
-                           'face 'font-lock-preprocessor-face
-                           'help-echo (concat "Buffer is in "
-                                              (if overwrite-mode "overwrite" "insert") " mode")))
-
-       ;; was this buffer modified since the last save?
-       '(:eval (when (buffer-modified-p)
-                 (concat ","  (propertize "Mod"
-                                          'face 'font-lock-warning-face
-                                          'help-echo "Buffer has been modified"))))
-
-       ;; is this buffer read-only?
-       '(:eval (when buffer-read-only
-                 (concat ","  (propertize "RO"
-                                          'face 'font-lock-type-face
-                                          'help-echo "Buffer is read-only"))))
-       " | "
-
-       ;; add the time, with the date and the emacs uptime in the tooltip
-       '(:eval (propertize (format-time-string "%H:%M")
-                           'help-echo
-                           (concat (format-time-string "%c; ")
-                                   (emacs-uptime "Uptime:%hh"))))
-       ))
+              (list
+               ;;"★ "
+               "✪ "
+               ;; the buffer name; the file name as a tool tip
+               '(:eval (propertize "%b"
+                                   'face 'font-lock-keyword-face
+                                   'help-echo (buffer-file-name)))
+
+               '(vc-mode ac/vc-mode-line)
+
+               " | "
+               ;; line and column, '%02' to set to 2 chars at least
+               ;; prevents flickering
+               (propertize "%02l" 'face 'font-lock-type-face)
+               ","
+               (propertize "%02c" 'face 'font-lock-type-face)
+               " | "
+
+               ;; relative position, size of file
+               (propertize "%p" 'face 'font-lock-constant-face) ;; % above top
+               "/"
+               (propertize "%I" 'face 'font-lock-constant-face) ;; size
+               " | "
+
+               ;; the current major mode for the buffer.
+               '(:eval (propertize "%m"
+                                   'face
+                                   'font-lock-string-face
+                                   'help-echo buffer-file-coding-system))
+               " | "
+
+
+               ;; insert vs overwrite mode, input-method in a tooltip
+               '(:eval (propertize (if overwrite-mode "Ovr" "Ins")
+                                   'face 'font-lock-preprocessor-face
+                                   'help-echo (concat "Buffer is in "
+                                                      (if overwrite-mode "overwrite" "insert") " mode")))
+
+               ;; was this buffer modified since the last save?
+               '(:eval (when (buffer-modified-p)
+                         (concat ","  (propertize "Mod"
+                                                  'face 'font-lock-warning-face
+                                                  'help-echo "Buffer has been modified"))))
+
+               ;; is this buffer read-only?
+               '(:eval (when buffer-read-only
+                         (concat ","  (propertize "RO"
+                                                  'face 'font-lock-type-face
+                                                  'help-echo "Buffer is read-only"))))
+               " | "
+
+               ;; add the time, with the date and the emacs uptime in the tooltip
+               '(:eval (propertize (format-time-string "%H:%M")
+                                   'help-echo
+                                   (concat (format-time-string "%c; ")
+                                           (emacs-uptime "Uptime:%hh"))))
+               ))
 
 ;; Set font face height. Value is 1/10pt.
 (set-face-attribute 'default nil :height 180)

;; New browser tab.
(cond
 ((string-equal system-type "darwin") ; Mac OS X
    (defun ar/new-browser-tab ()
      "Open a new browser tab in the default browser."
      (interactive)
      (shell-command "open http://google.com"))
    ;; Ensures PATH is loaded from shell.
    (use-package exec-path-from-shell
      :ensure exec-path-from-shell)
    (exec-path-from-shell-initialize))
 ((string-equal system-type "gnu/linux") ; Linux
    (defun ar/new-browser-tab ()
      "Open a new browser tab in the default browser."
      (interactive)
      (shell-command "google-chrome http://google.com")
      ))
 )
(global-set-key (kbd "C-x t") 'ar/new-browser-tab)

;; Disable backup.
;; From: http://anirudhsasikumar.net/blog/2005.01.21.html
(setq backup-inhibited t)
; Disable auto save.
(setq auto-save-default nil)

;; Disable auto save.

 '("\\.git$" "\\.hg$" "\\.svn$" "\\.CVS$" "\\._darcs$" "\\.la$" "\\.o$" "\\.i$") ; do not show these files in helm buffer
 helm-ff-file-name-history-use-recentf t
 helm-move-to-line-cycle-in-source t ; move to end or beginning of source
 ido-use-virtual-buffers t
 helm-buffers-fuzzy-matching t)

;; Save current position to mark ring when jumping to a different place
(add-hook 'helm-goto-line-before-hook 'helm-save-current-pos-to-mark-ring)
