summaryrefslogtreecommitdiffstats
path: root/scripts/metadata_filter.lua
blob: fefb1ceec4a133226c2d8463a465c87c6c109e02 (plain) (blame)
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
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
local path = require 'pandoc.path'

function pandoc.List:flatMap(fn)
    local mapped = self:map(fn)
    local result = pandoc.List()

    for i = 1, #mapped do result:extend(mapped[i]) end

    return result
end

function format_date(date)
    if not date then return date end

    date = pandoc.utils.normalize_date(pandoc.utils.stringify(date))
    local year, month, day = date:match("(%d%d%d%d)-(%d%d)-(%d%d)")
    if not year then return nil end

    local time = os.time({ year = tonumber(year), month = tonumber(month), day = tonumber(day) })
    return {
        yyyy_mm_dd = os.date("%F", time),
        yyyy = os.date("%Y", time),
        mm = os.date("%m", time),
        dd = os.date("%d", time),
        rfc3339 = os.date("%FT%T+00:00", time),
        long = os.date("%B %d, %Y", time),
        short = os.date("%b %d, %y", time),
    }
end

function table_to_list(t, kv, cmp)
    local l = pandoc.List()

    if kv then
        for key, value in pairs(t) do l:insert({ key = key, value = value }) end
    else
        for _, value in pairs(t) do l:insert(value) end
    end

    l:sort(cmp or function(i1, i2) return i1.key < i2.key end)

    return l
end

function make_absolute(rel, base)
    return path.is_absolute(rel) and rel or path.join({ path.directory(base), rel })
end

function resolve_url(site_url, ref_file, target_file)
    target_file = target_file:gsub("/index%.html$", "/")

    local ref_base_dir = path.directory(ref_file)
    local abs = target_file
    local rel = path.make_relative(abs, ref_base_dir, true)
    local full = (abs[1] == "/" and (site_url .. abs)) or abs

    return { abs = abs, rel = rel, full = full }
end

function resolve_layout(depth)
    local layout = "categorized_list"

    if depth == "0" then
        layout = "page"
    elseif depth == "1" then
        layout = "list"
    end

    return layout
end

function prep_layout(layout)
    layout = pandoc.utils.stringify(layout)
    return { id = layout, ["is_" .. layout] = true }
end

function resolve_namespace(namespace)
    namespace = pandoc.utils.stringify(namespace)

    local root = "index"
    if namespace ~= "" then root = namespace:gsub("^/([^/]*).*$", "%1") end

    return { root = { id = root, ["is_" .. root] = true }, full = namespace }
end

function prep_menu(active_id, main_menu)
    local active_item = nil
    local items = pandoc.List()

    for i = 1, #main_menu do
        local item = main_menu[i]
        local active = pandoc.utils.stringify(item.id) == active_id
        item.active = active
        if active then active_item = item end
        if not item.hidden or item.active then items:insert(item) end
    end

    return { items = items, active = active_item }
end

function process_pages(global, parent, order, pages_by_id)
    if not pages_by_id then return nil end

    local pages_all = pandoc.List()
    local pages_date_desc = pandoc.List()

    for _, page in pairs(pages_by_id) do
        local p = process(global, parent, page)
        if not p.unlisted then
            pages_all:insert(p)
            if p.date then pages_date_desc:insert(p) end
        end
    end

    pages_all:sort(function(p1, p2)
        if p1.position then
            if p2.position then
                return tonumber(p1.position) < tonumber(p2.position)
            else
                return true
            end
        elseif p2.position then
            return false
        elseif order == "date_desc" then
            if p1.date then
                if p2.date then
                    return p1.date.yyyy_mm_dd > p2.date.yyyy_mm_dd
                else
                    return true
                end
            else
                return false
            end
        else
            return p1.title:upper() < p2.title:upper()
        end
    end)

    pages_date_desc:sort(function(p1, p2)
        if p1.position then
            if p2.position then
                return tonumber(p1.position) < tonumber(p2.position)
            else
                return true
            end
        else
            return p1.date.yyyy_mm_dd > p2.date.yyyy_mm_dd
        end
    end)

    local pages_data = { all = pages_all, date_desc = pages_date_desc, by_id = pages_by_id }

    return pages_data
end

local titlecase_exceptions = pandoc.List({
    "a", "an", "and", "as", "at", "but", "by", "en", "for", "if", "in", "nor", "of", "on", "or",
    "per", "the", "to", "v%.?", "vs%.?", "via",
})

function titlecase(str)
    return str:gsub("(%S)(%S*)(%s*)", function(a, b, space)
        local word = a .. b
        local is_exception = word:match("%u") or
                                 titlecase_exceptions:find_if(
                function(exception) return word:match("^" .. exception .. "$") end)
        if is_exception then return word .. space end
        return string.upper(a) .. b .. space
    end)
