diff options
-rw-r--r-- | .functions | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -62,4 +62,10 @@ function escape() { function unidecode() { perl -e "binmode(STDOUT, ':utf8'); print \"$@\"" echo # newline +} + +# Get a character's unicode codepoint +function codepoint() { + perl -e "use utf8; print sprintf('U+%04X', ord(\"$@\"))" + echo # newline }
\ No newline at end of file |