[nongnu] elpa/pacmacs 0126187ee8 428/472: Merge pull request #197 from codingteam/sorting-score-table-on-read-write-194

[ELPA Syncer]

branch: elpa/pacmacs
commit 0126187ee8ddedb8cb6982696bd0dba8886adcdb
Merge: 0eeb82ebc9 0d62e0346a
Author: Alexey Kutepov <reximkut@gmail.com>
Commit: Alexey Kutepov <reximkut@gmail.com>

    Merge pull request #197 from 
codingteam/sorting-score-table-on-read-write-194
    
    Sorting score table on read write
---
 pacmacs-score.el | 20 ++++++++++----------
 pacmacs.el       |  3 +--
 2 files changed, 11 insertions(+), 12 deletions(-)

diff --git a/pacmacs-score.el b/pacmacs-score.el
index 17f50f0588..50b1381eb9 100644
--- a/pacmacs-score.el
+++ b/pacmacs-score.el
@@ -50,21 +50,23 @@
     (let ((inhibit-read-only t))
       (erase-buffer)
       (-> (pacmacs--read-score-table)
-          (pacmacs--sort-score-table)
           (pacmacs--render-score-table)))))
 
 (defun pacmacs--read-score-table ()
   (when (file-exists-p pacmacs--score-file-name)
-    (-> pacmacs--score-file-name
-        (f-read-text)
-        (read-from-string)
-        (car))))
+    (->> pacmacs--score-file-name
+         (f-read-text)
+         (read-from-string)
+         (car)
+         (pacmacs--sort-score-table))))
 
 (defun pacmacs--write-score-table (score-table)
   (with-temp-buffer
-    (-> score-table
-        (pp-to-string)
-        (insert))
+    (->> score-table
+         (pacmacs--sort-score-table)
+         (-take pacmacs--max-score-table-size)
+         (pp-to-string)
+         (insert))
     (write-file pacmacs--score-file-name)))
 
 (defun pacmacs--sort-score-table (score-table)
@@ -83,8 +85,6 @@
 (defun pacmacs--add-entry-to-score-table (nickname score)
   (->> (pacmacs--read-score-table)
        (cons (cons nickname score))
-       (pacmacs--sort-score-table)
-       (-take pacmacs--max-score-table-size)
        (pacmacs--write-score-table)))
 
 (defun pacmacs--render-score-record (record)
diff --git a/pacmacs.el b/pacmacs.el
index 2e5df3a255..0ac35b98d8 100644
--- a/pacmacs.el
+++ b/pacmacs.el
@@ -585,8 +585,7 @@
   (with-current-buffer pacmacs-buffer-name
     (goto-char (point-max))
 
-    (let* ((score-table (pacmacs--sort-score-table
-                         (pacmacs--read-score-table)))
+    (let* ((score-table (pacmacs--read-score-table))
            (new-score-position (pacmacs--position-of-new-score
                                 score-table
                                 pacmacs-score)))