Function: holiday-bahai-ridvan

holiday-bahai-ridvan is a byte-compiled function defined in cal-bahai.el.gz.

Signature

(holiday-bahai-ridvan &optional ALL)

Documentation

Holidays related to Ridvan, as visible in the calendar window.

Only considers the first, ninth, and twelfth days, unless ALL or calendar-bahai-all-holidays-flag is non-nil.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-bahai.el.gz
;;;###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
`calendar-bahai-all-holidays-flag' 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 calendar-bahai-all-holidays-flag)
        (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)))))