giles
1560207097
Convert all 8 blog page helpers from returning sx_call() strings to returning data dicts. Defpages now use :data + :content pattern: helpers load data, SX composes markup. Newsletter options and footer badges composed inline with map/fn in defpage expressions. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
155 lines
4.9 KiB
Plaintext
155 lines
4.9 KiB
Plaintext
; Blog app defpage declarations
|
|
; Pages kept as Python: home, index, post-detail (cache_page / complex branching)
|
|
; All helpers return data dicts — markup composition in SX.
|
|
|
|
; --- New post/page editors ---
|
|
|
|
(defpage new-post
|
|
:path "/new/"
|
|
:auth :admin
|
|
:layout :blog
|
|
:data (editor-data)
|
|
:content (~blog-editor-content
|
|
:csrf csrf :title-placeholder title-placeholder
|
|
:create-label create-label :css-href css-href
|
|
:js-src js-src :sx-editor-js-src sx-editor-js-src
|
|
:init-js init-js))
|
|
|
|
(defpage new-page
|
|
:path "/new-page/"
|
|
:auth :admin
|
|
:layout :blog
|
|
:data (editor-page-data)
|
|
:content (~blog-editor-content
|
|
:csrf csrf :title-placeholder title-placeholder
|
|
:create-label create-label :css-href css-href
|
|
:js-src js-src :sx-editor-js-src sx-editor-js-src
|
|
:init-js init-js))
|
|
|
|
; --- Post admin pages (absolute paths under /<slug>/admin/) ---
|
|
|
|
(defpage post-admin
|
|
:path "/<slug>/admin/"
|
|
:auth :admin
|
|
:layout (:post-admin :selected "admin")
|
|
:data (post-admin-data slug)
|
|
:content (~blog-admin-placeholder))
|
|
|
|
(defpage post-data
|
|
:path "/<slug>/admin/data/"
|
|
:auth :admin
|
|
:layout (:post-admin :selected "data")
|
|
:data (post-data-data slug)
|
|
:content (~blog-data-table-content :tablename tablename :model-data model-data))
|
|
|
|
(defpage post-preview
|
|
:path "/<slug>/admin/preview/"
|
|
:auth :admin
|
|
:layout (:post-admin :selected "preview")
|
|
:data (post-preview-data slug)
|
|
:content (~blog-preview-content
|
|
:sx-pretty sx-pretty :json-pretty json-pretty
|
|
:sx-rendered sx-rendered :lex-rendered lex-rendered))
|
|
|
|
(defpage post-entries
|
|
:path "/<slug>/admin/entries/"
|
|
:auth :admin
|
|
:layout (:post-admin :selected "entries")
|
|
:data (post-entries-data slug)
|
|
:content (~blog-entries-browser-content
|
|
:entries-panel (~blog-associated-entries-from-data :entries entries :csrf csrf)
|
|
:calendars calendars))
|
|
|
|
(defpage post-settings
|
|
:path "/<slug>/admin/settings/"
|
|
:auth :post_author
|
|
:layout (:post-admin :selected "settings")
|
|
:data (post-settings-data slug)
|
|
:content (~blog-settings-form-content
|
|
:csrf csrf :updated-at updated-at :is-page is-page
|
|
:save-success save-success :slug settings-slug
|
|
:published-at published-at :featured featured
|
|
:visibility visibility :email-only email-only
|
|
:tags tags :feature-image-alt feature-image-alt
|
|
:meta-title meta-title :meta-description meta-description
|
|
:canonical-url canonical-url :og-title og-title
|
|
:og-description og-description :og-image og-image
|
|
:twitter-title twitter-title :twitter-description twitter-description
|
|
:twitter-image twitter-image :custom-template custom-template))
|
|
|
|
(defpage post-edit
|
|
:path "/<slug>/admin/edit/"
|
|
:auth :post_author
|
|
:layout (:post-admin :selected "edit")
|
|
:data (post-edit-data slug)
|
|
:content (~blog-edit-content
|
|
:csrf csrf :updated-at updated-at
|
|
:title-val title-val :excerpt-val excerpt-val
|
|
:feature-image feature-image :feature-image-caption feature-image-caption
|
|
:sx-content-val sx-content-val :lexical-json lexical-json
|
|
:has-sx has-sx :title-placeholder title-placeholder
|
|
:status status :already-emailed already-emailed
|
|
:newsletter-options (<>
|
|
(option :value "" "Select newsletter\u2026")
|
|
(map (fn (nl) (option :value (get nl "slug") (get nl "name"))) newsletters))
|
|
:footer-extra (when badges
|
|
(<> (map (fn (b) (span :class (get b "cls") (get b "text"))) badges)))
|
|
:css-href css-href :js-src js-src
|
|
:sx-editor-js-src sx-editor-js-src
|
|
:init-js init-js :save-error save-error))
|
|
|
|
; --- Settings pages (absolute paths) ---
|
|
|
|
(defpage settings-home
|
|
:path "/settings/"
|
|
:auth :admin
|
|
:layout :blog-settings
|
|
:content (div :class "max-w-2xl mx-auto px-4 py-6"))
|
|
|
|
(defpage cache-page
|
|
:path "/settings/cache/"
|
|
:auth :admin
|
|
:layout :blog-cache
|
|
:data (service "blog-page" "cache-data")
|
|
:content (~blog-cache-panel :clear-url clear-url :csrf csrf))
|
|
|
|
; --- Snippets ---
|
|
|
|
(defpage snippets-page
|
|
:path "/settings/snippets/"
|
|
:auth :login
|
|
:layout :blog-snippets
|
|
:data (service "blog-page" "snippets-data")
|
|
:content (~blog-snippets-content
|
|
:snippets snippets :is-admin is-admin :csrf csrf))
|
|
|
|
; --- Menu Items ---
|
|
|
|
(defpage menu-items-page
|
|
:path "/settings/menu_items/"
|
|
:auth :admin
|
|
:layout :blog-menu-items
|
|
:data (service "blog-page" "menu-items-data")
|
|
:content (~blog-menu-items-content
|
|
:menu-items menu-items :new-url new-url :csrf csrf))
|
|
|
|
; --- Tag Groups ---
|
|
|
|
(defpage tag-groups-page
|
|
:path "/settings/tag-groups/"
|
|
:auth :admin
|
|
:layout :blog-tag-groups
|
|
:data (service "blog-page" "tag-groups-data")
|
|
:content (~blog-tag-groups-content
|
|
:groups groups :unassigned-tags unassigned-tags
|
|
:create-url create-url :csrf csrf))
|
|
|
|
(defpage tag-group-edit
|
|
:path "/settings/tag-groups/<int:id>/"
|
|
:auth :admin
|
|
:layout :blog-tag-group-edit
|
|
:data (service "blog-page" "tag-group-edit-data" :id id)
|
|
:content (~blog-tag-group-edit-content
|
|
:group group :all-tags all-tags
|
|
:save-url save-url :delete-url delete-url :csrf csrf))
|