1 files changed, 5 insertions, 0 deletions

diff --git a/.functions b/.functions
index 67e64d6..ef32e3a 100644
--- a/.functions
+++ b/.functions
@@ -62,4 +62,9 @@ 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(\"$@\"))"
 }
\ No newline at end of file