steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fonts: simplify reverse-video-font

master
John Benediktsson 2020-09-22 13:05:17 -07:00
parent 11f060719a
commit 16b144eaf5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/fonts/fonts.factor
View File

@ -34,8 +34,8 @@ TUPLE: font name size bold? italic? foreground background ;
: reverse-video-font ( font -- font ) : reverse-video-font ( font -- font )
clone dup clone dup
[ foreground>> ] [ background>> ] bi [ foreground>> >>background ]
[ >>background ] [ >>foreground ] bi* ; [ background>> >>foreground ] bi ;
: derive-font ( base font -- font' ) : derive-font ( base font -- font' )
[ [