[nongnu] elpa/pacmacs e032089ab4 151/472: Render score table on Game Over screen (#92)

[ELPA Syncer]

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

    Render score table on Game Over screen (#92)
---
 pacmacs-score.el | 3 +--
 pacmacs.el       | 7 ++++++-
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/pacmacs-score.el b/pacmacs-score.el
index 2195c76eba..d2aba7b6f3 100644
--- a/pacmacs-score.el
+++ b/pacmacs-score.el
@@ -91,8 +91,7 @@
 
 (defun pacmacs--register-new-score (score)
   (let ((nickname (read-from-minibuffer "Nickname: ")))
-    (pacmacs--add-entry-to-score-table nickname score)
-    (pacmacs-score)))
+    (pacmacs--add-entry-to-score-table nickname score)))
 
 (provide 'pacmacs-score)
 
diff --git a/pacmacs.el b/pacmacs.el
index 672460c190..07c0546e80 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -428,7 +428,12 @@
           (insert "\n")))
       (insert "\n")
       (dotimes (i pacmacs-lives)
-        (pacmacs--render-life-icon)))))
+        (pacmacs--render-life-icon))
+
+      (when (equal pacmacs-game-state 'game-over)
+        (-> (pacmacs--read-score-table)
+            (pacmacs--sort-score-table)
+            (pacmacs--render-score-table))))))
 
 (defun pacmacs-up ()
   (interactive)