You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
40 lines
828 B
40 lines
828 B
#!/usr/bin/env elvish |
|
use re |
|
c = [&] |
|
for l [(all)] { |
|
if (re:match '^(\*\.?|URxvt\*)' $l) { |
|
echo $l | eawk [_ k v]{ |
|
c[(re:replace '(^\*\.?|^URxvt\*|:$)' '' $k)] = $v |
|
} |
|
} |
|
} |
|
echo color |
|
echo ' bg: '$c[background] |
|
echo ' fg: '$c[foreground] |
|
if (has-key $c cursorColor) { |
|
echo ' cursor: '$c[cursorColor] |
|
} |
|
echo |
|
echo 'color0: '$c[color0] |
|
echo 'color8: '$c[color8] |
|
echo |
|
echo 'color1: '$c[color1] |
|
echo 'color9: '$c[color9] |
|
echo |
|
echo 'color2: '$c[color2] |
|
echo 'color10: '$c[color10] |
|
echo |
|
echo 'color3: '$c[color3] |
|
echo 'color11: '$c[color11] |
|
echo |
|
echo 'color4: '$c[color4] |
|
echo 'color12: '$c[color12] |
|
echo |
|
echo 'color5: '$c[color5] |
|
echo 'color13: '$c[color13] |
|
echo |
|
echo 'color6: '$c[color6] |
|
echo 'color14: '$c[color14] |
|
echo |
|
echo 'color7: '$c[color7] |
|
echo 'color15: '$c[color15]
|
|
|