       ("C-g" nil "cancel" :color blue))
     (bind-key "?" #'hydra-info/body Info-mode-map)
 
-    (use-package info+
-      :config
-      (progn
-        (bind-keys
-         :map Info-mode-map
-          ;; Allow mouse scrolling to do its normal thing
-          ("<mouse-4>" . nil)
-          ("<mouse-5>" . nil)
-          ;; Override the Info-mode-map binding to "?" set by info+
-          ("?" . hydra-info/body))))))
+    ;; 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)

            (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)

;; Time-stamp: <2016-05-13 12:12:45 kmodi>

;; Info

