[elpa] externals/slime-volleyball 00310a1 11/27: Add beach mode

[Thomas Fitzsimmons]

branch: externals/slime-volleyball
commit 00310a1da15fc907b5c1f2c9a02487fde90ce030
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>

    Add beach mode
---
 slime-volleyball.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/slime-volleyball.el b/slime-volleyball.el
index 835c15c..c8c23b2 100644
--- a/slime-volleyball.el
+++ b/slime-volleyball.el
@@ -124,6 +124,11 @@
   :type 'boolean
   :group 'slime-volleyball)
 
+(defcustom slime-volleyball-beach-mode nil
+  "Non-nil when Slimes should compete on sand"
+  :type 'boolean
+  :group 'slime-volleyball)
+
 (cl-defstruct slime-volleyball-slime
   "A player in the game of slime volleyball"
   player
@@ -747,7 +752,9 @@
         slime-volleyball-template-ground
         (concat
          "<rect x=\"0\" y=\"%d\" width=\"%d\" height=\"%d\""
-         " fill=\"#888888\" />")
+         " fill=\""
+         (if slime-volleyball-beach-mode "#EEE8AA" "#778899")
+         "\" />")
         slime-volleyball-template-message-box-start
         (concat
          "<defs>"