(use extras dbus)

(define udisks-context
  (make-context
   bus: system-bus
   interface: 'org.freedesktop.UDisks
   service: 'org.freedesktop.UDisks
   path: '/org/freedesktop/UDisks))

;; This works
;; (print (call udisks-context "EnumerateDevices"))

(enable-polling-thread! bus: system-bus)

(register-method udisks-context "DeviceAdded"
                 (lambda args
                   (printf "DeviceAdded args: ~S" args)))

(poll-for-message bus: system-bus)


;; $ csi -s udisks.scm
;;
;; Error: (assq) bad argument type: #f
;;
;;         Call history:
;;
;;         <syntax>          (##core#quote org.freedesktop.UDisks)
;;         <syntax>          (quote org.freedesktop.UDisks)
;;         <syntax>          (##core#quote org.freedesktop.UDisks)
;;         <syntax>          (quote /org/freedesktop/UDisks)
;;         <syntax>          (##core#quote /org/freedesktop/UDisks)
;;         <eval>    (make-context bus: system-bus interface: (quote org.freedesktop.UDisks) service: (quote org.freedesk......
;;         <syntax>          (enable-polling-thread! bus: system-bus)
;;         <eval>    (enable-polling-thread! bus: system-bus)
;;         <syntax>          (register-method udisks-context "DeviceAdded" (lambda args (printf "DeviceAdded args: ~S" args)))
;;         <syntax>          (lambda args (printf "DeviceAdded args: ~S" args))
;;         <syntax>          (##core#lambda args (printf "DeviceAdded args: ~S" args))
;;         <syntax>          (##core#begin (printf "DeviceAdded args: ~S" args))
;;         <syntax>          (printf "DeviceAdded args: ~S" args)
;;         <eval>    (register-method udisks-context "DeviceAdded" (lambda args (printf "DeviceAdded args: ~S" args)))
;;         <syntax>          (poll-for-message bus: system-bus)
;;         <eval>    (poll-for-message bus: system-bus)    <--