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
|
-- Copyright 2006-2017 Mitchell mitchell.att.foicica.com. See LICENSE.
-- Markdown LPeg lexer.
-- Copyright 2020 Haelwenn (lanodan) Monnier <contact+gemini.lua@hacktivis.me>
-- Gemini / Gemtext LPeg lexer.
-- See https://gemini.circumlunar.space/docs/specification.html
local lexer = require('lexer')
local token, word_match = lexer.token, lexer.word_match
local P, R, S = lpeg.P, lpeg.R, lpeg.S
local lex = lexer.new('gemini')
local header = token('h3', lexer.starts_line('###') * lexer.nonnewline^0) +
token('h2', lexer.starts_line('##') * lexer.nonnewline^0) +
token('h1', lexer.starts_line('#') * lexer.nonnewline^0)
lex:add_rule('header', header)
lex:add_style('h1', {fore = lexer.colors.red, size = 15})
lex:add_style('h2', {fore = lexer.colors.red, size = 14})
lex:add_style('h3', {fore = lexer.colors.red, size = 13})
local list = token('list', lexer.starts_line('*') * lexer.nonnewline^0)
lex:add_rule('list', list)
lex:add_style('list', lexer.styles.constant)
local blockquote = token(lexer.STRING, lexer.starts_line('>') * lexer.nonnewline^0)
lex:add_rule('blockquote', blockquote)
-- Should only match ``` at start of line
local pre = token('pre', lexer.range('```', false, true))
lex:add_rule('pre', pre)
lex:add_style('pre', lexer.styles.embedded .. {eolfilled = true})
-- Whitespace.
local ws = token(lexer.WHITESPACE, S(' \t')^1 + S('\v\r\n')^1)
lex:add_rule('whitespace', ws)
local link = token('link', lexer.starts_line('=>') * lexer.nonnewline^0)
lex:add_rule('link', link)
lex:add_style('link', {underlined=true})
return lex
|
