[#124] Print directories bold (#127)

* Print directories bold

* Fix style

* Remove refuses

* Remove line

* Refactor

* Minor fix for output

CHANGELOG.md

@@ -19,6 +19,8 @@
   Bump up dependencies
 * [#58](https://github.com/kowainik/summoner/issues/58):
   Make `Licence` type safer
+* [#124](https://github.com/kowainik/summoner/issues/124):
+  Print directories bold
 
 1.0.6
 =====

src/Summoner/Question.hs

@@ -80,8 +80,8 @@ targetMessage result target = targetMessageWithText result target "added to the
 targetMessageWithText :: Bool -> Text -> Text -> IO Bool
 targetMessageWithText result target text = do
     let (color, actionResult) = if result
-          then (Green, " will be " <> text)
-          else (Cyan,  " won't be" <> text)
+          then (Green, " will be "  <> text)
+          else (Cyan,  " won't be " <> text)
 
     beautyPrint [italic, bold, setColor color] $ "  " <> headToUpper target
     beautyPrint [setColor color] actionResult

src/Summoner/Tree.hs

@@ -8,6 +8,7 @@ module Summoner.Tree
 
 import Relude
 
+import System.Console.ANSI (ConsoleIntensity (BoldIntensity), SGR (..), setSGRCode)
 import System.Directory (createDirectoryIfMissing, withCurrentDirectory)
 
 -- | Describes simple structure of filesystem tree.
@@ -35,7 +36,12 @@ showOne leader tie arm (Dir fp (sortWith treeFp -> trees)) =
     nodeRep : showChildren trees (leader <> extension)
   where
     nodeRep :: Text
-    nodeRep   = leader <> arm <> tie <> toText fp
+    nodeRep = leader <> arm <> tie <> boldDir (fp <> "/")
+      where
+        boldDir str = toText
+            $ setSGRCode [SetConsoleIntensity BoldIntensity]
+           <> str
+           <> setSGRCode [Reset]
 
     extension :: Text
     extension = case arm of ""  -> ""; "└" -> "    "; _   -> "│   "

summoner.cabal

@@ -1,5 +1,5 @@
 name:                summoner
-version:             1.0.6
+version:             1.0.7
 synopsis:            Tool for creating completely configured production Haskell projects.
 description:         Tool for creating completely configured production Haskell projects.
                      See README.md for details.