1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
;;; Copyright © 2019 - 2020 Jakob L. Kreuze <zerodaysfordays@sdf.org>
;;;
;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU General Public License as
;;; published by the Free Software Foundation; either version 3 of the
;;; License, or (at your option) any later version.
;;;
;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;;; General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program. If not, see
;;; <http://www.gnu.org/licenses/>.
;;; Commentary:
;;;
;;; Common procedures for splitting up large numbers of items across pages.
;;;
;;; Code:
(define-module (jakob utils pagination)
#:use-module (haunt artifact)
#:use-module (haunt html)
#:use-module (ice-9 match)
#:use-module (srfi srfi-1)
#:use-module (jakob theme)
#:use-module (jakob utils)
#:use-module (jakob utils sxml)
#:export (paginate
render-listing
items->pages))
(define %items-per-page 10)
;;;
;;; Partitioning.
;;;
(define* (paginate items #:key (items-per-page %items-per-page))
"Partition ITEMS into list of no more than ITEMS-PER-PAGE items, returning
lists of the form (index, items)."
(let loop ((index 1)
(lst items)
(result '()))
(if (null? lst)
result
(let ((how-many (min %items-per-page (length lst))))
(loop (1+ index)
(drop lst how-many)
(cons (list index (take lst how-many))
result))))))
;;;
;;; Rendering.
;;;
(define* (render-listing content title previous-page next-page
#:key enable-search)
"Return an SHTML document showing CONTENT, with the header TITLE and links to
PREVIOUS-PAGE and NEXT-PAGE."
#<((h2 (@ (class "section-header")) ,title)
,@(if enable-search
'((div (@ (id "search"))))
'())
,@content
(nav
(@ (id "pagination"))
,(when previous-page
`(a (@ (href ,previous-page)
(rel "prev"))
"← Previous Page"))
,(when next-page
`(a (@ (href ,next-page)
(rel "next"))
"Next Page →")))
,@(if enable-search
`((link (@ (rel "stylesheet")
(href "/_pagefind/pagefind-ui.css")))
(script (@ (src "/_pagefind/pagefind-ui.js")))
(script "window.addEventListener('DOMContentLoaded', function (event) {
return new PagefindUI({
element: '#search',
processResult: function (result) {
if (result.fixed) {
return result;
}
let path = result.raw_url;
let basepath = path.substring(0, path.lastIndexOf('/'));
result.meta.image = basepath + '/' + result.meta.image;
result.fixed = true;
return result;}});})"))
'())))
(define* (items->pages render-item items base-title base-file-name
#:key enable-search (items-per-page %items-per-page))
"Return a list of Haunt pages for ITEMS with no more than ITEMS-PER-PAGE items
to a page, with headers containing BASE-TITLE and output file names beginning
with BASE-FILE-NAME. RENDER-ITEM is a procedure returning a SXML rendering of
the item from ITEMS passed as a parameter."
(define (index->file-name index)
(if (= index 1)
(format #f "~a.html" base-file-name)
(format #f "~a-~a.html" base-file-name index)))
(map (match-lambda
((index subset)
(let ((title (if (= index 1)
base-title
(format #f "~a :: Page ~a" base-title index)))
(previous-page (if (>= (1- index) 1)
(index->file-name (1- index))
#f))
(next-page (if (<= (1+ index) (ceiling/ (length items)
%items-per-page))
(index->file-name (1+ index))
#f))
(enable-search (and enable-search (= index 1))))
(serialized-artifact (index->file-name index)
(theme #:title title
#:content
(render-listing (map render-item subset) title
previous-page next-page
#:enable-search enable-search))
sxml->html))))
(paginate items)))
|
