;;;; -*-Mode: Lisp-*-

(defun my-footer (stream base-url year month day language)
  (declare (ignore base-url month day))
  (format stream "~&<HR><DIV ID=\"leftfooter\">&copy;&nbsp;~A&nbsp;~A</DIV>"
	  year (link-to "http://ola.rinta-koski.net/"
			"<I>Ola Rinta-Koski</I>"))
  (when (eql language 'finnish)
    (format stream "~&<DIV ID=\"rightfooter\"><A HREF=\"http://satu.nahkuri.net/blog/\">Satun blog</A></DIV>")))

(defun my-geourl (stream base-url language)
  (declare (ignore language))
  (format stream " <a href=\"http://geourl.org/near?p=~A\"~
 title=\"check out my neighbors in meatspace\">~
<img src=\"http://i.geourl.org/80x15/simple.png\" alt=\"GeoURL\"~
 border=\"0\" width=\"80\" height=\"15\" /></a>" base-url))

(setq *blog*
      (make-instance 'blog
                     :title "Blogsym Example"
                     :languages '(english finnish)
                     :language-variants '(au)
                     :default-language 'finnish
                     :base-url "http://ola.rinta-koski.net/blog/"
                     :stylesheet "/blog/blog.css"
                     :contact-address "blog@rinta-koski.net"
                     :text-directory "/Users/ola/Documents/blog/"
                     :weather-directory "/Users/ola/Documents/weather"
                     :timezone 10 ;; QLD time
                     :rss-size 15
                     :hooks '((footer my-footer)
                              (index my-geourl))
                     ;; Brisbane according to www.world-gazetteer.com
                     :geo-location (make-geo-location
                                    :latitude -27.46
                                    :longitude 153.02
                                    :name "Brisbane"
                                    :state 'ql
                                    :country 'au)
                     :html-directory "/Users/ola/Sites/ola.rinta-koski.net/blog/"
                     :pic-directory "kuvat/"
                     :weather-directory "./weather"))

;; EOF