-
-
Notifications
You must be signed in to change notification settings - Fork 442
/
utils.jl
123 lines (116 loc) · 3.93 KB
/
utils.jl
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
using Dates
"""
{{meta}}
Plug in specific meta information for a blog page. The `meta` local page
variable should be given as a list of tuples of pairs like so:
```
@def meta = [("property"=>"og:video", "content"=>"http://example.com/"),
("propery"=>"og:title", "content"=>"The Rock")]
```
"""
function hfun_meta()
m = locvar(:meta)
io = IOBuffer()
for tuple in locvar(:meta)
write(io, "<meta ")
for (prop, val) in tuple
write(io, "$prop=\"$val\" ")
end
write(io, ">")
end
return String(take!(io))
end
"""
{{blogposts}}
Plug in the list of blog posts contained in the `/blog/` folder.
"""
function hfun_blogposts()
curyear = Dates.Year(Dates.today()).value
io = IOBuffer()
for year in curyear:-1:2012
ys = "$year"
year < curyear && write(io, "\n**$year**\n")
for month in 12:-1:1
ms = "0"^(1-div(month, 10)) * "$month"
base = joinpath("blog", ys, ms)
isdir(base) || continue
posts = filter!(p -> endswith(p, ".md"), readdir(base))
days = zeros(Int, length(posts))
lines = Vector{String}(undef, length(posts))
for (i, post) in enumerate(posts)
ps = splitext(post)[1]
url = "/blog/$ys/$ms/$ps/"
surl = strip(url, '/')
title = pagevar(surl, :title)
pubdate = pagevar(surl, :published)
if isnothing(pubdate)
date = "$ys-$ms-01"
days[i] = 1
else
date = Date(pubdate, dateformat"d U Y")
days[i] = day(date)
end
lines[i] = "\n[$title]($url) $date \n"
end
# sort by day
foreach(line -> write(io, line), lines[sortperm(days, rev=true)])
end
end
# markdown conversion adds `<p>` beginning and end but
# we want to avoid this to avoid an empty separator
r = Franklin.fd2html(String(take!(io)), internal=true)
return r
end
"""
{{recentblogposts}}
Input the 3 latest blog posts.
"""
function hfun_recentblogposts()
curyear = Dates.Year(Dates.today()).value
ntofind = 3
nfound = 0
recent = Vector{Pair{String,Date}}(undef, ntofind)
for year in curyear:-1:2019
for month in 12:-1:1
ms = "0"^(1-div(month, 10)) * "$month"
base = joinpath("blog", "$year", "$ms")
isdir(base) || continue
posts = filter!(p -> endswith(p, ".md"), readdir(base))
days = zeros(Int, length(posts))
surls = Vector{String}(undef, length(posts))
for (i, post) in enumerate(posts)
ps = splitext(post)[1]
surl = "blog/$year/$ms/$ps"
surls[i] = surl
pubdate = pagevar(surl, :published)
days[i] = isnothing(pubdate) ?
1 : day(Date(pubdate, dateformat"d U Y"))
end
# go over month post in antichronological orders
sp = sortperm(days, rev=true)
for (i, surl) in enumerate(surls[sp])
recent[nfound + 1] = (surl => Date(year, month, days[sp[i]]))
nfound += 1
nfound == ntofind && break
end
nfound == ntofind && break
end
nfound == ntofind && break
end
#
io = IOBuffer()
for (surl, date) in recent
url = "/$surl/"
title = pagevar(surl, :title)
sdate = "$(day(date)) $(monthname(date)) $(year(date))"
blurb = pagevar(surl, :rss)
write(io, """
<div class="col-lg-4 col-md-12 blog">
<h3><a href="$url" class="title" data-proofer-ignore>$title</a>
</h3><span class="article-date">$date</span>
<p>$blurb</p>
</div>
""")
end
return String(take!(io))
end