;;; modally-faces.el --- Faces used in Modally       -*- lexical-binding: t; -*-

;; Copyright (C) 2024  Blake Romero

;; Author: Blake Romero <codeblake@outlook.com>
;; Keywords: faces

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <https://www.gnu.org/licenses/>.

;;; Commentary:
;;

;;; Code:

;; FACE
(defface modally-buffer
  '((t :inherit 'success))
  "A mode-line face used for the buffer name."
  :group 'modally)

(defface modally-buffer-readonly
  '((t :inherit 'error))
  "A mode-line face used for a read-only buffer."
  :group 'modally)

(defface modally-buffer-modified
  '((t :inherit 'warning))
  "A mode-line face used for a modified buffer."
  :group 'modally)

(defface modally-buffer-path
  '((t :inherit 'italic))
  "A mode-line face used when the buffer has a path."
  :group 'modally)

(defface modally-major-mode
  '((t :inherit 'mode-line-emphasis :bold nil))
  "A mode-line face used for the major-mode."
  :group 'modally)

(defface modally-git-branch
  '((t :foreground "#00bcff"))
  "A mode-line face used for the Git branch name."
  :group 'modally)

(defface modally-org-timer
  '((t :inherit 'success))
  "A mode-line face used for the org timer."
  :group 'modally)

(defface modally-org-timer-pause
  '((t :inherit 'warning :bold nil))
  "A mode-line face used for a paused org timer."
  :group 'modally)

(defface modally-active
  '((t :foreground "#444444"))
  "A mode-line face used for the active window."
  :group 'modally)

(defface modally-inactive
  '((t :foreground "#222222"))
  "A mode-line face used for the inactive window."
  :group 'modally)

(provide 'modally-faces)
;;; modally-faces.el ends here