dotfiles

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

commit 17b3c6fcdd6d131d3b884bdc02d166f76fef240f
parent d60ec15689700b67396f0be1dffec069bb5a7d9d
Author: rsiddharth <s@ricketyspace.net>
Date:   Mon, 26 Jun 2017 03:41:38 +0000

Add .stumpwmrc

Diffstat:
.stumpwmrc | 55+++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 55 insertions(+), 0 deletions(-)

diff --git a/.stumpwmrc b/.stumpwmrc @@ -0,0 +1,55 @@ +;; -*-lisp-*- +(in-package :stumpwm) + +;; message window font +(set-font "-xos4-terminus-medium-r-normal--14-140-72-72-c-80-iso8859-15") + +;; bar appearance +(set-fg-color "#ffffff") +(set-bg-color "#002b36") +(set-border-color "#002b36") +(set-msg-border-width 1) + +;; bar position +(setf *message-window-gravity* :center) +(setf *input-window-gravity* :center) + +;; functions +(defun s/x-setup () + (run-shell-command "s-x-setup")) + +;; commands +(defcommand s/dates () () + (run-shell-command "dates" T)) +(defcommand s/local-ip () () + (run-shell-command "ip r" T)) + +;; key bindings +(defparameter *s/key-bindings* + (let ((m (stumpwm: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") + ;; screen lock + (stumpwm:define-key m (stumpwm:kbd "l") "exec i3lock") + ;; emacs client + (stumpwm:define-key m (stumpwm: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") + ;; stump commands + (stumpwm:define-key m (stumpwm:kbd "a") "s/dates") + (stumpwm:define-key m (stumpwm:kbd "i") "s/local-ip") + m)) + +(stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd ".") + '*s/key-bindings*) + +;; hooks +(add-hook '*start-hook* 's/x-setup)