1
2
3
4
5
6
7
8
9
|
#lang pollen
◊(require pollen/template db/base racket/list racket/match)
◊(define (fetch-series)
(define q "SELECT noun_plural, pagenode, title FROM series ORDER BY noun_plural DESC")
(query-rows (sqltools:dbc) q))
◊(define (series-item->txpr s)
|
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
|
#lang pollen
◊; SPDX-License-Identifier: BlueOak-1.0.0
◊; This file is licensed under the Blue Oak Model License 1.0.0.
◊(require pollen/template db/base racket/list racket/match)
◊(define (fetch-series)
(define q "SELECT noun_plural, pagenode, title FROM series ORDER BY noun_plural DESC")
(query-rows (sqltools:dbc) q))
◊(define (series-item->txpr s)
|
