From 367c3f25a16c8e013a8dbf2bc8c2c20f233e54d2 Mon Sep 17 00:00:00 2001 From: Protesilaos Stavrou Date: Mon, 20 Feb 2023 21:03:08 +0200 Subject: [PATCH] Add 'appt-notification' face (Bug#61661) * lisp/calendar/appt.el (appt-notification): Declare the new face. (appt-check): Implement the new face. * etc/NEWS: Announce the new face. --- etc/NEWS | 7 +++++++ lisp/calendar/appt.el | 8 +++++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/etc/NEWS b/etc/NEWS index 936bb62d750..fbb13254e64 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -152,6 +152,13 @@ right-aligned to is controlled by the new user option It can be used to add, remove and reorder functions that change the appearance of every tab on the tab bar. +** Miscellaneous + +--- +*** New face 'appt-notification' for 'appt-display-mode-line'. +It can be used to customize the look of the appointment notification +displayed on the mode line when 'appt-display-mode-line' is non-nil. + * Editing Changes in Emacs 30.1 diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index 469b3f4023c..c761bb6a89d 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -165,6 +165,12 @@ Only relevant if reminders are being displayed in a window." :type 'function :group 'appt) +(defface appt-notification + '((t :inherit mode-line-emphasis)) + "Face for appointment notification on the modeline. +Shown when `appt-display-mode-line' is non-nil." + :group 'mode-line-faces + :version "30.1") ;;; Internal variables below this point. @@ -406,7 +412,7 @@ displayed in a window: (appt-mode-line (mapcar #'number-to-string min-list) t) - 'face 'mode-line-emphasis) + 'face 'appt-notification) " "))) ;; Reset count to 0 in case we display another appt on the next cycle. (setq appt-display-count (if (equal '(0) min-list) 0 -- 2.39.2