[elpa] branch master updated (4e171a5 -> 9b6551e)

[Mario Lang]

mlang pushed a change to branch master
in repository elpa.

  from  4e171a5   Merge branch 'master' of github.com:leoliu/ggtags
   new  9b6551e   Release 0.1.

The 1 revisions listed above as "new" are entirely new to this
repository and will be described in separate emails.  The revisions
listed as "adds" were already present in the repository and have only
been added to this reference.


Summary of changes:
 packages/metar/metar.el |   15 ---
 1 files changed, 8 insertions(+), 7 deletions(-)

[elpa] 01/01: Release 0.1.

[Mario Lang]

mlang pushed a commit to branch master
in repository elpa.

commit 9b6551e1e71ffa00f4b4d4e78d2efcbd3d9204fd
Author: Mario Lang 
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 
-;; 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