diff --git a/.functions b/.functions
index 67e64d6..900df56 100644
--- a/.functions
+++ b/.functions
@@ -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