[hunchentoot-devel] favicon.ico patch for test.lisp

[Yoni Rabkin Katzenell]

Yoni Rabkin Katzenell <yoni-r at actcom.com> writes:

> Some time ago I added two lines to test.lisp which add a favicon to the
> "menu" page. Maybe someone here will find it useful in a Google search.
>
> You don't actually need the patch, but it is the shortest method of
> explaining what to add where.

OK... So that did not work. Sorry for the wierd attachment. I'll just
paste it right into the mail this time:

--- test_original.lisp	2007-01-14 10:56:18.000000000 +0200
+++ test.lisp	2007-01-14 10:55:15.000000000 +0200
@@ -474,6 +474,7 @@
   (with-html
     (:html
      (:head
+      (:link :rel "shortcut icon" :href "/hunchentoot/test/favicon.ico" :type "image/x-icon")
       (:title "Hunchentoot test menu"))
      (:body
       (:h2 (str *headline*))
@@ -544,6 +545,11 @@
               (make-pathname :name "fz" :type "jpg" :version nil
                              :defaults *this-file*)
               "image/jpeg")
+	     (create-static-file-dispatcher-and-handler
+              "/hunchentoot/test/favicon.ico"
+              (make-pathname :name "favicon" :type "ico" :version nil
+                             :defaults *this-file*)
+              "image/x-icon")
              (create-folder-dispatcher-and-handler
               "/hunchentoot/code/"
               (make-pathname :name nil :type nil :version nil