|
|
@@ -38,7 +38,7 @@
|
|
|
(let ((sorted (sort (loop for (uid . member) in (agets json "members")
|
|
|
collect (list (agets member "name") (agets member "local_score") (format-stars (agets member "completion_day_level"))))
|
|
|
#'> :key #'second)))
|
|
|
- (format nil "🏆***Chad AoC Leaderboard***🏆~%~a~%~%~{~a. ~a: ~a ~%~% ~a~^~%~%~}" +leader-board-link+
|
|
|
+ (format nil "🏆***Chad AoC Leaderboard***🏆~%~a~%~%~{~a. ~a: ~a ~% ~a~^~%~}" +leader-board-link+
|
|
|
(apply 'append (mapcar #'cons (alexandria:iota (length sorted) :start 1) sorted)))))
|
|
|
|
|
|
(defun handle-leaderboard ()
|