new component comp-menu-dialog

New menu component:

(if (:show-menu? state)
   (comp-menu-dialog
    (fn [result d! m!] (println "result" result))
    (fn [mutate!] (mutate! %cursor (update state :show-menu? not)))
    {:haskell "Haskell", :clojure "Clojure"}))

Previews http://repo.respo.site/inflow-popup/