Recently Written · git

stumpwm-init

I use dwm now. Archived.

git clone https://github.com/equwal/stumpwm-init

Log | Files | Refs

commands.lisp (567 bytes)

1 (in-package #:stumpwm-init)
2 (defcommand xterm (&optional additional-argstr) ()
3   (run-shell-command "xterm"))
4 
5 (defvar *toggle* nil)
6 (defvar *my-mouse* "ETPS/2 Elantech Touchpad")
7 (defcommand poison () ()
8   "Turn the rat all the way OFF (or back on): .
9 (useful if the touchpad is sensitive while typing)."
10     (banish)
11     (run-shell-command
12      (concatenate 'string
13                   "xinput --"
14                   (if *toggle*
15                       "disable"
16                       "enable")
17                   " '" *my-mouse* "'"))
18   (setf *toggle* (not *toggle*)))