Styling.

yi-editor · Oct 1, 2014 · ff62599 · ff62599
1 parent d2a5586
commit ff62599
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/yi/src/library/Yi/Buffer/Region.hs b/yi/src/library/Yi/Buffer/Region.hs
@@ -128,11 +128,12 @@ inclusiveRegionB r =
 -- a list of small regions form this block region.
 blockifyRegion :: Region -> BufferM [Region]
 blockifyRegion r = savingPointB $ do
-  [lowCol,highCol] <- sort <$> mapM colOf [regionStart r, regionEnd r]
+  [lowCol, highCol] <- sort <$> mapM colOf [regionStart r, regionEnd r]
   startLine <- lineOf $ regionStart r
   endLine   <- lineOf $ regionEnd r
   when (startLine > endLine) $ fail "blockifyRegion: impossible"
-  mapM (\line -> mkRegion <$> pointOfLineColB line lowCol <*> pointOfLineColB line (1 + highCol))
+  mapM (\line -> mkRegion <$> pointOfLineColB line lowCol
+                          <*> pointOfLineColB line (1 + highCol))
        [startLine..endLine]
 
 -- | Joins lines in the region with a single space, skipping any empty

diff --git a/yi/src/library/Yi/UI/Utils.hs b/yi/src/library/Yi/UI/Utils.hs
@@ -80,7 +80,8 @@ paintStrokes f0 x0 lf@((pf,f):tf) lx@((px,x):tx) =
 paintPicture :: a -> [[Span (Endo a)]] -> [(Point,a)]
 paintPicture a = foldr (paintStrokes id a . strokePicture) []
 
-attributesPictureB :: UIStyle -> Maybe SearchExp -> Region -> [[Span StyleName]] -> BufferM [(Point,Attributes)]
+attributesPictureB :: UIStyle -> Maybe SearchExp -> Region -> [[Span StyleName]]
+    -> BufferM [(Point,Attributes)]
 attributesPictureB sty mexp region extraLayers =
   paintPicture (baseAttributes sty) <$>
     fmap (fmap (fmap ($ sty))) <$>