我在 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 天)。
关于emacs - 在 Emacs Lisp 中插入整月的日期,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/753248/