import a few clojure and elixir snippets

clojure-mode/.yas-parents

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

clojure-mode/bench

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

clojure-mode/bp

@@ -0,0 +1,4 @@
+# name: bp
+# key: bp
+# --
+(swank.core/break)

clojure-mode/def

@@ -0,0 +1,4 @@
+# name: def
+# key: def
+# --
+(def $0)

clojure-mode/defm

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

clojure-mode/defn

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

clojure-mode/defr

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

clojure-mode/deft

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

clojure-mode/doseq

@@ -0,0 +1,6 @@
+# name: doseq
+# key: doseq
+# --
+(doseq [$1 $2]
+  $3)$>
+$0

clojure-mode/fn

@@ -0,0 +1,5 @@
+# name: fn
+# key: fn
+# --
+(fn [$1]
+  $0)$>

clojure-mode/for

@@ -0,0 +1,5 @@
+# name: for
+# key: for
+# --
+(for [$1 $2]
+  $3)$>

clojure-mode/if

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

clojure-mode/ifl

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

clojure-mode/import

@@ -0,0 +1,4 @@
+# name: import
+# key: import
+# --
+(:import ($1))$>

clojure-mode/is

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

clojure-mode/let

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

clojure-mode/map

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

clojure-mode/map.lambda

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

clojure-mode/mdoc

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

clojure-mode/ns

@@ -0,0 +1,22 @@
+# -*- coding: utf-8 -*-
+# name: ns
+# key: ns
+# --
+(ns `(flet ((try-src-prefix
+	  (path src-pfx)
+	  (let ((parts (split-string path src-pfx)))
+	    (if (= 2 (length parts))
+		(second parts)
+	      nil))))
+    (let* ((p (buffer-file-name))
+           (p2 (first
+		(remove-if-not '(lambda (x) x)
+			       (mapcar
+				'(lambda (pfx)
+				   (try-src-prefix p pfx))
+				'("/src/cljs/" "/src/clj/" "/src/")))))
+	   (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,6 @@
+# key: opts
+# name: opts
+# --
+{:keys [$1]$>
+ :or {$2}$>
+ :as $3}$>

clojure-mode/pr

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

clojure-mode/print

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

clojure-mode/reduce

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

clojure-mode/require

@@ -0,0 +1,4 @@
+# name: require
+# key: require
+# --
+(:require [$1 :as $2])$>

clojure-mode/test

@@ -0,0 +1,6 @@
+# name: test
+# key: test
+# --
+(deftest $1
+  (is (= $2))$>
+  $0)$>

clojure-mode/try

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

clojure-mode/use

@@ -0,0 +1,4 @@
+# name: use
+# key: use
+# --
+(:use [$1 :refer [$2]])$>

clojure-mode/when

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

clojure-mode/whenl

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

elixir-mode/.yas-parents

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

elixir-mode/case

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: case
+# key: case
+# --
+case $1 do
+  $0
+end

elixir-mode/cond

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: cond
+# key: cond
+# --
+cond do
+  $0
+end

elixir-mode/def

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: def
+# key: def
+# --
+def ${1:method}${2:(${3:args})} do
+  $0
+end

elixir-mode/defmacro

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: defmacro
+# key: defmacro
+# --
+defmacro $1 do
+	$0
+end

elixir-mode/defmacrop

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: defmacrop
+# key: defmacrop
+# --
+defmacrop $1 do
+	$0
+end

elixir-mode/defmodule

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: defmodule
+# key: defmodule
+# --
+defmodule $1 do
+	$0
+end

elixir-mode/defp

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: defp
+# key: defp
+# --
+defp $1 do
+	$0
+end

elixir-mode/doc

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: doc
+# key: doc
+# --
+@doc """
+$0
+"""

elixir-mode/mdoc

@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: moduledoc
+# key: mdoc
+# --
+@moduledoc """
+$0
+"""