extra/io/streams/escape-codes/escape-codes.factor

   1 ! Copyright (C) 2022 Doug Coleman.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: assocs io.styles kernel sequences ;
   4 IN: io.streams.escape-codes
   5
   6 CONSTANT: font-style-assoc H{
   7     { bold "\e[1m" }
   8     { faint "\e[2m" }
   9     { italic "\e[3m" }
  10     { bold-italic "\e[1m\e[3m" }
  11     { underline "\e[4m" }
  12     { blink "\e[5m" }
  13 }
  14
  15 : font-styles ( font-style -- string )
  16     dup sequence? [
  17         [ font-style-assoc at ] map concat
  18     ] [
  19         font-style-assoc at
  20     ] if "" or ;