4 |
|
|
5 |
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> |
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> |
6 |
;; Denis B. Roegel <Denis.Roegel@loria.fr> |
;; Denis B. Roegel <Denis.Roegel@loria.fr> |
7 |
|
;; Maintainer: Glenn Morris <gmorris@ast.cam.ac.uk> |
8 |
;; Keywords: calendar |
;; Keywords: calendar |
9 |
;; Human-Keywords: sunrise, sunset, equinox, solstice, calendar, diary, |
;; Human-Keywords: sunrise, sunset, equinox, solstice, calendar, diary, |
10 |
;; holidays |
;; holidays |
208 |
|
|
209 |
(defun solar-setup () |
(defun solar-setup () |
210 |
"Prompt user for latitude, longitude, and time zone." |
"Prompt user for latitude, longitude, and time zone." |
211 |
|
(unless (or (and calendar-longitude calendar-latitude calendar-time-zone) |
212 |
|
(interactive-p)) |
213 |
|
;; Defaults must be nil, else results could be subtlely wrong for |
214 |
|
;; user's real location. |
215 |
|
(error "Calendar latitude, longitude and/or time-zone unset")) |
216 |
(beep) |
(beep) |
217 |
(if (not calendar-longitude) |
(if (not calendar-longitude) |
218 |
(setq calendar-longitude |
(setq calendar-longitude |