extra/unicode/flags/images/images.factor

   1 ! Copyright (C) 2022 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors assocs biassocs fonts kernel math.combinatorics
   4 ranges sequences sequences.extras strings ui.text unicode.flags ;
   5 IN: unicode.flags.images
   6
   7 MEMO: valid-flags ( -- flags )
   8     CHAR: a CHAR: z [a..b] 2 <k-permutations>
   9     [ >string unicode>flag ]
  10     [ monospace-font swap string>image drop dim>> first2 = ] map-filter ;
  11
  12 : valid-flag-names ( -- seq )
  13     valid-flags [ flag>unicode ] map ;
  14
  15 : valid-flag-biassoc ( -- biassoc )
  16     valid-flags valid-flag-names zip >biassoc ;