[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/metar c45aa82 05/16: [metar] Make the length unit confi
From: |
Stefan Monnier |
Subject: |
[elpa] externals/metar c45aa82 05/16: [metar] Make the length unit configurable (clouds) and simplify pressure conversion |
Date: |
Sat, 28 Nov 2020 23:16:36 -0500 (EST) |
branch: externals/metar
commit c45aa8291933580001b1f12fdb7abecbeeee655d
Author: Mario Lang <mlang@delysid.org>
Commit: Mario Lang <mlang@delysid.org>
[metar] Make the length unit configurable (clouds) and simplify pressure
conversion
---
metar.el | 20 ++++++++++++--------
1 file changed, 12 insertions(+), 8 deletions(-)
diff --git a/metar.el b/metar.el
index 5c4410a..60bc129 100644
--- a/metar.el
+++ b/metar.el
@@ -43,7 +43,9 @@
(require 'solar)
(require 'url)
-(defvar metar-units '((speed . kph) (pressure . bar)))
+(defvar metar-units '((length . m)
+ (pressure . bar)
+ (speed . kph)))
(defvar metar-stations-info-url "http://weather.noaa.gov/data/nsd_bbsss.txt"
"URL to use for retrieving station meta information.")
@@ -247,7 +249,9 @@ If no record was found for STATION, nil is returned."
(while (string-match metar-could-regexp info from)
(setq from (match-end 0)
clouds (push (append (list (match-string 1 info)
- (string-to-number (match-string 2 info)))
+ (metar-convert-unit
+ (concat (match-string 2 info) " ft")
+ (cdr (assq 'length metar-units))))
(when (match-string 3 info)
(list (match-string 3 info))))
clouds)))
@@ -369,12 +373,12 @@ If no record was found for STATION, nil is returned."
(defun metar-pressure (info)
(when (string-match metar-pressure-regexp info)
- (metar-convert-unit (cond
- ((string= (match-string 1 info) "Q")
- (concat "(" (match-string 2 info) " / 1000) bar"))
- ((string= (match-string 1 info) "A")
- (concat "(" (match-string 2 info) " / 100) inHg")))
- (cdr (assq 'pressure metar-units)))))
+ (metar-convert-unit
+ (concat (match-string 2 info)
+ (cond
+ ((string= (match-string 1 info) "Q") "hPa")
+ ((string= (match-string 1 info) "A") "cinHg")))
+ (cdr (assq 'pressure metar-units)))))
(defun metar-decode (record)
"Return a lisp structure describing the weather information in RECORD."
- [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 <=
- [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, 2020/11/28
- [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