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))

m0smith

(defn foo* [context]
  (let [db (get context :db)]
    (update! db "foo")))


(defn app* [context]
  (let [_ (foo* context)]))

m0smith

(defn foo []
  (domonad reader-m [db (asks :db)]
    (update! db "foo")))

(defn app []
    (domonad reader-m [_ (foo)]))

((app) (init-context))

m0smith

 
(defn wrap-context [context]
  (let [db (:db context})]
    (letfn [ 
      (foo [] (update! db "foo"))
      (app [] (foo))]
   app)))
                 
 

m0smith

(defn foo [context]
  (let [db (:db context)]
    (update! db "foo")))  

(defn start-app [context]
  (foo context))

(start-app (init-context))

m0smith

(def ^:dynamic *context* {})

(defn foo []
  (let [db (:db *context*)]
    (update! db "foo"))) 

(defn start-app []
  (binding [*context* (init-context)]
    (foo)))