Clojurians Log v2

BTW does this work in the browser and only is broken on the backend or is it a problem in both? So that we can zoom in on the problematic area...

After re-reading your original message, it seems there is indeed a problem with the initial state. I would try to debug it on the JVM to find out what change-route is failing to find. Namely it seems (dr/evaluate-relative-path Root ["main"]) is not finding the router. Look at why. Could you perhaps make a small replication case (e.g. based off fulcro-template) so that we could play with the code and try to help better? Hm, looking at the code it seems there is simply missing support for this...

> Hm, looking at the code it seems there is simply missing support for this... Bummer. would you like me to still make the small replica?

No, I have made one. Check out this https://gist.github.com/holyjak/6ead10c0b447e098026f3e24e4f1e519 It works and displays the non-default route. However I have no idea what is the correct way to do this. This is simply the first one I found to work.

Cool. So sticking with this approach for now, where you use AlternateTarget to compute state' the backend should really look at the requested uri and pick the appropriate component?

RAD's history API has utilities for converting URLs to routes and the dr ns has utilities for finding the target given a route so look at those. Maybe they will work 🙂

Cool. Thanks! will do

Thanks a lot @holyjak. This is mostly working for me. I need to insert the initial state of a Session component. This:

(let [session-state (parsers/sessions-endpoint [{:sessions/session (get-query sessions/Session)}]
                                                 {:target [:component/id :session]
                                                  :remote :sessions
                                                  :request request})

        initial-state (-> session-state ;; TODO: This is not how session-state should be added
                          (assoc-in
                            (conj [::dr/id ::ui/SiteRouter] ::dr/current-route) (get-initial-state target))
                          (set-query*
                            ui/SiteRouter {:query [::dr/id {::dr/current-route (get-query target)}]}))

        script-tag (ssr/initial-state->script-tag initial-state)

        content (let [app (fulcro-app/fulcro-app {:initial-db initial-state})
                      props (denorm/db->tree (get-query ui/Root) initial-state initial-state)]
                  (binding [*app* app]
                    (dom/render-to-str (ui/ui-root props))))]
    {:script-tag script-tag
     :content content})

Any hints on how this should be added? Thanks again!

Looking at this https://book.fulcrologic.com/#_building_the_app_state_on_the_server now ...

Yeah, this seems to be what I needed. Now I seem to have a problem with the state machine ...

I don't follow, sorry. If you know what the session state should be then just insert it into the state at the correct position (assoc-in state [:comopent/id :session] your-stuff), no? And why do you need state machines in a non-interactive app?

You could render whatever you want on the client side then dump the state into an EDN file, remove everything unnecessary, and use that for SSR

> then just insert it into the state at the correct position (assoc-in state [:comopent/id :session] your-stuff), no? Correct. The documentation I linked to said to do exactly this. Thank you. What I have now is:

(let [session-state (parsers/sessions-endpoint [{:sessions/session (get-query sessions/Session)}]
                                                 {:target [:component/id :session]
                                                  :remote :sessions
                                                  :request request})

        session-ident (get-ident sessions/Session session-state)

        initial-state (-> {}
                        (assoc :sessions/session session-ident)
                        (assoc-in session-ident session-state)
                        (assoc-in (conj [::dr/id ::ui/SiteRouter] ::dr/current-route)
                          (get-initial-state target))
                        (set-query*
                          ui/SiteRouter {:query [::dr/id {::dr/current-route (get-query target)}]}))

        script-tag (ssr/initial-state->script-tag initial-state)

        content (let [app (application/fulcro-app {:initial-db initial-state})
                      props (denorm/db->tree (get-query ui/Root) initial-state initial-state)]
                  (binding [*app* app]
                    (dom/render-to-str (ui/ui-root props))))]
    {:script-tag script-tag
     :content content})

Nope. The problem was with a resolver that wasn't returning the data in the right shape.

That is great to hear, thank you so much! It provides fuel to go on 🙂

Really nice and thank you!

BTW if you find anything unclear, any mistakes, or have any suggestions, do not hesitate to let me know!

If you're going to give a substantial list of pre-requisites (react/graphql alone are potentially months of learning!) - linking to a tutorial/guide or two would be a good idea.

@holyjak I’m adding public comments via http://hypothes.is

Thanks a lot, Tony! I've incorporated them now.