    ("a" ar/find-all-dired-current-dir "find all files")
    ("q" nil "quit")))
 
-(global-set-key
- (kbd "C-c h")
- (defhydra hydra-hunks (:color amaranth)
-   "git hunks"
-   ("n" git-gutter+-next-hunk "next")
-   ("p" git-gutter+-previous-hunk "previous")
-   ("k" git-gutter+-revert-hunk "kill")
-   ("d" git-gutter+-popup-hunk "diff")
-   ("l" git-messenger:popup-show-verbose "log")
-   ("q" nil "quit")))
+(defhydra hydra-git-gutter (:pre (git-gutter-mode 1))
+  "
+Git: _n_ext     _s_tage  _d_iff
+     _p_revious _r_evert _q_uit
+"
+  ("n" git-gutter:next-hunk nil)
+  ("p" git-gutter:previous-hunk nil)
+  ("s" git-gutter:stage-hunk nil)
+  ("r" git-gutter:revert-hunk nil)
+  ("d" git-gutter:popup-hunk nil)
+  ("q" nil nil :color blue))
+(global-set-key (kbd "C-c g") #'hydra-git-gutter/body)
 
 (defhydra hydra-magit-commit (:color blue)
   "magit commit"

(use-package hydra :ensure t)
(setq hydra-is-helpful t)

(defhydra hydra-org-add-object (:color blue)
  "add"
  ("c" ar/org-add-cl "cl")


(use-package git-timemachine :ensure t)

(use-package linum
  :ensure t
  :config (progn
            (set-face-attribute 'linum nil
                                :background "#1B1D1E")
            (setq linum-format "%4d ")))

(use-package git-gutter
  :ensure t)
(global-git-gutter-mode +1)
(global-set-key (kbd "C-c <up>") #'git-gutter:previous-hunk)
(global-set-key (kbd "C-c <down>") #'git-gutter:next-hunk)

(defun ar/setup-tty ()
  "Setup tty frame."
  (unless (window-system)
    nil)) ;; TODO

(ar/setup-tty)

;; TODO: Revisit this.
(defun ar/setup-graphic-display ()
  "Setup graphic display."
  (when (window-system)
    nil)) ;; TODO

(ar/setup-graphic-display)

