如何解决具有Haskell和Brick的RGB终端颜色
我知道Brick和VTY黑客不支持转义序列。 VTY仅支持240种颜色。
是否有使用真正的RGB颜色而不弄乱布局的解决方法?
这是我做的一个示例,但是我无法正确设置边框:
module BrickTest where
import Brick (simpleMain,Widget,str)
import Brick.Widgets.Border (border)
import Text.Printf (printf)
main :: IO ()
main = simpleMain $ colorWidget (255,0)
type RGB = (Int,Int,Int)
colorWidget :: RGB -> Widget ()
colorWidget (r,g,b) = border $ str (prefix ++ "a" ++ postfix)
where
prefix = printf "\ESC[38;2;%d;%d;%dm" r g b
postfix = "\ESC[0m"
输出:
┌──────────────────┐
│a│
└──────────────────┘
解决方法
我找到了解决方法。我设法实现了一个可以打印任何字符串的函数zeroWidthStr
,而Brick则将其视为宽度为0的字符串进行处理。但是我无法真正解释它在内部的工作方式,并且可能会有其他一些副作用。
module BrickTest where
import Brick (Widget,raw,simpleMain,str,(<+>))
import Brick.Widgets.Border (border)
import Data.List (intercalate)
import Data.Text.Lazy (pack)
import Graphics.Vty (defAttr)
import Graphics.Vty.Image.Internal (Image (HorizText))
import Text.Printf (printf)
main :: IO ()
main = simpleMain $ colorWidget (255,0)
type RGB = (Int,Int,Int)
colorWidget :: RGB -> Widget ()
colorWidget (r,g,b) = border $ prefix <+> str "a" <+> postfix
where
prefix = zeroWidthStr $ printf "\ESC[38;2;%d;%d;%dm" r g b
postfix = zeroWidthStr $ "\ESC[0m"
zeroWidthStr :: String -> Widget ()
-- | workaround to print any string in terminal,and hackage Brick (vty) handles it as if it has width 0
zeroWidthStr str = raw image
where
image = HorizText defAttr (pack modStr) 0 0
modStr = str ++ repeatN "\ESC\ESCa" (length str)
repeatN :: String -> Int -> String
repeatN str n = intercalate "" $ take n $ repeat str
输出:
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。