Add Clojure snippets

cider-repl-mode/.yas-parents

@@ -0,0 +1 @@
+clojure-mode

clojure-mode/.yas-parents

@@ -0,0 +1 @@
+prog-mode

clojure-mode/bench

@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# name: bench
+# key: bench
+# --
+(dotimes [_ 5 ]$>
+  (time (dotimes [i 1000000]$>
+  $0$>
+  )))$>

clojure-mode/bp

@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: bp
+# key: bp
+# --
+(swank.core/break)

clojure-mode/def

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

clojure-mode/defm

@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# name: defmacro
+# key: defm
+# --
+(defmacro $1
+  "$2"$>
+  [$3]$>
+  $0)$>

clojure-mode/defn

@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# name: defn
+# key: defn
+# --
+(defn $1
+  "$2"$>
+  [$3]$>
+  $0)$>

clojure-mode/defr

@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: defrecord
+# key: defr
+# --
+(defrecord
+  ^{"$1"}$>
+  $2$>
+  [$3]$>
+  $0)$>

clojure-mode/deft

@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: deftype
+# key: deft
+# --
+(deftype
+  ^{"$1"}$>
+  $2$>
+  [$3]$>
+  $0)$>

clojure-mode/doseq

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: doseq
+# key: doseq
+# --
+(doseq [$1 $2]
+  $3)$>
+$0

clojure-mode/fn

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: fn
+# key: fn
+# --
+(fn [$1]
+  $0)$>

clojure-mode/for

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: for
+# key: for
+# --
+(for [$1 $2]
+  $3)$>

clojure-mode/if

@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: if
+# key: if
+# --
+(if $1
+  $2$>
+  $3)$>
+$0

clojure-mode/ifl

@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: ifl
+# key: ifl
+# --
+(if-let [$1 $2]
+  $3)$>
+$0

clojure-mode/import

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: import
+# key: import
+# expand-env: ((yas-triggers-in-field nil))
+# --
+(:import ($1))$>

clojure-mode/is

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: is
+# key: is
+# --
+(is (= $1 $2))

clojure-mode/let

@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: let
+# key: let
+# --
+(let [$1 $2]$>
+  $3)$>
+$0

clojure-mode/map

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: map
+# key: map
+# --
+(map $1 $2)

clojure-mode/map.lambda

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: map lambda
+# key: map
+# --
+(map #($1) $2)$>

clojure-mode/mdoc

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: mdoc
+# key: mdoc
+# --
+^{:doc "$1"}

clojure-mode/ns

@@ -0,0 +1,23 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: ns
+# key: ns
+# --
+(ns `(cl-flet ((try-src-prefix
+		(path src-pfx)
+		(let ((parts (split-string path src-pfx)))
+		  (if (= 2 (length parts))
+		      (cl-second parts)
+		    nil))))
+       (let* ((p (buffer-file-name))
+	      (p2 (cl-first
+		   (cl-remove-if-not '(lambda (x) x)
+				     (mapcar
+				      '(lambda (pfx)
+					 (try-src-prefix p pfx))
+				      '("/src/cljs/" "/src/clj/" "/src/" "/test/")))))
+	      (p3 (file-name-sans-extension p2))
+	      (p4 (mapconcat '(lambda (x) x)
+			     (split-string p3 "/")
+			     ".")))
+	 (replace-regexp-in-string "_" "-" p4)))`)

clojure-mode/opts

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# key: opts
+# name: opts
+# --
+{:keys [$1]$>
+ :or {$2}$>
+ :as $3}$>

clojure-mode/pr

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: pr
+# key: pr
+# --
+(prn $1)
+$0

clojure-mode/print

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: print
+# key: print
+# --
+(println $1)
+$0

clojure-mode/reduce

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: reduce
+# key: reduce
+# --
+(reduce ${1:(fn [p n] $0)} $2)

clojure-mode/require

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: require
+# key: require
+# expand-env: ((yas-triggers-in-field nil))
+# --
+(:require [$1 :as $2])$>

clojure-mode/test

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: test
+# key: test
+# --
+(deftest $1
+  (is (= $2))$>
+  $0)$>

clojure-mode/try

@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# name: try
+# key: try
+# --
+(try
+$1$>
+(catch ${2:Exception} e$>
+$3$>))$>

clojure-mode/use

@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: use
+# key: use
+# expand-env: ((yas-triggers-in-field nil))
+# --
+(:use [$1 :refer [$2]])$>

clojure-mode/when

@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: when
+# key: when
+# --
+(when $1
+      $2)$>
+$0$>

clojure-mode/whenl

@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: whenl
+# key: whenl
+# --
+(when-let [$1 $2]
+  $3)$>
+  $0$>