| 123456789101112131415161718192021 |
- (in-package :stumpwm)
- (defvar *streamlink-program* "streamlink")
- (defvar *streamlink-arguments* '("-p" "mpv"))
- (defvar *streamlink-player-arguments* nil)
- (defvar *streamlink-quality* "best")
- (defcommand xclip-streamlink () ()
- "Play video from clipboard with streamlink."
- (run-shell-command
- (join `(,*streamlink-program*
- ,@*streamlink-arguments*
- ,@(if *streamlink-player-arguments*
- `("--player-args" ,(single-quote-string
- (join *streamlink-player-arguments*
- #\ ))))
- ,(get-x-selection)
- ,*streamlink-quality*))))
|
