Lines Matching defs:year
50 "Non-nil means print the day-of-the-year number in the monthly cal-html page."
54 (defcustom cal-html-year-index-cols 3
73 " TABLE.year { width: 100%; }\n"
167 (defun cal-html-monthpage-name (month year)
170 (format "%d-%.2d.html" year month))
173 (defun cal-html-insert-link-monthpage (month year &optional change-dir)
176 the link points to a different year and so has a directory part."
181 (format "../%d/" year))
182 (cal-html-monthpage-name month year))
186 (defun cal-html-insert-link-yearpage (month year)
191 (cal-html-href "index.html" (number-to-string year))))))
194 (defun cal-html-year-dir-ask-user (year)
200 (expand-file-name (format "%d" year)
206 (defun cal-html-insert-month-header (month year)
208 Contains links to previous and next month and year, and current minical."
212 (increment-calendar-month month year -1) ; previous month
213 (cal-html-insert-link-monthpage month year t) ; t --> change-dir
214 (increment-calendar-month month year 1) ; current month
215 (cal-html-insert-link-yearpage month year)
216 (increment-calendar-month month year 1) ; next month
217 (cal-html-insert-link-monthpage month year t) ; t --> change-dir
220 (increment-calendar-month month year -1)
221 (cal-html-insert-minical month year)
229 (defun cal-html-insert-minical (month year)
232 (mod (- (calendar-day-of-week (list month 1 year))
235 (last (calendar-last-day-of-month month year))
237 (mod (- 6 (- (calendar-day-of-week (list month last year))
240 (monthpage-name (cal-html-monthpage-name month year))
277 ;; year index page with minicals
279 (defun cal-html-insert-year-minicals (year cols)
283 (insert (cal-html-h1 (number-to-string year)))
284 (insert (cal-html-b-table "class=year")
288 (cal-html-insert-link-monthpage (1+ i) year)
289 (cal-html-insert-minical (1+ i) year)
356 (defun cal-html-insert-agenda-days (month year diary-list)
361 (mod (- (calendar-day-of-week (list month 1 year))
364 (last (calendar-last-day-of-month month year))
369 (setq date (list month (1+ i) year))
397 (defun cal-html-one-month (month year dir)
400 (calendar-absolute-from-gregorian (list month 1 year))
403 (calendar-last-day-of-month month year)
404 year)))))
407 (cal-html-insert-month-header month year)
408 (cal-html-insert-agenda-days month year diary-list)
411 (cal-html-monthpage-name month year) dir)))))
417 (defun cal-html-cursor-month (month year dir)
424 (year (extract-calendar-year date)))
425 (list month year (cal-html-year-dir-ask-user year))))
427 (cal-html-one-month month year dir))
429 (defun cal-html-cursor-year (year dir)
434 (interactive (let ((year (extract-calendar-year
436 (list year (cal-html-year-dir-ask-user year))))
439 (cal-html-insert-year-minicals year cal-html-year-index-cols)
442 (cal-html-one-month (1+ i) year dir)))