From dc6ef8c9ae613dc7fa5d98b5e03c9f70b66adbcc Mon Sep 17 00:00:00 2001 From: Peter Stephenson Date: Fri, 11 Sep 2009 11:26:46 +0000 Subject: Baptiste Daroussin: 27268: remove Perl dependency from pick-web-browser --- Functions/MIME/pick-web-browser | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) (limited to 'Functions/MIME') diff --git a/Functions/MIME/pick-web-browser b/Functions/MIME/pick-web-browser index fe42c0bf5..26f4b6bb5 100644 --- a/Functions/MIME/pick-web-browser +++ b/Functions/MIME/pick-web-browser @@ -74,16 +74,11 @@ for bstyle in $bstyles; do # Get the name of all windows running; use the internal name, not # the friendly name, which is less useful. - # - # The nasty but portable version. - # The nice but non-portable version uses Perl, even though perl - # is more portable. - # 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 -- cgit 1.4.1