branch: elpa/pacmacs
commit 29b87c4538eec8b6d733fc7b3eec7044d2712699
Author: rexim <[email protected]>
Commit: rexim <[email protected]>
Refactor out unpaused play state predicate
---
pacmacs.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/pacmacs.el b/pacmacs.el
index df1f115a99..f949bfc46a 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -444,28 +444,28 @@
(pacmacs--render-score-table)))
(goto-char 0))))
+(defun pacmacs--unpaused-play-state-p ()
+ (and (equal pacmacs-game-state 'play)
+ (not pacmacs-play-pause)))
+
(defun pacmacs-up ()
(interactive)
- (when (and (equal pacmacs-game-state 'play)
- (not pacmacs-play-pause))
+ (when (pacmacs--unpaused-play-state-p)
(pacmacs--switch-direction pacmacs-player-state 'up)))
(defun pacmacs-down ()
(interactive)
- (when (and (equal pacmacs-game-state 'play)
- (not pacmacs-play-pause))
+ (when (pacmacs--unpaused-play-state-p)
(pacmacs--switch-direction pacmacs-player-state 'down)))
(defun pacmacs-left ()
(interactive)
- (when (and (equal pacmacs-game-state 'play)
- (not pacmacs-play-pause))
+ (when (pacmacs--unpaused-play-state-p)
(pacmacs--switch-direction pacmacs-player-state 'left)))
(defun pacmacs-right ()
(interactive)
- (when (and (equal pacmacs-game-state 'play)
- (not pacmacs-play-pause))
+ (when (pacmacs--unpaused-play-state-p)
(pacmacs--switch-direction pacmacs-player-state 'right)))
(defun pacmacs-pause ()
