2 # Copyright (C) 2016 Ian Kelling
4 # This program is free software: you can redistribute it and/or modify
5 # it under the terms of the GNU General Public License as published by
6 # the Free Software Foundation, either version 2 of the License, or
7 # (at your option) any later version.
9 # This program is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 # GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License
15 # along with this program. If not, see <http://www.gnu.org/licenses/>.
16 module B
# blog module
23 JS_INFO
= "<p>All JavaScript has <a href=\"https://www.gnu.org/software/librejs/index.html\">LibreJS</a> support.</p>"
28 DURL
= 'https://' + FQDN
29 DESCRIPTION
= "Ian Kelling's personal site and blog on software"
30 DATE_LEN
= 'YYYY-MM-DD'.length
32 WAIT_DATE
= NOW
- 60*60*24*1
35 SQLite3
::Database.new('../proposed-comments/comments.sqlite')
38 # from the redcarpet readme, then a bunch of googling to figure
39 # out what to do on exception.
40 class HTMLwithPygments
< Redcarpet
::Render::HTML
41 def block_code(code
, language
)
43 Pygments
.highlight(code
, lexer
: language
)
45 # when language detection fails
46 Pygments
.highlight(code
, lexer
: 'text')
51 def fwrite(output_path
, string
)
52 output_path
= File
.join('./', output_path
)
53 FileUtils
.mkdir_p(File
.dirname(output_path
))
54 File
.write(output_path
, string
)
57 def fskel(rel_path
, title
, content
, o
={})
59 <link rel="canonical" href="#{DURL}/#{rel_path}">
61 if rel_path
=~
%r
{^
/blog/|^blog
.html
}
63 <link rel="alternate" type="application/atom+xml" title="#{DN}" href="#{DURL}/feed.xml">
67 fwrite(rel_path
, skel(title
, content
, o
))
69 def skel(title
, content
, o
={})
70 # got meta viewport from jekyll's default later. It's for better
76 <meta charset="utf-8">
77 <title>#{title}</title>
78 <link rel="stylesheet" href="/css/main.css">
79 <link rel="shortcut icon" href="/assets/favicon.png" />
80 <meta name="description" content="#{o[:description] || DESCRIPTION}">
82 <meta name="viewport" content="width=device-width, initial-scale=1">
85 <header class="page_header">
86 <h3><a href="/">iankelling.org</a>#{o[:header]}</h3>
88 <div class="main-content-stripe">
93 <div class="comment-stripe">
98 <p>This site has a <a href="/git/?p=iankelling.org;a=summary">git repo</a>. Unless stated otherwise, <a rel="license" href="http://creativecommons.org/licenses/by-sa/4.0/"><img class="cc-by-sa" alt="Creative Commons License" src="/assets/cc-by-sa-4.0-80x15.png" /></a></p>
99 <p><address><a href="mailto:ian@iankelling.org">ian@iankelling.org</a> let me know what you think</address></p>
107 def stdpage(page_name
, content
)
108 fskel("#{page_name}.html",
109 "#{DN}/#{page_name}",
111 header
: " / <a href=\"/#{page_name}.html\">#{page_name}</a>")
115 # Using redcarpet over kramdown because syntax highlighting is
116 # simpler. kramdown uses some crap highlighter by default,
117 # supports using rouge, but then the classes are all screwy
118 # for what pygments css expects, rouge has a pygments compatibility mode,
119 # but that is a pita to get working, then it doesn't even work right.
120 # kramdown is jekyll's default markdown parser, but it doesn't use
121 # it for code blocks, it strips them out using custom templating
122 # extension class, then uses rouge, then wraps it in some
123 # custom html for pygments compatibility. It's a complicated mess.
124 Redcarpet
::Markdown.new(HTMLwithPygments
, fenced_code_blocks
: true).render(md
)
127 def comment_html(comment
, date
)
128 # I tried putting the time, %I:%M %p UTC, but it looks kinda
129 # clunky, going against my simple theme.
130 user_input
= Redcarpet
::Markdown.new(Redcarpet
::Render::Safe,
131 fenced_code_blocks
: true).render(comment
)
133 <div class="comment">
135 <p class="comment-date">#{Time.at(date).strftime("%b %-d '%y")}</p>
140 def post(file
, build_time
=false)
141 content
= File
.read(file
)
142 content
=~
%r
{\
A(---\s
*\n.*?\n?)^
((---)\s
*$
\n?)}m
# yaml front matter
143 # stuff after last match. jekyll uses $POSTMATCH,
144 # but it's nil for me, I don't know what magic they are using.,
145 # but only $' is listed here http://ruby-doc.org/core-2.3.1/doc/globals_rdoc.html,
148 front = SafeYAML.load(Regexp.last_match(1))
149 title = front['title
']
150 $page_title = "#{title} | #{DN}"
151 header_rel = ' / <a href="/blog
.html
">blog</a> /'
153 footer_extra = <<-EOF
154 <p><a class="icon-rss" href="/feed.xml">Subscribe</a></p>
156 footer_extra
+= JS_INFO
if content
=~
/<script/
160 b
= File
.basename(file
,'.md')
161 # date is in the format: YYYY-MM-DD-
162 date
= Time
.parse(b
[0..DATE_LEN
])
163 rel_path
= "/blog/#{b[(DATE_LEN + 1)..-1]}.html"
164 comments
= $db.execute
<<-SQL, [WAIT_DATE]
165 select comment, date from c
166 where page = '#{rel_path}' and (
167 state = 'picked' or state = 'known' or state = 'timed'
168 or (state = 'waiting' and date < ?))
170 # get earliest comment. earlier ones stored in git will also be
171 # published. This get's us easily sharable comments, and allows us
172 # to expire unpublished comments and ip addresses which are PII and
173 # should never be kept around indefinitely.
174 sql_start_date
= $db.execute('select min(date) from c')[0][0] || NOW
175 comment_file_dir
= "../comments/#{rel_path}"
176 old_comments
= Dir
["#{comment_file_dir}/*"].reduce([]) do |memo
, f
|
177 dt
= File
.basename(f
).to_f
178 if dt
< sql_start_date
179 memo
<< [File
.read(f
), dt
]
181 FileUtils
.rm(f
) if build_time
186 FileUtils
.mkdir_p comment_file_dir
187 comments
.each
do |c
, c_date
|
188 # fyi: there is an extremely small chance of 2 comments having
189 # the same floating point time and thus overwriting each other.
190 # Small enough that it won't happen at my site's scale.
191 File
.write(File
.join(comment_file_dir
, c_date
.to_s
), c
)
193 # https://piwik.org/docs/privacy/ says keep logs for 3-6 months
194 $db.execute("delete from c where date < #{NOW - DAY*180}")
196 comments
= old_comments
+ comments
197 pending_comments
= $db.execute(<<-SQL, [WAIT_DATE])[0][0]
198 select count(*) from c
199 where page = '#{rel_path}' and
200 (state = 'waiting' and date > ? or state = 'suspect')
203 feed_html
= md_to_html(content
)
205 <header class="post-header">
206 <h1 class="post-title">#{title}</h1>
207 <p class="post-date">#{date.strftime("%b %-d, %Y")}</p>
212 comments
.each
{ |c
, date
| com_list
+= comment_html(c
, date
) }
213 if pending_comments
> 0
214 if pending_comments
>= 2
215 text
= "are #{pending_comments} new comments"
217 text
= 'is 1 new comment'
220 comment_html("Note: there #{text} pending approval.", NOW
)
223 <form action="/cgi/comment" method="post">
224 <input class="misc-comment-input" type="text" name="url">
225 <input name="goto" type="hidden" value="#{rel_path}">
226 <textarea rows="10" name="comment" placeholder="markdown" maxlength="1000"></textarea>
227 <input type="submit" value="Leave a comment">
233 links
= front
['comment_links']
235 link_html
= links
.map
{ |name
,url
| "<a href=\"#{url}\">#{name}</a>" }
237 com_section
+= (<<EOF)
238 <p>More comments at #{link_html}</p>
242 blog_toc_entry
= "<li><a href=\"#{rel_path}\">#{title}</a></li>"
245 <div id="comment-section" class="comment-section">
251 if front
['description']
252 description
= front
['description']
254 # the first 300 saves ~ 1 ms
255 # regex for striping html from liquid template src
256 description
= feed_html
[0..300].gsub(/<script.*?<\/script
>/m
, '').
257 gsub(/<!--.*?-->/m
, '').gsub(/<style.*?<\/style
>/m
, '').
259 if description
.length
> 160
260 description
= description
[0..156] + '...'
267 fskel(rel_path
, title
, page_html
,
269 footer
: footer_extra
,
270 comments
: com_section
,
271 description
: description
)
272 url
="#{DURL}#{rel_path}"
275 # following from https://creativecommons.org/choose,
276 # with the addition of "unless otherwise noted", for js licenses.
277 feed_copyright
= <<-EOF
278 <a rel="license" href="http://creativecommons.org/licenses/by-sa/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by-sa/4.0/88x31.png" /></a><br /><span xmlns:dct="http://purl.org/dc/terms/" href="http://purl.org/dc/dcmitype/Text" property="dct:title" rel="dct:type">#{title}</span> by <a xmlns:cc="http://creativecommons.org/ns#" href="#{url}" property="cc:attributionName" rel="cc:attributionURL">Ian Kelling</a> unless otherwise noted is licensed under a <a rel="license" href="http://creativecommons.org/licenses/by-sa/4.0/">Creative Commons Attribution-ShareAlike 4.0 International License</a>.
283 <title>#{title}</title>
284 <link rel="alternate" href="#{url}"/>
286 <updated>#{date.to_datetime.rfc3339}</updated>
287 <content type="html" xml:lang="en-us" xml:base="#{DURL}/blog">
297 return [feed_entry
, blog_toc_entry
]