m0smith

(require '[clojure.test.check.random :as random] 
         '[clojure.test.check.generators :as gen] 
         '[clojure.test.check.rose-tree :as rt])

(defn shrinks 
  "Shows how a generator will shrink"
  ([g] (shrinks g 10 10))
  ([g size] (shrinks g size 10))
  ([g size sample] (take sample (distinct (map rt/root 
     (tree-seq (fn [_] true) rt/children (gen/call-gen g (random/make-random) size)))))))

m0smith

(require '[clojure.test.check.generators :as gen])
(require '[clojure.string :refer [join]])
(require '[schema-generators.generators :as g])
(require '[schema.core :as s])

(def IP String)

#_(def IP (s/named String "IP"))

m0smith

(ns bug-demo
  (:require [datomic.ion.cast :as cast]
            [clojure.java.io :refer [output-stream]]))

(cast/initialize-redirect :stderr) ; instead of :stdout
(cast/event {:msg "ShouldNotCauseAStackOverflowErrorInCider"})

m0smith

(ns bug-demo
  (:require [datomic.ion.cast :as cast]
            [clojure.java.io :refer [output-stream]]))

(cast/initialize-redirect :stdout)
(cast/event {:msg "ShouldNotCauseAStackOverflowErrorInCider"})

m0smith

  :kaocha {:extra-paths ["test"]
      :extra-deps {lambdaisland/kaocha {:mvn/version "0.0-529"}
                   lambdaisland/kaocha-junit-xml {:mvn/version "0.0-70"}
                   lambdaisland/kaocha-cloverage {:mvn/version "0.0-32"}
                   cloverage {:mvn/version "RELEASE"}
                   }
      :main-opts ["-m" "kaocha.runner" 
                  "--plugin" "kaocha.plugin/junit-xml"
                  "--plugin" "cloverage" "--no-cov-summary"
                  "--junit-xml-file" "target/test-results/junit.xml"]}

m0smith

#!/usr/local/bin/python

import os
import subprocess
import sys

commands ={ ".svn" : ["svn","-u","status"],
            ".git" : ["git", "status"] }

def parent_dirs(f_or_d):

m0smith

(defun list-to-hash (coll)
  (let ((rtnval (make-hash-table :test 'equal)))
    (cl-loop for r across coll
             when r
             do (puthash (elt r 1) nil rtnval))
    rtnval))
  

(defun jdee-open-source-resource-in-archive-p (archive resource)
  ""

m0smith

Groovy Shell (2.3.7, JVM: 1.7.0_45)
Type ':help' or ':h' for help.

groovy:000> 
     malabar = { classLoader = new groovy.lang.GroovyClassLoader(); 
         Map[] grapez = [[group: 'com.software-ninja' , module:'malabar', version:'2.3.2-SNAPSHOT']]; 
         groovy.grape.Grape.grab(classLoader: classLoader, grapez);
         classLoader.loadClass('com.software_ninja.malabar.MalabarStart').newInstance().startCL(classLoader); }; 
     malabar();
groovy:000>      malabar = { classLoader = new groovy.lang.GroovyClassLoader(); 

m0smith

(require 'flycheck)


(defun malabar-flycheck-command ( checker cback )
  "Use flycheck to search the current buffer for compiler errrors."
  (if (not (comint-check-proc "*groovy*"))
      (funcall cback 'finished nil)
    (let* ((pom (ede-find-project-root "pom.xml"))
	   (pom-path (format "%spom.xml" pom))
	   (script (if (buffer-modified-p) (buffer-file-name) (buffer-file-name))))

m0smith

(defnctx-keys foo [db]
  (update! db "foo")))
 
(defnctx app [_ (foo)])
 
(apply-ctx app (init-context))