language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-29 06:44:46 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 7

ToHtml trait for docs and some rudimentary syntax highlighting that is definitely a work in progress

Browse source
This commit is contained in:
Chadtech 2021-08-22 15:53:26 -04:00
parent c72400c619
commit 9e12f6d3ec
11 changed files with 472 additions and 134 deletions
Download patch file Download diff file Expand all files Collapse all files

157
docs/src/expr.rs Normal file
View file

@ -0,0 +1,157 @@
use crate::html::ToHtml;
use roc_parse::ast::{CommentOrNewline, Expr, StrLiteral, StrSegment};
use roc_region::all::Located;
impl<'a> ToHtml<'a> for Expr<'a> {
fn css_class(&self) -> Option<&'a str> {
match self {
Expr::Float(_) | Expr::Num(_) | Expr::NonBase10Int { .. } => Some("num"),
Expr::Str(_) => Some("str"),
// Expr::Access(_, _) => {}
// Expr::AccessorFunction(_) => {}
// Expr::List { .. } => {}
// Expr::RecordUpdate { .. } => {}
// Expr::Record { .. } => {}
Expr::Var { .. } => None,
// Expr::Underscore(_) => {}
// Expr::GlobalTag(_) => {}
// Expr::PrivateTag(_) => {}
Expr::Closure(_, _) => None,
// Expr::Defs(_, _) => {}
// Expr::Backpassing(_, _, _) => {}
// Expr::Expect(_, _) => {}
// Expr::Apply(_, _, _) => {}
// Expr::BinOps(_, _) => {}
// Expr::UnaryOp(_, _) => {}
// Expr::If(_, _) => {}
// Expr::When(_, _) => {}
Expr::SpaceBefore(_, _) => None,
Expr::SpaceAfter(_, _) => None,
// Expr::ParensAround(_) => {}
// Expr::MalformedIdent(_, _) => {}
// Expr::MalformedClosure => {}
// Expr::PrecedenceConflict(_) => {}
_ => None,
}
}
fn html_body(&self, buf: &mut bumpalo::collections::String<'a>) {
match self {
Expr::Float(str) => {
buf.push_str(str);
}
Expr::Num(str) => {
buf.push_str(str);
}
Expr::NonBase10Int { string, .. } => {
buf.push_str(string);
}
Expr::Str(str_literal) => match str_literal {
StrLiteral::PlainLine(str) => {
buf.push('"');
buf.push_str(str);
buf.push('"');
}
StrLiteral::Line(line) => {
panic!("TODO str segments");
}
StrLiteral::Block(str) => {
panic!("TODO str segments");
}
},
// Expr::Access(_, _) => {}
// Expr::AccessorFunction(_) => {}
// Expr::List { .. } => {}
// Expr::RecordUpdate { .. } => {}
// Expr::Record { .. } => {}
Expr::Var { ident, module_name } => {
if !module_name.is_empty() {
buf.push_str(module_name);
buf.push('.');
}
buf.push_str(ident);
}
// Expr::Underscore(_) => {}
// Expr::GlobalTag(_) => {}
// Expr::PrivateTag(_) => {}
Expr::Closure(patterns, loc_sub_expr) => {
ClosureDash.html(buf);
let mut patterns_iter = patterns.iter().peekable();
while let Some(pattern) = patterns_iter.next() {
pattern.value.html(buf);
if let Some(_) = patterns_iter.peek() {
ParamComma.html(buf);
}
}
ClosureArrow.html(buf);
loc_sub_expr.html(buf);
}
Expr::Defs(defs, sub_expr) => {
for def_loc in defs.iter() {
def_loc.html(buf);
}
sub_expr.html(buf)
}
// Expr::Backpassing(_, _, _) => {}
// Expr::Expect(_, _) => {}
// Expr::Apply(_, _, _) => {}
// Expr::BinOps(_, _) => {}
// Expr::UnaryOp(_, _) => {}
// Expr::If(_, _) => {}
// Expr::When(_, _) => {}
Expr::SpaceBefore(sub_expr, spaces) => {
for space in spaces.iter() {
space.html(buf);
}
sub_expr.html(buf);
}
Expr::SpaceAfter(sub_expr, spaces) => {
sub_expr.html(buf);
for space in spaces.iter() {
space.html(buf);
}
}
// Expr::ParensAround(_) => {}
// Expr::MalformedIdent(_, _) => {}
// Expr::MalformedClosure => {}
// Expr::PrecedenceConflict(_) => {}
_ => {}
}
}
}
struct ClosureDash;
impl<'a> ToHtml<'a> for ClosureDash {
fn css_class(&self) -> Option<&'a str> {
Some("closure-dash")
}
fn html_body(&self, buf: &mut bumpalo::collections::String<'a>) {
buf.push('\\')
}
}
struct ClosureArrow;
impl<'a> ToHtml<'a> for ClosureArrow {
fn css_class(&self) -> Option<&'a str> {
Some("closure-arrow")
}
fn html_body(&self, buf: &mut bumpalo::collections::String<'a>) {
buf.push_str(" ->")
}
}
struct ParamComma;
impl<'a> ToHtml<'a> for ParamComma {
fn css_class(&self) -> Option<&'a str> {
Some("param-comma")
}
fn html_body(&self, buf: &mut bumpalo::collections::String<'a>) {
buf.push_str(", ")
}
}