From ce48bb2ebfb5eab57269956d7b3ade22e281247a Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 1 Apr 2015 14:56:23 -0700
Subject: [PATCH] robohash: adding a robot-based hashing tool.

---
 extra/robohash/authors.txt     |  1 +
 extra/robohash/robohash.factor | 23 +++++++++++++++++++++++
 extra/robohash/summary.txt     |  1 +
 3 files changed, 25 insertions(+)
 create mode 100644 extra/robohash/authors.txt
 create mode 100644 extra/robohash/robohash.factor
 create mode 100644 extra/robohash/summary.txt

diff --git a/extra/robohash/authors.txt b/extra/robohash/authors.txt
new file mode 100644
index 0000000000..e091bb8164
--- /dev/null
+++ b/extra/robohash/authors.txt
@@ -0,0 +1 @@
+John Benediktsson
diff --git a/extra/robohash/robohash.factor b/extra/robohash/robohash.factor
new file mode 100644
index 0000000000..11e436163f
--- /dev/null
+++ b/extra/robohash/robohash.factor
@@ -0,0 +1,23 @@
+! Copyright (C) 2011 John Benediktsson.
+! See http://factorcode.org/license.txt for BSD license.
+
+USING: images.http kernel sequences urls urls.encoding ;
+
+IN: robohash
+
+<PRIVATE
+
+: robohash-url ( str -- url )
+    url-encode "http://robohash.org/" prepend >url ;
+
+: (robohash) ( str type -- image )
+    [ robohash-url ] [ "set" set-query-param ] bi*
+    load-http-image ;
+
+PRIVATE>
+
+: robohash1 ( str -- image ) "set1" (robohash) ;
+
+: robohash2 ( str -- image ) "set2" (robohash) ;
+
+: robohash3 ( str -- image ) "set3" (robohash) ;
diff --git a/extra/robohash/summary.txt b/extra/robohash/summary.txt
new file mode 100644
index 0000000000..195de23287
--- /dev/null
+++ b/extra/robohash/summary.txt
@@ -0,0 +1 @@
+Robohash!