#! /usr/local/bin/zsh
#
# this file:
#   https://dataswamp.org/~incal/piles-all
#
# stats:
#   https://dataswamp.org/~incal/stats/

tmp_file=tmp_file

stats_dir=/home/incal/public_html/stats

stats_file=${stats_dir}/hits-$(date +"%Y-%m-%d").txt

new_stats_file=${stats_dir}/hits-all.txt

plot_data=${stats_dir}/plot-data.txt

header=${stats_dir}/header.txt

emacs \
    --batch \
    --eval "(progn (load \"/home/incal/.emacs\") (require 'piles) (piles-all-vertical-header))" \
    2>&1 |
    gsed '1d' > $header

emacs \
    --batch \
    --eval "(progn (load \"/home/incal/.emacs\") (require 'piles) (piles-all-vertical))" \
    2>&1 |
    gsed '1d' >> $plot_data

gsed -i '1d' $plot_data

gsed -i "1i \\$(cat $header)" $plot_data

emacs \
    --batch \
    --eval "(progn (load \"/home/incal/.emacs\") (require 'piles) (piles-pts-print))" \
    2>&1 |
    gsed '1d' |
    column -t -s ":" > $tmp_file

line_len=$(head -n 1 $tmp_file | wc -c)

line="${(pl:$(( $line_len - 1 ))::-:)}"

gsed -e "1 i\\$line" -e "2 i\\$line" -e "\$a$line" $tmp_file > $stats_file

cp -f $stats_file $new_stats_file
rm $tmp_file