 ;; 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))
+  (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")
-      ))
- )
+  (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.
+
+;; Disable auto save.
 (setq auto-save-default nil)
 
 ;; Disable auto save.

;; 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"))))
       ))

;; Set font face height. Value is 1/10pt.
(set-face-attribute 'default nil :height 180)

 '("\\.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)
