 
 
 (defn print-conf []
-  (dump (conf)))+  (dump (conf)))
+
+
+(defn roles []
+  (.getAllRoles (auth-mapper)))
+
+(defn users []
+  (.getUsers (auth-mapper) true true))
+
+(defn users-info []
+  (for [u (users)] {:id (.getId u), :name (.getLoginName u), :password (.getPassword u)}))
(defn doc-mapper []
  (.getDocumentMapper (services)))

(defn langs []
  (.getLanguages (i18n-support)))


  "Loads all documents from database to the cache. Use with care.
   Returns nil."
  []
  (doseq [doc-fn [working-doc default-doc], id (doc-ids), lang (langs)]
    (doc-fn id lang)))


(defn unload-docs
  "Unloads doc(s) with the given id(s) from the cache.
   Returns nil."
  [id & ids]
  (let [cache (doc-cache)]
    (doseq [doc-id (cons id ids)] (.removeDocumentFromCache cache doc-id))))


(defn clear-cache []
  (.clearCache (doc-cache)))


(defn loaded-docs-info
