@@ -6,7 +6,7 @@ import System.Environment (getArgs, getProgName)
6import System.Exit (exitFailure)
6import System.Exit (exitFailure)
7import System.Console.GetOpt
7import System.Console.GetOpt
9−import Graphics.Vty.Config (terminalWidthTablePath)
9+import Graphics.Vty.Config (terminalWidthTablePath, currentTerminalName)
10import Graphics.Vty.UnicodeWidthTable.IO
10import Graphics.Vty.UnicodeWidthTable.IO
11import Graphics.Vty.UnicodeWidthTable.Query
11import Graphics.Vty.UnicodeWidthTable.Query
@@ -77,3 +77,11 @@ main = do
77 builtTable <- buildUnicodeWidthTable
77 builtTable <- buildUnicodeWidthTable
78 writeUnicodeWidthTable outputPath builtTable
78 writeUnicodeWidthTable outputPath builtTable
79 putStrLn $ "\nOutput table written to " <> outputPath
79 putStrLn $ "\nOutput table written to " <> outputPath
81+ Just tName <- currentTerminalName
83+ putStrLn "To configure your Vty-based applications to use this map, add"
84+ putStrLn "the following line to ~/.vty/config:"
86+ putStrLn $ " widthMap " <> show tName <> " " <> show outputPath