Current section
Files
Jump to
Current section
Files
src/lustre@ssg@djot.erl
-module(lustre@ssg@djot).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).
-export([frontmatter/1, metadata/1, content/1, render/2, render_with_metadata/2, default_renderer/0]).
-export_type([renderer/1]).
-type renderer(KSI) :: {renderer,
fun((gleam@dict:dict(binary(), binary()), gleam@option:option(binary()), binary()) -> KSI),
fun((gleam@dict:dict(binary(), binary()), integer(), list(KSI)) -> KSI),
fun((jot:destination(), gleam@dict:dict(binary(), binary()), list(KSI)) -> KSI),
fun((gleam@dict:dict(binary(), binary()), list(KSI)) -> KSI),
fun((binary()) -> KSI)}.
-spec frontmatter(binary()) -> {ok, binary()} | {error, nil}.
frontmatter(Document) ->
gleam@bool:guard(
not gleam@string:starts_with(Document, <<"---"/utf8>>),
{error, nil},
fun() ->
Options = {options, false, true},
_assert_subject = gleam@regex:compile(
<<"^---\\n[\\s\\S]*?\\n---"/utf8>>,
Options
),
{ok, Re} = case _assert_subject of
{ok, _} -> _assert_subject;
_assert_fail ->
erlang:error(#{gleam_error => let_assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _assert_fail,
module => <<"lustre/ssg/djot"/utf8>>,
function => <<"frontmatter"/utf8>>,
line => 119})
end,
case gleam@regex:scan(Re, Document) of
[{match, Frontmatter, _} | _] ->
{ok,
begin
_pipe = Frontmatter,
_pipe@1 = gleam@string:drop_left(_pipe, 4),
gleam@string:drop_right(_pipe@1, 4)
end};
_ ->
{error, nil}
end
end
).
-spec metadata(binary()) -> {ok, gleam@dict:dict(binary(), tom:toml())} |
{error, tom:parse_error()}.
metadata(Document) ->
case frontmatter(Document) of
{ok, Frontmatter} ->
tom:parse(Frontmatter);
{error, _} ->
{ok, gleam@dict:new()}
end.
-spec content(binary()) -> binary().
content(Document) ->
Toml = frontmatter(Document),
case Toml of
{ok, Toml@1} ->
gleam@string:replace(
Document,
<<<<"---\n"/utf8, Toml@1/binary>>/binary, "\n---"/utf8>>,
<<""/utf8>>
);
{error, _} ->
Document
end.
-spec render_inline(
jot:inline(),
gleam@dict:dict(binary(), binary()),
renderer(KTI)
) -> KTI.
render_inline(Inline, References, Renderer) ->
case Inline of
{text, Text} ->
(erlang:element(6, Renderer))(Text);
{link, Content, Destination} ->
(erlang:element(4, Renderer))(
Destination,
References,
gleam@list:map(
Content,
fun(_capture) ->
render_inline(_capture, References, Renderer)
end
)
)
end.
-spec render_block(
jot:container(),
gleam@dict:dict(binary(), binary()),
renderer(KTE)
) -> KTE.
render_block(Block, References, Renderer) ->
case Block of
{paragraph, Attrs, Inline} ->
(erlang:element(5, Renderer))(
Attrs,
gleam@list:map(
Inline,
fun(_capture) ->
render_inline(_capture, References, Renderer)
end
)
);
{heading, Attrs@1, Level, Inline@1} ->
(erlang:element(3, Renderer))(
Attrs@1,
Level,
gleam@list:map(
Inline@1,
fun(_capture@1) ->
render_inline(_capture@1, References, Renderer)
end
)
);
{codeblock, Attrs@2, Language, Code} ->
(erlang:element(2, Renderer))(Attrs@2, Language, Code)
end.
-spec render(binary(), renderer(KSS)) -> list(KSS).
render(Document, Renderer) ->
Content = content(Document),
{document, Content@1, References} = jot:parse(Content),
_pipe = Content@1,
gleam@list:map(
_pipe,
fun(_capture) -> render_block(_capture, References, Renderer) end
).
-spec render_with_metadata(
binary(),
fun((gleam@dict:dict(binary(), tom:toml())) -> renderer(KSX))
) -> {ok, list(KSX)} | {error, tom:parse_error()}.
render_with_metadata(Document, Renderer) ->
Toml = frontmatter(Document),
gleam@result:'try'(
begin
_pipe = Toml,
_pipe@1 = gleam@result:unwrap(_pipe, <<""/utf8>>),
tom:parse(_pipe@1)
end,
fun(Metadata) ->
Content = content(Document),
Renderer@1 = Renderer(Metadata),
{document, Content@1, References} = jot:parse(Content),
_pipe@2 = Content@1,
_pipe@3 = gleam@list:map(
_pipe@2,
fun(_capture) ->
render_block(_capture, References, Renderer@1)
end
),
{ok, _pipe@3}
end
).
-spec linkify(binary()) -> binary().
linkify(Text) ->
_assert_subject = gleam@regex:from_string(<<" +"/utf8>>),
{ok, Re} = case _assert_subject of
{ok, _} -> _assert_subject;
_assert_fail ->
erlang:error(#{gleam_error => let_assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _assert_fail,
module => <<"lustre/ssg/djot"/utf8>>,
function => <<"linkify"/utf8>>,
line => 246})
end,
_pipe = Text,
_pipe@1 = gleam@regex:split(Re, _pipe),
gleam@string:join(_pipe@1, <<"-"/utf8>>).
-spec default_renderer() -> renderer(lustre@element:element(any())).
default_renderer() ->
To_attributes = fun(Attrs) ->
gleam@dict:fold(
Attrs,
[],
fun(Attrs@1, Key, Val) ->
[lustre@attribute:attribute(Key, Val) | Attrs@1]
end
)
end,
{renderer,
fun(Attrs@2, Lang, Code) ->
Lang@1 = gleam@option:unwrap(Lang, <<"text"/utf8>>),
lustre@element@html:pre(
To_attributes(Attrs@2),
[lustre@element@html:code(
[lustre@attribute:attribute(
<<"data-lang"/utf8>>,
Lang@1
)],
[lustre@element:text(Code)]
)]
)
end,
fun(Attrs@3, Level, Content) -> case Level of
1 ->
lustre@element@html:h1(To_attributes(Attrs@3), Content);
2 ->
lustre@element@html:h2(To_attributes(Attrs@3), Content);
3 ->
lustre@element@html:h3(To_attributes(Attrs@3), Content);
4 ->
lustre@element@html:h4(To_attributes(Attrs@3), Content);
5 ->
lustre@element@html:h5(To_attributes(Attrs@3), Content);
6 ->
lustre@element@html:h6(To_attributes(Attrs@3), Content);
_ ->
lustre@element@html:p(To_attributes(Attrs@3), Content)
end end,
fun(Destination, References, Content@1) -> case Destination of
{reference, Ref} ->
case gleam@dict:get(References, Ref) of
{ok, Url} ->
lustre@element@html:a(
[lustre@attribute:href(Url)],
Content@1
);
{error, _} ->
lustre@element@html:a(
[lustre@attribute:href(
<<"#"/utf8, (linkify(Ref))/binary>>
),
lustre@attribute:id(
linkify(<<"back-to-"/utf8, Ref/binary>>)
)],
Content@1
)
end;
{url, Url@1} ->
lustre@element@html:a(
[lustre@attribute:attribute(<<"href"/utf8>>, Url@1)],
Content@1
)
end end,
fun(Attrs@4, Content@2) ->
lustre@element@html:p(To_attributes(Attrs@4), Content@2)
end,
fun(Text) -> lustre@element:text(Text) end}.