Add Clojure snippets

lunik1 · lunik1 · commit f4926ad14c6a · 2020-09-10T13:48:32.000+01:00
diff --git a/cider-repl-mode/.yas-parents b/cider-repl-mode/.yas-parents
@@ -0,0 +1 @@
+clojure-mode
diff --git a/clojure-mode/.yas-parents b/clojure-mode/.yas-parents
@@ -0,0 +1 @@
+prog-mode
diff --git a/clojure-mode/bench b/clojure-mode/bench
@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# name: bench
+# key: bench
+# --
+(dotimes [_ 5 ]$>
+  (time (dotimes [i 1000000]$>
+  $0$>
+  )))$>
diff --git a/clojure-mode/bp b/clojure-mode/bp
@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: bp
+# key: bp
+# --
+(swank.core/break)
diff --git a/clojure-mode/def b/clojure-mode/def
@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: def
+# key: def
+# --
+(def $0)
diff --git a/clojure-mode/defm b/clojure-mode/defm
@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# name: defmacro
+# key: defm
+# --
+(defmacro $1
+  "$2"$>
+  [$3]$>
+  $0)$>
diff --git a/clojure-mode/defn b/clojure-mode/defn
@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# name: defn
+# key: defn
+# --
+(defn $1
+  "$2"$>
+  [$3]$>
+  $0)$>
diff --git a/clojure-mode/defr b/clojure-mode/defr
@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: defrecord
+# key: defr
+# --
+(defrecord
+  ^{"$1"}$>
+  $2$>
+  [$3]$>
+  $0)$>
diff --git a/clojure-mode/deft b/clojure-mode/deft
@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# name: deftype
+# key: deft
+# --
+(deftype
+  ^{"$1"}$>
+  $2$>
+  [$3]$>
+  $0)$>
diff --git a/clojure-mode/doseq b/clojure-mode/doseq
@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: doseq
+# key: doseq
+# --
+(doseq [$1 $2]
+  $3)$>
+$0
diff --git a/clojure-mode/fn b/clojure-mode/fn
@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: fn
+# key: fn
+# --
+(fn [$1]
+  $0)$>
diff --git a/clojure-mode/for b/clojure-mode/for
@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: for
+# key: for
+# --
+(for [$1 $2]
+  $3)$>
diff --git a/clojure-mode/if b/clojure-mode/if
@@ -0,0 +1,9 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: if
+# key: if
+# --
+(if $1
+  $2$>
+  $3)$>
+$0
diff --git a/clojure-mode/ifl b/clojure-mode/ifl
@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: ifl
+# key: ifl
+# --
+(if-let [$1 $2]
+  $3)$>
+$0
diff --git a/clojure-mode/import b/clojure-mode/import
@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: import
+# key: import
+# expand-env: ((yas-triggers-in-field nil))
+# --
+(:import ($1))$>
diff --git a/clojure-mode/is b/clojure-mode/is
@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: is
+# key: is
+# --
+(is (= $1 $2))
diff --git a/clojure-mode/let b/clojure-mode/let
@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: let
+# key: let
+# --
+(let [$1 $2]$>
+  $3)$>
+$0
diff --git a/clojure-mode/map b/clojure-mode/map
@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: map
+# key: map
+# --
+(map $1 $2)
diff --git a/clojure-mode/map.lambda b/clojure-mode/map.lambda
@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: map lambda
+# key: map
+# --
+(map #($1) $2)$>
diff --git a/clojure-mode/mdoc b/clojure-mode/mdoc
@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: mdoc
+# key: mdoc
+# --
+^{:doc "$1"}
diff --git a/clojure-mode/ns b/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)))`)
diff --git a/clojure-mode/opts b/clojure-mode/opts
@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# key: opts
+# name: opts
+# --
+{:keys [$1]$>
+ :or {$2}$>
+ :as $3}$>
diff --git a/clojure-mode/pr b/clojure-mode/pr
@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: pr
+# key: pr
+# --
+(prn $1)
+$0
diff --git a/clojure-mode/print b/clojure-mode/print
@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: print
+# key: print
+# --
+(println $1)
+$0
diff --git a/clojure-mode/reduce b/clojure-mode/reduce
@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: reduce
+# key: reduce
+# --
+(reduce ${1:(fn [p n] $0)} $2)
diff --git a/clojure-mode/require b/clojure-mode/require
@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: require
+# key: require
+# expand-env: ((yas-triggers-in-field nil))
+# --
+(:require [$1 :as $2])$>
diff --git a/clojure-mode/test b/clojure-mode/test
@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: test
+# key: test
+# --
+(deftest $1
+  (is (= $2))$>
+  $0)$>
diff --git a/clojure-mode/try b/clojure-mode/try
@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# name: try
+# key: try
+# --
+(try
+$1$>
+(catch ${2:Exception} e$>
+$3$>))$>
diff --git a/clojure-mode/use b/clojure-mode/use
@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: use
+# key: use
+# expand-env: ((yas-triggers-in-field nil))
+# --
+(:use [$1 :refer [$2]])$>
diff --git a/clojure-mode/when b/clojure-mode/when
@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: when
+# key: when
+# --
+(when $1
+      $2)$>
+$0$>
diff --git a/clojure-mode/whenl b/clojure-mode/whenl
@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# -*- coding: utf-8 -*-
+# name: whenl
+# key: whenl
+# --
+(when-let [$1 $2]
+  $3)$>
+  $0$>
