Skip to content
A like mouseless music player with lyrics
Common Lisp Shell CSS
Branch: master
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Type Name Latest commit message Commit time
Failed to load latest commit information.

muse - a like mouseless music player with lyrics


Use the artist database together with youtube links to implement a music player that acts similary to but that can be interacted with without using the mouse. The main idea is a local database with content parsed from and a localhost web server that can be called to play songs from youtube using and interacting with mpv behind the scenes. The interaction with the web server can be done directly from a web browser (which kinda defeats the purpose) or with a window manager like stumpwm, for example, or by using dmenu. As an extra feature, songs can be searched and played based on their lyrics, again without resorting to a web browser or a mouse.

Release status

This project is not officially released yet. Some features are already implemented but some improvements and features are definitely needed or desired. Still, I feel I need to up my Common Lisp game before I tackle anything more serious than this. See the discussion and details in the linked article.


Make sure ql:quickload can find this repo by cloning it in this location

git clone ~/quicklisp/local-projects/muse

Start a REPL and load it

(ql:quickload :muse)

Or from the command line,

sbcl --quit --eval "(ql:quickload :muse)"


For stumpwm, the commands to control the player are already there. Copy the muse-stump folder to stumpwm's modules folder.

cp ~/quicklisp/local-projects/muse/muse-stump ~/.stumpwm.d/modules

After that, the muse module can be loaded in your ``init.lisp` file with

(load-module "muse-stump")

The following commands can then be keybinded to whatever you like. For exemple,

(defvar *muse-map* (make-sparse-keymap))
(define-key *root-map* (kbd "m") '*muse-map*)
(define-key *muse-map* (kbd "v") "continue-with-video")
(define-key *muse-map* (kbd "w") "what-is-playing")
(define-key *muse-map* (kbd "l") "song-lyrics")
(define-key *muse-map* (kbd "p") "play-artist")
(define-key *muse-map* (kbd "s") "toggle-shuffle")
(define-key *top-map* (kbd "XF86AudioPlay") "play")
(define-key *top-map* (kbd "XF86AudioPrev") "previous-song")
(define-key *top-map* (kbd "XF86AudioNext") "next-song")
(define-key *top-map* (kbd "XF86AudioStop") "stop-player")


Test for interacting with the mpv music player are available. These actually load youtube urls and start playing videos thus testing the actual player functionality. These take longer and are thus specified seperately. The no-dependency-tests are all the tests minus these mpv tests.

Run all tests

sbcl --quit --eval "(asdf:test-system :muse)"`

Run mpv tests

sbcl --quit --eval "(ql:quickload :muse/tests)" --eval "(fiveam:run! :mpv-tests)"`

Run tests with no outside dependencies

sbcl --quit --eval "(ql:quickload :muse/tests)" --eval "(fiveam:run! :no-dependency-tests)"


You can’t perform that action at this time.