[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 02/02: Fix phenomena decoding
From: |
Mario Lang |
Subject: |
[elpa] 02/02: Fix phenomena decoding |
Date: |
Mon, 26 May 2014 12:56:45 +0000 |
mlang pushed a commit to branch master
in repository elpa.
commit fab13fef39e68b3511d5c5d73673022fe73bc9b0
Author: Mario Lang <address@hidden>
Date: Mon May 26 14:55:58 2014 +0200
Fix phenomena decoding
---
packages/metar/metar.el | 5 +++--
1 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/packages/metar/metar.el b/packages/metar/metar.el
index 3a04b47..cbba5f8 100644
--- a/packages/metar/metar.el
+++ b/packages/metar/metar.el
@@ -388,7 +388,7 @@ If no record was found for STATION, nil is returned."
(cons 'humidity humidity)
(cons 'pressure pressure))
(when (metar-phenomena codes)
- (list 'phenomena (metar-phenomena codes)))))))
+ (list (cons 'phenomena (metar-phenomena codes))))))))
(defun metar-magnus-formula-humidity-from-dewpoint (temperature dewpoint)
"Calculate relative humidity (in %) from TEMPERATURE and DEWPOINT (in
@@ -450,7 +450,8 @@ Otherwise, determine the best station via
latitude/longitude."
(cadr (assoc 'temperature info))
(cadr (assoc 'humidity info))
(if (assoc 'phenomena info)
- (concat ", " (cdr (assoc 'phenomena info)))
+ (concat "\n" "Phenomena: "
+ (cdr (assoc 'phenomena info)))
""))
(message "No weather information found, sorry.")))))