Add snippets for Racket

snippets/racket-mode/case

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

snippets/racket-mode/caselambda

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

snippets/racket-mode/cond

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

snippets/racket-mode/define

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: (define ... ...)
+# key: define
+# --
+(define ${1:(${2:name} ${3:arguments})} $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})
+  $0)

snippets/racket-mode/for

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

snippets/racket-mode/if

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: (if ... ... ...)
+# key: if
+# --
+(if ${1:(${2:predicate})}
+    $0)

snippets/racket-mode/lambda

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

snippets/racket-mode/let

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

snippets/racket-mode/match

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

snippets/racket-mode/unless

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

snippets/racket-mode/when

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