-
Notifications
You must be signed in to change notification settings - Fork 9
/
pacmacs-score.el
96 lines (76 loc) · 3.27 KB
/
pacmacs-score.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
;;; pacmacs-score.el --- Pacman for Emacs -*- lexical-binding: t -*-
;; Copyright (C) 2015-2016 Codingteam
;; Author: Codingteam <codingteam@conference.jabber.ru>
;; Maintainer: Alexey Kutepov <reximkut@gmail.com>
;; URL: http://github.com/codingteam/pacmacs.el
;; Permission is hereby granted, free of charge, to any person
;; obtaining a copy of this software and associated documentation
;; files (the "Software"), to deal in the Software without
;; restriction, including without limitation the rights to use, copy,
;; modify, merge, publish, distribute, sublicense, and/or sell copies
;; of the Software, and to permit persons to whom the Software is
;; furnished to do so, subject to the following conditions:
;; The above copyright notice and this permission notice shall be
;; included in all copies or substantial portions of the Software.
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
;; BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
;; ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
;; CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
;; SOFTWARE.
;;; Commentary:
;; Routines for working with score
;;; Code:
(require 'f)
(require 'dash)
(defconst pacmacs--max-score-nick-size 8)
(defconst pacmacs--max-score-table-size 10)
(defconst pacmacs--score-file-name "~/.pacmacs-score")
(defconst pacmacs--score-buffer-name "*Pacmacs Score*")
(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--sort-score-table))))
(defun pacmacs--write-score-table (score-table)
(with-temp-buffer
(->> 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)
(sort score-table
(-lambda ((_ . score1) (_ . score2))
(> score1 score2))))
(defun pacmacs--position-of-new-score (score-table new-score)
(->> score-table
(-take-while (-lambda ((_ . score)) (< new-score score)))
(length)))
(defun pacmacs--render-score-page (render-score-sign)
(funcall render-score-sign)
(let ((score-table (pacmacs--read-score-table)))
(if score-table
(pacmacs--render-score-table score-table)
(insert "(there are not records yet)"))))
(defun pacmacs--render-score-table (score-table)
(-each score-table #'pacmacs--render-score-record))
(defun pacmacs--add-entry-to-score-table (nickname score)
(->> (pacmacs--read-score-table)
(cons (cons nickname score))
(pacmacs--write-score-table)))
(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