stumpwm config

.stumpwmrc

;; -*- mode: Lisp -*-
#-quicklisp
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
                                       (user-homedir-pathname))))
  (when (probe-file quicklisp-init)
    (load quicklisp-init)))


(in-package :stumpwm)
(require 'swank)
(swank-loader:init)
(swank:create-server :port 4004
                     :style swank:*communication-style*
                     :dont-close t)

;; (run-shell-command "xsetroot -cursor_name left_ptr")
(run-shell-command "setxkbmap -option ctrl:nocaps")
(run-shell-command "xrandr --output DP-0 --primary --output DVI-D-0 --right-of DP-0 --rotate left")
(set-prefix-key (kbd "C-'"))
(which-key-mode)


(define-frame-preference (gnewbg ".spotify")
  (0 nil t :title "Spotify"))
(setq *shell-program* "/bin/bash")
(setf (getenv "GDK_CORE_DEVICE_EVENTS") "1")