[nongnu] elpa/pacmacs 1d52833fef 406/472: Add render-score-record function (#134)

[ELPA Syncer]

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

    Add render-score-record function (#134)
---
 pacmacs-score.el | 23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/pacmacs-score.el b/pacmacs-score.el
index df03b30f3f..84dae8c86c 100644
--- a/pacmacs-score.el
+++ b/pacmacs-score.el
@@ -78,19 +78,7 @@
        (length)))
 
 (defun pacmacs--render-score-table (score-table)
-  (let ((max-nickname-length
-         (->> score-table
-              (-map (-compose #'length #'car))
-              (apply #'max))))
-    (insert "Best Scores:\n------------\n")
-    (-each score-table
-      (-lambda ((nickname . score))
-        (insert (format "%s%s %d\n"
-                        nickname
-                        (make-string (- max-nickname-length
-                                        (length nickname))
-                                     ?\s)
-                        score))))))
+  (-each score-table #'pacmacs--render-score-record))
 
 (defun pacmacs--add-entry-to-score-table (nickname score)
   (->> (pacmacs--read-score-table)
@@ -103,6 +91,15 @@
   (let ((nickname (read-from-minibuffer "Nickname: ")))
     (pacmacs--add-entry-to-score-table nickname score)))
 
+(defun pacmacs--render-score-record (record)
+  (-let (((nickname . score) record))
+    (insert (format "%s%s %d\n"
+                    nickname
+                    (make-string (- pacmacs--max-score-nick-size
+                                    (length nickname))
+                                 ?\s)
+                    score))))
+
 (provide 'pacmacs-score)
 
 ;;; pacmacs-score.el ends here