Permalink
Browse files

Oops, fix up the cal names.

  • Loading branch information...
1 parent 5e46e42 commit a32ce75275eb131ab8cff36ee134f8cfbb2e9c7f @skeeto committed Aug 15, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 cal.el
View
6 cal.el
@@ -43,11 +43,11 @@
(defun cal/insert (year month)
"Insert a calendar for the given YEAR and MONTH."
(interactive "nYear (yyyy): \nnMonth (mm): \n")
- (let ((dow (day-of-week year month 1)))
- (insert (format " %s %d\n" (nth (1- month) month-names) year))
+ (let ((dow (cal/day-of-week year month 1)))
+ (insert (format " %s %d\n" (nth (1- month) cal/month-names) year))
(insert " S M T W T F S\n")
(dotimes (i dow) (insert " "))
- (dotimes (d (+ (nth (1- month) month-days) (leap-day year month)))
+ (dotimes (d (+ (nth (1- month) cal/month-days) (cal/leap-day year month)))
(insert (format "% 3d" (1+ d)))
(if (= 0 (mod (+ dow d 1) 7)) (insert "\n")))
(insert "\n")))

0 comments on commit a32ce75

Please sign in to comment.