mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
22 lines
760 B
Common Lisp
22 lines
760 B
Common Lisp
(defpackage :roswell.dist.preference
|
|
(:use :cl))
|
|
(in-package :roswell.dist.preference)
|
|
|
|
(defun preference (&rest r)
|
|
(let ((dist (ql-dist:find-dist (second r))))
|
|
(if dist
|
|
(progn
|
|
(when (third r)
|
|
(let ((score (if (equal (third r) "touch")
|
|
(get-universal-time)
|
|
(parse-integer (third r)))))
|
|
(setf (ql-dist:preference dist) score)))
|
|
(format t "~15A~A~%"
|
|
(ql-dist:name dist)
|
|
(ql-dist:preference dist)))
|
|
(dolist (dist (ql-dist:all-dists))
|
|
(when (ql-dist:enabledp dist)
|
|
(format t "~15A~A~%"
|
|
(ql-dist:name dist)
|
|
(ql-dist:preference dist)))))))
|