1828 |
|
|
1829 |
(defun generate-calendar-month (month year indent) |
(defun generate-calendar-month (month year indent) |
1830 |
"Produce a calendar for MONTH, YEAR on the Gregorian calendar. |
"Produce a calendar for MONTH, YEAR on the Gregorian calendar. |
1831 |
The calendar is inserted in the buffer starting at the line on which point |
The calendar is inserted at the beginning of the buffer, |
1832 |
is currently located, but indented INDENT spaces. The indentation is done |
and is indented INDENT spaces. The indentation is done |
1833 |
from the first character on the line and does not disturb the first INDENT |
by skipping the first INDENT characters on the line, if there are that many." |
|
characters on the line." |
|
1834 |
(let* ((blank-days;; at start of month |
(let* ((blank-days;; at start of month |
1835 |
(mod |
(mod |
1836 |
(- (calendar-day-of-week (list month 1 year)) |
(- (calendar-day-of-week (list month 1 year)) |