gistfile1.txt

(defn dropdown*
  [dropdown widget-id]
  (let
      [state (subscribe [::subs/dropdown-option widget-id])
       option (or (:default-option dropdown)
                  (:id (first (:options dropdown))))]
    (dispatch [::events/set-dropdown-option widget-id
               option])
    (debug "MOUNT" dropdown widget-id)
    (fn [dropdown widget-id]
      [:div.control-dropdowns
       (doall
        (let [{:keys [id options]} dropdown]
          (debug "STATE" @state)
          (do
            ^{:key (key->css id)}
            [DropdownButton
             {:id id
              :bs-size  "xs"
              :title (:label (first (filter #(= (or @state
                                                    option)
                                                (:id %)) options)))}
             (map-indexed
              (fn [idx opt]
                ^{:key opt}
                [MenuItem
                 {:on-select #(dispatch [::events/set-dropdown-option
                                         widget-id (:id opt)])
                  :event-key idx}
                 (:label opt)])
              options)])))])))
              
(defn dropdown*
  [dropdown widget-id]
  (r/with-let
      [state (subscribe [::subs/dropdown-option widget-id])
       option (or (:default-option dropdown)
                  (:id (first (:options dropdown))))]
    (dispatch [::events/set-dropdown-option widget-id
               option])
    (debug "MOUNT" dropdown widget-id)
    [:div.control-dropdowns
     (doall
      (let [{:keys [id options]} dropdown]
        (debug "STATE" @state)
        (do
          ^{:key (key->css id)}
          [DropdownButton
           {:id id
            :bs-size  "xs"
            :title (:label (first (filter #(= (or @state
                                                  option)
                                              (:id %)) options)))}
           (map-indexed
            (fn [idx opt]
              ^{:key opt}
              [MenuItem
               {:on-select #(dispatch [::events/set-dropdown-option
                                       widget-id (:id opt)])
                :event-key idx}
               (:label opt)])
            options)])))]))