Merge branch 'master' of github.com:mpenet/clojure-snippets

clojure-snippets.el

@@ -5,7 +5,7 @@
 ;; Author: Max Penet <m@qbits.cc>
 ;; Keywords: snippets
 ;; Version: 1.0.0
-;; Package-Requires: ((yasnippet "0.8.0"))
+;; Package-Requires: ((yasnippet "0.8.0") (cl-lib "0.5"))
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by

snippets/clojure-mode/ns

@@ -2,21 +2,21 @@
 # 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)))`)
+(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)))`)