[nongnu] elpa/pacmacs 0f4eb7aebf 452/472: Decouple score page render from sign render (#203)

[ELPA Syncer]

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

    Decouple score page render from sign render (#203)
---
 pacmacs-score.el | 5 +++++
 pacmacs.el       | 6 ++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/pacmacs-score.el b/pacmacs-score.el
index 456a519317..df56635235 100644
--- a/pacmacs-score.el
+++ b/pacmacs-score.el
@@ -79,6 +79,11 @@
        (-take-while (-lambda ((_ . score)) (< new-score score)))
        (length)))
 
+(defun pacmacs--render-score-page (render-score-sign)
+  (funcall render-score-sign)
+  (-> (pacmacs--read-score-table)
+      (pacmacs--render-score-table)))
+
 (defun pacmacs--render-score-table (score-table)
   (if score-table
       (-each score-table #'pacmacs--render-score-record)
diff --git a/pacmacs.el b/pacmacs.el
index b1d7899767..3fa30d31d3 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -743,10 +743,8 @@
   (with-current-buffer pacmacs--score-buffer-name
     (let ((inhibit-read-only t))
       (erase-buffer)
-      (pacmacs--render-object-board pacmacs--object-board)
-      (let ((inhibit-read-only t))
-        (-> (pacmacs--read-score-table)
-            (pacmacs--render-score-table))))
+      (pacmacs--render-score-page (-partial #'pacmacs--render-object-board
+                                            pacmacs--object-board)))
     (goto-char (point-min))))
 
 (defun pacmacs--wall-tile-at (row column)