[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/metar 5b8b9b7 14/16: Adjust for NOAA server changes.
From: |
Stefan Monnier |
Subject: |
[elpa] externals/metar 5b8b9b7 14/16: Adjust for NOAA server changes. |
Date: |
Sat, 28 Nov 2020 23:16:38 -0500 (EST) |
branch: externals/metar
commit 5b8b9b7381d515c4f3c55e3b93dcf57c0d972c37
Author: Mark Oteiza <mvoteiza@udel.edu>
Commit: Mario Lang <mlang@delysid.org>
Adjust for NOAA server changes.
---
metar.el | 32 +++++++++++++++-----------------
1 file changed, 15 insertions(+), 17 deletions(-)
diff --git a/metar.el b/metar.el
index b6989ea..570e6b1 100644
--- a/metar.el
+++ b/metar.el
@@ -83,7 +83,7 @@
(const :tag "Degree Kelvin" degK)
(const :tag "Degree Fahrenheit" degF)))))
-(defcustom metar-stations-info-url "http://weather.noaa.gov/data/nsd_bbsss.txt"
+(defcustom metar-stations-info-url
"http://tgftp.nws.noaa.gov/data/nsd_cccc.txt"
"URL to use for retrieving station meta information."
:group 'metar
:type 'string)
@@ -117,23 +117,21 @@ If this variable is nil, the information is retrieved
from the Internet."
(split-string entry ";"))
(split-string (buffer-string) "\n")))))
(setq metar-stations nil)
- (while data
- (when (and (nth 7 (car data)) (nth 8 (car data))
- (not (string= (nth 2 (car data)) "----")))
+ (dolist (entry data)
+ (when (and (nth 7 entry) (nth 8 entry)
+ (not (string= (nth 0 entry) "----")))
(setq metar-stations
(append
- (let ((item (car data)))
- (list
- (list (cons 'code (nth 2 item))
- (cons 'name (nth 3 item))
- (cons 'country (nth 5 item))
- (cons 'latitude
- (metar-station-convert-dms-to-deg (nth 7
item)))
- (cons 'longitude
- (metar-station-convert-dms-to-deg (nth 8
item)))
- (cons 'altitude (string-to-number (nth 12 item))))))
- metar-stations)))
- (setq data (cdr data)))
+ (list
+ (list (cons 'code (nth 0 entry))
+ (cons 'name (nth 3 entry))
+ (cons 'country (nth 5 entry))
+ (cons 'latitude
+ (metar-station-convert-dms-to-deg (nth 7
entry)))
+ (cons 'longitude
+ (metar-station-convert-dms-to-deg (nth 8
entry)))
+ (cons 'altitude (string-to-number (nth 11 entry)))))
+ metar-stations))))
;; (unless metar-timer
;; (setq metar-timer
;; (run-with-timer 600 nil (lambda () (setq metar-stations nil)))))
@@ -281,7 +279,7 @@ It must have the signature of `math-convert-units', which
is the default."
pure))))
(defcustom metar-url
- "http://weather.noaa.gov/pub/data/observations/metar/stations/%s.TXT"
+ "http://tgftp.nws.noaa.gov/data/observations/metar/stations/%s.TXT"
"URL used to fetch station specific information.
%s is replaced with the 4 letter station code."
:group 'metar
- [elpa] branch externals/metar created (now 3b05cb3), Stefan Monnier, 2020/11/28
- [elpa] externals/metar b8949ce 02/16: Fix phenomena decoding, Stefan Monnier, 2020/11/28
- [elpa] externals/metar c45aa82 05/16: [metar] Make the length unit configurable (clouds) and simplify pressure conversion, Stefan Monnier, 2020/11/28
- [elpa] externals/metar 88ae024 04/16: Use calc-units to convert units to a user-defined setting (WIP), Stefan Monnier, 2020/11/28
- [elpa] externals/metar ab9604e 07/16: [metar] Fix humidity calculation when Fahrenheit is used, Stefan Monnier, 2020/11/28
- [elpa] externals/metar 7307c42 01/16: Add metar.el., Stefan Monnier, 2020/11/28
- [elpa] externals/metar 258272f 13/16: * packages/metar/metar.el: Bump version for last two changes., Stefan Monnier, 2020/11/28
- [elpa] externals/metar e0b58d1 12/16: Add a work-around for bug#19582, present before Emacs 24.5., Stefan Monnier, 2020/11/28
- [elpa] externals/metar 5b8b9b7 14/16: Adjust for NOAA server changes.,
Stefan Monnier <=
- [elpa] externals/metar 3b05cb3 16/16: * .gitignore: New file, Stefan Monnier, 2020/11/28
- [elpa] externals/metar 8c6596d 03/16: * packages/metar/metar.el (metar-latitude-longitude-distance-haversine):, Stefan Monnier, 2020/11/28
- [elpa] externals/metar e1a8e1c 08/16: [metar] Fix metar-convert-temperature to actually DTRT, Stefan Monnier, 2020/11/28
- [elpa] externals/metar e891727 09/16: [metar] Unify station lat/lon conversion., Stefan Monnier, 2020/11/28
- [elpa] externals/metar 0f998f5 06/16: [metar] defcustom for metar-units, Stefan Monnier, 2020/11/28
- [elpa] externals/metar 6820f4e 10/16: Release 0.1., Stefan Monnier, 2020/11/28
- [elpa] externals/metar a4c5807 11/16: Fix the case where the metar record contains M01 (bug#19401)., Stefan Monnier, 2020/11/28
- [elpa] externals/metar 623639e 15/16: * packages/metar/metar.el: Bump version., Stefan Monnier, 2020/11/28