branch: elpa/pacmacs
commit 1d52833fefe0fb771260a4f4486502d0cc20d44f
Author: rexim <[email protected]>
Commit: rexim <[email protected]>
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
