+(define-public sbcl-stumpwm-numpad-layouts
+ (package
+ (inherit stumpwm-contrib)
+ (name "sbcl-stumpwm-numpad-layouts")
+ (arguments
+ '(#:asd-systems '("numpad-layouts")
+ #:tests? #f
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'chdir
+ (lambda _
+ (chdir "util/numpad-layouts"))))))
+ (home-page
+ "https://github.com/stumpwm/stumpwm-contrib/tree/master/util/numpad-layouts")
+ (synopsis "Keyboard numpad layouts for StumpWM")
+ (description "This is a module for handling different keyboards numpad
+layouts in StumpWM.")
+ (license license:gpl3+)))
+
+(define-public sbcl-stumpwm-cpu
+ (package
+ (inherit stumpwm-contrib)
+ (name "sbcl-stumpwm-cpu")
+ (arguments
+ '(#:asd-systems '("cpu")
+ #:tests? #f
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'chdir
+ (lambda _
+ (chdir "modeline/cpu"))))))
+ (home-page
+ "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/cpu")
+ (synopsis "Modeline support for CPU info")
+ (description "Modeline support for CPU info.")
+ (license license:gpl3+)))
+
+(define-public sbcl-stumpwm-disk
+ (package
+ (inherit stumpwm-contrib)
+ (name "sbcl-stumpwm-disk")
+ (arguments
+ '(#:asd-systems '("disk")
+ #:tests? #f
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'chdir
+ (lambda _ (chdir "modeline/disk") #t)))))
+ (inputs
+ `(("stumpwm" ,stumpwm "lib")
+ ("cl-diskspace" ,sbcl-cl-diskspace)
+ ("cl-mount-info" ,sbcl-cl-mount-info)))
+ (home-page "https://github.com/stumpwm/stumpwm-contrib")
+ (synopsis "StumpWM modeline support to show disk usage")
+ (description "StumpWM modeline support to show disk usage")
+ (license (list license:gpl2+ license:gpl3+))))
+
+(define-public sbcl-stumpwm-mem
+ (package
+ (inherit stumpwm-contrib)
+ (name "sbcl-stumpwm-mem")
+ (arguments
+ '(#:asd-systems '("mem")
+ #:tests? #f
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'chdir
+ (lambda _
+ (chdir "modeline/mem"))))))
+ (home-page
+ "https://github.com/stumpwm/stumpwm-contrib/tree/master/modeline/mem")
+ (synopsis "Modeline support for memory info")
+ (description "Modeline support for memory info.")
+ (license license:gpl3+)))
+
+(define-public sbcl-stumpwm-winner-mode
+ (package
+ (inherit stumpwm-contrib)
+ (name "sbcl-stumpwm-winner-mode")
+ (arguments
+ '(#:asd-systems '("winner-mode")
+ #:tests? #f
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'chdir
+ (lambda _
+ (chdir "util/winner-mode"))))))
+ (home-page
+ "https://github.com/stumpwm/stumpwm-contrib/tree/master/util/winner-mode")
+ (synopsis "Emacs' winner-mode for StumpWM")
+ (description "This module provides a winner-mode for StumpWM similar to the
+one in Emacs.")
+ (license license:gpl3+)))
+
+(define-public sbcl-stumpwm-screenshot
+ (package
+ (inherit stumpwm-contrib)
+ (name "sbcl-stumpwm-screenshot")
+ (inputs
+ `(("stumpwm" ,stumpwm "lib")
+ ("zpng" ,sbcl-zpng)))
+ (arguments
+ '(#:asd-systems '("screenshot")
+ #:tests? #f
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'chdir
+ (lambda _
+ (chdir "util/screenshot")))
+ (add-after 'chdir 'fix-build
+ (lambda _
+ (substitute* "screenshot.asd"
+ (("#:zpng")
+ "#:stumpwm #:zpng")))))))
+ (home-page
+ "https://github.com/stumpwm/stumpwm-contrib/tree/master/util/screenshot")
+ (synopsis "Screenshots for StumpWM")
+ (description "This StumpWM module can take screenshots and store them as
+PNG files.")
+ (license license:gpl3+)))
+