Monitors are now a Plugin that can be removed from Config.hs

darcs-hash:20070718151211-d6583-7e0e49c22d07feda72d03370fd592c196dfcc9c1.gz

1 files changed, 0 insertions, 129 deletions

diff --git a/Monitors/Weather.hs b/Monitors/Weather.hs
deleted file mode 100644
index 6a9b829..0000000
--- a/Monitors/Weather.hs
+++ /dev/null
@@ -1,129 +0,0 @@
------------------------------------------------------------------------------
--- |
--- Module      :  Monitors.Weather
--- Copyright   :  (c) Andrea Rossato
--- License     :  BSD-style (see LICENSE)
--- 
--- Maintainer  :  Andrea Rossato <andrea.rossato@unibz.it>
--- Stability   :  unstable
--- Portability :  unportable
---
--- A weather monitor for Xmobar
---
------------------------------------------------------------------------------
-
-module Monitors.Weather where
-
-import Monitors.Common
-
-import System.Process
-import System.Exit
-import System.IO
-
-import Text.ParserCombinators.Parsec
-
-
-weatherConfig :: IO MConfig
-weatherConfig = mkMConfig
-       "<station>: <tempC>C, rh <rh>% (<hour>)" -- template
-       ["station"                               -- available replacements
-       , "stationState"
-       , "year"
-       , "month"
-       , "day"
-       , "hour"
-       , "wind"
-       , "visibility"
-       , "skyCondition"
-       , "tempC"
-       , "tempF"
-       , "dewPoint"
-       , "rh"
-       ,"pressure"
-       ]
-
-data WeatherInfo =
-    WI { stationPlace :: String
-       , stationState :: String
-       , year :: String
-       , month :: String
-       , day :: String
-       , hour :: String
-       , wind :: String
-       , visibility :: String
-       , skyCondition :: String
-       , temperature :: Float
-       , dewPoint :: String
-       , humidity :: Float
-       , pressure :: String
-       } deriving (Show)
-
-pTime :: Parser (String, String, String, String)
-pTime = do y <- getNumbersAsString
-           char '.'
-           m <- getNumbersAsString
-           char '.'
-           d <- getNumbersAsString
-           char ' '
-           (h:hh:mi:mimi) <- getNumbersAsString
-           char ' '
-           return (y, m, d ,([h]++[hh]++":"++[mi]++mimi))
-
-pTemp :: Parser Float
-pTemp = do manyTill anyChar $ char '('
-           s <- manyTill digit $ (char ' ' <|> char '.')
-           skipRestOfLine
-           return $read s
-
-pRh :: Parser Float
-pRh = do s <- manyTill digit $ (char '%' <|> char '.')
-         return $ read s
-
-parseData :: Parser [WeatherInfo]
-parseData = 
-    do st <- getAllBut "," 
-       space
-       ss <- getAllBut "("
-       skipRestOfLine >> getAllBut "/"
-       (y,m,d,h) <- pTime
-       w <- getAfterString "Wind: "
-       v <- getAfterString "Visibility: "
-       sk <- getAfterString "Sky conditions: "
-       skipTillString "Temperature: "
-       temp <- pTemp
-       dp <- getAfterString "Dew Point: "
-       skipTillString "Relative Humidity: "
-       rh <- pRh
-       p <- getAfterString "Pressure (altimeter): "
-       manyTill skipRestOfLine eof
-       return $ [WI st ss y m d h w v sk temp dp rh p]
-
-defUrl :: String
-defUrl = "http://weather.noaa.gov/pub/data/observations/metar/decoded/"
-
-getData :: String -> IO String
-getData url=
-        do (i,o,e,p) <- runInteractiveCommand ("curl " ++ defUrl ++ url ++ ".TXT")
-           exit <- waitForProcess p
-           let closeHandles = do hClose o
-                                 hClose i
-                                 hClose e
-           case exit of
-             ExitSuccess -> do str <- hGetContents o
-                               return str
-             _ -> do closeHandles
-                     return "Could not retrieve data"
-
-formatWeather :: [WeatherInfo] -> Monitor String
-formatWeather [(WI st ss y m d h w v sk temp dp r p)] =
-    do cel <- showWithColors show temp
-       far <- showWithColors (show . takeDigits 1) (((9 / 5) * temp) + 32)
-       rh <- showWithColors show r
-       parseTemplate [st, ss, y, m, d, h, w, v, sk, cel, far, dp, rh , p ]
-formatWeather _ = return "N/A"
-
-runWeather :: [String] -> Monitor String
-runWeather str =
-    do d <- io $ getData $ head str
-       i <- io $ runP parseData d
-       formatWeather i