Ivan Kanis <[email protected]> writes: > It displays a year calendar and holiday faces. When displaying the > current year, the cursor will be placed on the day. It doesn't > handle any of the calendar input, such as motion.
I got this error when running on emacs 24.2.2: Debugger entered--Lisp error: (void-variable calendar-month-header) (list calendar-month-header) (calendar-string-spread (list calendar-month-header) 32 calendar-month-digit-width) (insert (calendar-string-spread (list calendar-month-header) 32 calendar-month-digit-width)) (let ((blank-days (mod (- (calendar-day-of-week (list month 1 year)) calendar-week-start-day) 7)) (last (calendar-last-day-of-month month year)) (trunc (min calendar-intermonth-spacing (1- calendar-left-margin))) (day 1) (row 0) string) (calendar-move-to-column indent) (insert (calendar-string-spread (list calendar-month-header) 32 calendar-month-digit-width)) (calendar-ensure-newline) (calendar-insert-at-column indent calendar-intermonth-header trunc) (dotimes (i 7) (insert (progn (setq string (calendar-day-name (mod (+ calendar-week-start-day i) 7) nil t)) (if enable-multibyte-characters (truncate-string-to-width string calendar-day-header-width) (substring string 0 calendar-day-header-width))) (make-string (- calendar-column-width calendar-day-header-width) 32))) (calendar-ensure-newline) (calendar-insert-at-column indent calendar-intermonth-text trunc) (insert (make-string (* blank-days calendar-column-width) 32)) (dotimes (i last) (setq day (1+ i)) (insert (format (format "%%%dd%%s" calendar-day-digit-width) day (make-string (- calendar-column-width calendar-day-digit-width) 32))) (set-text-properties (- (point) (1+ calendar-day-digit-width)) (1- (point)) (\` (mouse-face highlight help-echo (\, (eval calendar-date-echo-text)) date t))) (when (and (zerop (mod (+ day blank-days) 7)) (/= day last)) (calendar-ensure-newline) (setq row (1+ row)) (setq day (1+ day)) (calendar-insert-at-column indent calendar-intermonth-text trunc))) row) caly-calendar-generate-month(1 2013 5) (setq row (caly-calendar-generate-month month year (+ calendar-left-margin (* calendar-month-width i)))) (while (< i --cl-dotimes-temp--) (setq row (caly-calendar-generate-month month year (+ calendar-left-margin (* calendar-month-width i)))) (calendar-increment-month month year 1) (when (> (% (1+ i) 3) 0) (forward-line (- (+ row 2))) (beginning-of-line)) (incf i)) (let ((--cl-dotimes-temp-- 3) (i 0)) (while (< i --cl-dotimes-temp--) (setq row (caly-calendar-generate-month month year (+ calendar-left-margin (* calendar-month-width i)))) (calendar-increment-month month year 1) (when (> (% (1+ i) 3) 0) (forward-line (- (+ row 2))) (beginning-of-line)) (incf i))) (catch (quote --cl-block-nil--) (let ((--cl-dotimes-temp-- 3) (i 0)) (while (< i --cl-dotimes-temp--) (setq row (caly-calendar-generate-month month year (+ calendar-left-margin (* calendar-month-width i)))) (calendar-increment-month month year 1) (when (> (% (1+ i) 3) 0) (forward-line (- (+ row 2))) (beginning-of-line)) (incf i)))) (cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dotimes-temp-- 3) (i 0)) (while (< i --cl-dotimes-temp--) (setq row (caly-calendar-generate-month month year (+ calendar-left-margin (* calendar-month-width i)))) (calendar-increment-month month year 1) (when (> (% (1+ i) 3) 0) (forward-line (- (+ row 2))) (beginning-of-line)) (incf i))))) (block nil (let ((--cl-dotimes-temp-- 3) (i 0)) (while (< i --cl-dotimes-temp--) (setq row (caly-calendar-generate-month month year (+ calendar-left-margin (* calendar-month-width i)))) (calendar-increment-month month year 1) (when (> (% (1+ i) 3) 0) (forward-line (- (+ row 2))) (beginning-of-line)) (incf i)))) (dotimes (i 3) (setq row (caly-calendar-generate-month month year (+ calendar-left-margin (* calendar-month-width i)))) (calendar-increment-month month year 1) (when (> (% (1+ i) 3) 0) (forward-line (- (+ row 2))) (beginning-of-line))) (while --cl-dolist-temp-- (setq month (car --cl-dolist-temp--)) (dotimes (i 3) (setq row (caly-calendar-generate-month month year (+ calendar-left-margin (* calendar-month-width i)))) (calendar-increment-month month year 1) (when (> (% (1+ i) 3) 0) (forward-line (- (+ row 2))) (beginning-of-line))) (goto-char (point-max)) (insert "\n\n") (add-to-list (quote mark) (point) t) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) (let ((--cl-dolist-temp-- (quote (1 4 7 10))) month) (while --cl-dolist-temp-- (setq month (car --cl-dolist-temp--)) (dotimes (i 3) (setq row (caly-calendar-generate-month month year (+ calendar-left-margin (* calendar-month-width i)))) (calendar-increment-month month year 1) (when (> (% (1+ i) 3) 0) (forward-line (- (+ row 2))) (beginning-of-line))) (goto-char (point-max)) (insert "\n\n") (add-to-list (quote mark) (point) t) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))) (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- (quote (1 4 7 10))) month) (while --cl-dolist-temp-- (setq month (car --cl-dolist-temp--)) (dotimes (i 3) (setq row (caly-calendar-generate-month month year (+ calendar-left-margin (* calendar-month-width i)))) (calendar-increment-month month year 1) (when (> (% (1+ i) 3) 0) (forward-line (- (+ row 2))) (beginning-of-line))) (goto-char (point-max)) (insert "\n\n") (add-to-list (quote mark) (point) t) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))))) (cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- (quote (1 4 7 10))) month) (while --cl-dolist-temp-- (setq month (car --cl-dolist-temp--)) (dotimes (i 3) (setq row (caly-calendar-generate-month month year (+ calendar-left-margin ...))) (calendar-increment-month month year 1) (when (> (% ... 3) 0) (forward-line (- ...)) (beginning-of-line))) (goto-char (point-max)) (insert "\n\n") (add-to-list (quote mark) (point) t) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))))) (block nil (let ((--cl-dolist-temp-- (quote (1 4 7 10))) month) (while --cl-dolist-temp-- (setq month (car --cl-dolist-temp--)) (dotimes (i 3) (setq row (caly-calendar-generate-month month year (+ calendar-left-margin (* calendar-month-width i)))) (calendar-increment-month month year 1) (when (> (% (1+ i) 3) 0) (forward-line (- (+ row 2))) (beginning-of-line))) (goto-char (point-max)) (insert "\n\n") (add-to-list (quote mark) (point) t) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))))) (dolist (month (quote (1 4 7 10))) (dotimes (i 3) (setq row (caly-calendar-generate-month month year (+ calendar-left-margin (* calendar-month-width i)))) (calendar-increment-month month year 1) (when (> (% (1+ i) 3) 0) (forward-line (- (+ row 2))) (beginning-of-line))) (goto-char (point-max)) (insert "\n\n") (add-to-list (quote mark) (point) t)) (let* ((today (calendar-current-date)) (today-month (nth 0 today)) (today-day (nth 1 today)) (today-year (nth 2 today)) (orig-calendar-buffer calendar-buffer) (mark (quote (1))) (count 0) row this-year year) (setq this-year (string-to-number (read-from-minibuffer "Enter year to display: " (int-to-string today-year))) year this-year) (when (get-buffer caly-buffer) (kill-buffer caly-buffer)) (switch-to-buffer (get-buffer-create caly-buffer)) (dolist (month (quote (1 4 7 10))) (dotimes (i 3) (setq row (caly-calendar-generate-month month year (+ calendar-left-margin (* calendar-month-width i)))) (calendar-increment-month month year 1) (when (> (% (1+ i) 3) 0) (forward-line (- (+ row 2))) (beginning-of-line))) (goto-char (point-max)) (insert "\n\n") (add-to-list (quote mark) (point) t)) (caly-calendar-mode) (setq displayed-year this-year) (setq calendar-buffer caly-buffer) (when calendar-mark-holidays-flag (dolist (month (quote (1 4 7 10))) (narrow-to-region (nth count mark) (nth (1+ count) mark)) (setq displayed-month (1+ month)) (calendar-mark-holidays) (setq count (1+ count)))) (widen) (if (= today-year this-year) (progn (setq count (/ today-month 3)) (narrow-to-region (nth count mark) (nth (1+ count) mark)) (setq displayed-month (+ (* (/ (- today-month 1) 3) 3) 2)) (calendar-cursor-to-visible-date today) (widen)) (goto-char (point-min))) (setq calendar-buffer orig-calendar-buffer) (other-window 1)) caly() call-interactively(caly t nil) execute-extended-command(nil) call-interactively(execute-extended-command nil nil) -- William http://xwl.appspot.com _______________________________________________ gnu-emacs-sources mailing list [email protected] https://lists.gnu.org/mailman/listinfo/gnu-emacs-sources
