@@ -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 "
"
,@(list/articles "listing_short_html" #:series s #:limit limit order)
"
"))
-(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)