Function: lunar-phases

lunar-phases is an autoloaded, interactive and byte-compiled function defined in lunar.el.gz.

Signature

(lunar-phases &optional ARG)

Documentation

Display the quarters of the moon for last month, this month, and next month.

If called with an optional prefix argument ARG, prompts for month and year. This function is suitable for execution in an init file.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/lunar.el.gz
;;;###autoload
(defun lunar-phases (&optional arg)
  "Display the quarters of the moon for last month, this month, and next month.
If called with an optional prefix argument ARG, prompts for month and year.
This function is suitable for execution in an init file."
  (interactive "P")
  (with-suppressed-warnings ((lexical date))
    (defvar date))
  (save-excursion
    (let* ((date (if arg (calendar-read-date t)
                   (calendar-current-date)))
           (displayed-month (calendar-extract-month date))
           (displayed-year (calendar-extract-year date)))
      (calendar-lunar-phases))))