From 397e316b28f74d4b96ccb86203a3996fdd4755f9 Mon Sep 17 00:00:00 2001 From: Ingo Lohmar Date: Sun, 2 Aug 2015 17:20:53 +0200 Subject: [PATCH] Add option `calendar-weekend-days' Previously, the face `calendar-weekend-header' was invariably applied to Sundays and Saturdays, although weekend days differ by region/culture. Making the days freely customizable, independent of `calendar-week-start-day', should cover all possible scenarios. --- ChangeLog.2 | 6 ++++++ lisp/calendar/calendar.el | 12 +++++++++++- 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/ChangeLog.2 b/ChangeLog.2 index fcaff3925ae..cd10de24c65 100644 --- a/ChangeLog.2 +++ b/ChangeLog.2 @@ -1,3 +1,9 @@ +2015-08-02 Ingo Lohmar + + Add option `calendar-weekend-days' + * lisp/calendar/calendar.el (calendar-generate-month): New + variable calendar-weekend-days to fontify day headers correctly. + 2015-08-02 Paul Eggert Substitute some customization etc. doc strings diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index fd2580e385e..078da3d186c 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -190,6 +190,16 @@ movement commands will not work correctly." (calendar-redraw)) :group 'calendar) +(defcustom calendar-weekend-days '(0 6) + "Days of the week considered weekend days. +0 means Sunday, 1 means Monday, and so on. + +Determines which day headers are fontified with +`calendar-weekend-header'." + :type '(repeat integer) + :version "25.1" + :group 'calendar) + (defcustom calendar-view-diary-initially-flag nil "Non-nil means display current date's diary entries on entry to calendar. The diary is displayed in another window when the calendar is first displayed, @@ -1454,7 +1464,7 @@ line." (insert (truncate-string-to-width (propertize (calendar-day-name j 'header t) - 'font-lock-face (if (memq j '(0 6)) + 'font-lock-face (if (memq j calendar-weekend-days) 'calendar-weekend-header 'calendar-weekday-header)) calendar-day-header-width nil ?\s) -- 2.39.2