[PATCH] remove perl dependency in pick-web-browser

[PATCH] remove perl dependency in pick-web-browser

[Baptiste Daroussin]

[-- Attachment #1: Type: text/plain, Size: 277 bytes --]

this patch removes the need of perl and sed in pick-web-browser, it
works but I'm sur the pattern matching could be cleaner

Anyway here is the patch
the only function that now keeps using perl is
Newuser/zsh-newuser-install but that will be for an other day :)

regards,
Bapt

[-- Attachment #2: pick-web-browser-noperl.patch --]
[-- Type: application/octet-stream, Size: 939 bytes --]

diff --git a/Functions/MIME/pick-web-browser b/Functions/MIME/pick-web-browser
index fe42c0b..aecc789 100644
--- a/Functions/MIME/pick-web-browser
+++ b/Functions/MIME/pick-web-browser
@@ -81,9 +81,10 @@ for bstyle in $bstyles; do
     #    windows=(${(f)"$(xwininfo -root -all | 
     #	sed -ne 's/.*".*": ("\(.*\)" ".*").*/\1/p' |sort | uniq)"})
 
-    windows=(${(f)"$(xwininfo -root -all | 
-         perl -ne '/.*"(.*)": \("(.*)" "(.*)"\).*/ and $w{$2} = 1;
-                   END { print join("\n", keys %w), "\n" }')"})
+    windows=(${(ou)${(M)${(f)"$(xwininfo -root -all)"}:#*\"*\"\:[[:space:]]\(\"*}/(#b)*\"*\"\:[[:space:]]\(\"(*)\"[[:space:]]\"*\"\)*/$match[1]})
+    #windows=(${(f)"$(xwininfo -root -all | 
+    #     perl -ne '/.*"(.*)": \("(.*)" "(.*)"\).*/ and $w{$2} = 1;
+    #               END { print join("\n", keys %w), "\n" }')"})
 
     # Is any browser we've heard of running?
     for browser in $xbrowsers; do