From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on inbox.vuxu.org
X-Spam-Level: 
X-Spam-Status: No, score=-1.0 required=5.0 tests=DKIM_ADSP_CUSTOM_MED,
	FREEMAIL_FROM,MAILING_LIST_MULTI,RCVD_IN_DNSWL_NONE autolearn=ham
	autolearn_force=no version=3.4.4
Received: (qmail 17214 invoked from network); 16 May 2020 14:31:56 -0000
Received: from ns1.primenet.com.au (HELO primenet.com.au) (203.24.36.2)
  by inbox.vuxu.org with ESMTPUTF8; 16 May 2020 14:31:56 -0000
Received: (qmail 27916 invoked by alias); 16 May 2020 14:31:49 -0000
Mailing-List: contact zsh-workers-help@zsh.org; run by ezmlm
Precedence: bulk
X-No-Archive: yes
List-Id: Zsh Workers List <zsh-workers.zsh.org>
List-Post: <mailto:zsh-workers@zsh.org>
List-Help: <mailto:zsh-workers-help@zsh.org>
List-Unsubscribe: <mailto:zsh-workers-unsubscribe@zsh.org>
X-Seq: 45833
Received: (qmail 27776 invoked by uid 1010); 16 May 2020 14:31:49 -0000
X-Qmail-Scanner-Diagnostics: from mail-lf1-f44.google.com by f.primenet.com.au (envelope-from <hboetes@gmail.com>, uid 7791) with qmail-scanner-2.11 
 (clamdscan: 0.102.3/25812. spamassassin: 3.4.4.  
 Clear:RC:0(209.85.167.44):SA:0(-2.0/5.0):. 
 Processed in 1.582569 secs); 16 May 2020 14:31:48 -0000
X-Envelope-From: hboetes@gmail.com
X-Qmail-Scanner-Mime-Attachments: |
X-Qmail-Scanner-Zip-Files: |
Received-SPF: pass (ns1.primenet.com.au: SPF record at _netblocks.google.com designates 209.85.167.44 as permitted sender)
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
        d=1e100.net; s=20161025;
        h=x-gm-message-state:mime-version:references:in-reply-to:from:date
         :message-id:subject:to;
        bh=0wBpxXvI35+e1A20o2kZYZipwWd23EkTnP24FvrDzFc=;
        b=I6H14nd7AuluSE4T6CMx8joTUXGcILrPmxUccigNe58HQMLOIi5/zzHDJ2pL5Mhfp/
         PS1WR2f4oBXB7hmUxi9/leE8B2sqr9Or4rmiGsyLIMvkN50KX8jqUrJtpqChV/nYpFO6
         MIYyWMlsDEVvWLduQl9M8cMiHYWHSmQ5kn/S0XwcNr+4FViP6/RUZt6o/uX+oWDpZTm5
         eBLSAvVO6bz0d+D2Tdt3Mgtv8nUex1ztvmdWiHDjb8IS+Q/p567wUP93LbpIqPga0uFU
         ae1ne7v7uDz1AhpjNtLup/yn8xIhcarqbQoW2XlHPJjuHcUXH4USiTRHRMXZNM5pUZpQ
         zRfg==
X-Gm-Message-State: AOAM532J8+bF6rxJ1C18id/bdA7N/bF+YxBE58Qv+g/UDCoWESiDCIn3
	Luj8L/6CC2xGljHdF4YMTQrAl6TgJ6bfDGC73Dei+TqGnQI=
X-Google-Smtp-Source: ABdhPJyTIcnuCVwVGNxHUG6emENFeLc0CmGKJogb4kKaVOL/ghRCdsJGSPa3JORqENkKKUowNOh7GFHT71IsFLqkc0E=
X-Received: by 2002:a19:4b89:: with SMTP id y131mr1872854lfa.16.1589639471609;
 Sat, 16 May 2020 07:31:11 -0700 (PDT)
MIME-Version: 1.0
References: <CAOzo9e5HaXkoZSaVtb8gfJzV7ZThY1dStC8ToxLK68WtSBZJLQ@mail.gmail.com>
In-Reply-To: <CAOzo9e5HaXkoZSaVtb8gfJzV7ZThY1dStC8ToxLK68WtSBZJLQ@mail.gmail.com>
From: Han Boetes <hboetes@gmail.com>
Date: Sat, 16 May 2020 16:31:00 +0200
Message-ID: <CAOzo9e4phyeSNmPAY_hk3YChrivB_7y76b_PS+CXaMyATO2f-w@mail.gmail.com>
Subject: Re: zsh watch function
To: zsh-workers@zsh.org
Content-Type: multipart/alternative; boundary="00000000000006be3705a5c4c8d3"

--00000000000006be3705a5c4c8d3
Content-Type: text/plain; charset="UTF-8"

And then I saw the padding light, here an improved version:

watch () {
    IN=2
    case $1 in
        -n)
            IN=$2
            shift 2
            ;;
    esac
    clear
    HN="$(hostname)"
    CM="$*"
    LEFT="$(printf 'Every %.1f: %s' $IN $CM)"
    ((PAD = COLUMNS - ${#LEFT}))
    while :
    do
        DT=$(date)
        printf "$LEFT%${PAD}s\n" "$HN $(date)"
        eval "$CM"
        sleep $IN
        clear
    done
}

On Sat, May 16, 2020 at 2:20 PM Han Boetes <hboetes@gmail.com> wrote:

> In this online question someone asked if a watch internal command was
> available, like with bash:
>
> https://unix.stackexchange.com/questions/260323/watch-equivalent-in-zsh
>
> I couldn't help myself but to write the code for that. Fun fact is that
> code-colouring and aliases work. This code is probably not fool proof. Feel
> free to improve. Please consider adding it in improved form to the ZSH
> distribution.
>
> watch () {
>     IN=2
>     case $1 in
>         -n)
>             IN=$2
>             shift 2
>             ;;
>     esac
>     clear
>     HN="$(hostname)"
>     HD="$(printf 'Every %.1f: ' $IN)"
>     CM="$*"
>     # Where does that -2 come from?
>     ((PAD = COLUMNS - ${#HD} - ${#CM} - ${#DT} - 2))
>     while :
>     do
>         DT=$(date)
>         printf "$HD%s%${PAD}s: %s\n\n" "$CM" "$HN" "$DT"
>         # echo "$LFT $RHT"
>         eval "$CM"
>         sleep $IN
>         clear
>     done
> }
>

--00000000000006be3705a5c4c8d3--