procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add option `calendar-weekend-days'

Browse source 
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.
This commit is contained in:
Ingo Lohmar 2015-08-02 17:20:53 +02:00
parent 844ae4d064
commit 397e316b28
2 changed files with 17 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
ChangeLog.2
View file

@ -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

12
lisp/calendar/calendar.el
View file

@ -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)