webapps.planet: include its own icon

diff --git a/extra/webapps/planet/icons/feed-icon-14x14.png b/extra/webapps/planet/icons/feed-icon-14x14.png
new file mode 100644 (file)
index 0000000..b3c949d
Binary files /dev/null and b/extra/webapps/planet/icons/feed-icon-14x14.png differ

diff --git a/extra/webapps/planet/planet.factor b/extra/webapps/planet/planet.factor
index a2beb513ab2b54900bb5c259a563a186bcacb87f..cf48f6dfbcf48509f29a05ebb447e2da0d94ee66 100644 (file)
--- a/extra/webapps/planet/planet.factor
+++ b/extra/webapps/planet/planet.factor
@@ -8,6 +8,7 @@ html.forms
 html.components
 http.server
 http.server.dispatchers
+http.server.static
 furnace
 furnace.actions
 furnace.redirection
@@ -190,6 +191,7 @@ posting "POSTINGS"
         <planet-action> "" add-responder
         <planet-feed-action> "feed.xml" add-responder
         <planet-admin> "admin" add-responder
+        "vocab:webapps/planet/icons/" <static> "icons" add-responder
     <boilerplate>
         { planet "planet-common" } >>template ;
 

diff --git a/extra/webapps/planet/planet.xml b/extra/webapps/planet/planet.xml
index 08cf07d4ceca4cc52f13776f5f1c670f259d6d51..525e1e38fe329d83af7031a8d59a3de33fac58ea 100644 (file)
--- a/extra/webapps/planet/planet.xml
+++ b/extra/webapps/planet/planet.xml
@@ -48,7 +48,7 @@
                                    <a href="http://planet.lisp.org">Planet Lisp</a>.
                                </p>
                                <p>
-                                   <img src="http://factorcode.org/feed-icon-14x14.png" />
+                                   <img src="$planet/icons/feed-icon-14x14.png" />
                                    <t:a t:href="$planet/feed.xml">Syndicate</t:a>
                                </p>
                        </td>