vim-snippets/snippets/elm.snippets at master · honza/vim-snippets · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
snippet mod
	module `substitute(substitute(expand('%:r'), '[/\\]','.','g'),'^\%(\l*\.\)\?','','')` exposing (${1})
	${0}
snippet imp
	import ${0:Http}
snippet impe
	import ${1:Html} exposing (${0:..})
snippet impae
	import ${1:Json.Encode} as ${2:Encode} exposing (${0:Value})
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
		${1} =
			${2}
	in
		${0}
snippet if
	if ${1} then
		${2:${VISUAL}}
	else
		${0}
snippet ty
	type ${1:Msg}
		= ${0}
snippet tya
	type alias ${1:Model} =
		${0}
snippet test
	test "${1}" <| \_ -> $0
snippet desc
	describe "${1}" [ $0 ]
snippet doc
	{-| ${0}
	-}
snippet p
	|> ${0}
snippet program Elm 0.18 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!"
snippet element
	module Main exposing (Model, Msg(..), init, main, subscriptions, update, view)

	import Browser
	import Html exposing (..)
	import Json.Encode


	main : Program Flags Model Msg
	main =
		Browser.element
			{ init = init
			, update = update
			, subscriptions = subscriptions
			, view = view
			}


	type alias Model =
		{}


	type alias Flags =
		Json.Encode.Value


	init : Flags -> ( Model, Cmd Msg )
	init flags_ =
		( {}
		, Cmd.none
		)


	type Msg
		= Noop


	update : Msg -> Model -> ( Model, Cmd Msg )
	update msg model =
		case msg of
			Noop ->
				( model
				, Cmd.none
				)


	subscriptions : Model -> Sub Msg
	subscriptions model =
		Sub.none


	view : Model -> Html Msg
	view model =
		h1 [] [ text "Hello, world!" ]