X-Git-Url: https://git.xandkar.net/?p=khome.git;a=blobdiff_plain;f=home%2Fbin%2Fp;fp=home%2Fbin%2Fp;h=b4a9cab38be38d9a4c404dccd343bb43a87e8360;hp=0000000000000000000000000000000000000000;hb=ffdb69ae17ce6d8d15a6397e998f1b535cc48d84;hpb=e2c73814aaa3a4539e739c87f8b5f9fca8e7d5a4

diff --git a/home/bin/p b/home/bin/p
new file mode 100755
index 0000000..b4a9cab
--- /dev/null
+++ b/home/bin/p
@@ -0,0 +1,85 @@
+#! /bin/bash
+
+set -eo pipefail
+
+PROG=$0
+
+find() {
+    local -r name="$1"
+    local -r file="$2"
+
+    awk \
+        -v _s="$name" \
+        '
+            BEGIN {_s = tolower(_s)}
+
+            /^[a-zA-Z]/ && tolower($1) ~ _s && NF >= 2 {
+                n++
+                s = $1
+                p = $NF
+                if (NF == 2) {
+                    e = ""
+                    u = ""
+                } else if (NF == 3) {
+                    e = $2
+                    u = ""
+                } else {
+                    e = $2
+                    u = $3
+                } # TODO What would NF > 4 mean?
+
+                printf("%d [O] s:\"%s\", e:\"%s\", u:\"%s\"\n", n, s, e, u) > "/dev/stderr"
+                if (match(u, "@")) {
+                    tmp = e
+                    e = u
+                    u = tmp
+                    printf("%d [C] s:\"%s\", e:\"%s\", u:\"%s\"\n", n, s, e, u) > "/dev/stderr"
+                }
+                printf("%d s:\"%s\" e:\"%s\" u:\"%s\" %s\n", n, s, e, u, p)
+            }
+        ' \
+        "$file"
+}
+
+main() {
+    local -r default_file="$HOME"/._p/p
+    local -r usage="Usage: $PROG [FILE] NAME"
+    local name file records i meta data datum
+
+    case "$#" in
+        0)
+            echo "$usage" >&2
+            return 1;;
+        1)
+            file="$default_file"
+            name="$1";;
+        2)
+            file="$1"
+            name="$2";;
+        *)
+            echo "$usage" >&2
+            return 1;;
+    esac
+
+    records=$(find "$name" "$file")
+    meta=$(echo "$records" | awk '{print($1, $2, $3, $4)}')
+    data=$(echo "$records" | awk '{print($1, $5)}')
+
+    # XXX Even an empty result will count as one line after echo, so need to filter:
+    case "$(echo "$records" | grep -vc '^$')" in
+        0)
+            echo '[ERROR] Found nothing.' >&2
+            exit 1;;
+        1)
+            datum="$data";;
+        *)
+            i=$(echo "$meta" | column -t | fzf | awk '{print $1}')
+            datum=$(echo "$data" | awk -v i="$i" 'NR == i');;
+    esac
+
+    # XXX Intentionally avoiding newline:
+    echo "$datum" | awk '{printf "%s", $2}' | xsel -i -b -t 30000
+
+}
+
+main "$@"