#!/usr/local/bin/clisp 


;  prints the current & next hebrew month

(load 'yc.cl)
;(setq date '(4 15 2010))

;(format t "~A" (calendar-hebrew-date-string))
;(format t "~A" (extract-calendar-month date))

(let*
    ((hebrew-date (calendar-hebrew-from-absolute
                   (calendar-absolute-from-gregorian
                    (calendar-current-date))))
     (calendar-month-name-array
      (if (hebrew-calendar-leap-year-p (extract-calendar-year hebrew-date))
          calendar-hebrew-month-name-array-leap-year
        calendar-hebrew-month-name-array-common-year))

     (hebrew-month (first hebrew-date))
     (hebrew-months-count
      (if (hebrew-calendar-leap-year-p (extract-calendar-year hebrew-date))
          13  12))
     (hebrew-month2
        (if (eq hebrew-month hebrew-months-count)
            1 (1+ hebrew-month))))
    (format t "~A~%~A" (calendar-month-name (first hebrew-date ))
           (calendar-month-name hebrew-month2)))