;; Orders app — declarative page definitions ;; --------------------------------------------------------------------------- ;; Orders list ;; --------------------------------------------------------------------------- (defpage orders-list :path "/" :auth :public :layout (:orders :list-url (orders-list-url)) :filter (orders-list-filter) :aside (orders-list-aside) :content (orders-list-content)) ;; --------------------------------------------------------------------------- ;; Order detail ;; --------------------------------------------------------------------------- (defpage order-detail :path "//" :auth :public :layout (:order-detail :list-url (order-list-url-from-detail) :detail-url (order-detail-url)) :filter (order-detail-filter) :content (order-detail-content))