hwormhole-0.1.0.0: cmd/Options.hs

-- This file is part of hwormhole.

-- hwormhole is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- (at your option) any later version.

-- hwormhole is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.

-- You should have received a copy of the GNU General Public License
-- along with hwormhole.  If not, see <http://www.gnu.org/licenses/>.

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeApplications #-}

module Options
  ( commandlineParser
  )
where

import Protolude

import qualified Options.Applicative as Opt

import qualified Transit

optionsParser :: Opt.Parser Transit.Options
optionsParser
  = Transit.Options
    <$> commandParser
    <*> Opt.option
    (Opt.maybeReader Transit.parseWebSocketEndpoint)
    ( Opt.long "relayserver-url" <>
      Opt.help "Endpoint for the Relay server" <>
      Opt.value defaultEndpoint <>
      Opt.showDefault )
    <*> Opt.option
    (Opt.maybeReader Transit.parseTransitRelayUri)
    ( Opt.long "transit-helper" <>
      Opt.help "Transit relay to use" <>
      Opt.value defaultTransitUrl <>
      Opt.showDefault )
  where
    -- | Default URL for relay server.
    --
    -- This is a relay server run by Brian Warner.
    defaultEndpoint = fromMaybe (panic "Invalid default URL") (Transit.parseWebSocketEndpoint "ws://relay.magic-wormhole.io:4000/v1")
    -- | Default Transit Relay Url
    --
    -- This is a Transit relay run by Brian Warner.
    defaultTransitUrl = fromMaybe (panic "Invalid transit relay URL") (Transit.parseTransitRelayUri "tcp:transit.magic-wormhole.io:4001")

commandParser :: Opt.Parser Transit.Command
commandParser = Opt.hsubparser (sendCommand <> receiveCommand)
  where
    sendCommand = Opt.command "send" (Opt.info sendOptions (Opt.progDesc "send a text message, a file or a directory"))
    receiveCommand = Opt.command "receive" (Opt.info receiveOptions (Opt.progDesc "receive a text message"))
    receiveOptions :: Opt.Parser Transit.Command
    receiveOptions = Transit.Receive <$> optional (Opt.strArgument (Opt.metavar "CODE"))
    sendOptions :: Opt.Parser Transit.Command
    sendOptions = Transit.Send <$> parseMessageType
    parseMessageType :: Opt.Parser Transit.MessageType
    parseMessageType = msgParser <|> fileOrDirParser
    msgParser :: Opt.Parser Transit.MessageType
    msgParser = Transit.TMsg <$> Opt.strOption (Opt.long "text" <> Opt.help "Text message to send")
    fileOrDirParser :: Opt.Parser Transit.MessageType
    fileOrDirParser = Transit.TFile <$> Opt.strArgument (Opt.metavar "FILENAME" <> Opt.help "file path")

opts :: Opt.ParserInfo Transit.Options
opts = Opt.info (Opt.helper <*> optionsParser) (Opt.fullDesc <> Opt.header "wormhole")

commandlineParser :: IO Transit.Options
commandlineParser = Opt.execParser opts