   [kw delimiter] ;; TODO: Possibly move to util
   "I return the vector of the two keywords formed by splitting
    another keyword 'kw' on an internal delimiter (usually '-').
-
    (split-keyword  :above-left  \"-\")
-   =>  [:above :left]
-   "
+   =>  [:above :left]"
   (let [keywords (string/split (str kw) (re-pattern (str "[" delimiter ":]")))]
     [(keyword (keywords 1)) (keyword (keywords 2))]))
 

       - :backdrop-callback if specified, add a backdrop div between the main screen (including element) and the popover.
                            when clicked, this callback is called (usually to close the popover)
       - :backdrop-opacity  0 = transparent, 1 = black (http://jsfiddle.net/Rt9BJ/1)"

  (let [[orientation arrow-pos] (split-keyword position "-") ;; only need orientation here
        place-anchor-before?    (case orientation (:left :above) false true)
        flex-flow               (case orientation (:left :right) "row" "column")

      (when @showing?
        [:div {:style {:position "relative" :display "inline-block"}} ;; :flex-grow 0 :flex-shrink 1 :flex-basis "auto"
         [make-popover popover-params]])
      (when-not place-anchor-before? anchor)]]))


(defn make-button
