From dd4392ef10ccd7f0722a7e865a52f1fb5ae06798 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Wed, 11 Jan 2017 13:11:47 +1300
Subject: Add xrq(1df)

---
 bin/xrq.awk | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 bin/xrq.awk

(limited to 'bin')

diff --git a/bin/xrq.awk b/bin/xrq.awk
new file mode 100755
index 00000000..c29bfb9d
--- /dev/null
+++ b/bin/xrq.awk
@@ -0,0 +1,28 @@
+# Run xrdb(1) to query specific resources from it
+# I thought xrdb -query would do this, but it doesn't seem to, maybe I'm doing
+# it wrong
+BEGIN {
+
+    # Separator is a colon followed by a tab
+    FS = ":\t"
+
+    # Check we have at least one resource name
+    if (ARGC < 2) {
+        print "xrq: Need at least one resource name" | "cat 1>&2"
+        exit(2)
+    }
+
+    # Run `xrdb -query` and search for instances of the requested resource
+    while ("xrdb -query" | getline) {
+        for (i in ARGV) {
+            if ($1 == ARGV[i]) {
+                found = 1
+                print $2
+                continue
+            }
+        }
+    }
+
+    # Exit successfully if we found at least one result
+    exit(!found)
+}
-- 
cgit v1.2.3