 ;;; -*- lexical-binding: t -*-
 
 (require 'cl)
+(cl-float-limits)
 
 ;; Constants -------------------------------------------------------------------
 

            husl/-m
            :initial-value [])))

(defun husl/-max-safe-chroma-for-l (l)
  "For given lightness, returns the maximum chroma. Keeping the chroma value \
below this number will ensure that for any hue, the color is within the RGB gamut."

          (let* ((max (husl/-max-chroma-for-l-h l h))
                 (s (* (/ c max) 100.0)))
            (vector h s l)))))

;; (husl/-lch-to-husl 66.4684397846863 46.88298913974675 229.3363102843981)

(defun husl/-lch-to-luv (l c h)
  (let* ((h-rad (* (/ h 360.0) 2.0 float-pi))