end

function find_depth(pages)
    local depth = 0

    for i = 1, #pages do
        local p = pages[i]
        local d = tonumber(p.depth)
        if d > depth then depth = d end
    end

    depth = depth + 1

    return tostring(depth)
end

function generate_list(meta)
    if not meta.pages then return nil end

    if meta.depth == "1" then
        return meta.pages.all:map(function(p)
            return {
                title = p.title,
                subtitle = p.subtitle,
                date = p.date,
                url = p.url,
                icon = p.icon or meta.icon,
                post_icon = meta.list_post_icon,
                indicator = meta.list_read_indicators,
            }
        end)
    elseif meta.depth == "2" then
        return meta.pages.all:map(function(cat)
            return {
                title = cat.title,
                content = cat.content,
                url = cat.url,
                grid = cat.list_grid,
                items = ((cat.pages and cat.pages.all) or pandoc.List()):map(function(p)
                    return {
                        title = p.title,
                        subtitle = p.subtitle,
                        date = p.date,
                        url = p.url,
                        icon = p.icon or cat.icon,
                        post_icon = cat.list_post_icon or meta.list_post_icon,
                        indicator = cat.list_read_indicators,
                    }
                end),
            }
        end):filter(function(cat) return #cat.items ~= 0 end)
    elseif meta.depth == "3" then
        return meta.pages.all:map(function(cat)
            return {
                title = cat.title,
                content = cat.content,
                url = cat.url,
                grid = cat.list_grid,
                items = (cat.pages and cat.pages.all or pandoc.List()):flatMap(function(c)
                    if c.pages then
                        return c.pages.all:map(function(p)
                            return {
                                title = p.title,
                                subtitle = p.subtitle,
                                category = c.title,
                                url = p.url,
                                icon = p.icon or c.icon,
                                post_icon = c.list_post_icon or cat.list_post_icon,
                                indicator = c.list_read_indicators,
                            }
                        end)
                    else
                        local l = pandoc.List()
                        l:insert({
                            title = c.title,
                            subtitle = c.subtitle,
                            url = c.url,
                            icon = c.icon or cat.icon,
                            post_icon = cat.list_post_icon,
                            indicator = cat.list_read_indicators,
                        })
                        return l
                    end
                end),
            }
        end):filter(function(cat) return #cat.items ~= 0 end)
    end
end

function process(global, parent, meta)
    meta.namespace = resolve_namespace(meta.namespace)
    meta.file_out = pandoc.utils.stringify(meta.file_out):gsub("^out", "")
    meta.redirect = meta.url and true
    meta.url = meta.url and pandoc.utils.stringify(meta.url)
    meta.url = resolve_url(global.site.url, global.file_out, meta.url or meta.file_out)
    meta.title = (meta.title and pandoc.utils.stringify(meta.title)) or ""
    if meta.titlecase ~= false then meta.title = titlecase(meta.title) end
    if meta.list_order then meta.list_order = pandoc.utils.stringify(meta.list_order) end
    if meta.position then meta.position = pandoc.utils.stringify(meta.position) end

    if meta.create_feed then
        if meta.file_out:match(".html$") then
            meta.feed = {
                url = resolve_url(global.site.url, global.file_out,
                    meta.file_out:gsub(".html$", ".xml")),
            }
        else
            meta.page = {
                url = resolve_url(global.site.url, global.file_out,
                    meta.file_out:gsub(".xml$", ".html")),
            }
        end
    end

    if meta.preview then
        meta.preview = make_absolute(pandoc.utils.stringify(meta.preview), meta.file_out)
        meta.preview = resolve_url(global.site.url, global.file_out, meta.preview)
    end

    if meta.menus and meta.menus.main then
        meta.menus.main = prep_menu(meta.namespace.root.id, meta.menus.main)
    end

    meta.pages =
        process_pages(global, { parent = parent, meta = meta }, meta.list_order, meta.pages)
    meta.depth = (meta.pages and find_depth(meta.pages.all)) or "0"
    meta.layout = prep_layout(meta.layout or (meta.redirect and "redirect") or resolve_layout(meta.depth))

    if meta.date then
        meta.date = format_date(meta.date)
    elseif meta.pages and #meta.pages.date_desc ~= 0 then
        meta.date = meta.pages.date_desc[1].date
    end

    if meta.last_update then
        meta.last_update = format_date(meta.last_update)
    elseif meta.pages and #meta.pages.date_desc ~= 0 then
        meta.last_update = meta.pages.date_desc[1].last_update
    elseif meta.date then
        meta.last_update = meta.date
    end

    meta.list = generate_list(meta)

    return meta
end

function Meta(meta)
    meta.site.url = pandoc.utils.stringify(meta.site.url):gsub("/$", "")

    return process(meta, nil, meta)
end