This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defmacro defspec-test | |
([name sym-or-syms] `(defspec-test ~name ~sym-or-syms nil)) | |
([name sym-or-syms opts] | |
(when t/*load-tests* | |
`(def ~(vary-meta name assoc :test `(fn [] | |
(let [check-results# (clojure.spec.test/check ~sym-or-syms ~opts) | |
checks-passed?# (every? nil? (map :failure check-results#))] | |
(if checks-passed?# | |
(t/do-report {:type :pass | |
:message (str "Generative tests pass for " |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns myns.core | |
{:boot/export-tasks true} | |
(:require | |
[boot.core :as core] | |
[clojure.edn :as edn] | |
[clojure.java.io :as io])) | |
(core/deftask update-file | |
"Updates files whose path matches `match-files` with the value returned from `expr`. | |
`expr` is a function that takes the parsed content of the file and returns the new |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; Use experimental fork of DataScript from https://github.com/allgress/datascript to handle undo and per-query subscriptions | |
(ns reagent-test.core | |
(:require [reagent.core :as reagent :refer [atom]] | |
[datascript :as d] | |
[cljs-uuid-utils :as uuid])) | |
(enable-console-print!) | |
(defn bind | |
([conn q] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns reagent-test.core | |
(:require [reagent.core :as reagent :refer [atom]] | |
[datascript :as d] | |
[cljs-uuid-utils :as uuid])) | |
(enable-console-print!) | |
(defn bind | |
([conn q] | |
(bind conn q (atom nil))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(deftask add-webjar | |
"Adds a webjar asset. Example: (add-webjar :jar 'org.webjars.bower/jquery :name \"jquery\")" | |
[j jar sym "The jar" | |
n name str "The name"] | |
(comp | |
(sift :add-jar {jar #"^META-INF/resources/webjars"}) | |
(sift :move {(java.util.regex.Pattern/compile (str "^META-INF/resources/webjars/" name "/[^/]*/dist/")) (str name "-")}))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(set-env! | |
:source-paths #{"src" "test"} | |
:resource-paths #{"src" "test" "sass"} | |
:wagons '[[s3-wagon-private "1.1.2"]] | |
:repositories [["clojars" "http://clojars.org/repo/"] | |
["maven-central" "http://repo1.maven.org/maven2/"] | |
["releases" {:url "http://archiva:8080/repository/internal" | |
:username (System/getenv "ARCHIVA_USERNAME") | |
:password (System/getenv "ARCHIVA_PASSWORD")}] | |
["my.datomic.com" {:url "https://my.datomic.com/repo" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(set-env! | |
:resource-paths #{"resources"} | |
:dependencies '[[adzerk/bootlaces "0.1.10" :scope "test"] | |
[cljsjs/boot-cljsjs "0.5.0" :scope "test"]]) | |
(require '[adzerk.bootlaces :refer :all] | |
'[cljsjs.boot-cljsjs.packaging :refer :all]) | |
(def +version+ "1.0.2") | |
(bootlaces! +version+) |
NewerOlder