Variable: calendar-location-name
calendar-location-name is a customizable variable defined in
solar.el.gz.
Value
Large value
(let
((float-output-format "%.1f"))
(format "%s%s, %s%s"
(if
(numberp calendar-latitude)
(abs calendar-latitude)
(+
(aref calendar-latitude 0)
(/
(aref calendar-latitude 1)
60.0)))
(if
(numberp calendar-latitude)
(if
(> calendar-latitude 0)
"N" "S")
(if
(eq
(aref calendar-latitude 2)
'north)
"N" "S"))
(if
(numberp calendar-longitude)
(abs calendar-longitude)
(+
(aref calendar-longitude 0)
(/
(aref calendar-longitude 1)
60.0)))
(if
(numberp calendar-longitude)
(if
(> calendar-longitude 0)
"E" "W")
(if
(eq
(aref calendar-longitude 2)
'east)
"E" "W"))))
Documentation
Expression evaluating to the name of the calendar location.
For example, "New York City". The default value is just the
variable calendar-latitude(var)/calendar-latitude(fun) paired with the variable calendar-longitude(var)/calendar-longitude(fun).
This variable should be set in site-start.el.
Source Code
;; Defined in /usr/src/emacs/lisp/calendar/solar.el.gz
(defcustom calendar-location-name
'(let ((float-output-format "%.1f"))
(format "%s%s, %s%s"
(if (numberp calendar-latitude)
(abs calendar-latitude)
(+ (aref calendar-latitude 0)
(/ (aref calendar-latitude 1) 60.0)))
(if (numberp calendar-latitude)
(if (> calendar-latitude 0) "N" "S")
(if (eq (aref calendar-latitude 2) 'north) "N" "S"))
(if (numberp calendar-longitude)
(abs calendar-longitude)
(+ (aref calendar-longitude 0)
(/ (aref calendar-longitude 1) 60.0)))
(if (numberp calendar-longitude)
(if (> calendar-longitude 0) "E" "W")
(if (eq (aref calendar-longitude 2) 'east) "E" "W"))))
"Expression evaluating to the name of the calendar location.
For example, \"New York City\". The default value is just the
variable `calendar-latitude' paired with the variable `calendar-longitude'.
This variable should be set in `site-start'.el."
:type 'sexp
:risky t
:group 'calendar)