Mercurial > emacs

comparison lisp/calendar/cal-bahai.el @ 65141:fad69800a5b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(date, displayed-month, displayed-year, number, original-date): Add defvars.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 26 Aug 2005 11:19:05 +0000
parents 18a818a2ee7c
children a55ee709ec8d
comparison
equal deleted inserted replaced
65140:3c2b74f1d910 65141:fad69800a5b0
51 ;; Note: The days of Ayyam-i-Ha are encoded as zero and negative 51 ;; Note: The days of Ayyam-i-Ha are encoded as zero and negative
52 ;; offsets from the first day of the final month. So, (19 -3 157) is 52 ;; offsets from the first day of the final month. So, (19 -3 157) is
53 ;; the first day of Ayyam-i-Ha, in the year 157 BE. 53 ;; the first day of Ayyam-i-Ha, in the year 157 BE.
54 54
55 ;;; Code: 55 ;;; Code:
56
57 (defvar date)
58 (defvar displayed-month)
59 (defvar displayed-year)
60 (defvar number)
61 (defvar original-date)
56 62
57 (require 'cal-julian) 63 (require 'cal-julian)
58 64
59 (defvar bahai-calendar-month-name-array 65 (defvar bahai-calendar-month-name-array
60 ["Baha" "Jalal" "Jamal" "`Azamat" "Nur" "Rahmat" "Kalimat" "Kamal" 66 ["Baha" "Jalal" "Jamal" "`Azamat" "Nur" "Rahmat" "Kalimat" "Kamal"
213 (diary-modified (buffer-modified-p)) 219 (diary-modified (buffer-modified-p))
214 (gdate original-date) 220 (gdate original-date)
215 (mark (regexp-quote diary-nonmarking-symbol))) 221 (mark (regexp-quote diary-nonmarking-symbol)))
216 (calendar-for-loop i from 1 to number do 222 (calendar-for-loop i from 1 to number do
217 (let* ((d diary-date-forms) 223 (let* ((d diary-date-forms)
218 (bdate (calendar-bahai-from-absolute 224 (bdate (calendar-bahai-from-absolute
219 (calendar-absolute-from-gregorian gdate))) 225 (calendar-absolute-from-gregorian gdate)))
220 (month (extract-calendar-month bdate)) 226 (month (extract-calendar-month bdate))
221 (day (extract-calendar-day bdate)) 227 (day (extract-calendar-day bdate))
222 (year (extract-calendar-year bdate))) 228 (year (extract-calendar-year bdate)))
223 (while d 229 (while d
458 (interactive "P") 464 (interactive "P")
459 (let* ((calendar-month-name-array bahai-calendar-month-name-array)) 465 (let* ((calendar-month-name-array bahai-calendar-month-name-array))
460 (make-diary-entry 466 (make-diary-entry
461 (concat 467 (concat
462 bahai-diary-entry-symbol 468 bahai-diary-entry-symbol
463 (calendar-date-string 469 (calendar-date-string
464 (calendar-bahai-from-absolute 470 (calendar-bahai-from-absolute
465 (calendar-absolute-from-gregorian 471 (calendar-absolute-from-gregorian
466 (calendar-cursor-to-date t))) 472 (calendar-cursor-to-date t)))
467 nil t)) 473 nil t))
468 arg))) 474 arg)))
476 (if european-calendar-style '(day " * ") '("* " day ))) 482 (if european-calendar-style '(day " * ") '("* " day )))
477 (calendar-month-name-array bahai-calendar-month-name-array)) 483 (calendar-month-name-array bahai-calendar-month-name-array))
478 (make-diary-entry 484 (make-diary-entry
479 (concat 485 (concat
480 bahai-diary-entry-symbol 486 bahai-diary-entry-symbol
481 (calendar-date-string 487 (calendar-date-string
482 (calendar-bahai-from-absolute 488 (calendar-bahai-from-absolute
483 (calendar-absolute-from-gregorian 489 (calendar-absolute-from-gregorian
484 (calendar-cursor-to-date t))))) 490 (calendar-cursor-to-date t)))))
485 arg))) 491 arg)))
486 492
495 '(monthname " " day))) 501 '(monthname " " day)))
496 (calendar-month-name-array bahai-calendar-month-name-array)) 502 (calendar-month-name-array bahai-calendar-month-name-array))
497 (make-diary-entry 503 (make-diary-entry
498 (concat 504 (concat
499 bahai-diary-entry-symbol 505 bahai-diary-entry-symbol
500 (calendar-date-string 506 (calendar-date-string
501 (calendar-bahai-from-absolute 507 (calendar-bahai-from-absolute
502 (calendar-absolute-from-gregorian 508 (calendar-absolute-from-gregorian
503 (calendar-cursor-to-date t))))) 509 (calendar-cursor-to-date t)))))
504 arg))) 510 arg)))
505 511