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
|
# This file is a part of Julia. License is MIT: http://julialang.org/license
# ––––––––
# Emphasis
# ––––––––
type Italic
text
end
@trigger '*' ->
function asterisk_italic(stream::IO, md::MD)
result = parse_inline_wrapper(stream, "*")
return result === nothing ? nothing : Italic(parseinline(result, md))
end
type Bold
text
end
@trigger '*' ->
function asterisk_bold(stream::IO, md::MD)
result = parse_inline_wrapper(stream, "**")
return result === nothing ? nothing : Bold(parseinline(result, md))
end
# ––––
# Code
# ––––
@trigger '`' ->
function inline_code(stream::IO, md::MD)
result = parse_inline_wrapper(stream, "`"; rep=true)
return result === nothing ? nothing : Code(result)
end
# ––––––––––––––
# Images & Links
# ––––––––––––––
type Image
url::UTF8String
alt::UTF8String
end
@trigger '!' ->
function image(stream::IO, md::MD)
withstream(stream) do
startswith(stream, "![") || return
alt = readuntil(stream, ']', match = '[')
alt ≡ nothing && return
skipwhitespace(stream)
startswith(stream, '(') || return
url = readuntil(stream, ')', match = '(')
url ≡ nothing && return
return Image(url, alt)
end
end
type Link
text
url::UTF8String
end
@trigger '[' ->
function link(stream::IO, md::MD)
withstream(stream) do
startswith(stream, '[') || return
text = readuntil(stream, ']', match = '[')
text ≡ nothing && return
skipwhitespace(stream)
startswith(stream, '(') || return
url = readuntil(stream, ')', match = '(')
url ≡ nothing && return
return Link(parseinline(text, md), url)
end
end
# –––––––––––
# Punctuation
# –––––––––––
type LineBreak end
@trigger '\\' ->
function linebreak(stream::IO, md::MD)
if startswith(stream, "\\\n")
return LineBreak()
end
end
@trigger '-' ->
function en_dash(stream::IO, md::MD)
if startswith(stream, "--")
return "–"
end
end
const escape_chars = "\\`*_#+-.!{}[]()\$"
@trigger '\\' ->
function escapes(stream::IO, md::MD)
withstream(stream) do
if startswith(stream, "\\") && !eof(stream) && (c = read(stream, Char)) in escape_chars
return string(c)
end
end
end
|
