Recently Written · git

stumpwm-init

I use dwm now. Archived.

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

Log | Files | Refs


commit 4e7185732ad7464116f27ecced5b270160c772a8
Spenser Truex <web@spensertruex.com>
2020-03-27 17:02:56 -0700

Remove opinionated XTERM settings

Put them in .Xdefaults or .Xresources instead, and reload with xrdb -load FILE

 commands.lisp | 16 ++--------------
 1 file changed, 2 insertions(+), 14 deletions(-)
diff --git a/commands.lisp b/commands.lisp
index 61bbe23..6410a08 100644
--- a/commands.lisp
+++ b/commands.lisp
@@ -1,19 +1,7 @@
 (in-package #:stumpwm-init)
-(defvar *xterm-font-pt* 12
-  "The font size to call xterm with.")
-(defvar *xterm-font* nil
-  "The font to call xterm with. Either a string (eg. \"Hack\") or NIL for
-none.")
 (defcommand xterm (&optional additional-argstr) ()
-  "Call xterm with a couple of settings arguments."
-  (run-shell-command
-   (concatenate 'string
-                "xterm"
-                (if *xterm-font*
-                    (concatenate 'string " -fa '" *xterm-font* "'")
-                    "")
-                " " "-fs " (format nil "~D" *xterm-font-pt*)
-                " " additional-argstr)))
+  "Call xterm."
+  (run-shell-command xterm))
 
 (defvar *toggle* nil)
 (defvar *my-mouse* "ETPS/2 Elantech Touchpad")