Implement share link in Victory screen

ufocoder · Jan 4, 2017 · af2ec6b · af2ec6b
1 parent b2a9386
commit af2ec6b
Show file tree

Hide file tree

Showing 3 changed files with 32 additions and 15 deletions.
diff --git a/src/Render.elm b/src/Render.elm
@@ -6,6 +6,8 @@ import Http exposing (encodeUri)
 import Style
 import Type exposing (..)
 
+url: String
+url = "https://ufocoder.github.io/sokoban/dist/index.html"
 
 layout: List (Html msg) -> Html msg
 layout children =
@@ -27,31 +29,45 @@ title message =
  Html.div [Style.title] [text message]
 
 
-share: Level -> String -> Html msg
-share level message = 
+shareVictory: String -> Html msg
+shareVictory linkText =
+ let 
+ tweetText = "I win the sokoban game, URL: " ++ url
+ in
+ Html.div [Style.share] [
+ shareTwitterLink linkText tweetText
+ ]
+
+
+shareLevel: Level -> String -> Html msg
+shareLevel level linkText = 
  let
  baseText = (
- "passed level #" ++ (toString level.number) ++ ", with " ++ 
+ "passed level #" ++ (toString (level.number + 1)) ++ ", with " ++ 
  (toString level.statistic.moves) ++ " moves and " ++
  (toString level.statistic.pushes) ++ " pushes"
  )
  shareText = "You " ++ baseText
- tweetText = "I " ++ baseText
+ tweetText = "I " ++ baseText ++ ", URL: " ++ url
  in
  Html.div [Style.share] [
  Html.div [] [text shareText],
- Html.a [
- target "_blank",
- href ("https://twitter.com/intent/tweet?text=" ++ (encodeUri tweetText)),
- style [
- ("color", "#FFFFFF")
- ]
- ] [
- text message
- ]
+ shareTwitterLink linkText tweetText
  ]
 
 
+shareTwitterLink: String -> String -> Html msg
+shareTwitterLink linkText tweetText =
+ Html.a [
+ target "_blank",
+ href ("https://twitter.com/intent/tweet?text=" ++ (encodeUri tweetText)),
+ style [
+ ("color", "#FFFFFF")
+ ] 
+ ] [
+ text linkText
+ ]
+
 reset: String -> Html msg
 reset message =
  Html.div [Style.reset] [text message]

diff --git a/src/Screen/Complete.elm b/src/Screen/Complete.elm
@@ -14,7 +14,7 @@ render model =
  Just level ->
  Render.layout [
  Render.menu "Press spacebar to play next level",
- Render.share level "Share your results in Twitter",
+ Render.shareLevel level "Share your results in Twitter",
  Render.background
  ]
 

diff --git a/src/Screen/Victory.elm b/src/Screen/Victory.elm
@@ -7,6 +7,7 @@ import Type exposing (..)
 render: Model -> Html Msg
 render model =
  Render.layout [
- Render.title "You win!",
+ Render.menu "Congratulations! You win the game!",
+ Render.shareVictory "Share your victory in Twitter",
  Render.background
  ]