Merge pull request #44 from pkruithof/patch-1

.functions: Add `codepoint` function

    $ codepoint €
    U+20AC
    $ codepoint ð
    U+00F0

1 files changed, 6 insertions, 0 deletions

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