From 41db5f3579d1c7f5f1441b61621d1fd5ec7258c6 Mon Sep 17 00:00:00 2001 From: Blake Romero Date: Fri, 3 Oct 2025 20:26:52 +0100 Subject: Initial release --- modally-faces.el | 68 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 68 insertions(+) create mode 100644 modally-faces.el (limited to 'modally-faces.el') diff --git a/modally-faces.el b/modally-faces.el new file mode 100644 index 0000000..6b8ea17 --- /dev/null +++ b/modally-faces.el @@ -0,0 +1,68 @@ +;;; modally-faces.el --- Faces used in Modally -*- lexical-binding: t; -*- + +;; Copyright (C) 2024 Blake Romero + +;; Author: Blake Romero +;; 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 . + +;;; 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) + +(provide 'modally-faces) +;;; modally-faces.el ends here -- cgit