54 |
|
|
55 |
;;; Code: |
;;; Code: |
56 |
|
|
57 |
|
(defvar date) |
58 |
|
(defvar displayed-month) |
59 |
|
(defvar displayed-year) |
60 |
|
(defvar number) |
61 |
|
(defvar original-date) |
62 |
|
|
63 |
(require 'cal-julian) |
(require 'cal-julian) |
64 |
|
|
65 |
(defvar bahai-calendar-month-name-array |
(defvar bahai-calendar-month-name-array |
221 |
(mark (regexp-quote diary-nonmarking-symbol))) |
(mark (regexp-quote diary-nonmarking-symbol))) |
222 |
(calendar-for-loop i from 1 to number do |
(calendar-for-loop i from 1 to number do |
223 |
(let* ((d diary-date-forms) |
(let* ((d diary-date-forms) |
224 |
(bdate (calendar-bahai-from-absolute |
(bdate (calendar-bahai-from-absolute |
225 |
(calendar-absolute-from-gregorian gdate))) |
(calendar-absolute-from-gregorian gdate))) |
226 |
(month (extract-calendar-month bdate)) |
(month (extract-calendar-month bdate)) |
227 |
(day (extract-calendar-day bdate)) |
(day (extract-calendar-day bdate)) |
466 |
(make-diary-entry |
(make-diary-entry |
467 |
(concat |
(concat |
468 |
bahai-diary-entry-symbol |
bahai-diary-entry-symbol |
469 |
(calendar-date-string |
(calendar-date-string |
470 |
(calendar-bahai-from-absolute |
(calendar-bahai-from-absolute |
471 |
(calendar-absolute-from-gregorian |
(calendar-absolute-from-gregorian |
472 |
(calendar-cursor-to-date t))) |
(calendar-cursor-to-date t))) |
484 |
(make-diary-entry |
(make-diary-entry |
485 |
(concat |
(concat |
486 |
bahai-diary-entry-symbol |
bahai-diary-entry-symbol |
487 |
(calendar-date-string |
(calendar-date-string |
488 |
(calendar-bahai-from-absolute |
(calendar-bahai-from-absolute |
489 |
(calendar-absolute-from-gregorian |
(calendar-absolute-from-gregorian |
490 |
(calendar-cursor-to-date t))))) |
(calendar-cursor-to-date t))))) |
503 |
(make-diary-entry |
(make-diary-entry |
504 |
(concat |
(concat |
505 |
bahai-diary-entry-symbol |
bahai-diary-entry-symbol |
506 |
(calendar-date-string |
(calendar-date-string |
507 |
(calendar-bahai-from-absolute |
(calendar-bahai-from-absolute |
508 |
(calendar-absolute-from-gregorian |
(calendar-absolute-from-gregorian |
509 |
(calendar-cursor-to-date t))))) |
(calendar-cursor-to-date t))))) |