Alfresco repository tree-seq in Clojure

sample.clj

(ns alfresco.sample
  (:require [alfresco.nodes :as n]
            [alfresco.model :as m]
            [alfresco.auth :as a]))

;; Creates a tree-seq to navigate a repository sub branch
(defn ts
  [root]
  (a/as-admin ;; in a normal context, you should already be authenticated
    (let [user (a/whoami) ;; store the currently authenticated user, needed by the following closures
          branch? (fn [x] (a/run-as user
                                    (m/qname-isa? (n/type-qname x) (m/qname "cm:folder"))))
          children (fn [x] (a/run-as user
                                     (n/children x)))]
         (tree-seq branch? children root))))