From df7c034e8afe6fb6cff8431af8a520d921d70085 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 3 Apr 2008 04:05:56 +0000 Subject: [PATCH] (holiday-fixed): Autoload it. (holiday-bahai-new-year, holiday-bahai-ridvan): New functions. --- lisp/calendar/cal-bahai.el | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) diff --git a/lisp/calendar/cal-bahai.el b/lisp/calendar/cal-bahai.el index 4674ad97a20..ad72c852579 100644 --- a/lisp/calendar/cal-bahai.el +++ b/lisp/calendar/cal-bahai.el @@ -226,6 +226,33 @@ nil if it is not visible in the current calendar window." (calendar-absolute-from-bahai (list month day y))))) (list (list date string)))))) +(autoload 'holiday-fixed "holidays") + +;;;###holiday-autoload +(defun holiday-bahai-new-year () + "Holiday entry for the Bahá'í New Year, if visible in the calendar window." + (holiday-fixed 3 21 + (format "Bahá'í New Year (Naw-Ruz) %d" + (- displayed-year (1- 1844))))) + +;;;###holiday-autoload +(defun holiday-bahai-ridvan (&optional all) + "Holidays related to Ridvan, as visible in the calendar window. +Only considers the first, ninth, and twelfth days, unless ALL or +`all-bahai-calendar-holidays' is non-nil." + (let ((ord ["First" "Second" "Third" "Fourth" "Fifth" "Sixth" + "Seventh" "Eighth" "Ninth" "Tenth" "Eleventh" "Twelfth"]) + (show '(0 8 11)) + rid h) + (if (or all all-bahai-calendar-holidays) + (setq show (number-sequence 0 11))) + ;; More trouble than it was worth...? + (dolist (i show (nreverse rid)) + (if (setq h (holiday-fixed (if (< i 10) 4 5) + (+ i (if (< i 10) 21 -9)) + (format "%s Day of Ridvan" (aref ord i)))) + (push (car h) rid))))) + (autoload 'diary-list-entries-1 "diary-lib") ;;;###diary-autoload -- 2.39.5