comparison lisp/calendar/solar.el @ 4766:ec8c8721b7e3

(s-hemi-seasons n-hemi-seasons): New constants are hemisphere dependent list of season names. The names are "international"; i.e., `vernal' and `autumnal' are used consistently. (solar-equinoxes-solstices): Use new constants, allowing southern hemisphere reports to be meaningful. (sunrise-sunset): Use `frame-width' instead of `screen-width'.

4765:5815d7b38e9a

	     (if (> calendar-latitude 0) "N" "S")
	     (abs calendar-longitude)
	     (if (> calendar-longitude 0) "E" "W")))
  "*Expression evaluating to name of `calendar-longitude', calendar-latitude'.
Default value is just the latitude, longitude pair.")

(defun solar-setup ()
  "Prompt user for latitude, longitude, and time zone."
  (beep)
  (if (not calendar-longitude)

           ;; Time zone/DST can't move the date out of range,
           ;; so let solar-time-string do the conversion.
	   (date (list (extract-calendar-month date)
		       (truncate day)
		       (extract-calendar-year date))))
      (list
       (list date
             (format "%s %s"
		     (cond ((= k 0)
			    (if s-hemi "Autumnal Equinox" "Vernal Equinox"))
			   ((= k 1)
			    (if s-hemi "Winter Solstice" "Summer Solstice"))
			   ((= k 2)
			    (if s-hemi "Vernal Equinox" "Autumnal Equinox"))
			   ((= k 3)
			    (if s-hemi "Summer Solstice" "Winter Solstice")))
		     (solar-time-string time date)))))))

(provide 'solar)

;;; solar.el ends here

4766:ec8c8721b7e3

	     (if (> calendar-latitude 0) "N" "S")
	     (abs calendar-longitude)
	     (if (> calendar-longitude 0) "E" "W")))
  "*Expression evaluating to name of `calendar-longitude', calendar-latitude'.
Default value is just the latitude, longitude pair.")

;;; List of names of the seasons, dependent on your hemisphere.
(defconst n-hemi-seasons
  '("Vernal Equinox" "Summer Solstice" "Autumnal Equinox" "Winter Solstice")
  "List of season changes for the northern hemisphere.")

(defconst s-hemi-seasons
  '("Autumnal Equinox" "Winter Solstice" "Vernal Equinox" "Summer Solstice")
  "List of season changes for the southern hemisphere.")

(defun solar-setup ()
  "Prompt user for latitude, longitude, and time zone."
  (beep)
  (if (not calendar-longitude)

           ;; Time zone/DST can't move the date out of range,
           ;; so let solar-time-string do the conversion.
	   (date (list (extract-calendar-month date)
		       (truncate day)
		       (extract-calendar-year date))))
      (list (list date
		  (format "%s %s"
			  (nth k (if s-hemi s-hemi-seasons n-hemi-seasons))
			  (solar-time-string time date)))))))

(provide 'solar)

;;; solar.el ends here