Re: [STUMP] define run-or-raise keybinding with anonymous function

[Tamas Papp]

Hi,

Thanks --- I need to learn more about the STUMPWM package, I am working
through the sources now. In the meantime, I realized that I don't need a
macro, just a function:

(defun define-key-run-or-raise (map key command
                                &optional (props `(:title ,command)))
  (define-key map (kbd key)
    (format nil "eval-line ~s" `(run-or-raise ,command ',props))))

Best,

Tamas


On Sun, Nov 29 2015, Joram Schrijver <address@hidden> wrote:

> Hi,
>
> Note that StumpWM supplies a macro called DEFPROGRAM-SHORTCUT that
> handles
> creating a run-or-raise command and binding it to a key. It won't be an
> anonymous command, because such a thing doesn't exist, but there's no
> real harm
> in having a command like "calibre" or "iceweasel".