(in-package #:cl-openai)

(defparameter +openai-api-key+
  (string-trim '(#\Newline #\Return)
               (uiop:read-file-string "~/.openai-api-key.txt")))

(defun bearer-auth ()
  `((Authorization . ,(format nil "Bearer ~a" +openai-api-key+))))