util.lisp (274 bytes)
1 (in-package #:stumpwm-init) 2 (defmacro deftermcom (name 3 &optional argstr (termcom 'xterm)) 4 "Call a terminal with arguments." 5 (once-only (argstr) 6 `(defcommand ,name () () 7 (if ,argstr 8 (,termcom ,argstr) 9 (,termcom)))))