Add clippy-say script. - 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 b507cf1f5f65b005deaf1a9b91edc5aec8c74fee
 (DIR) parent 5348fde77ab4f989ff3a290d6d4880b140ab229e
 (HTM) Author: Annna Robert-Houdin <annna@bitreich.org>
       Date:   Sun, 24 May 2020 18:56:57 +0200
       
       Add clippy-say script.
       
       Diffstat:
         A clippy-say                          |      67 +++++++++++++++++++++++++++++++
       
       1 file changed, 67 insertions(+), 0 deletions(-)
       ---
 (DIR) diff --git a/clippy-say b/clippy-say
       @@ -0,0 +1,67 @@
       +#!/bin/sh
       +
       +maxbubblelen=74
       +#DST=""
       +DSTDIR="/br/gopher/paste"
       +CLIPPYTMPL="/br/gopher/memecache/clippy.vtv"
       +
       +speaktext="$@"
       +speaklen="$(utf8expr length "${speaktext}")"
       +
       +cd /tmp
       +tmpfile="$(mktemp p-XXXXXXXXXXXXX.txt)"
       +touch "${tmpfile}"
       +
       +{
       +        bubblelen=$(($speaklen + 4))
       +        if [ $bubblelen -gt $maxbubblelen ];
       +        then
       +                bubblelen=$maxbubblelen
       +        fi
       +
       +        printf " "
       +        i=0
       +        while [ $i -lt $((bubblelen - 2)) ];
       +        do
       +                printf "_"
       +                i=$(($i + 1))
       +        done
       +        printf "\n"
       +
       +        textoffset=1
       +        bubblecontentlen=$(($bubblelen - 4))
       +        while [ $speaklen -gt 0 ];
       +        do
       +                newoffset=$(($textoffset + $bubblecontentlen))
       +                textsubstr="$(utf8expr substr "$speaktext" $textoffset $bubblecontentlen)"
       +                substrlen="$(utf8expr length "${textsubstr}")"
       +                printf "| %s" "$textsubstr"
       +                while [ $substrlen -le $bubblecontentlen ];
       +                do
       +                        printf " "
       +                        substrlen=$(($substrlen + 1))
       +                done
       +                printf "|\n"
       +                textoffset=$(($newoffset))
       +                speaklen=$(($speaklen - $substrlen))
       +        done
       +
       +        printf " "
       +        i=0
       +        while [ $i -lt $((bubblelen - 2)) ];
       +        do
       +                printf "-"
       +                i=$(($i + 1))
       +        done
       +        printf "\n"
       +
       +        tail -n+4 "${CLIPPYTMPL}"
       +} > $tmpfile
       +
       +mv $tmpfile $DSTDIR
       +chmod g+rw $DSTDIR/$tmpfile
       +chgrp bitreich $DSTDIR/$tmpfile
       +
       +name="$(basename $tmpfile)"
       +printf "gopher://bitreich.org/0/p/%s\n" "$name"
       +