From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 22 Mar 2013 22:54:09 +0000 (+0000)
Subject: atoms.lisp: Rewrite `update-undo-redo-sensitivity'.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/atoms/commitdiff_plain/c10ee6be5996eb5f30222c25d346d89e70c5d0c4

atoms.lisp: Rewrite `update-undo-redo-sensitivity'.

Less duplication, and no hideous line-breaks.
---

diff --git a/atoms.lisp b/atoms.lisp
index af9a21c..c68a667 100644
--- a/atoms.lisp
+++ b/atoms.lisp
@@ -1000,12 +1000,11 @@ (defun action-new-game (window)
 
 (defun update-undo-redo-sensitivity (window)
   (with-slots (actions game) window
-    (setf (gtk:action-sensitive-p
-	   (gtk:action-group-get-action actions "undo"))
-	  (undo-list game)
-	  (gtk:action-sensitive-p
-	   (gtk:action-group-get-action actions "redo"))
-	  (redo-list game))))
+    (flet ((set-sensitive (act-name sensitivep)
+	     (let ((act (gtk:action-group-get-action actions act-name)))
+	       (setf (gtk:action-sensitive-p act) sensitivep))))
+      (set-sensitive "undo" (undo-list game))
+      (set-sensitive "redo" (redo-list game)))))
 
 (defmethod notify progn
     ((window atom-game-window) (game atom-game) aspect &key)