host: seed nt-live-encore so the real import survives store wipes
host/blog-seed-nt-live-encore! imports the real post (its HTML-derived sx_content embedded) via host/blog-import-post!, decomposing it into the :body composition of typed cards; wired into serve.sh next to the demo seeds. Verified: after a full store wipe + reboot it reseeds (HTTP 200, 4 images, 3 video embeds, tagged nt-live/films). Idempotent. blog 175/175. Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
This commit is contained in:
@@ -1003,6 +1003,20 @@
|
||||
(alt (when (eq "status" "ready") (effect publish (field :slug)))
|
||||
(else (effect hold (field :slug))))
|
||||
(each (items {:to "alice@x"} {:to "bob@x"}) (effect notify (field :to)))))))))
|
||||
;; A REAL imported blog post (from rose-ash.com) decomposed into the :body composition, so the
|
||||
;; import survives store wipes — reseeded on boot like the demos. host/blog-import-post!
|
||||
;; decomposes its HTML-derived sx_content into typed card objects (card-image / card-text /
|
||||
;; card-embed) + a `contains` body. Idempotent (re-import overwrites the same __bN cards).
|
||||
(define host/blog-seed-nt-live-encore!
|
||||
(fn ()
|
||||
(host/blog-import-post!
|
||||
{"slug" "nt-live-encore"
|
||||
"title" "NT Live Encore?"
|
||||
"status" "published"
|
||||
"custom_excerpt" "Missed an NT Live performance at Rose Ash Village Hall? We can book an encore."
|
||||
"feature_image" "https://rose-ash.com/content/images/2026/07/61iN2uEt2ML._AC_SL1024_.jpg"
|
||||
"tags" (list "NT Live" "Films")
|
||||
"sx_content" "(article (img :src \"https://rose-ash.com/content/images/2026/07/61iN2uEt2ML._AC_SL1024_.jpg\" :alt \"NT Live Encore?\") (p \"Did you miss an NTLIVE performance at Rose Ash Village Hall? Or maybe you enjoyed it so much you want another chance to see it? We can book an encore with the National Theatre. Ticket price will be £10. If you are interested, take a look at the available days for each play below and please email village@rose-ash.com (or simply reply to this if you are reading it as an email) and let us know which plays you'd like to see when. We can't promise to make the date you request - but we will do our best! If none of these times suit - then let us know and we'll try harder! (you may have to stick the DVD in the slot yourself...) Don't forget to subscribe to rose-ash.com for emailed news of all things Rose Ash!\") (figure (img :src \"https://rose-ash.com/content/images/2026/07/LISTING.jpg\" :alt \"NT Live Encore?\") (figcaption \"Bryan Cranston (Breaking Bad) and Marianne Jean-Baptiste (Hard Truths) feature in a five-star, triumphantly acclaimed new production of Arthur Miller’s classic play, from visionary director Ivo Van Hove (A View from the Bridge).\")) (p \"ALL MY SONS encore possibilities: Sunday 5th July PM\") (figure (img :src \"https://rose-ash.com/content/images/2026/07/in.jpg\" :alt \"NT Live Encore?\") (figcaption \"Pegeen Flaherty’s life is turned upside down when a young man walks into her pub claiming that he’s killed his father. Instead of being shunned, the killer becomes a local hero and begins to win hearts,that is until a second man unexpectedly arrives on the scene…\")) (p \"PLAYBOY encore possibilities: Sunday 5th July PM, Sunday 26th July PM, Sunday August 2nd PM\") (figure (img :src \"https://rose-ash.com/content/images/2026/07/in-1.jpg\" :alt \"NT Live Encore?\") (figcaption \"Marquise de Merteuil is a master in the art of survival. Alongside the magnetic Vicomte de Valmont, they turn seduction into strategy and weaponise desire. But when their alliance collapses into rivalry, the battle between them threatens to destroy everyone in their path.\")) (p \"LIASONS encore possibilities: Sunday 5th July PM, Sunday 26th July PM, Sunday August 2nd PM\") (iframe :src \"https://www.youtube.com/embed/aLaRT0yAstE\") (iframe :src \"https://www.youtube.com/embed/tdlgR2FDbRI\") (iframe :src \"https://www.youtube.com/embed/wq5l5VV51sU\"))"})))
|
||||
;; GET /workflow-demo — run the workflow object through the execute-fold and render its
|
||||
;; effect log. The same object's :body, folded by RENDER, would produce HTML; folded by
|
||||
;; EXECUTE it produces this plan of effects. The behaviour model IS an execute-fold.
|
||||
|
||||
Reference in New Issue
Block a user