diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,21 @@ +MIT License + +Copyright (c) 2017 Andy + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this software and associated documentation files (the "Software"), to deal +in the Software without restriction, including without limitation the rights +to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +copies of the Software, and to permit persons to whom the Software is +furnished to do so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in all +copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE +SOFTWARE. diff --git a/README.md b/README.md new file mode 100644 --- /dev/null +++ b/README.md @@ -0,0 +1,12 @@ +# translate-cli + +Command Line Interface to translate words + +## Build + +`stack build` + +## Run + +* `stack exec translate` to show help +* `stack exec translate -- ` to translate diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,2 @@ +import Distribution.Simple +main = defaultMain diff --git a/app/Main.hs b/app/Main.hs new file mode 100644 --- /dev/null +++ b/app/Main.hs @@ -0,0 +1,30 @@ +{-# LANGUAGE OverloadedStrings #-} + +module Main where + +import Turtle +import Lib +import Paths_translate_cli (version) +import Data.Version (showVersion) +import Data.Text (unpack) + +parseVersion :: Parser (IO ()) +parseVersion = + subcommand "version" "Show version information" $ pure printVersion + +parseMain :: Parser (IO ()) +parseMain = fmap (translateText . unpack) parseArgs + +parser :: Parser (IO ()) +parser = parseVersion <|> parseMain + +main :: IO () +main = do + cmd <- options "Translation tool for the commandline" parser + cmd + +printVersion :: IO() +printVersion = putStrLn $ showVersion version + +parseArgs :: Parser Text +parseArgs = argText "text" "Text to translate" diff --git a/src/Lib.hs b/src/Lib.hs new file mode 100644 --- /dev/null +++ b/src/Lib.hs @@ -0,0 +1,39 @@ +{-# LANGUAGE OverloadedStrings, ScopedTypeVariables #-} + +module Lib(translateText) where + +import Network.Wreq +import Control.Lens ((&), (^.), (.~)) +import Data.Text (Text, pack) +import GHC.Generics (Generic) +import Data.Aeson + +import Model + +instance FromJSON Phrase +instance FromJSON Translation +instance FromJSON RestResponse + +translateText :: String -> IO() +translateText phrase = do + r <- getWith (getOptions phrase) $ apiBase + let body = r ^. responseBody + decoded = eitherDecode body :: Either String RestResponse + printPhrases $ fmap (take 5 . toPhrases) decoded + +apiBase :: String +apiBase = "https://glosbe.com/gapi_v0_1/translate" + +getOptions :: String -> Options +getOptions phrase = defaults + & param "phrase" .~ [pack phrase] + & param "from" .~ ["de"] + & param "dest" .~ ["en"] + & param "format" .~ ["json"] + +printPhrases :: Either String [String] -> IO() +printPhrases phrases = + case phrases of + Left _ -> print "No result" + Right phrases -> mapM_ putStrLn phrases + diff --git a/src/Model.hs b/src/Model.hs new file mode 100644 --- /dev/null +++ b/src/Model.hs @@ -0,0 +1,27 @@ +{-# LANGUAGE DeriveGeneric, OverloadedStrings #-} +module Model(RestResponse(..), Translation(..), Phrase(..), toPhrases) where + +import Data.Text (Text) +import GHC.Generics (Generic) +import Data.Maybe + + +data Phrase = Phrase { text :: String + , language :: String + } deriving (Generic, Show) + +data Translation = Translation { phrase :: Maybe Phrase + } deriving (Generic, Show) + +data RestResponse = RestResponse { result :: String + , tuc :: [Translation] + } deriving (Generic, Show) + +toPhrases :: RestResponse -> [String] +toPhrases = fmap formatPhrase . getPhrases . tuc + +getPhrases :: [Translation] -> [Phrase] +getPhrases = catMaybes . fmap phrase + +formatPhrase :: Phrase -> String +formatPhrase (Phrase text lang) = "[" ++ lang ++ "] " ++ text diff --git a/test/Spec.hs b/test/Spec.hs new file mode 100644 --- /dev/null +++ b/test/Spec.hs @@ -0,0 +1,30 @@ +{-# LANGUAGE OverloadedStrings #-} + +import Test.HUnit +import Model + +testToPhrasesEmptyList :: Test +testToPhrasesEmptyList = TestCase + $ assertEqual "Should return empty list if no input" + [] + (toPhrases response1) + +testToPhrasesWithResponse :: Test +testToPhrasesWithResponse = TestCase + $ assertEqual "Should return empty list if no input" + ["[en] cat", "[en] dog"] + (toPhrases response2) + +main :: IO Counts +main = runTestTT $ TestList [testToPhrasesEmptyList, testToPhrasesWithResponse] + +-- fake data + +enPhrase1 = Phrase "cat" "en" +enPhrase2 = Phrase "dog" "en" + +response1 = RestResponse "ok" ([]::[Translation]) +response2 = RestResponse "ok" ([translation1, translation2]) + +translation1 = Translation (Just enPhrase1) +translation2 = Translation (Just enPhrase2) diff --git a/translate-cli.cabal b/translate-cli.cabal new file mode 100644 --- /dev/null +++ b/translate-cli.cabal @@ -0,0 +1,50 @@ +name: translate-cli +version: 0.1.0.0 +synopsis: Translation cli tool +description: Translation cli tool +homepage: https://github.com/andys8/translate-cli#readme +license: MIT +license-file: LICENSE +author: andys8 +maintainer: as@99n.de +copyright: 2017 +category: Cli +build-type: Simple +extra-source-files: README.md +cabal-version: >=1.10 + +library + hs-source-dirs: src + exposed-modules: Lib + , Model + build-depends: base >= 4.7 && < 5 + , wreq + , lens + , text + , aeson + , aeson-lens + default-language: Haskell2010 + +executable translate + hs-source-dirs: app + main-is: Main.hs + ghc-options: -threaded -rtsopts -with-rtsopts=-N + build-depends: base + , translate-cli + , turtle + , text + default-language: Haskell2010 + +test-suite translate-cli-test + type: exitcode-stdio-1.0 + hs-source-dirs: test + main-is: Spec.hs + build-depends: base + , translate-cli + , HUnit + ghc-options: -threaded -rtsopts -with-rtsopts=-N + default-language: Haskell2010 + +source-repository head + type: git + location: https://github.com/andys8/translate-cli