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.

diff --git a/ChangeLog.2 b/ChangeLog.2
index fcaff3925ae4982d747e11f48436fa9da4ca7df2..cd10de24c65606adf888ba9e7839ae417b16ee2f 100644 (file)
--- a/ChangeLog.2
+++ b/ChangeLog.2
@@ -1,3 +1,9 @@
+2015-08-02  Ingo Lohmar  <i.lohmar@gmail.com>
+
+       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  <eggert@cs.ucla.edu>
 
        Substitute some customization etc. doc strings

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index fd2580e385edd375be2a78415d0ae663f9f02818..078da3d186c74220471242fa68f80b7f93ba3ca7 100644 (file)
--- 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)