add snippets for Racket

Author: Tetsumi

snippets/racket-mode/case

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: (case ... [... ...]...)
+# key: case
+# --
+(case ${1:expression} [${2:datum} ${3:body}]$4)$0

snippets/racket-mode/caselambda

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: (case-lambda [... ...]...)
+# key: case-lambda
+# --
+(case-lambda [${1:arguments} ${2:body}]$3)$0

snippets/racket-mode/cond

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: (cond [... ...]...)
+# key: cond
+# --
+(cond [${1:predicate} ${2:body}]$3)$0

snippets/racket-mode/define

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: (define ... ...)
+# key: define
+# --
+(define ${1:(${2:name} ${3:arguments})} ${4:body})$0

snippets/racket-mode/do

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: (do ([... ... ...]...) (... ...) ...)
+# key: do
+# --
+(do ([${1:name} ${2:init} ${3:step}]$4)
+    (${5:stop-predicate} ${6:finish})
+  ${7:body})$0

snippets/racket-mode/for

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: (for... (...) ...)
+# key: for
+# --
+(for$1 (${2:for-clause}) ${3:body})$0

snippets/racket-mode/if

@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# name: (if ... ... ...)
+# key: if
+# --
+(if ${1:(${2:predicate})}
+    ${3:consequent}
+    ${4:alternative})
+$0

snippets/racket-mode/lambda

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: (lambda (...) ...)
+# key: lambda
+# --
+(lambda ${1:(${2:arguments})} ${3:body})$0

snippets/racket-mode/let

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: (let... ([... ...]...) ...)
+# key: let
+# --
+(let$1 ([${2:name} ${3:expression}]$4) ${5:body})$0

snippets/racket-mode/match

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: (match ... [... ...]...)
+# key: match
+# --
+(match ${1:expression} [${2:clause} ${3:body}]$4)$0