From 00afd31d4d2809c807b066653439033766be1615 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 25 Oct 2021 16:54:20 +0100 Subject: mullvad fixes --- lib/net/jao-mullvad.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lib/net') diff --git a/lib/net/jao-mullvad.el b/lib/net/jao-mullvad.el index ba552e8..e4b335e 100644 --- a/lib/net/jao-mullvad.el +++ b/lib/net/jao-mullvad.el @@ -66,8 +66,8 @@ (message "")) (jao-mullvad-mode))) -(defconst jao-mullvad--country-rx "^\\([^ \t\n]+ (...?)\\)$") -(defconst jao-mullvad--city-rx " \\([^ (]+ (...)\\)") +(defconst jao-mullvad--country-rx "^\\([^\t\n]+ (...?)\\)$") +(defconst jao-mullvad--city-rx " \\([^\t(]+ (...)\\)") (defun jao-mullvad--list () "Compute an alist of available relay countries with their cities." @@ -83,7 +83,7 @@ ((looking-at jao-mullvad--city-rx) (setq country (cons (match-string 1) country)))) (forward-line 1)) - (reverse countries)))) + (reverse (cons (reverse country) countries))))) ;;;###autoload (defun jao-mullvad-status () @@ -105,7 +105,7 @@ (setq country (match-string 0))))) (let ((inhibit-read-only t)) (forward-line 1) - (insert "Connected to " country " " city " - " server "\n") + (insert "Connected to " country " " city " - " server "\n") (goto-char (point-min)))))) ;;;###autoload -- cgit v1.2.3