Welcome to the CHICKEN Scheme pasting service

Mountable USB devices (udev) added by mario-goulart on Thu Jul 10 20:01:25 2014

(use extras srfi-1)
(use udev)

(define (mountable-device? dev)
  (and (equal? (udev-device-type dev) "partition")
       (equal? (udev-device-subsystem dev) "block")))

(define (usb-device? dev)
  (and (udev-device-parent-with-subsystem-devtype dev "usb" "usb_device")
       #t))

(print "===== Mountable USB devices\n")

(pp (filter (conjoin mountable-device? usb-device?)
            (udev-list-devices)))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Name of the egg which implements this service:
Visually impaired? Let me spell it for you (wav file) download WAV