;;; -*- lexical-binding: t -*-

;; -----------------------------------------------------------------------------

(require 'cl-lib)
(cl-pushnew "." load-path :test #'string=)
(require 'luki-lisp)

;; -----------------------------------------------------------------------------

(defgroup our-faces nil
  "Our `bad' faces."
  :group 'our
  :group 'faces)

(defface our-black   '((((class color)))) "Our black face."  )
(defface our-red     '((((class color)))) "Our red face."    )
(defface our-green   '((((class color)))) "Our green face."  )
(defface our-yellow  '((((class color)))) "Our yellow face." )
(defface our-blue    '((((class color)))) "Our blue face."   )
(defface our-magenta '((((class color)))) "Our magenta face.")
(defface our-cyan    '((((class color)))) "Our cyan face."   )
(defface our-white   '((((class color)))) "Our white face."  )

(defface our-black-b   '((((class color)))) "Our black bright face."  )
(defface our-red-b     '((((class color)))) "Our red bright face."    )
(defface our-green-b   '((((class color)))) "Our green bright face."  )
(defface our-yellow-b  '((((class color)))) "Our yellow bright face." )
(defface our-blue-b    '((((class color)))) "Our blue bright face."   )
(defface our-magenta-b '((((class color)))) "Our magenta bright face.")
(defface our-cyan-b    '((((class color)))) "Our cyan bright face."   )
(defface our-white-b   '((((class color)))) "Our white brightf ace."  )

;; _________________
;;  0  1  2  3  4  5
;; 00 5f 87 af d7 ff
;; -----------------

(set-face-foreground 'our-black   "#000000")
(set-face-foreground 'our-red     "#ff0000")
(set-face-foreground 'our-green   "#008700")
(set-face-foreground 'our-yellow  "#afaf00")
(set-face-foreground 'our-blue    "#005fff")
(set-face-foreground 'our-magenta "#d75fd7")
(set-face-foreground 'our-cyan    "#00d7d7")
(set-face-foreground 'our-white   "#afafaf")

(set-face-foreground 'our-black-b   "#8787d7")
(set-face-foreground 'our-red-b     "#ff5f5f")
(set-face-foreground 'our-green-b   "#00af00")
(set-face-foreground 'our-yellow-b  "#d7d700")
(set-face-foreground 'our-blue-b    "#87d7ff")
(set-face-foreground 'our-magenta-b "#ff5fff")
(set-face-foreground 'our-cyan-b    "#00ffff")
(set-face-foreground 'our-white-b   "#d7d7d7")

(cl-loop
 with fonts = '(our-black   our-red   our-green   our-blue   our-magenta   our-cyan   our-white
                our-black-b our-red-b our-green-b our-blue-b our-magenta-b our-cyan-b our-white-b)
 for f in fonts
 do (set-face-background f 'unspecified))

;; -----------------------------------------------------------------------------

(<- 'bad-face-clrs)

;; -----------------------------------------------------------------------------