((= 2 phase) "Full Moon")
((= 3 phase) "Last Quarter Moon")))
+;;;###cal-autoload
(defun calendar-phases-of-moon ()
"Create a buffer with the lunar phases for the current calendar window."
(interactive)
(displayed-year (extract-calendar-year date)))
(calendar-phases-of-moon))))
+;;;###diary-autoload
(defun diary-phases-of-moon (&optional mark)
"Moon phases diary entry.
An optional parameter MARK specifies a face or single-character string to
"Type \\[switch-to-buffer-other-window] RET to restore old \
contents of temp window."))))))
+;;;###cal-autoload
(defun calendar-sunrise-sunset ()
"Local time of sunrise and sunset for date under cursor.
Accurate to a few seconds."
(defvar date)
;; To be called from list-sexp-diary-entries, where DATE is bound.
+;;;###diary-autoload
(defun diary-sunrise-sunset ()
"Local time of sunrise and sunset as a diary entry.
Accurate to a few seconds."
(solar-sunrise-sunset-string date))
;; To be called from list-sexp-diary-entries, where DATE is bound.
+;;;###diary-autoload
(defun diary-sabbath-candles (&optional mark)
"Local time of candle lighting diary entry--applies if date is a Friday.
No diary entry if there is no sunset on that date.
(* -0.00823 z z z)
(* 0.00032 z z z z)))))))
+;;;###holiday-autoload
(defun solar-equinoxes-solstices ()
"Local date and time of equinoxes and solstices, if visible in the calendar.
Requires floating point."