snippet: add erlang-mode snippets

erlang-mode/after

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: after ... ->
+# --
+after
+    $1 -> $0

erlang-mode/begin

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: begin ... end
+# --
+begin
+    $0
+end

erlang-mode/beh

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: -behaviour(...).
+# --
+-behaviour(${1:gen_server}).
+$0

erlang-mode/case

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: case ... of ... end
+# --
+case $1 of
+    $0
+end

erlang-mode/compile

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: -compile(...).
+# --
+-compile([${1:export_all}]).
+$0

erlang-mode/def

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: -define(...,...).
+# --
+-define($1,$2).
+$0

erlang-mode/exp

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: -export([]).
+# --
+-export([${1:start/0}]).
+$0

erlang-mode/fun

@@ -0,0 +1,4 @@
+# -*- mode: snippet -*-
+# name: fun (...) -> ... end
+# --
+fun ($1) -> $0 end

erlang-mode/if

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: if ... -> ... ; true -> ... end
+# --
+if
+    $1 -> $2;
+    true -> $0
+end

erlang-mode/ifdef

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: -ifdef(...). ... -endif.
+# --
+-ifdef($1).
+$0
+-endif.

erlang-mode/ifndef

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: -ifndef(...). ... -endif.
+# --
+-ifndef($1).
+$0
+-endif.

erlang-mode/imp

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: -import([]).
+# --
+-import(${1:lists}, [${2:map/2, sum/1}]).
+$0

erlang-mode/inc

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: -include("...").
+# --
+-include("$1").
+$0

erlang-mode/inc.lib

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: -include_lib("...").
+# --
+-include_lib("$1").
+$0

erlang-mode/loop

@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: loop(...) -> receive _ -> loop(...) end.
+# --
+${1:loop}($2) ->
+    receive
+	${3:_} ->
+	    $1($2)
+    end.
+$0

erlang-mode/mod

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: -module().
+# --
+-module(${1:`(file-name-nondirectory
+              (file-name-sans-extension (or (buffer-file-name) (buffer-name))))`}).
+$0

erlang-mode/rcv

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: receive ... -> ... end
+# --
+receive
+    $1 -> $0
+end

erlang-mode/rcv.after

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: receive after ... -> ... end
+# --
+receive
+after
+    $1 -> $0
+end

erlang-mode/rec

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: -record(...,{...}).
+# --
+-record($1,{$2}).
+$0

erlang-mode/try

@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# name: try ... of ... catch after end
+# --
+try $1 of
+    $0
+catch
+after
+end

erlang-mode/undef

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: -undef(...).
+# --
+-undef($1).
+$0