alf-clojure.clj

(ns skuro.alfresco.clojure
	    :import (org.alfresco.util ApplicationContextHelper ApplicationContextHelper$RunAsWork)
                    (org.alfresco.repo.transaction RetryingTransactionHelper RetryingTransactionHelper$RetryingTransactionCallback))

;; this is problematic: it looks like swank is launched in a separated class loader!
;; this usually results in the spring ctx to be recreated
(def ctx (. ApplicationContextHelper getApplicationContext))

(defn run-as [user work]
	    (. AuthenticationUtil runAs
	       (proxy [AuthenticationUtil$RunAsWork] []
		      (doWork []
			      (work))) user))

(defn get-root-node [store]
	(let [nodeService (. ctx getBean "nodeService")]
          (. nodeService getRootNode store)))

(defn in-transaction [callback]
	(let [callback-impl (proxy [RetryingTransactionHelper$RetryingTransactionCallback] []
				   (execute []
					    (callback)))]
	     (. RetryingTransactionHelper doInTransaction callback-impl)))