[elpa] 02/02: Fix phenomena decoding

[Mario Lang]

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.")))))