UDisks: A toy cl udisks bindings

Mostly centered in block_devices

UDisks Manager for Stumpwm

Setup

Copy or symlink the stumpwm/udisks-manager.lisp over to your stumpwm plugins directory and add the following code to your .stumpwmrc file

;;Load the module and dependences
(ql:quickload "udisks")
(load-module "udisks-manager")

;;Handy commands
(stumpwm:defcommand show-devices () ()
  "Show devices"
  (stumpwm-udisks:show-devices-menu))

(stumpwm:defcommand launch-udisks-manager () ()
  "Launch (or relaunch) udisk manager"
  (stumpwm-udisks:udisks-manager-launch))

;;optional: use another file manager
(setf stumpwm-udisks:*dir-open-command* "sakura -e mc ~s")
(setf stumpwm-udisks:*dir-open-command* "thunar ~s");etc

;; Launch at init
(launch-udisks-manager)

Screenshots