;;; -*- emacs-lisp -*-

(require 'emeteo-modeline)
(require 'emeteo-gnus)
(require 'emeteo-eyecandy)
(require 'emeteo-conversion)
(require 'emeteo-storage)
(require 'emeteo-stations)

;; emeteo
(setq emeteo-data-sources
      '((berlin
         :region-path (europe germany berlin)
         :uri "http://www.met.fu-berlin.de/de/wetter/"
         :uri-coordinates ((52 25) (13 13))
         :fallback ("http://weather.yahoo.com/forecast/GMXX0007.html")
         :fetch-chain default
         :converter-chain 'celsius
         ;;:modeline-format ("%s:%s%sw%s%s" :shortname temp :temp-unit-string wind :wind-unit-string)
         :modeline-format ("%s:%s%s" :shortname temp (or (and temp :temp-unit-string) ""))
         :gnus-header-format ("%s%s (%s)" temp :temp-unit-string :name)
         :temp-unit celsius
         :temp-unit-string "°C"
         :wind-unit meterspersecond
         :wind-unit-string "m/s"
         :name "Berlin"
         :shortname "B")
        (reykjavik
         :region-path (europe iceland reykjavik)
         :uri "http://search.weather.yahoo.com/forecast/ICXX0002_c.html?force_units=1"
         :fallback ("http://www.theweathernetwork.com/weather/cities/intl/pages/ICXX0002.htm")
         :fetch-chain default
         :modeline-format ("%s:%s%s" :shortname temp (or (and temp :temp-unit-string) ""))
         :gnus-header-format ("%s%s (%s)" temp :temp-unit-string :name)
         :temp-unit-string "°C"
         :wind-unit-string "m/s"
         :name "Reykjavík"
         :shortname "R")
        (reykjavik-birk
         :region-path (europe iceland reykjavik)
         :uri "http://weather.noaa.gov/pub/data/observations/metar/decoded/BIRK.TXT"
         :fetch-chain default
         :converter-chain 'celsius
         :modeline-format ("%s:%s%s" :shortname (emeteo-conversion-temperature temp 'fahrenheit 'celsius) :temp-unit-string)
         :temp-unit celsius
         :temp-unit-string "°C"
         :wind-unit meterspersecond
         :wind-unit-string "m/s"
         :name "Reykjavík-BIRK"
         :shortname "BIRK")
        (berlin-eddi
         :uri "http://weather.noaa.gov/pub/data/observations/metar/decoded/EDDI.TXT"
         :fetch-chain default
         :converter-chain 'celsius
         :modeline-format ("%s:%s%s" :shortname (emeteo-conversion-temperature temp 'fahrenheit 'celsius) :temp-unit-string)
         :gnus-header-format ("%s%s (%s)" (emeteo-conversion-temperature temp 'fahrenheit 'celsius) :temp-unit-string :name)
         :temp-unit celsius
         :temp-unit-string "°C"
         :wind-unit meterspersecond
         :wind-unit-string "m/s"
         :name "EDDI"
         :shortname "EDDI")
        (bonn-eddk
         :uri "http://weather.noaa.gov/pub/data/observations/metar/decoded/EDDK.TXT"
         :fetch-chain default
         :converter-chain 'celsius
         :modeline-format ("%s:%s%s" :shortname (emeteo-conversion-temperature temp 'fahrenheit 'celsius) :temp-unit-string)
         :temp-unit celsius
         :temp-unit-string "°C"
         :wind-unit meterspersecond
         :wind-unit-string "m/s"
         :name "EDDK"
         :shortname "BN")
        (ybbn ;;; brisbane
         :region-path (australia ybbn)
         :uri "http://weather.noaa.gov/pub/data/observations/metar/decoded/YBBN.TXT"
         :fetch-chain default
         :converter-chain 'celsius
         :modeline-format ("%s:%s%s" :shortname (emeteo-conversion-temperature temp 'fahrenheit 'celsius) (or (and temp :temp-unit-string) ""))
         :gnus-header-format ("%s%s (%s)" temp :temp-unit-string :name)
         :temp-unit celsius
         :temp-unit-string "°C"
         :wind-unit meterspersecond
         :wind-unit-string "m/s"
         :name "YBBN"
         :shortname "YBBN"))
      emeteo-timeout 3
      emeteo-modeline-interval 90
      emeteo-modeline-timer-function 'run-with-idle-timer
      emeteo-modeline-eyecandy-p t
      emeteo-modeline-specifiers '(berlin reykjavik-birk
                                   berlin-eddi ybbn)
      emeteo-eyecandy-icons-directory (concat (file-name-directory (locate-library "emeteo")) "etc")
      emeteo-modeline-eyecandy-p t)


;;; .emeteo ends here