github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-05 05:58:34 +03:00
Code Issues Projects Releases Wiki Activity

Extract the handling of the contents into a binding.

Browse Source
This commit is contained in:
Rob Rix 2015-12-22 10:54:31 -05:00
parent 1197182f35
commit a0ac63f8b7
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Split.hs
View File

@ -137,10 +137,13 @@ newtype Renderable a = Renderable (String, a)
instance ToMarkup (Renderable (Term a Info)) where
toMarkup (Renderable (source, Info range categories :< syntax)) = classifyMarkup (maybeLast categories) $ case syntax of
Leaf _ -> span . string $ substring range source
Indexed children -> ul . mconcat $ let (elements, previous) = foldl markupForSeparatorAndChild ([], start range) children in
elements ++ [ string $ substring (Range previous $ end range) source ]
Indexed children -> ul . mconcat $ contentElements children
where markupForSeparatorAndChild :: ([Markup], Int) -> Term a Info -> ([Markup], Int)
markupForSeparatorAndChild (rows, previous) child = (rows ++ [ string (substring (Range previous $ start $ getRange child) source), toMarkup (Renderable (source, child)) ], end $ getRange child)
contentElements children = let (elements, previous) = foldl markupForSeparatorAndChild ([], start range) children in
elements ++ [ string $ substring (Range previous $ end range) source ]
getRange (Info range _ :< _) = range
splitDiffByLines :: Diff a Info -> (Int, Int) -> (String, String) -> ([Row (SplitDiff a Info)], (Range, Range))