[nongnu] elpa/pacmacs a12795e835 455/472: Introduce pacmacs-scores-mode (#203)

[ELPA Syncer]

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

    Introduce pacmacs-scores-mode (#203)
---
 pacmacs-score.el |  6 ++++--
 pacmacs.el       | 14 ++++++++------
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/pacmacs-score.el b/pacmacs-score.el
index ae323122df..724a3bf6c0 100644
--- a/pacmacs-score.el
+++ b/pacmacs-score.el
@@ -81,8 +81,10 @@
 
 (defun pacmacs--render-score-page (render-score-sign)
   (funcall render-score-sign)
-  (-> (pacmacs--read-score-table)
-      (pacmacs--render-score-table)))
+  (let ((score-table (pacmacs--read-score-table)))
+    (if score-table
+        (pacmacs--render-score-table score-table)
+      (insert "(there are not records yet)"))))
 
 (defun pacmacs--render-score-table (score-table)
   (-each score-table #'pacmacs--render-score-record))
diff --git a/pacmacs.el b/pacmacs.el
index 93ed5d1f4d..7fbdc8163c 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -111,6 +111,13 @@
   (setq cursor-type nil)
   (setq truncate-lines t))
 
+(define-derived-mode pacmacs-scores-mode special-mode "Pacmacs Scores"
+  (define-key pacmacs-game-over-mode-map (kbd "q")
+    (-partial #'pacmacs--kill-buffer-and-its-window
+              pacmacs--score-buffer-name))
+  (setq cursor-type nil)
+  (setq truncate-lines t))
+
 ;;;###autoload
 (defun pacmacs-start ()
   (interactive)
@@ -731,12 +738,7 @@
   (interactive)
 
   (switch-to-buffer pacmacs--score-buffer-name)
-
-  (text-mode)
-  (read-only-mode 1)
-  (setq truncate-lines t)
-  (setq cursor-type nil)
-
+  (pacmacs-scores-mode)
   (pacmacs--load-map-sign "scores")
 
   (with-render-target pacmacs--score-buffer-name