(use goo)

(use util/net/mail/cclient)
(use util/net/mail/cclientx.swig)

(use samurui/samurui)

;; Provides SamurUI related functionality for the c-client abstraction layer.

;; How things should fall out for treeview:
;; Mailbox (label: title)
;;  Messages (label: subject)


(dc <cclient-visicol> (<visi-col>))

(dm get-start-node (ccv|<cclient-visicol> => <any>)
  
  )

(dm node-label (ccv|<cclient-visicol> node|<any> => <str>)
  )

(dm node-weight (ccv|<cclient-visicol> node|<any> => <flo>)
  )

(dm node-browsable (ccv|<cclient-visicol> node|<any> => <log>)
  )

(dm register-node-add-notification(ccv|<cclient-visicol> to-call)
  #f
  )

(dm remove-node-add-notification (ccv|<cclient-visicol> was-called)
  #f
)

(dm register-edge-add-notification(ccv|<cclient-visicol> to-call)
  #f
  )

(dm remove-edge-add-notification (ccv|<cclient-visicol> was-called)
  #f
)

(dm node-axes (ccv|<cclient-visicol> => <col>)
  )

(dm node-out-edges (ccv|<cclient-visicol> axis node => <col>)
  )

(dm node-in-edges (ccv|<cclient-visicol> axis node => <col>)
  )