[nongnu] elpa/pacmacs 29b87c4538 181/472: Refactor out unpaused play state predicate

[ELPA Syncer]

branch: elpa/pacmacs
commit 29b87c4538eec8b6d733fc7b3eec7044d2712699
Author: rexim <reximkut@gmail.com>
Commit: rexim <reximkut@gmail.com>

    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 ()