Improvements for title-generator and mode-dispatch

[mattiasdrp]

Your major-mode-hydra-title-generator creates an eager macro expansion when used with a mode with no icon associated, I rewrote it like this:

(setq major-mode-hydra-title-generator
      '(lambda (mode)
         (let ((icon (all-the-icons-icon-for-mode mode :v-adjust 0.05)))
           (if (stringp icon)
               (s-concat "\n"
                         (s-repeat 10 " ")
                         icon
                         " "
                         (s-capitalize (symbol-name mode))
                         " commands")
             (s-concat "\n"
                       (s-repeat 10 " ")
                       (s-capitalize (symbol-name mode))
                       " commands")))))

And this is just for me but I wanted to have a default hydra when not visiting a buffer with a mode that has a major hydra but your major-mode-hydra-dispatch function isn't customizable so I rewrote it like this:

(defun major-mode-hydra-dispatch (mode)
  "Summon the hydra for given MODE (if there is one)."
  (let ((orig-mode mode))
    (catch 'done
      (while mode
        (let ((hydra (major-mode-hydra--body-name-for mode)))
          (when (fboundp hydra)
            (call-interactively hydra)
            (throw 'done t)))
        (setq mode (or (get mode 'derived-mode-parent) 'root-mode))))))

Thanks a lot for this package, it's really useful :-)