(require 'hydra)

(defhydra hydra-file-switcher-menu (:color teal :hint nil)
  "
   ^Ivy^                           ^Projectile^                  ^Magit^
^^^^^^^^------------------------------------------------------------------------
_a_: ag                         _s_: Switch project           _m_: Git status
_b_: Switch buffer              _f_: Find file in project
_t_: Find file                  _g_: ag in current project
^^                              _c_: Invalidate cache
^^                              _n_: New project
"
  ("q" nil "cancel" :color pink)

  ("a" counsel-ag)
  ("b" ivy-switch-buffer)
  ("t" counsel-find-file)
  ("s" counsel-projectile-switch-project)
  ("f" counsel-projectile-find-file)
  ("g" counsel-projectile-ag)
  ("c" projectile-invalidate-cache)
  ("m" magit-status)
  ("n" projectile-add-known-project))

(global-set-key (kbd "C-c p") 'hydra-file-switcher-menu/body)

(defhydra hydra-programming-actions (:color teal :hint nil)
  "
  Programming actions

   ^Code Manipulation^    ^Code Completion^
^^^^^^^^-----------------------------------------------------------------------
_c_: comment line      _y_: yasnippet
_r_: regex replace     _m_: company
_i_: indent region
_a_: align regexp
_e_: eval region
"
  ("q" nil "cancel" :color pink)

  ("c"  comment-line)
  ("r"  vr/replace)
  ("i"  indent-region)
  ("a"  align-regexp)
  ("e"  eval-region)

  ("y"  company-yasnippet)
  ("m"  company-complete))

(global-set-key (kbd "C-c c") 'hydra-programming-actions/body)

(defhydra hydra-window-actions (:color teal :hint nil)
  "
  Window actions

   ^Windows^                          ^Move around^
^^^^^^^^-----------------------------------------------------------------------
_k_: kill buffer and window   _<left>_: Move left
_h_: split horizontally      _<right>_: Move right
_v_: split vertically           _<up>_: Move up
^^                            _<down>_: Move down
^^                                 _p_: Previous buffer
^^                                 _n_: Next buffer
"
  ("q" nil "cancel" :color pink)

  ("k"       kill-buffer-and-window)
  ("h"       split-window-below)
  ("v"       split-window-right)

  ("<left>"  windmove-left)
  ("<right>" windmove-right)
  ("<up>"    windmove-up)
  ("<down>"  windmove-down)
  ("p"       previous-buffer)
  ("n"       next-buffer))

(global-set-key (kbd "C-c w") 'hydra-window-actions/body)