mlang pushed a commit to branch master
in repository elpa.
commit 9b6551e1e71ffa00f4b4d4e78d2efcbd3d9204fd
Author: Mario Lang <ml...@delysid.org>
Date: Tue Jun 24 11:09:47 2014 +0200
Release 0.1.
---
packages/metar/metar.el | 15 ++++++++-------
1 files changed, 8 insertions(+), 7 deletions(-)
diff --git a/packages/metar/metar.el b/packages/metar/metar.el
index 82b83b7..7b78f07 100644
--- a/packages/metar/metar.el
+++ b/packages/metar/metar.el
@@ -3,7 +3,7 @@
;; Copyright (C) 2007, 2014 Free Software Foundation, Inc.
;; Author: Mario Lang <ml...@delysid.org>
-;; Version: 0
+;; Version: 0.1
;; Package-Requires: ((cl-lib "0.5"))
;; Keywords: comm
@@ -545,7 +545,7 @@ Otherwise, determine the best station via
latitude/longitude."
nil t))))
(let ((info (metar-decode (metar-get-record station))))
(if info
- (message "%d minutes ago at %s: %d°%c, %d%% relative humidity%s"
+ (message "%d minutes ago at %s: %d°%c, %s%d%% humidity, %.1f %S."
(/ (truncate (float-time (time-since
(cdr (assoc 'timestamp info)))))
60)
@@ -555,11 +555,11 @@ Otherwise, determine the best station via
latitude/longitude."
(cond
((eq (cdr (assq 'temperature metar-units)) 'degC) ?C)
((eq (cdr (assq 'temperature metar-units)) 'degF) ?F))
- (cadr (assoc 'humidity info))
(if (assoc 'phenomena info)
- (concat "\n" "Phenomena: "
- (cdr (assoc 'phenomena info)))
- ""))
+ (concat (cdr (assoc 'phenomena info)) ", ")
+ "")
+ (cadr (assoc 'humidity info))
+ (cadr (assoc 'pressure info)) (cddr (assoc 'pressure info)))
(message "No weather information found, sorry.")))))
(defun metar-station-countries ()
@@ -619,7 +619,8 @@ Otherwise, determine the best station via
latitude/longitude."
(format "%.1f°%c"
(car dewpoint)
(cond ((eq (cdr dewpoint) 'degC) ?C)
- ((eq (cdr dewpoint) 'degF) ?F)))))
+ ((eq (cdr dewpoint) 'degF) ?F)
+ ((eq (cdr dewpoint) 'degK) ?K)))))
(cons ?h
(let ((humidity (cdr (assq 'humidity report))))
(format "%d%%" (car humidity))))
