@@ -47,13 +47,13 @@ (provide spell-of-summoning! crystalize-article! article-plain-title list/articles list/articles+notes - list-short/articles - list-full/articles - list-full/articles+notes + listing<>-short/articles + listing<>-full/articles + listing<>-full/articles+notes unfence preheat-series!) ;; ~~~ Private use ~~~ @@ -197,20 +197,20 @@ ;; ~~~~ ;; Return cached HTML of articles and/or notes, fenced within a style txexpr to prevent it being ;; escaped by ->html. See also: definition of `unfence` -(define (list-short/articles #:series [s #t] #:limit [limit -1] [order "DESC"]) +(define (listing<>-short/articles #:series [s #t] #:limit [limit -1] [order "DESC"]) `(style "")) -(define (list-full/articles #:series [s #t] #:limit [limit -1] [order "DESC"]) +(define (listing<>-full/articles #:series [s #t] #:limit [limit -1] [order "DESC"]) `(style ,@(list/articles "listing_full_html" #:series s #:limit limit order))) ;; Return a combined list of articles and notes (“full content” version) sorted by date -(define (list-full/articles+notes #:series [s #t] #:limit [limit -1] [order "DESC"]) +(define (listing<>-full/articles+notes #:series [s #t] #:limit [limit -1] [order "DESC"]) `(style ,@(list/articles+notes "listing_full_html" #:series s #:limit limit order))) ;; Remove "" introduced by using ->html on docs containing output from ;; listing functions (define (unfence html-str)