POC Fulcro GraphQL Snippet

demo.cljs

(fp/defsc GiftList
  [this {:gql.gift/keys [id name]}]
  {:ident [:gql.gift/id :gql.gift/id]
   :query [:gql.gift/id :gql.gift/name]}
  (js/console.log {:gift [id name]})
  (dom/div "Gift list " id ": " name))

(def ui-gift-list (fp/factory GiftList {:keyfn :gql.gift/id}))

(fp/defsc GiftListDemo
  [this {:gql/keys [gift]}]
  {:initial-state (fn [_] {})
   :ident (fn [] [::root "singleton"])
   :query [{:gql/gift (fp/get-query GiftList)}]}
  (js/console.log {:props (fp/props this)})
  (dom/div (mapv ui-gift-list gift)))

(def ui-gift-list-demo (fp/factory GiftListDemo))

(defonce SPA (atom nil))

(defn mount []
  (reset! SPA (fc/mount @SPA GiftListDemo "app")))

(defn start []
  (mount))

(defn ^:export init []
  (reset! SPA (fc/new-fulcro-client
               :started-callback
               (fn [app]
                 (go-catch
                  (try
                    (<? gift-list-index-status)
                    (df/load app [::root "singleton"] GiftListDemo)
                    (catch :default e (js/console.error "Error making index" e)))))

               :networking
               {:remote (-> parser
                            pfn/pathom-remote
                            pfn/trace-remote)}))
  (start))