dotfiles

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

commit 721094673905bc9a129d26f6285123942a5d9269
parent 7527a34b7ee2e31877c216bb1b3b440d9db7366a
Author: rsiddharth <s@ricketyspace.net>
Date:   Sat, 11 Aug 2018 05:13:40 +0000

Goodbye stumpwm.

Diffstat:
.sbclrc | 11-----------
.stumpwmrc | 71-----------------------------------------------------------------------
Makefile | 15---------------
3 files changed, 0 insertions(+), 97 deletions(-)

diff --git a/.sbclrc b/.sbclrc @@ -1,11 +0,0 @@ -;;; -*-common-lisp-*- -;;; -;;; License: CC0-1.0 -;;; -;;; The following lines added by ql:add-to-init-file: -#-quicklisp -(let ((quicklisp-init (merge-pathnames ".quicklisp/setup.lisp" - (user-homedir-pathname)))) - (when (probe-file quicklisp-init) - (load quicklisp-init))) - diff --git a/.stumpwmrc b/.stumpwmrc @@ -1,71 +0,0 @@ -;; -*-common-lisp-*- -(in-package :stumpwm) - -;; Set module directory -(set-module-dir "~/v/github.com/stumpwm/stumpwm-contrib") - -;; load modules -(load-module "ttf-fonts") -(load-module "amixer") - -;; message window font -(set-font (make-instance 'xft:font :family "Noto Mono" - :subfamily "Regular" :size 9)) - -;; colors -(defparameter *s/colors/white* "#ffffff") -(defparameter *s/colors/black* "#000000") - -;; bar appearance -(set-fg-color *s/colors/black*) -(set-bg-color *s/colors/white*) -(set-border-color *s/colors/white*) -(set-msg-border-width 1) - -;; window appearance -(setf *window-border-style* :none) -(set-win-bg-color *s/colors/white*) -(set-focus-color *s/colors/white*) -(set-unfocus-color *s/colors/white*) - -;; bar position -(setf *message-window-gravity* :center) -(setf *input-window-gravity* :center) - -;; functions -(defun s/x-setup () - (run-shell-command "x-setup")) - -;; commands -(defcommand s/date () () - (run-shell-command "date -Ins" T)) - -;; key bindings -(defparameter *s/key-bindings* - (let ((m (make-sparse-keymap))) - ;; emacs client - (define-key m (kbd "e") "exec emacsclient -c") - - ;; stump commands - (define-key m (kbd "r") "renumber") - m)) - -;; root map -(define-key *root-map* (kbd ".") '*s/key-bindings*) -(define-key *root-map* (kbd "c") "exec urxvt") - -;; top map -(define-key *top-map* (kbd "XF86ScreenSaver") "exec slock") -(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+") - -;; override default bindings -(define-key *root-map* (kbd "a") "s/date") - -;; hooks -(add-hook *start-hook* 's/x-setup) - diff --git a/Makefile b/Makefile @@ -37,19 +37,4 @@ propellor: git config --local user.signingkey 6BE93D8BF8664377 .PHONY: propellor -$(QUICKLISP): - wget https://beta.quicklisp.org/quicklisp.lisp -O /tmp/quicklisp.lisp - sbcl --non-interactive --load /tmp/quicklisp.lisp \ - --eval '(quicklisp-quickstart:install)' - mv $(HOME)/quicklisp $@ - -quicklisp-modules: $(QUICKLISP) - sbcl --non-interactive \ - --eval '(ql:quickload :clx)' \ - --eval '(ql:quickload :cl-ppcre)' \ - --eval '(ql:quickload :alexandria)' \ - --eval '(ql:quickload :clx-truetype)' \ - --eval '(xft:cache-fonts)' -.PHONY: quicklisp-modules - .PHONY: dothome config nothing all