-(defun metar-station-convert-longitude (string)
- (when (string-match (rx string-start
- (group (1+ digit))
- ?-
- (group (1+ digit))
- (optional ?- (group (1+ digit)))
- (group (char ?E ?W))
- string-end) string)
- (funcall (if (string= (match-string 4 string) "E") #'+ #'-)
- (+ (string-to-number (match-string 1 string))
- (/ (string-to-number (match-string 2 string))
- 60.0)
- (if (match-string 3 string)
- (/ (string-to-number (match-string 3 string))
- 3600.0)
- 0)))))
-