Emacs日历: show more than 3 months?

Question

在Emacs中，当您使用M-x calendar显示日历时，您会在一个只有8行高的新窗口中看到三个月的显示-上个月，本月和下个月。

是否可以在全尺寸窗口中生成十二个月的日历？

Answer 1

似乎没有一个简单的方法可以做到这一点。我能够敲出以下代码，它将在单独的框架中连续显示所有十二个月的代码。

(require 'cl)
(require 'calendar)

(defun twelve-month-calendar ()
  (interactive)
  (let ((calendar-buffer (get-buffer-create "12-month calendar"))
        (month 12)
        (year 2012))
    (set-buffer calendar-buffer)
    (setq calendar-frame (make-frame))
    (make-variable-buffer-local 'font-lock-face)
    (set-face-attribute 'default calendar-frame :height 70)
    (set-frame-width calendar-frame 300)
    (erase-buffer)
    (dotimes (i 12)
      (calendar-generate-month month year 0)
      (calendar-increment-month month year -1))
    (calendar-mode)))

您可能需要对其进行一些调整，具体取决于屏幕/字体大小。