jinjor

const fs = require("fs");
const fetch = require("node-fetch");
const readline = require("readline");

run().catch(err => {
  console.error(err.message);
  process.exit(1);
});

async function run() {

jinjor

How elm make --optimize works

	func-level DCE	func-level DCE(kernel)	rename record/constructor	rename all	unwrap constructor	minify
default	✅	❌	❌	❌	❌	❌
--optimize	✅	❌	✅	❌	✅	❌
--optimize + uglifyjs	✅	✅	✅	✅	✅	✅

jinjor

How Elm program works

Program	.html	.js	embed	flags	port	file
Html.node	✅	✅	✅	❌	❌	✅
Browser.sandbox	✅	✅	✅	❌	❌	✅
Browser.element	✅	✅	✅	✅	✅	✅
Browser.document	✅	✅	❌	✅	✅	✅
Browser.application	✅	✅	❌	✅	✅	❌
Platform.worker	✅	✅	❌	✅	✅	✅

jinjor

module Return exposing
    ( Return
    , map
    , return
    , toTuple
    , withCommand
    , withTask
    )

import Http

jinjor

シンプルな世界を目指したい

欲しい

• TypeScript bundle (or concatenation)
• CSS bundle (or concatenation)
• ハッシュつきファイル
• PostCSS
  • autoprefixer
• minify

jinjor

Programming in Japan

Pros

• Single timezone
• Simple month names
• No plurals
• No AM and PM
• YYYY/MM/DD
• Metric units

jinjor

json = """{ "name": "tom", "age": 42 }"""

decodeString (maybe (field "age"    int  )) json        -- Ok (Just 42)
decodeString (maybe (field "name"   int  )) json        -- Ok Nothing
decodeString (maybe (field "height" float)) json        -- Ok Nothing
decodeString (maybe (field "height" float)) "null"      -- Ok Nothing
decodeString (maybe (field "height" float)) "\"hello\"" -- Ok Nothing
decodeString (maybe (field "height" float)) ""          -- Err ...

decodeString (field "age"    (maybe int  )) json        -- Ok (Just 42)

jinjor

module Tuple3 exposing (..)


get1and2 : ( a, b, c ) -> ( a, b )
get1and2 ( a, b, c ) =
    ( a, b )


get2and3 : ( a, b, c ) -> ( b, c )
get2and3 ( a, b, c ) =

jinjor

# make sure every time only one file is re-compiled

echo "time\t\tlines\timports\tfile"

for f in `find src -name *.elm`
do
  elm-make $f --output=/dev/null > /dev/null
  sleep 1
  touch $f
  a=`wc -l $f | awk '{print $1}'`

jinjor

module Util.HttpUtil exposing (..)

import Task exposing (..)
import Http exposing (..)
import Json.Decode as D exposing (Decoder)
import Json.Encode as E


encodeHeaders : List ( String, String ) -> E.Value
encodeHeaders headers =