clojure skeletons (test requires need review)

1 files changed, 82 insertions, 0 deletions

diff --git a/lib/prog/jao-clojure.el b/lib/prog/jao-clojure.el
index 827c47d..796c35d 100644
--- a/lib/prog/jao-clojure.el
+++ b/lib/prog/jao-clojure.el
@@ -26,6 +26,8 @@
 
 (require 'clojure-mode)
 (require 'project)
+(require 'cider-test)
+(require 'jao-skel)
 
 ;;;; Jumping between implementation and test files
 (defun jao-clojure--ext-dir (prefix)
@@ -100,5 +102,85 @@
       (jao-clojure-jump-to-implementation)
     (jao-clojure-jump-to-test)))
 
+(defun jao-clojure--setup-compilation (&optional ns)
+  ;; (set (make-local-variable 'compile-command) (jao-clojure--test-str ns))
+  )
+
+;;;; Skeletons
+(defconst jao-clojure--ns-destruct-rx
+  (format "\\(?:%s\\|tests?\\)\\.\\(?:clj[cs]?\\.\\)?\\(.+\\)"
+          (regexp-opt jao-clojure--src-candidates)))
+
+(defun jao-clojure-buffer-namespace ()
+  (let* ((ddir (jao-compilation-root))
+         (mbase (and ddir
+                     (concat (replace-regexp-in-string "/" "." ddir) ".")))
+         (mbase (and mbase
+                     (string-match jao-clojure--ns-destruct-rx mbase)
+                     (match-string 1 mbase))))
+    (concat (or mbase "")
+            (replace-regexp-in-string "_" "-" (jao-skel-basename)))))
+
+(defvar jao-clojure--test-check-lines
+  (concat "[clojure.test.check :as tc]\n                  "
+          "[clojure.test.check.generators :as gen]\n        "
+          "[clojure.test.check.properties :as prop :include-macros true]\n"))
+
+(defun jao-clojure--cljs-test-reqs (prefix-cmp last-cmp test-check)
+  (concat "  (:require [cljs.test :as t :refer-macros [is deftest async]]"
+          "\n          [" prefix-cmp "." last-cmp " :as " last-cmp "])"))
+
+(defun jao-clojure--clj-test-reqs (prefix-cmp last-cmp test-check)
+  (format "(:use clojure.test)\n  (:require %s(%s [%s :as %s]))"
+          (if test-check
+              (concat "(clojure.test.check [clojure-test :refer [defspec]])\n"
+                      jao-clojure--test-check-lines)
+            "")
+          prefix-cmp last-cmp last-cmp))
+
+(defun jao-clojure--cljc-test-reqs (prefix-cmp last-cmp test-check)
+  (concat "(:require #?(:clj [clojure.test :as t :refer [is deftest]]\n"
+          "               :cljs [cljs.test :as t :refer-macros [is deftest]])\n"
+          (when test-check
+            (concat "            [clojure.test.check-clojure-test #?@("
+                    ":cljs [:refer-macros [defspec]]\n"
+                    ":clj [:refer [defspec]))]\n"
+                    jao-clojure--test-check-lines))
+          "           [" prefix-cmp "." last-cmp " :as " last-cmp "])"))
+
+(defun jao-clojure--skel-ns-contents (ns)
+  (if (jao-clojure--test-namespace-p ns)
+      (let ((test-check (y-or-n-p "Include test.check requires? "))
+            (ns (concat (match-string 1 ns) (match-string 3 ns))))
+        (let* ((cmps (split-string ns "\\."))
+               (last-cmp (car (last cmps)))
+               (prefix-cmp (mapconcat 'identity (butlast cmps) "."))
+               (ext (file-name-extension buffer-file-name)))
+          (cond ((string= "cljs" ext)
+                 (jao-clojure--cljs-test-reqs prefix-cmp last-cmp test-check))
+                ((string= "cljc" ext)
+                 (jao-clojure--cljc-test-reqs prefix-cmp last-cmp test-check))
+                ((string= "clj" ext)
+                 (jao-clojure--clj-test-reqs prefix-cmp last-cmp test-check)))))
+    (format "%S" (read-string "Brief module description: "))))
+
+(define-skeleton jao-clojure-skeleton
+  "Standard Clojure module file skeleton"
+  ""
+  (jao-skel-copyright-line ";; ")
+  \n
+  (jao-skel-author-line ";; Author: ")
+  (jao-skel-date-line ";; Start date: ")
+  \n '(setq v1 (jao-clojure-buffer-namespace))
+  _ "(ns " v1
+  '(jao-clojure--setup-compilation v1)
+  \n (jao-clojure--skel-ns-contents v1) ")"
+  \n
+  '(ignore-errors (indent-region (region-beginning) (region-end)))
+  >  -)
+
+(jao-skel-install "\\.clj[sc]?$" 'jao-clojure-skeleton)
+
+
 (provide 'jao-clojure)
 ;;; jao-clojure.el ends here