| 202 | | (assert (find-sat-layer name)) |
|---|
| 203 | | (with-xml-response (:content-type "text/xml; charset=utf-8" #+nil"application/vnd.google-earth.kml+xml" |
|---|
| 204 | | :root-element "kml") |
|---|
| 205 | | (with-element "Document" |
|---|
| 206 | | (loop for sat-node in (sat-layer-top-level-nodes (find-sat-layer name)) |
|---|
| 207 | | for sat-image = (image sat-node) |
|---|
| 208 | | do (kml-overlay (format nil "http://~a/image/~d" (website-host) (store-object-id sat-image)) |
|---|
| 209 | | (geo-box-rectangle (image-geo-box sat-image)) |
|---|
| 210 | | :draw-order 0 |
|---|
| 211 | | ;; :absolute 0 |
|---|
| 212 | | ))))) |
|---|
| 213 | | |
|---|
| | 202 | (handler-case |
|---|
| | 203 | (progn |
|---|
| | 204 | (assert (find-sat-layer name)) |
|---|
| | 205 | (with-xml-response (:content-type "text/xml; charset=utf-8" #+nil"application/vnd.google-earth.kml+xml" |
|---|
| | 206 | :root-element "kml") |
|---|
| | 207 | (with-element "Document" |
|---|
| | 208 | (loop for sat-node in (sat-layer-top-level-nodes (find-sat-layer name)) |
|---|
| | 209 | for sat-image = (image sat-node) |
|---|
| | 210 | do (kml-overlay (format nil "http://~a/image/~d" (website-host) (store-object-id sat-image)) |
|---|
| | 211 | (geo-box-rectangle (image-geo-box sat-image)) |
|---|
| | 212 | :draw-order 1000 |
|---|
| | 213 | ;; :absolute 0 |
|---|
| | 214 | ))))) |
|---|
| | 215 | (error (c) (format nil "An error occured:~%~a" c)))) |
|---|
| | 216 | |
|---|
