Non è facile fare questo, il codice per generare calendario è:
(defun calendar-generate (month year)
"Generate a three-month Gregorian calendar centered around MONTH, YEAR."
;; A negative YEAR is interpreted as BC; -1 being 1 BC, and so on.
;; Note that while calendars for years BC could be displayed as it
;; stands, almost all other calendar functions (eg holidays) would
;; at best have unpredictable results for such dates.
(if (< (+ month (* 12 (1- year))) 2)
(error "Months before January, 1 AD cannot be displayed"))
(setq displayed-month month
displayed-year year)
(erase-buffer)
(calendar-increment-month month year -1)
(dotimes (i 3)
(calendar-generate-month month year
(+ calendar-left-margin
(* calendar-month-width i)))
(calendar-increment-month month year 1)))
Qui, (dotimes (i 3) ...)
genera 3 mesi di seguito.
Quindi, se si desidera generare più di 3 mesi in più di 1 riga, è necessario sostituire da solo la funzione calendar-generate
, come ha detto @Luke.
fonte
2015-06-29 04:29:46
Sembra che tu abbia codificato l'anno come 2012? Qualcosa di simile potrebbe essere preferibile: '(stringa-a-numero (formato-tempo-stringa"% Y "(corrente-tempo)))' – phils
Sì, sentiti libero di modificare. –