display.lisp 165 B

12345
  1. (in-package :stumpwm)
  2. (defcommand brightness (percentage) ((:number "Percentage: "))
  3. (run-shell-command (join (list "brightness" (write-to-string percentage)))))