]> code.delx.au - gnu-emacs-elpa/commitdiff
Fix phenomena decoding
authorMario Lang <mlang@delysid.org>
Mon, 26 May 2014 12:55:58 +0000 (14:55 +0200)
committerMario Lang <mlang@delysid.org>
Mon, 26 May 2014 12:55:58 +0000 (14:55 +0200)
packages/metar/metar.el

index 3a04b472432463fa109846aae648d5c68c9f2c6d..cbba5f8202313862d64bc3f21918b0131ed57ff9 100644 (file)
@@ -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.")))))