phundrak/dotfiles
1
0
Fork 0
Code Issues Pull Requests Activity

[StumpWM] Fix ncmpcpp keybinds

Browse Source
This commit is contained in:
Lucien Cartier-Tilet 2022-04-02 15:04:50 +02:00
parent f81518ddd2
commit 3e140e7302
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
org/config/stumpwm.org
View File

@ -1754,7 +1754,7 @@ Then, let’s declare a keymap for our media controls.
#+name: media-management #+name: media-management
#+caption: ~*my-media-keymap*~ #+caption: ~*my-media-keymap*~
| Keychord | Function | | Keychord | Function |
|----------+-----------------------------| |----------+-----------------------------------|
| ~.~ | ~media-interactive~ | | ~.~ | ~media-interactive~ |
| ~«~ | ~mpd-prev~ | | ~«~ | ~mpd-prev~ |
| ~»~ | ~mpd-next~ | | ~»~ | ~mpd-next~ |
@ -1765,8 +1765,8 @@ Then, let’s declare a keymap for our media controls.
| ~p~ | ~mpd-toggle-pause~ | | ~p~ | ~mpd-toggle-pause~ |
| ~s~ | ~mpd-stop~ | | ~s~ | ~mpd-stop~ |
| ~u~ | ~mpd-update~ | | ~u~ | ~mpd-update~ |
| ~N~ | ~term ncmpcpp -q~ | | ~N~ | ~exec kitty ncmpcpp -q~ |
| ~v~ | ~term ncmpcpp -qs visualizer~ | | ~v~ | ~exec kitty ncmpcpp -qs visualizer~ |
Let’s translate this table in CommonLisp: Let’s translate this table in CommonLisp:
#+begin_src lisp #+begin_src lisp
@ -1872,7 +1872,7 @@ games and the bépo layout most of the time. I’ll use the command
"\n") "\n")
#+end_src #+end_src
#+RESULTS[a20994f97465549466dd676b4b452593194e0495]: keybinds-gen #+RESULTS[017aa07fd2bba7a85e92534b1a46ef338d683af5]: keybinds-gen
#+begin_src lisp :exports none #+begin_src lisp :exports none
(define-key m (kbd ".") "media-interactive") (define-key m (kbd ".") "media-interactive")
(define-key m (kbd "guillemotleft") "mpd-prev") (define-key m (kbd "guillemotleft") "mpd-prev")
@ -1884,8 +1884,8 @@ games and the bépo layout most of the time. I’ll use the command
(define-key m (kbd "p") "mpd-toggle-pause") (define-key m (kbd "p") "mpd-toggle-pause")
(define-key m (kbd "s") "mpd-stop") (define-key m (kbd "s") "mpd-stop")
(define-key m (kbd "u") "mpd-update") (define-key m (kbd "u") "mpd-update")
(define-key m (kbd "N") "term ncmpcpp -q") (define-key m (kbd "N") "exec kitty ncmpcpp -q")
(define-key m (kbd "v") "term ncmpcpp -qs visualizer") (define-key m (kbd "v") "exec kitty ncmpcpp -qs visualizer")
#+end_src #+end_src
#+name: interactive-gen #+name: interactive-gen