From 04808e7251e22742fdf975c22e84b8c03be21fd4 Mon Sep 17 00:00:00 2001 From: Ben Mabey Date: Sun, 11 Aug 2013 15:26:09 -0600 Subject: [PATCH 1/3] adds comment and some destructuring snippets --- snippets/clojure-mode/com | 6 ++++++ snippets/clojure-mode/keys | 4 ++++ snippets/clojure-mode/kf | 4 ++++ snippets/clojure-mode/letk | 7 +++++++ 4 files changed, 21 insertions(+) create mode 100644 snippets/clojure-mode/com create mode 100644 snippets/clojure-mode/keys create mode 100644 snippets/clojure-mode/kf create mode 100644 snippets/clojure-mode/letk 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 From 12283d66ae373c35c207fd605563b429cf0d2c7f Mon Sep 17 00:00:00 2001 From: Ben Mabey Date: Mon, 2 Dec 2013 11:02:58 -0700 Subject: [PATCH 2/3] req trigger for require... --- snippets/clojure-mode/require | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 From c96bfb793155d3602a643a73c97c1c54de9ee8e6 Mon Sep 17 00:00:00 2001 From: Ben Mabey Date: Mon, 2 Dec 2013 11:03:14 -0700 Subject: [PATCH 3/3] adds pragma and test ns helpers --- snippets/clojure-mode/pragma | 8 ++++++++ snippets/clojure-mode/tns | 36 ++++++++++++++++++++++++++++++++++++ 2 files changed, 44 insertions(+) create mode 100644 snippets/clojure-mode/pragma create mode 100644 snippets/clojure-mode/tns 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/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