;;; mango-theme.el --- Just your average dark theme  -*- lexical-binding: t -*-

;; Copyright © 2023 Thomas Voss

;; Author: Thomas Voss <mail@thomasvoss.com>
;; Maintainer: Thomas Voss <mail@thomasvoss.com>
;; URL: https://git.sr.ht/~mango/mango-theme
;; Mailing-List: https://lists.sr.ht/~mango/public-inbox

;;; License:

;; Permission to use, copy, modify, and/or distribute this software for any
;; purpose with or without fee is hereby granted.
;;
;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH
;; REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
;; AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT,
;; INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
;; LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
;; OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
;; PERFORMANCE OF THIS SOFTWARE.

;;; Commentary:

;; TODO

;;; Code:

(deftheme mango
  "Just another dark theme because none of the other options out there were just
as I would like them.  Why try to fix someone elses themes when I make my own?")

(defun mango-theme--get-color (name)
  "Get the RGB value of the color NAME from ‘mango-theme-palette’"
  (cadr (assq name mango-theme-palette)))

(defmacro mango-theme--generate-set-faces (&rest body)
  "A macro to provide a much simpler syntax than what is expected by
‘custom-theme-set-faces’.  This is possible because I only run Emacs
graphically, so I shouldn’t need to have multiple specs per face.

\(fn SPEC...)"
  (declare (indent 0))
  (let ((ret '('mango custom-theme-set-faces)))
    (dolist (spec body)
      (add-to-list 'ret `(backquote ,(list (car spec) `((t ,(cdr spec)))))))
    (reverse ret)))

(defconst mango-theme-palette
  '((foreground       "#C5C8C6")
    (background       "#2B303B")
    (background-cool  "#363C4A")
    (background-faint "#414859")
    (middleground     "#4F5561")
    (disabled         "#999999")
    (pale-azure       "#9CDCFE")
    (celestial-blue   "#569CD6")
    (violet           "#E57AE5")
    (khaki            "#F0E68C")
    (lime             "#B8F182")
    (orange           "#F1B282")
    (citron           "#ED97F5")))

(mango-theme--generate-set-faces
  ;; Standard Stuff
  (default
   :foreground ,(mango-theme--get-color 'foreground)
   :background ,(mango-theme--get-color 'background))
  (fringe
   :inherit default)

  ;; Lines
  (hl-line
   :background ,(mango-theme--get-color 'background-faint))
  (region
   :background ,(mango-theme--get-color 'middleground))
  (mode-line
   :background ,(mango-theme--get-color 'middleground))
  (mode-line-inactive
   :background ,(mango-theme--get-color 'background-cool)
   :weight light)

  ;; Line Numbers
  (line-number
   :background ,(mango-theme--get-color 'background-cool))
  (line-number-current-line
   :background ,(mango-theme--get-color 'background-cool)
   :weight bold)

  ;; Documentation
  (font-lock-comment-face
   :foreground ,(mango-theme--get-color 'disabled))
  (font-lock-doc-face
   :inherit font-lock-comment-face)

  ;; Core Language
  (font-lock-keyword-face
   :foreground ,(mango-theme--get-color 'violet))
  (font-lock-type-face
   :foreground ,(mango-theme--get-color 'celestial-blue))
  (font-lock-builtin-face
   :inherit font-lock-preprocessor-face)

  ;; Function-likes
  (font-lock-function-name-face
   :foreground ,(mango-theme--get-color 'khaki))
  (font-lock-preprocessor-face
   :foreground ,(mango-theme--get-color 'citron)
   :weight bold)

  ;; Variables
  (font-lock-variable-name-face
   :foreground ,(mango-theme--get-color 'pale-azure))
  (font-lock-constant-face
   :inherit font-lock-variable-name-face
   :weight bold)

  ;; Org Mode
  (org-code
   :foreground ,(mango-theme--get-color 'orange))
  (org-verbatim
   :foreground ,(mango-theme--get-color 'lime))
  (org-block
   :background ,(mango-theme--get-color 'background-cool))
  (org-hide
   :foreground ,(mango-theme--get-color 'background))
  (org-quote
   :inherit org-block
   :slant italic)

  ;; Info Page
  (Info-quoted
   :inherit default)

  ;; Vertico
  (vertico-current
   :inherit hl-line))