Adding writers to filefolder

I used the following to verify. Only real difference in putting the content to file is the af/write! instead of ac/write! The content.clj can still be used for advanced use cases. But as we already know now it doesnt handle mime type. Maybe, we could make a contentless document content url when we are creating the document, e.g. using the string write! below when we create the document with empty string. For example contentWriter.guessMimetype(filename) and then write! "".

user=> (at/in-tx-as (aa/admin)
  #_=>   (let [test-folder-name "test"
  #_=>         test-folder      (af/find-by-path test-folder-name (an/company-home))
  #_=>         test-folder      (if test-folder
  #_=>                            test-folder
  #_=>                            (af/create! (an/company-home) test-folder-name org.alfresco.model.ContentModel/TYPE_FOLDER))
  #_=>         test-file        (af/create! test-folder (str "test-" (.getTime (java.util.Date.)) ".txt"))] 
  #_=>     (an/add-aspect! test-file "cm:versionable" nil)
  #_=>     (af/write! "The quick brown fox jumps over the lazy dog." test-file)
  #_=>     nil))
Custom behaviour called with 2 args:
 Type: class org.alfresco.service.cmr.repository.NodeRef, Value: workspace://SpacesStore/d28f6dbe-0822-4741-ace6-a62b6b0b0a73
Type: class org.alfresco.service.namespace.QName, Value: {http://www.alfresco.org/model/content/1.0}versionable
nil
user=> (require '[alfresco.nodes :as n])

user=> (clojure.pprint/pprint
  #_=>        (a/as-admin
  #_=>         (n/properties (NodeRef. "workspace://SpacesStore/d28f6dbe-0822-4741-ace6-a62b6b0b0a73"))))
{#<QName {http://www.alfresco.org/model/content/1.0}created>
 #inst "2014-12-16T20:07:16.449-00:00",
.....
....... contentUrl=store://2014/12/16/21/7/225020b8-351d-435e-9d17-91a98291b419.bin|mimetype=text/plain|size=44|encoding=UTF-8|locale=en_GB_|id=224....
....
nil