[Summary view] [Print] [Text view]

   1  #!/usr/local/bin/clisp 
   2  
   3  
   4  ;  prints the current & next hebrew month
   5  
   6  (load 'yc.cl)
   7  ;(setq date '(4 15 2010))
   8  
   9  ;(format t "~A" (calendar-hebrew-date-string))
  10  ;(format t "~A" (extract-calendar-month date))
  11  
  12  (let*
  13      ((hebrew-date (calendar-hebrew-from-absolute
  14                     (calendar-absolute-from-gregorian
  15                      (calendar-current-date))))
  16       (calendar-month-name-array
  17        (if (hebrew-calendar-leap-year-p (extract-calendar-year hebrew-date))
  18            calendar-hebrew-month-name-array-leap-year
  19          calendar-hebrew-month-name-array-common-year))
  20  
  21       (hebrew-month (first hebrew-date))
  22       (hebrew-months-count
  23        (if (hebrew-calendar-leap-year-p (extract-calendar-year hebrew-date))
  24            13  12))
  25       (hebrew-month2
  26          (if (eq hebrew-month hebrew-months-count)
  27              1 (1+ hebrew-month))))
  28      (format t "~A~%~A" (calendar-month-name (first hebrew-date ))
  29             (calendar-month-name hebrew-month2)))
  30  
  31    
  32