[nongnu] elpa/pacmacs 7d4356c92c 445/472: Implement pacmacs-score-awesome (#203)

[ELPA Syncer]

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

    Implement pacmacs-score-awesome (#203)
---
 pacmacs.el       | 16 ++++++++++------
 signs/score.txt  |  6 ------
 signs/scores.txt |  6 ++++++
 3 files changed, 16 insertions(+), 12 deletions(-)

diff --git a/pacmacs.el b/pacmacs.el
index 85e8dd1cdd..17276ceb9b 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -743,17 +743,21 @@
 (defun pacmacs-score-awesome ()
   (interactive)
 
-  (switch-to-buffer-other-window pacmacs--score-buffer-name)
+  (switch-to-buffer pacmacs--score-buffer-name)
 
-  (pacmacs-game-over-mode)
+  (text-mode)
+  (read-only-mode 1)
 
-  (pacmacs--load-map-sign "score")
-  (pacmacs--render-state pacmacs--score-buffer-name)
+  (pacmacs--load-map-sign "scores")
 
   (with-current-buffer pacmacs--score-buffer-name
     (let ((inhibit-read-only t))
-      (-> (pacmacs--read-score-table)
-          (pacmacs--render-score-table)))))
+      (erase-buffer)
+      (pacmacs--render-board)
+      (let ((inhibit-read-only t))
+        (-> (pacmacs--read-score-table)
+            (pacmacs--render-score-table))))
+    (goto-char (point-min))))
 
 (defun pacmacs--wall-tile-at (row column)
   (pacmacs--create-wall-tile
diff --git a/signs/score.txt b/signs/score.txt
deleted file mode 100644
index 1f1acff0db..0000000000
--- a/signs/score.txt
+++ /dev/null
@@ -1,6 +0,0 @@
-                     
- ### ### ### ###  ###
- #   #   # # # #  #  
- ### #   # # #### ###
-   # #   # # #  # #  
- ### ### ### #  # ###
diff --git a/signs/scores.txt b/signs/scores.txt
new file mode 100644
index 0000000000..34867a145b
--- /dev/null
+++ b/signs/scores.txt
@@ -0,0 +1,6 @@
+                     
+ ### ### ### ###  ### ###
+ #   #   # # # #  #   #  
+ ### #   # # #### ### ###
+   # #   # # #  # #     #
+ ### ### ### #  # ### ###