handle some edge cases and merge the two awk invocations - annna - Annna the nice friendly bot.
 (HTM) git clone git://bitreich.org/annna/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/annna/
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) Tags
 (DIR) README
       ---
 (DIR) commit 6b492185fa1670b4208bad4530428eba11d2ce95
 (DIR) parent 289cc398a0f12633630239246ed6c134372ce8a1
 (HTM) Author: Josuah Demangeon <mail@josuah.net>
       Date:   Tue,  9 Feb 2021 22:13:40 +0100
       
       handle some edge cases and merge the two awk invocations
       
       The line "#_E_#D,G,Y,.. #.T_Ag5..." gathers "#_E_", "#D" and "#.T_Ag5"
       
       Signed-off-by: Annna Robert-Houdin <annna@bitreich.org>
       
       Diffstat:
         M annna-start-services                |      19 +++++++++----------
       
       1 file changed, 9 insertions(+), 10 deletions(-)
       ---
 (DIR) diff --git a/annna-start-services b/annna-start-services
       @@ -706,16 +706,15 @@ annna_common() {
                        done
                else
                        printf '%s' "$text" | awk -v taglimit="$printnhashtags" '
       -                $0 ~ /#/ && $0 !~ /#nospoil/ {
       -                        for (i = 1; i <= NF; i++)
       -                                if (match($i, /#[^ '"'"',?!$\001]*/))
       -                                        tags[j++] = substr($i, RSTART, RLENGTH)
       -                }
       -                END {
       -                        for (tag in tags)
       -                                if (k++ < taglimit)
       -                                        print tags[tag]
       -                }' | awk '!a[$0]++' | while read -r tag;
       +                $0 !~ /#nospoil/ {
       +                        while (match($0, /#[^# "'\'',?!$\001]+/)) {
       +                                tag = substr($0, RSTART, RLENGTH)
       +                                $0 = substr($0, RSTART + RLENGTH)
       +                                sub(/[.]*$/, "", tag)
       +                                if (!uniq[tag]++ && taglimit-- > 0)
       +                                        print tag
       +                        }
       +                }' | while read -r tag;
                        do
                                if tagline="$(grep "${tag} " "${hashtagfile}")";
                                then