From df1c298dbe8ffadea6d5526da6fbabbd9f2a2b75 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 3 Apr 2008 04:07:01 +0000 Subject: (holiday-islamic-new-year): New function. --- lisp/calendar/cal-islam.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'lisp/calendar/cal-islam.el') diff --git a/lisp/calendar/cal-islam.el b/lisp/calendar/cal-islam.el index 932f2327a7c..5579a0b28e7 100644 --- a/lisp/calendar/cal-islam.el +++ b/lisp/calendar/cal-islam.el @@ -218,6 +218,23 @@ nil if it is not visible in the current calendar window." (calendar-absolute-from-islamic (list month day y))))) (list (list date string)))))) +;;;###holiday-autoload +(defun holiday-islamic-new-year () + "Holiday entry for the Islamic New Year, if visible in the calendar window." + (let ((date (caar (holiday-islamic 1 1 ""))) + (m displayed-month) + (y displayed-year)) + (and date + (list (list date + (format "Islamic New Year %d" + (progn + (increment-calendar-month m y 1) + (extract-calendar-year + (calendar-islamic-from-absolute + (calendar-absolute-from-gregorian + (list m (calendar-last-day-of-month m y) y) + )))))))))) + (autoload 'diary-list-entries-1 "diary-lib") ;;;###diary-autoload -- cgit v1.2.1