   ("<SPC>" whitespace-mode              "whitespace" :color red)
   ("<f11>" toggle-frame-maximized       "fullscreen")
   ("q"     nil                          "cancel" :color blue))
+(key-chord-define-global "qq"  #'hydra-toggle/body)
+(bind-key                "s-t" #'hydra-toggle/body modi-mode-map)
 
 ;; Launcher
-(defhydra hydra-freq (:color blue)
+(defhydra hydra-launch-freq (:color blue)
   "open"
   ("a" (find-file
         (concat user-home-directory

        (concat user-home-directory
                "/docs/IEEE_STD_1800-2012_SystemVerilog.pdf")) "IEEE-SV")
  ("q" nil                                                     "cancel" :color blue))

(defhydra hydra-launch (:color blue)
  "launch"
  ("a"       ag-regexp-cwd                         "ag here") ; ag in current dir

  ("ss"      shell-command                         "shell cmd")
  ("w"       sunshine-quick-forecast               "weather (quick)")
  ("W"       sunshine-forecast                     "weather (full)")
  ("<s-SPC>" hydra-launch-freq/body                "freq files")
  ("<SPC>"   ace-jump-mode                         "ace jump")
  (":"       eval-expression                       "eval")
  ("q"       nil                                   "cancel" :color blue))
(bind-key "<s-SPC>" #'hydra-launch/body)

;; Vi-mode
;; http://oremacs.com/2015/02/05/amaranth-hydra/
