#!/bin/sh
#
# xdisplaygeometries - print the display geometries of the connected displays
#
# $Id$

Die() { echo fatal error: $@ >&2; exit 1; }

type xrandr >/dev/null || Die cannot find xrandr

xrandr |
perl -alne '
  $F[1] eq "connected" and print $_ for grep { /^\d+x\d+\+\d+\+\d+$/ } @F'