karlosmid

module Picshare exposing (main)
import Browser
import Html exposing (..)
import Html.Events exposing (onClick, onInput, onSubmit)
import Html.Attributes exposing (class, src, placeholder, type_, disabled, value)
import Json.Decode exposing (Decoder, bool, int, list, string, succeed)
import Json.Decode.Pipeline exposing (hardcoded, required)
import Http
type alias Id =
  Int

karlosmid

module Picshare exposing (main)
import Browser
import Html exposing (..)
import Html.Events exposing (onClick, onInput, onSubmit)
import Html.Attributes exposing (class, src, placeholder, type_, disabled, value)
import Json.Decode exposing (Decoder, bool, int, list, string, succeed)
import Json.Decode.Pipeline exposing (hardcoded, required)
import Http
type alias Id =
  Int

karlosmid

module Picshare exposing (main)
import Browser
import Html exposing (..)
import Html.Events exposing (onClick, onInput, onSubmit)
import Html.Attributes exposing (class, src, placeholder, type_, disabled, value)
import Json.Decode exposing (Decoder, bool, int, list, string, succeed)
import Json.Decode.Pipeline exposing (hardcoded, required)
-- 1. add http lib
import Http
type alias Id =

karlosmid

-- 8. temporary expose to test in elm repl
module Picshare exposing (main, photoDecoder)
import Browser
import Html exposing (..)
import Html.Events exposing (onClick, onInput, onSubmit)
import Html.Attributes exposing (class, src, placeholder, type_, disabled, value)
-- 1. import Json modules
import Json.Decode exposing (Decoder, bool, int, list, string, succeed)
import Json.Decode.Pipeline exposing (hardcoded, required)
type alias Id =

karlosmid

defmodule ScriptExample do
  def work() do
    IO.puts(Date.utc_today())
  end
end

ScriptExample.work()

karlosmid

module Picshare exposing (main)
import Browser
import Html exposing (..)
import Html.Events exposing (onClick, onInput, onSubmit)
import Html.Attributes exposing (class, src, placeholder, type_, disabled, value)
-- 1. add alias Id
type alias Id =
  Int
-- 2. rename Model => Photo
type alias Photo =

karlosmid

{
"id": 1,
"src": "https://programming-elm.surge.sh/1.jpg",
 "caption": null,
"liked": "no"
}

karlosmid

{
"id": 1,
"url": "https://programming-elm.surge.sh/1.jpg", "caption": "Surfing",
"liked": false,
"comments": ["Cowabunga, dude!"],
"username": "surfing_usa" }

karlosmid

module Picshare exposing (main)
import Browser
import Html exposing (..)
-- 2. add onInput and onSubmit
import Html.Events exposing (onClick, onInput, onSubmit)
-- 1. add disabled and value
import Html.Attributes exposing (class, src, placeholder, type_, disabled, value)
type alias Model = 
  { url : String
  , caption : String

karlosmid

defmodule If do
  defmacro if(clause, do: expression) do
    quote do
      if(unquote(clause) == :true, do: unquote(expression))
    end
  end
end