;; load and apply a color scheme (defpackage :tinty (:use :cl)) (defun apply-scheme (name) (let* ((scheme (scheme:load name)) (theme (scheme:build scheme :base 16))) (theme:apply theme) (format t "applied: ~a~%" (theme:name theme))))