diff options
author | Tom Willemsen | 2013-04-09 16:51:39 +0200 |
---|---|---|
committer | Tom Willemsen | 2013-04-09 16:51:39 +0200 |
commit | d90fe264ea5809996eb6993bb651b687c259cf04 (patch) | |
tree | 344860e659a78886e0518390bc18d7314a8c60cd | |
parent | 13b625585a471f50f3aae5825e40795245b91aa3 (diff) | |
download | dotfiles-d90fe264ea5809996eb6993bb651b687c259cf04.tar.gz dotfiles-d90fe264ea5809996eb6993bb651b687c259cf04.zip |
Stumpwm: Use function instead of lambda
-rw-r--r-- | .stumpwmrc | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -117,15 +117,18 @@ "Open URxvt" (run-or-raise *urxvt-program* '(:class "URxvt"))) +(defun run-stumpwm-hook-on-exit (process) + "Run `*screen-unlocked-hook*' if PROCESS' status is `:exited'." + (when (eq (sb-ext:process-status process) :exited) + (run-hook *screen-unlocked-hook*))) + (defcommand lock-screen () () "Lock the screen using i3lock. Run *lock-screen-hook* before locking it and run *screen-unlocked-hook* after it has been unlocked." (run-hook *lock-screen-hook*) (sb-ext:run-program "/usr/bin/i3lock" '("-n" "-c" "000000") :wait nil - :status-hook (lambda (p) - (when (eq (sb-ext:process-status p) :exited) - (run-hook *screen-unlocked-hook*))))) + :status-hook #'run-stumpwm-hook-on-exit)) (set-bg-color (colour :dwhite)) (set-border-color (colour :lwhite)) |