git.iko.soy/obelisk
on decrease-android-validity help sign in
obelisk/lib/cliapp/src/Obelisk/CliApp/Theme.hs
29 lines 656 B history raw
1{-# LANGUAGE OverloadedStrings #-}
2module Obelisk.CliApp.Theme where
4import Data.Text (Text)
6data CliTheme = CliTheme
7 { _cliTheme_done :: Text
8 , _cliTheme_failed :: Text
9 , _cliTheme_arrow :: Text
10 , _cliTheme_spinner :: SpinnerTheme
11 }
13type SpinnerTheme = [Text]
15unicodeTheme :: CliTheme
16unicodeTheme = CliTheme
17 { _cliTheme_done = "✔"
18 , _cliTheme_failed = "✖"
19 , _cliTheme_arrow = "⇾"
20 , _cliTheme_spinner = ["◐", "◓", "◑", "◒"]
21 }
23noUnicodeTheme :: CliTheme
24noUnicodeTheme = CliTheme
25 { _cliTheme_done = "DONE"
26 , _cliTheme_failed = "FAILED"
27 , _cliTheme_arrow = "->"
28 , _cliTheme_spinner = ["|", "/", "-", "\\"]
29 }