-;; Time-stamp: <2016-05-07 00:13:36 kmodi>
+;; Time-stamp: <2016-05-13 12:12:45 kmodi>
 
 ;; Info
 

            (when (find-font (font-spec :name "DejaVu Sans Mono"))
              (set-face-attribute 'Info-quoted nil :family "DejaVu Sans Mono")))
          (add-hook 'after-make-frame-functions #'modi/find-font-Info-quoted)))

    (defhydra hydra-info (:color blue
                          :hint nil)

      ("C-g" nil "cancel" :color blue))
    (bind-key "?" #'hydra-info/body Info-mode-map)

    ;; http://oremacs.com/2015/03/17/more-info/
    (defun ora-open-info (topic bufname)
      "Open info on TOPIC in BUFNAME."
      (if (get-buffer bufname)
          (progn
            (switch-to-buffer bufname)
            (unless (string-match topic Info-current-file)
              (Info-goto-node (format "(%s)" topic))))
        (info topic bufname)))
    (defhydra hydra-info-to (:hint nil
                             :color teal)
      "
_i_nfo      _o_rg      e_l_isp      e_L_isp intro      _e_macs      _c_alc"
      ("i" info)
      ("o" (ora-open-info "org" "*org info*"))
      ("l" (ora-open-info "elisp" "*elisp info*"))
      ("L" (ora-open-info "eintr" "*elisp intro info*"))
      ("e" (ora-open-info "emacs" "*emacs info*"))
      ("c" (ora-open-info "calc" "*calc info*")))
    (bind-key "C-h i" #'hydra-info-to/body modi-mode-map)))


(provide 'setup-info)
