2016-06-11 09:56:50 -04:00
|
|
|
snippet mod
|
|
|
|
module `substitute(substitute(expand('%:r'), '[/\\]','.','g'),'^\%(\l*\.\)\?','','')` exposing (${1})
|
|
|
|
${0}
|
|
|
|
snippet imp
|
2017-09-02 06:43:18 -04:00
|
|
|
import ${0:Http}
|
2016-06-11 09:56:50 -04:00
|
|
|
snippet impe
|
2017-09-02 06:43:18 -04:00
|
|
|
import ${1:Html} exposing (${0:..})
|
|
|
|
snippet impae
|
|
|
|
import ${1:Json.Encode} as ${2:Encode} exposing (${0:Value})
|
2016-06-11 09:56:50 -04:00
|
|
|
snippet fn
|
|
|
|
${1:fn} : ${2:a} -> ${3:a}
|
|
|
|
$1 ${4} =
|
|
|
|
${0}
|
|
|
|
snippet fn1
|
|
|
|
${1:fn} : ${2:a} -> ${3:a}
|
|
|
|
$1 ${4} =
|
|
|
|
${0}
|
|
|
|
snippet fn2
|
|
|
|
${1:fn} : ${2:a} -> ${3:a} -> ${4:a}
|
|
|
|
$1 ${5} =
|
|
|
|
${0}
|
|
|
|
snippet fn3
|
|
|
|
${1:fn} : ${2:a} -> ${3:a} -> ${4:a} -> ${5:a}
|
|
|
|
$1 ${6} =
|
|
|
|
${0}
|
|
|
|
snippet fn0
|
|
|
|
${1:fn} : ${2:a}
|
|
|
|
$1 =
|
|
|
|
${0}
|
|
|
|
snippet case
|
|
|
|
case ${1} of
|
|
|
|
${2} ->
|
|
|
|
${0}
|
|
|
|
snippet -
|
|
|
|
${1} ->
|
|
|
|
${0}
|
|
|
|
snippet let
|
|
|
|
let
|
2017-05-02 08:42:08 -04:00
|
|
|
${1} =
|
|
|
|
${2}
|
2016-06-11 09:56:50 -04:00
|
|
|
in
|
|
|
|
${0}
|
|
|
|
snippet if
|
|
|
|
if ${1} then
|
2017-02-11 08:01:38 -05:00
|
|
|
${2:${VISUAL}}
|
2016-06-11 09:56:50 -04:00
|
|
|
else
|
|
|
|
${0}
|
|
|
|
snippet ty
|
|
|
|
type ${1:Msg}
|
|
|
|
= ${0}
|
|
|
|
snippet tya
|
|
|
|
type alias ${1:Model} =
|
|
|
|
${0}
|
2017-09-02 06:43:18 -04:00
|
|
|
snippet test
|
|
|
|
test "${1}" <| \_ -> $0
|
|
|
|
snippet doc
|
|
|
|
{-| ${0}
|
|
|
|
-}
|
2017-11-24 08:54:40 -05:00
|
|
|
snippet p
|
|
|
|
|> ${0}
|
|
|
|
snippet program
|
|
|
|
import Html exposing (Html)
|
|
|
|
|
|
|
|
|
|
|
|
type alias Model =
|
|
|
|
{}
|
|
|
|
|
|
|
|
|
|
|
|
type Msg
|
|
|
|
= Noop
|
|
|
|
|
|
|
|
|
|
|
|
main : Program Never Model Msg
|
|
|
|
main =
|
|
|
|
Html.program
|
|
|
|
{ init = init
|
|
|
|
, view = view
|
|
|
|
, update = update
|
|
|
|
, subscriptions = subscriptions
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
init : ( Model, Cmd Msg )
|
|
|
|
init =
|
|
|
|
{} ! []
|
|
|
|
|
|
|
|
|
|
|
|
update : Msg -> Model -> ( Model, Cmd Msg )
|
|
|
|
update msg model =
|
|
|
|
case msg of
|
|
|
|
Noop ->
|
|
|
|
model ! []
|
|
|
|
|
|
|
|
|
|
|
|
subscriptions : Model -> Sub Msg
|
|
|
|
subscriptions model =
|
|
|
|
Sub.none
|
|
|
|
|
|
|
|
|
|
|
|
view : Model -> Html Msg
|
|
|
|
view model =
|
|
|
|
Html.text "Hello, sailor!"
|