diff options
| author | sabetts <sabetts> | 2004-11-12 02:44:01 +0000 |
|---|---|---|
| committer | sabetts <sabetts> | 2004-11-12 02:44:01 +0000 |
| commit | d930e6282ab155e2aa81fcc3fc57c236167fb7c8 (patch) | |
| tree | adb9b7a9ac21271039f0542c47454c93e26a4d2e /contrib | |
| parent | 309035ba7dfc194e45cd807d77b0837410719db8 (diff) | |
| download | ratpoison-d930e6282ab155e2aa81fcc3fc57c236167fb7c8.zip | |
* contrib/genrpbindings: fix up path to ratpoison binary
* contrib/genrpbindings: add common lisp bindings
Diffstat (limited to 'contrib')
| -rwxr-xr-x | contrib/genrpbindings | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/genrpbindings b/contrib/genrpbindings index 224a84c..60573bf 100755 --- a/contrib/genrpbindings +++ b/contrib/genrpbindings @@ -34,7 +34,7 @@ $\="\n"; # set this to your rp binary -$RATPOISON="/home/sabetts/src/ratpoison/src/ratpoison"; +$RATPOISON=$ENV{RATPOISON} || "ratpoison"; # open source file $ACTIONS_C="../src/actions.c"; @@ -101,7 +101,7 @@ print COMMONLISP <<PREAMBLE; (in-package :ratpoison) -(defvar ratpoison-program "/home/sabetts/src/ratpoison/src/ratpoison") +(defvar ratpoison-program "$RATPOISON") (defmacro defun-ratpoison (cmd) (let ((sym (intern (concatenate 'string "RP-" (symbol-name cmd))))) |