From 597a87e70db4a238f8d568cbe73a6358c493dc85 Mon Sep 17 00:00:00 2001 From: Richard Feldman Date: Sat, 2 Apr 2016 08:37:13 -0700 Subject: [PATCH] Add a step to verify everything is set up properly. --- Main.elm | 131 +++++++++++++++++++++++++++++++++++++++++++++++ README.md | 11 ++++ elm-hub.png | Bin 0 -> 2126 bytes elm-package.json | 18 +++++++ index.html | 26 ++++++++++ style.css | 92 +++++++++++++++++++++++++++++++++ 6 files changed, 278 insertions(+) create mode 100644 Main.elm create mode 100644 elm-hub.png create mode 100644 elm-package.json create mode 100644 index.html create mode 100644 style.css diff --git a/Main.elm b/Main.elm new file mode 100644 index 0000000..94617bc --- /dev/null +++ b/Main.elm @@ -0,0 +1,131 @@ +module Main (..) where + +{-| THIS FILE IS NOT PART OF THE WORKSHOP! It is only to verify that you +have everything set up properly. +-} + +import Html exposing (..) +import Html.Attributes exposing (..) +import Html.Events exposing (..) +import Auth +import StartApp +import Http +import Task exposing (Task) +import Effects exposing (Effects) +import Json.Decode exposing (Decoder, (:=)) +import Json.Encode +import Signal exposing (Address) + + +main : Signal Html +main = + app.html + + +app : StartApp.App Model +app = + StartApp.start + { view = view + , update = update + , init = ( initialModel, Effects.task searchFeed ) + , inputs = [] + } + + +initialModel : Model +initialModel = + { status = "Verifying setup..." + } + + +type alias Model = + { status : String } + + +port tasks : Signal (Task Effects.Never ()) +port tasks = + app.tasks + + +searchFeed : Task x Action +searchFeed = + let + url = + "https://api.github.com/search/repositories?q=test&access_token=" + ++ Auth.token + in + performAction + (\_ -> ItWorked) + (\err -> ItFailed err) + (Http.get (Json.Decode.succeed "") url) + + +performAction : (a -> b) -> (y -> b) -> Task y a -> Task x b +performAction successToAction errorToAction task = + let + successTask = + Task.map successToAction task + in + Task.onError successTask (\err -> Task.succeed (errorToAction err)) + + +view : Address Action -> Model -> Html +view address model = + div + [ class "content" ] + [ header [] [ h1 [] [ text "Elm Workshop" ] ] + , div + [ style + [ ( "font-size", "48px" ) + , ( "text-align", "center" ) + , ( "padding", "48px" ) + ] + ] + [ text model.status ] + ] + + +onInput address wrap = + on "input" targetValue (\val -> Signal.message address (wrap val)) + + +defaultValue str = + property "defaultValue" (Json.Encode.string str) + + +type Action + = ItWorked + | ItFailed Http.Error + + +update : Action -> Model -> ( Model, Effects Action ) +update action model = + case action of + ItWorked -> + ( { status = "You're all set!" }, Effects.none ) + + ItFailed err -> + let + status = + case err of + Http.Timeout -> + "Timed out trying to contact GitHub. Check your Internet connection?" + + Http.NetworkError -> + "Network error. Check your Internet connection?" + + Http.UnexpectedPayload msg -> + "Something is misconfigured: " ++ msg + + Http.BadResponse code msg -> + case code of + 401 -> + "Auth.elm does not have a valid token. :( Try recreating Auth.elm by following the steps in the README under the section “Create a GitHub Personal Access Token”." + + _ -> + "GitHub's Search API returned an error: " + ++ (toString code) + ++ " " + ++ msg + in + ( { status = status }, Effects.none ) diff --git a/README.md b/README.md index d1b03eb..78d41b9 100644 --- a/README.md +++ b/README.md @@ -49,6 +49,17 @@ token = still important! `Auth.elm` is in `.gitignore` to avoid accidentally checking in an API secret, and you should [delete this token](https://github.com/settings/tokens) when the workshop is over. + +## Verify Setup + +```bash +elm package install +``` + +```bash +elm live Main.elm --open --output=elm.js +``` + ## Start with Part 1 Run this at the terminal: diff --git a/elm-hub.png b/elm-hub.png new file mode 100644 index 0000000000000000000000000000000000000000..ba32816a8df14eb878b6e39914bf889c799673aa GIT binary patch literal 2126 zcmV-U2(kBxP)WFU8GbZ8()Nlj2>E@cM*00**3L_t(o!=;ydbj?>5 z$3Of0?(g165Jo7`23@5cL{u*(iFtTbkbm9H-uPq*82VNJHLI-_xsy>fA>B|sAtSM zp1^{x2LYH{oM>pRqXqdj!cd^I-y1mKuBdR8mM*J|Y-yTigNUyJUc;*#K5_;)>)Rex zuYpoQ@J7IVM9v}1208;6rb@IoYP_mT=e{c7)x!fm-y&u6wa6LZB(3mBy#(ZbALkxV zV1CzwLGZ0WzdFn`g81BlkHP|M2jGv+kxE;e4nP4p8q7xY~ToAKcwgUhYrDEANWgSrq4chq1m2Z zZU0+t+L@#jEk*AA04;C1S$63do0=}|IVv+|Pw_(~q0O|}ugg<;uWlQ#{pKxF0{T8$ z)KGbwSu%^o+fw7R!y;@g9$E!Jw#_h}rcvzftX46 zQ^PfS`~0{A7lZxe&i+zM1^H{2kUT!a5RukEn8)KerIhl051AB7Ff^0rFdG;#nXbk(DW~ z%$*jv2XIu^99=nR%A$6Wy&JlPjRBA+2NPj4;rD0Fr^H0DCQPpEu{4=*$+wUYevt%@+}TUY&dO+{u}7 zKUwOs+3mALNhoYJn)AgOw3A{Yvv&%5fYqJ8OY(r3S>3}c2UWrQdQ zQ4;59{7CefW9m=MA1%A44Ar-qgjOJJwAO=e`{hELvlosHin^NNuro!3%SLRsUSA3f z3vpQl(41;g)!<(5iZ64Qr*~MBKhH4j(?rx=T~tI+N@5*N9&dNHsC0Hz%+)J~q56x6 zp*4|iFYiZ}o?AMGvr|n6zZan#7;D6KO(+qO4}n`iJBvV#*Zn@<(*NbYHM8T^y;(N9 zV~U8F_wKENQmT`qS&xqAKUp~=s%_*YWvXXAZk^k+q;&Bh^SgA@!C(<`fpo1oB;P9_ zGr~&7D4+>YAtF~dy|?)M=q>w}n~pFSB4Iq(&_0jnUtjM?82XD>oy|^qepIn;?`~gt zOCAe%a8qk;G#O6iJz&}kiYz3>ehWrZT7Iq7P#N4mXFto3T0BAO9BLZ zZuhQ@!xEFuWfNl$C%R=apM~0A+hSG16jx@@3$0UJnFU(=Gs_PjC`~QczbFJ;qxCCR zn1bUXa3-Xv*g?;;6r^kp$8)I#2e%a+;&LEB-zy*Re#I6Z4T3irZV|}K&LYJ%BLbKj z@cWyVpFTOY&7W6HF--e3L>#~cpeG{zLcHbyHUXPM2(<&zzze{)fVP?DkZl7#TeJ4~ zlW%){T=i)t`3q4^hTqW(lu}-w*R!eO(l_Hg``0VN5!bB>>6_N_`bxqXDyD#a86SB*J#R;%URQ zSFTHX<`_WQ&cj1MwjedVBLKXYljNL~R(Pm6sBBuA*hvv$(#3(KeBi2!%5+hWI?ZoQ2FUnkP$ga&JuvM!XqPqcPs@3Z7zZQ zI48+@xi-efp z;Y#3~CBc6KFXtpV^Cno}K@#U+5ikunWUbo|)O$VtKXD7qJ0u8@X8-^I07*qoM6N<$ Ef>T55F8}}l literal 0 HcmV?d00001 diff --git a/elm-package.json b/elm-package.json new file mode 100644 index 0000000..5728b71 --- /dev/null +++ b/elm-package.json @@ -0,0 +1,18 @@ +{ + "version": "1.0.0", + "summary": "Like GitHub, but for Elm stuff.", + "repository": "https://github.com/rtfeldman/elm-workshop.git", + "license": "BSD-3-Clause", + "source-directories": [ + "." + ], + "exposed-modules": [], + "dependencies": { + "elm-lang/core": "3.0.0 <= v < 4.0.0", + "evancz/elm-effects": "2.0.0 <= v < 3.0.0", + "evancz/elm-html": "4.0.0 <= v < 5.0.0", + "evancz/elm-http": "3.0.0 <= v < 4.0.0", + "evancz/start-app": "2.0.0 <= v < 3.0.0" + }, + "elm-version": "0.16.0 <= v < 0.17.0" +} diff --git a/index.html b/index.html new file mode 100644 index 0000000..050bb0e --- /dev/null +++ b/index.html @@ -0,0 +1,26 @@ + + + + + + Elm Workshop + + + + + + + + + + + + + + + diff --git a/style.css b/style.css new file mode 100644 index 0000000..64c74d7 --- /dev/null +++ b/style.css @@ -0,0 +1,92 @@ + +.content { + width: 960px; + margin: 0 auto; + padding: 30px; + font-family: Helvetica, Arial, serif; +} + +header { + position: relative; + padding: 6px 12px; + height: 36px; + background-color: rgb(96, 181, 204); +} + +h1 { + color: white; + font-weight: normal; + margin: 0; +} + +.tagline { + color: #eee; + position: absolute; + right: 16px; + top: 12px; + font-size: 24px; + font-style: italic; +} + +.results { + list-style-image: url('http://img-cache.cdn.gaiaonline.com/76bd5c99d8f2236e9d3672510e933fdf/http://i278.photobucket.com/albums/kk81/d3m3nt3dpr3p/Tiny-Star-Icon.png'); + list-style-position: inside; + padding: 0; +} + +.results li { + font-size: 18px; + margin-bottom: 16px; +} + +.star-count { + font-weight: bold; + margin-right: 16px; +} + +a { + color: rgb(96, 181, 204); + text-decoration: none; +} + +a:hover { + text-decoration: underline; +} + +.search-query { + padding: 8px; + font-size: 24px; + margin-bottom: 18px; + margin-top: 36px; +} + +.search-button { + padding: 8px 16px; + font-size: 24px; + color: white; + border: 1px solid #ccc; + background-color: rgb(96, 181, 204); + margin-left: 12px +} + +.search-button:hover { + color: rgb(96, 181, 204); + background-color: white; +} + +.hide-result { + background-color: transparent; + border: 0; + font-weight: bold; + font-size: 18px; + margin-left: 18px; + cursor: pointer; +} + +.hide-result:hover { + color: rgb(96, 181, 204); +} + +button:focus, input:focus { + outline: none; +}