github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00
Code Issues Projects Releases Wiki Activity

Handle indexed nodes (or pretend to).

Browse Source
This commit is contained in:
Rob Rix 2015-12-01 15:56:15 -05:00
parent c44418272c
commit 776580768c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/Split.hs
View File

@ -30,8 +30,11 @@ splitPatch :: String -> String -> Patch (Term a Info) -> (Maybe HTML, Maybe HTML
splitPatch before after patch = (fmap (splitTerm before) $ Patch.before patch, fmap (splitTerm after) $ Patch.after patch)
splitTerm :: String -> Term a Info -> HTML
splitTerm source term = cata toElement term where
toElement (Info range lineRange categories) (Leaf _) = Span (classify categories) $ substring range source
splitTerm source term = fst $ cata toElement term where
toElement (Info range lineRange categories) (Leaf _) = (Span (classify categories) $ substring range source, range)
toElement (Info range lineRange categories) (Indexed i) = (Ul (classify categories) $ children ++ [ Text $ substring Range { start = previous, end = end range } source ], range) where
(children, previous) = foldl accumulate ([], start range) i
accumulate (children, previous) (child, range) = (children ++ [ Text $ substring Range { start = previous, end = start range } source, child ], end range)
classify :: Set.Set Category -> Maybe ClassName
classify categories = foldr (const . Just) Nothing categories