43 lines
1.2 KiB
Elm
43 lines
1.2 KiB
Elm
|
module Stars exposing (run)
|
||
|
|
|
||
|
|
import BackendTask exposing (BackendTask)
|
||
|
|
import BackendTask.Http
|
||
|
|
import Cli.Option as Option
|
||
|
|
import Cli.OptionsParser as OptionsParser
|
||
|
|
import Cli.Program as Program
|
||
|
|
import Json.Decode as Decode
|
||
|
|
import Pages.Script as Script exposing (Script)
|
||
|
|
|
||
|
|
|
||
|
|
run : Script
|
||
|
|
run =
|
||
|
|
Script.withCliOptions program
|
||
|
|
(\{ username, repo } ->
|
||
|
|
BackendTask.Http.getJson
|
||
|
|
("https://api.github.com/repos/dillonkearns/" ++ repo)
|
||
|
|
(Decode.field "stargazers_count" Decode.int)
|
||
|
|
|> BackendTask.allowFatal
|
||
|
|
|> BackendTask.andThen
|
||
|
|
(\stars ->
|
||
|
|
Script.log (String.fromInt stars)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
|
||
|
|
|
||
|
|
type alias CliOptions =
|
||
|
|
{ username : String
|
||
|
|
, repo : String
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
program : Program.Config CliOptions
|
||
|
|
program =
|
||
|
|
Program.config
|
||
|
|
|> Program.add
|
||
|
|
(OptionsParser.build CliOptions
|
||
|
|
|> OptionsParser.with
|
||
|
|
(Option.optionalKeywordArg "username" |> Option.withDefault "dillonkearns")
|
||
|
|
|> OptionsParser.with
|
||
|
|
(Option.optionalKeywordArg "repo" |> Option.withDefault "elm-pages")
|
||
|
|
)
|