From a8d6f0d418018b607ca9e037919797b8647114bd Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 26 Oct 2016 16:37:27 -0700
Subject: [PATCH] gopher: adding generic image support.

---
 extra/gopher/gopher.factor | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/extra/gopher/gopher.factor b/extra/gopher/gopher.factor
index c450e38676..b2b65f86b6 100644
--- a/extra/gopher/gopher.factor
+++ b/extra/gopher/gopher.factor
@@ -97,6 +97,9 @@ M: gopher-link >url
 : gopher-gif. ( object -- )
     "gif" (image-class) load-image* image. ;
 
+: gopher-image. ( path object -- path )
+    over image-class load-image* image. ;
+
 : gopher-menu. ( object -- )
     gopher-text [
         [ nl ] [ <gopher-link> gopher-link. ] if-empty
@@ -105,10 +108,12 @@ M: gopher-link >url
 PRIVATE>
 
 : gopher. ( url -- )
-    gopher swap {
+    dup url? [ >url ] unless
+    [ path>> ] [ gopher swap ] bi {
         { A_TEXT [ gopher-text. ] }
         { A_MENU [ gopher-menu. ] }
         { A_INDEX [ gopher-menu. ] }
         { A_GIF [ gopher-gif. ] }
+        { A_IMAGE [ gopher-image. ] }
         [ drop . ]
-    } case ;
+    } case drop ;