Install yasnippet and vala-snippets packages

This commit is contained in:
Gergely Polonkai
2016-10-20 10:20:38 +02:00
parent d1468f35a7
commit a498706564
1085 changed files with 12052 additions and 0 deletions

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@@ -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)))`)

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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