Add support for tags, e. g. "bug1234"

src/ffoo/saturnin_www.sh

@@ -30,6 +30,16 @@ filter_ids() {
 }
 
 
+filter_tags() {
+    #
+    # Hack "tags" like bug123 out of the text
+    #
+    tr ' ' '\n' \
+      | grep -E '^[a-zA-Z]+[0-9]+$' \
+      | debug_pipe tag_lookalikes
+}
+
+
 filter_kws() {
     #
     # Hack out lines that look like kw expressions
@@ -57,7 +67,8 @@ find_uri() {
     # Scan stdin for what looks like URI, ID or keyword
     #
     # Output URIs: first what were apparent uris, then IDs converted to
-    # URIs, then equal sign expressions, then things that looked like
+    # URIs, then equal sign expressions, then "tags" like bug1234 (i.e.
+    # letters+nubmbers, no spaces), then things that looked like
     # kw expressions, converted to URIs.
     #
     # Note that kw expressions (e.g. "bug 123") work only if they start
@@ -71,15 +82,16 @@ find_uri() {
         ##
         # heat up and fill pipes
         #
-        mkfifo maybe_uris maybe_ids maybe_exprs maybe_kws \
-               uris uris_from_ids uris_from_exprs uris_from_kws
-        cat | tee maybe_uris maybe_ids maybe_exprs maybe_kws >/dev/null &
+        mkfifo maybe_uris maybe_ids maybe_exprs maybe_tags maybe_kws \
+               uris uris_from_ids uris_from_exprs uris_from_tags uris_from_kws
+        cat | tee maybe_uris maybe_ids maybe_exprs maybe_tags maybe_kws >/dev/null &
         ##
         # process each pipe *async* by different filter
         #
         < maybe_uris  filter_uris                     > uris &
         < maybe_ids   filter_ids   | id2kw   | kw2uri > uris_from_ids &
         < maybe_exprs filter_exprs | expr2kw | kw2uri > uris_from_exprs &
+        < maybe_tags  filter_tags  | tag2kw  | kw2uri > uris_from_tags &
         < maybe_kws   filter_kws   |           kw2uri > uris_from_kws &
         ##
         # print result *sync* in correct order
@@ -88,6 +100,7 @@ find_uri() {
             cat uris
             cat uris_from_ids
             cat uris_from_exprs
+            cat uris_from_tags
             cat uris_from_kws
         } | grep .  # throw away empties; add missing LF
     popd >&/dev/null
@@ -103,6 +116,14 @@ id2kw() {
 }
 
 
+tag2kw() {
+    #
+    # Convert tag to kw expression
+    #
+    sed -r 's/([a-zA-Z]+)([0-9])/\1 \2/'
+}
+
+
 expr2kw() {
     #
     # Convert equal sign expression to kw expression