mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(s-hemi-seasons n-hemi-seasons): New constants are hemisphere

Browse Source 
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'.
This commit is contained in:
Brian Fox 1993-09-21 07:46:03 +00:00
parent 7e37cd30c6
commit fc68b5523c
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lisp/calendar/solar.el
View File

@ -105,6 +105,15 @@ value and might not know how to override it.")
"*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)
@ -495,18 +504,10 @@ Requires floating point."
(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)))))))
(list (list date
(format "%s %s"
(nth k (if s-hemi s-hemi-seasons n-hemi-seasons))
(solar-time-string time date)))))))
(provide 'solar)