giles
1dbf600af2
Phase 4 (Test): Update ~test-layout-full and ~test-detail-layout-full defcomps to use ~root-header with env free variables. Switch render functions to render_to_sx_with_env. Phase 5 (Cart): Convert cart-page, cart-admin, and order render functions. Update cart .sx layout defcomps to use ~root-header from free variables. Phase 6 (Blog): Convert all 7 blog layouts (blog, settings, sub-settings x5). Remove all root_header_sx calls from blog. Phase 7 (Market): Convert market and market-admin layouts plus browse/product render functions. Remove root_header_sx import. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
51 lines
2.2 KiB
Plaintext
51 lines
2.2 KiB
Plaintext
;; Blog layout defcomps — root header from env free variables,
|
|
;; blog-specific headers passed as &key params.
|
|
|
|
;; --- Blog layout (root + invisible blog header) ---
|
|
|
|
(defcomp ~blog-layout-full (&key blog-header)
|
|
(<> (~root-header :cart-mini cart-mini :blog-url blog-url :site-title site-title
|
|
:app-label app-label :nav-tree nav-tree :auth-menu auth-menu
|
|
:nav-panel nav-panel :settings-url settings-url :is-admin is-admin)
|
|
blog-header))
|
|
|
|
;; --- Settings layout (root + settings header) ---
|
|
|
|
(defcomp ~settings-layout-full (&key settings-header)
|
|
(<> (~root-header :cart-mini cart-mini :blog-url blog-url :site-title site-title
|
|
:app-label app-label :nav-tree nav-tree :auth-menu auth-menu
|
|
:nav-panel nav-panel :settings-url settings-url :is-admin is-admin)
|
|
settings-header))
|
|
|
|
;; --- Sub-settings layout (root + settings + sub row) ---
|
|
|
|
(defcomp ~sub-settings-layout-full (&key settings-header sub-header)
|
|
(<> (~root-header :cart-mini cart-mini :blog-url blog-url :site-title site-title
|
|
:app-label app-label :nav-tree nav-tree :auth-menu auth-menu
|
|
:nav-panel nav-panel :settings-url settings-url :is-admin is-admin)
|
|
settings-header sub-header))
|
|
|
|
(defcomp ~sub-settings-layout-oob (&key settings-header-oob sub-header-oob)
|
|
(<> settings-header-oob sub-header-oob))
|
|
|
|
;; --- Settings nav links (replaces Python _settings_nav_sx loop) ---
|
|
|
|
(defcomp ~blog-settings-nav (&key select-colours)
|
|
(let* ((links (list
|
|
(dict :endpoint "menu_items.defpage_menu_items_page" :icon "fa fa-bars" :label "Menu Items")
|
|
(dict :endpoint "snippets.defpage_snippets_page" :icon "fa fa-puzzle-piece" :label "Snippets")
|
|
(dict :endpoint "blog.tag_groups_admin.defpage_tag_groups_page" :icon "fa fa-tags" :label "Tag Groups")
|
|
(dict :endpoint "settings.defpage_cache_page" :icon "fa fa-refresh" :label "Cache"))))
|
|
(<> (map (lambda (lnk)
|
|
(~nav-link
|
|
:href (url-for (get lnk "endpoint"))
|
|
:icon (get lnk "icon")
|
|
:label (get lnk "label")
|
|
:select-colours (or select-colours "")))
|
|
links))))
|
|
|
|
;; --- Editor panel wrapper ---
|
|
|
|
(defcomp ~blog-editor-panel (&key parts)
|
|
(<> parts))
|