Use Unicode character names
parent
89f1ac4afd
commit
221222cb8f
|
@ -281,10 +281,10 @@ HOOK: modifiers>string os ( modifiers -- string )
|
|||
M: macosx modifiers>string
|
||||
[
|
||||
{
|
||||
{ A+ [ "⌘" ] }
|
||||
{ M+ [ "⎇" ] }
|
||||
{ S+ [ "⇧" ] }
|
||||
{ C+ [ "⌃" ] }
|
||||
{ A+ [ "\u{place-of-interest-sign}" ] }
|
||||
{ M+ [ "\u{option-key}" ] }
|
||||
{ S+ [ "\u{upwards-white-arrow}" ] }
|
||||
{ C+ [ "\u{up-arrowhead}" ] }
|
||||
} case
|
||||
] map "" join ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue