attic/hsedit
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

getWrites

Browse source
This commit is contained in:
Armin Friedl 2016-08-29 11:00:52 +02:00
parent 9dbe6c7a79
commit 8db24a3336
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/App/Fontifier.hs
View file

@ -212,6 +212,13 @@ getWrite offset accumStr = ((Tdfa.matchOnceText §~ "(\\**[[:word:]]+)[[:blank:]
let m = match ! 1 -- extract the match group (0 = the whole match) let m = match ! 1 -- extract the match group (0 = the whole match)
in Just (fst m, (offset+(fst (snd m)), offset+(fst (snd m))+(snd (snd m))), False) in Just (fst m, (offset+(fst (snd m)), offset+(fst (snd m))+(snd (snd m))), False)
getWrites :: CheckString -> [(String, Slice, Bool)]
getWrites s = matchToAs $ (Tdfa.matchAllText §~ "(\\**[[:word:]]+)[[:blank:]]*=") s
where matchToAs (match: mts) =
let m = match ! 1 -- extract the match group (0 = the whole match)
in (fst m, (fst (snd m), (fst (snd m))+(snd (snd m))), False): matchToAs mts
matchToAs _ = []
enterBlock :: [(String,Slice,Bool)] -> [(String,Slice,Bool)] enterBlock :: [(String,Slice,Bool)] -> [(String,Slice,Bool)]
enterBlock = map (\(v,s,b) -> ('*':v,s,b)) enterBlock = map (\(v,s,b) -> ('*':v,s,b))