branch: elpa/pacmacs
commit 7d4356c92ca8de1aca42940debc0e182becb3531
Author: rexim <[email protected]>
Commit: rexim <[email protected]>
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 @@
+
+ ### ### ### ### ### ###
+ # # # # # # # #
+ ### # # # #### ### ###
+ # # # # # # # #
+ ### ### ### # # ### ###
