dotfiles

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

commit 94180e9fbd46bf996627bbc3b229f7558cfc713e
parent 333678457ee14753e52ab2505ab1f4c80af8aba1
Author: rsiddharth <s@ricketyspace.net>
Date:   Tue, 27 Jun 2017 10:38:20 +0000

.stumpwmrc: Remove `stumpwm:` prefix.

Diffstat:
.stumpwmrc | 34++++++++++++++++------------------
1 file changed, 16 insertions(+), 18 deletions(-)

diff --git a/.stumpwmrc b/.stumpwmrc @@ -26,30 +26,28 @@ ;; key bindings (defparameter *s/key-bindings* - (let ((m (stumpwm:make-sparse-keymap))) + (let ((m (make-sparse-keymap))) ;; audio - (stumpwm:define-key m (stumpwm:kbd "t") "exec mpc toggle") - (stumpwm:define-key m (stumpwm:kbd "n") "exec mpc next") - (stumpwm:define-key m (stumpwm:kbd "p") "exec mpc prev") - (stumpwm:define-key m (stumpwm:kbd "h") "exec mpc seek -10") - (stumpwm:define-key m (stumpwm:kbd "s") "exec mpc seek +10") - (stumpwm:define-key m (stumpwm:kbd "+") "exec vol-up") - (stumpwm:define-key m (stumpwm:kbd "-") "exec vol-down") + (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 "h") "exec mpc seek -10") + (define-key m (kbd "s") "exec mpc seek +10") + (define-key m (kbd "+") "exec vol-up") + (define-key m (kbd "-") "exec vol-down") ;; screen lock - (stumpwm:define-key m (stumpwm:kbd "l") "exec i3lock") + (define-key m (kbd "l") "exec i3lock") ;; emacs client - (stumpwm:define-key m (stumpwm:kbd "e") "exec ec") + (define-key m (kbd "e") "exec ec") ;; browsers - (stumpwm:define-key m (stumpwm:kbd "c") "exec chrm") - (stumpwm:define-key m (stumpwm:kbd "f") "exec firefox") - (stumpwm:define-key m (stumpwm:kbd "o") "exec conkeror") + (define-key m (kbd "c") "exec chrm") + (define-key m (kbd "f") "exec firefox") + (define-key m (kbd "o") "exec conkeror") ;; stump commands - (stumpwm:define-key m (stumpwm:kbd "a") "s/dates") - (stumpwm:define-key m (stumpwm:kbd "i") "s/local-ip") + (define-key m (kbd "a") "s/dates") + (define-key m (kbd "i") "s/local-ip") m)) - -(stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd ".") - '*s/key-bindings*) +(define-key *root-map* (kbd ".") '*s/key-bindings*) ;; hooks (add-hook '*start-hook* 's/x-setup)