[StumpWM] Fix ncmpcpp keybinds
This commit is contained in:
parent
f81518ddd2
commit
3e140e7302
@ -1753,20 +1753,20 @@ Then, let’s declare a keymap for our media controls.
|
||||
|
||||
#+name: media-management
|
||||
#+caption: ~*my-media-keymap*~
|
||||
| Keychord | Function |
|
||||
|----------+-----------------------------|
|
||||
| ~.~ | ~media-interactive~ |
|
||||
| ~«~ | ~mpd-prev~ |
|
||||
| ~»~ | ~mpd-next~ |
|
||||
| ~a~ | ~'*my-mpd-add-map*~ |
|
||||
| ~b~ | ~'*my-mpd-browse-map*~ |
|
||||
| ~c~ | ~mpd-clear~ |
|
||||
| ~m~ | ~mpc-interactive~ |
|
||||
| ~p~ | ~mpd-toggle-pause~ |
|
||||
| ~s~ | ~mpd-stop~ |
|
||||
| ~u~ | ~mpd-update~ |
|
||||
| ~N~ | ~term ncmpcpp -q~ |
|
||||
| ~v~ | ~term ncmpcpp -qs visualizer~ |
|
||||
| Keychord | Function |
|
||||
|----------+-----------------------------------|
|
||||
| ~.~ | ~media-interactive~ |
|
||||
| ~«~ | ~mpd-prev~ |
|
||||
| ~»~ | ~mpd-next~ |
|
||||
| ~a~ | ~'*my-mpd-add-map*~ |
|
||||
| ~b~ | ~'*my-mpd-browse-map*~ |
|
||||
| ~c~ | ~mpd-clear~ |
|
||||
| ~m~ | ~mpc-interactive~ |
|
||||
| ~p~ | ~mpd-toggle-pause~ |
|
||||
| ~s~ | ~mpd-stop~ |
|
||||
| ~u~ | ~mpd-update~ |
|
||||
| ~N~ | ~exec kitty ncmpcpp -q~ |
|
||||
| ~v~ | ~exec kitty ncmpcpp -qs visualizer~ |
|
||||
|
||||
Let’s translate this table in CommonLisp:
|
||||
#+begin_src lisp
|
||||
@ -1872,7 +1872,7 @@ games and the bépo layout most of the time. I’ll use the command
|
||||
"\n")
|
||||
#+end_src
|
||||
|
||||
#+RESULTS[a20994f97465549466dd676b4b452593194e0495]: keybinds-gen
|
||||
#+RESULTS[017aa07fd2bba7a85e92534b1a46ef338d683af5]: keybinds-gen
|
||||
#+begin_src lisp :exports none
|
||||
(define-key m (kbd ".") "media-interactive")
|
||||
(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 "s") "mpd-stop")
|
||||
(define-key m (kbd "u") "mpd-update")
|
||||
(define-key m (kbd "N") "term ncmpcpp -q")
|
||||
(define-key m (kbd "v") "term ncmpcpp -qs visualizer")
|
||||
(define-key m (kbd "N") "exec kitty ncmpcpp -q")
|
||||
(define-key m (kbd "v") "exec kitty ncmpcpp -qs visualizer")
|
||||
#+end_src
|
||||
|
||||
#+name: interactive-gen
|
||||
|
Loading…
Reference in New Issue
Block a user