BrowserX.hs

import System.Process
import System.Environment
import System.Exit

import Control.Monad
import System.Console.GetOpt
import Data.Char

import BrowserX.Webkit
import BrowserX.Network
import BrowserX.Options
import BrowserX.Parser

 -- | 'main' runs the main program
main :: IO ()
main = do
  argv <- getArgs
  (settings, params) <- parse argv
  when (optShowHelp settings) $ putStrLn (usageInfo "Usage: BrowserX [flags] [METHOD] URL [ITEM [ITEM]]" options) >> exitSuccess
  when (optShowVersion settings) $ putStrLn "BrowserX: version: 0.1" >> exitSuccess
  putStrLn $ show settings
  putStrLn $ show params
  url <- case params of
    [] -> return "http://google.com"
    (x:xs) -> return x
  when (optDebug settings) $ console settings url
  unless (optDebug settings) $ browser settings url


console :: Options -> String -> IO ()
console settings url = do
  html <- fetchURL settings url
  out <- parseHTML html
  putStrLn out