在Emacs Lisp中插入整个月份的日期

我在Emacs Lisp中做了一些编程,但我不完全确定如何处理某些事情.

我正在尝试插入一整个月的日期,每个日期都在一个新的行上,如下面的列表:

一月

周一01/01/09:

02/01/09星期二:

03/01/09周三:

等等

我该怎么做呢？我已经找到了如何格式化日期,但我找不到如何循环一定范围的日期(在这种情况下循环整整一个月并打印一个月中每一天的日期).

有没有人得到一些指示他们可以给我如何开始？

你想要的功能'encode-time,'format-time-string和'decode-time.有关正确的文档,要么C-h f function-name或将为您提供该功能的文档,或者可以在此处找到常规的elisp信息页面:C-h i m elisp RET m time conversion RET

这是片段:

(defun my-insert-dates ()
  "insert a bunch of dates"
  (interactive)
  (let* ((month 3)
         (day 1)
         (time (encode-time 1 1 0 day month 2009)))
    (while (= (nth 4 (decode-time time)) month)
      (insert (format-time-string "%D %a:\n" time))
      (setq day (1+ day))
      (setq time (encode-time 1 1 0 day month 2009)))))

我找不到如何确定给定月份的天数(当然,你可以硬编码,但那时你必须处理闰年).幸运的是,'encode-time为你做了所有的补充,所以如果你通过它相当于"2月31日",它将返回"3月3日"(假设28天).