dotfiles

config files and scripts at HOME.
git clone git://git.ricketyspace.net/dotfiles.git
Log | Files | Refs

commit 3866fc0ac6fda9635f3902b4021cb7ab8fa145ef
parent 8639caf249a5c747eade38b17bacc5ffdf9fbba6
Author: rsiddharth <s@ricketyspace.net>
Date:   Thu, 15 Feb 2018 01:52:44 +0000

.stumpwmrc: Refactor mpd keybindings again. Fuck it.

Diffstat:
.stumpwmrc | 26+++++++++++++-------------
1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/.stumpwmrc b/.stumpwmrc @@ -49,6 +49,10 @@ ;; key bindings (defparameter *s/key-bindings* (let ((m (make-sparse-keymap))) + ;; mpd + (define-key m (kbd "t") "exec mpc seek -10") + (define-key m (kbd "n") "exec mpc seek +10") + (define-key m (kbd "s") "s/mpc-status") ;; emacs client (define-key m (kbd "e") "exec ec") ;; browsers @@ -60,22 +64,18 @@ (define-key m (kbd "i") "s/local-ip") m)) -;; mpd key bindings -(defparameter *s/mpd-key-bindings* - (let ((m (make-sparse-keymap))) - (define-key m (kbd "t") "exec mpc toggle") - (define-key m (kbd "n") "exec mpc next") - (define-key m (kbd "p") "exec mpc prev") - (define-key m (kbd "a") "exec mpc seek -10") - (define-key m (kbd "u") "exec mpc seek +10") - (define-key m (kbd "s") "s/mpc-status") - m)) - +;; root map (define-key *root-map* (kbd ".") '*s/key-bindings*) -(define-key *root-map* (kbd ",") '*s/mpd-key-bindings*) + +;; top map +(define-key *top-map* (kbd "XF86ScreenSaver") "exec i3lock") + +(define-key *top-map* (kbd "XF86AudioPlay") "exec mpc toggle") +(define-key *top-map* (kbd "XF86AudioNext") "exec mpc next") +(define-key *top-map* (kbd "XF86AudioPrev") "exec mpc prev") + (define-key *top-map* (kbd "XF86AudioLowerVolume") "amixer-Master-1-") (define-key *top-map* (kbd "XF86AudioRaiseVolume") "amixer-Master-1+") -(define-key *top-map* (kbd "XF86ScreenSaver") "exec i3lock") ;; override default bindings (define-key *root-map* (kbd "a") "s/date")