diff --git a/snippets/clojure-mode/com b/snippets/clojure-mode/com
new file mode 100644
index 0000000..51cb0be
--- /dev/null
+++ b/snippets/clojure-mode/com
@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: comment
+# key: com
+# --
+(comment
+  $0)
diff --git a/snippets/clojure-mode/keys b/snippets/clojure-mode/keys
new file mode 100644
index 0000000..633fef5
--- /dev/null
+++ b/snippets/clojure-mode/keys
@@ -0,0 +1,4 @@
+# name: {:keys ...}
+# key: keys
+# --
+{:keys [${1:keys}]${3: :as ${2:name}}}
\ No newline at end of file
diff --git a/snippets/clojure-mode/kf b/snippets/clojure-mode/kf
new file mode 100644
index 0000000..763c54c
--- /dev/null
+++ b/snippets/clojure-mode/kf
@@ -0,0 +1,4 @@
+# name: {:keys [...]} var
+# key: kf
+# --
+{:keys [${1:keys}]} ${2:from-var}
\ No newline at end of file
diff --git a/snippets/clojure-mode/letk b/snippets/clojure-mode/letk
new file mode 100644
index 0000000..d4028f2
--- /dev/null
+++ b/snippets/clojure-mode/letk
@@ -0,0 +1,7 @@
+# -*- coding: utf-8 -*-
+# name: (let [{:keys ...)
+# key: letk
+# --
+(let [{:keys [${1:keys}]} ${2:from}]$>
+  ${3:body})$>
+$0
diff --git a/snippets/clojure-mode/pragma b/snippets/clojure-mode/pragma
new file mode 100644
index 0000000..227ef7a
--- /dev/null
+++ b/snippets/clojure-mode/pragma
@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# name: pragma block
+# key: prag
+# --
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; ${1:Pragma Name}
+
+$0
diff --git a/snippets/clojure-mode/require b/snippets/clojure-mode/require
index 29c584e..8456625 100644
--- a/snippets/clojure-mode/require
+++ b/snippets/clojure-mode/require
@@ -1,4 +1,4 @@
 # name: require
-# key: require
+# key: req
 # --
 (:require [$1 :as $2])$>
\ No newline at end of file
diff --git a/snippets/clojure-mode/tns b/snippets/clojure-mode/tns
new file mode 100644
index 0000000..80a73de
--- /dev/null
+++ b/snippets/clojure-mode/tns
@@ -0,0 +1,36 @@
+# -*- coding: utf-8 -*-
+# name: tns
+# key: tns
+# --
+(ns `(let* ((nsname '())
+        (dirs (split-string (buffer-file-name) "/"))
+        (aftersrc nil))
+     (dolist (dir dirs)
+        (if aftersrc
+            (progn
+                (setq nsname (cons dir nsname))
+                (setq nsname (cons "." nsname)))
+             (when (or (string= dir "src") (string= dir "test"))
+                (setq aftersrc t))))
+     (when nsname
+       (replace-regexp-in-string "_" "-"
+       (substring (apply 'concat (reverse nsname))
+                  0
+                  (* -1 (+ 2 (length (file-name-extension (buffer-file-name)))))))))`
+  (:require [midje.sweet :refer :all]
+            [`(let* ((nsname '())
+        (dirs (split-string (buffer-file-name) "/"))
+        (aftersrc nil))
+     (dolist (dir dirs)
+        (if aftersrc
+            (progn
+                (setq nsname (cons dir nsname))
+                (setq nsname (cons "." nsname)))
+             (when (or (string= dir "src") (string= dir "test"))
+                (setq aftersrc t))))
+     (when nsname
+       (replace-regexp-in-string "-test" ""
+       (replace-regexp-in-string "_" "-"
+       (substring (apply 'concat (reverse nsname))
+                  0
+                  (* -1 (+ 2 (length (file-name-extension (buffer-file-name))))))))))` :refer :all]))
\ No newline at end of file