iAdd plot script - bitreich-memestats - Bitreich meme statistics and graphs.	Err	bitreich.org	70
hgit clone git://bitreich.org/bitreich-memestats git://hg6vgqziawt5s4dj.onion/bitreich-memestats	URL:git://bitreich.org/bitreich-memestats git://hg6vgqziawt5s4dj.onion/bitreich-memestats	bitreich.org	70
1Log	/scm/bitreich-memestats/log.gph	bitreich.org	70
1Files	/scm/bitreich-memestats/files.gph	bitreich.org	70
1Refs	/scm/bitreich-memestats/refs.gph	bitreich.org	70
1Tags	/scm/bitreich-memestats/tag	bitreich.org	70
1LICENSE	/scm/bitreich-memestats/file/LICENSE.gph	bitreich.org	70
i---	Err	bitreich.org	70
1commit e3aca3409bdee91be0505096223c25b318e030ee	/scm/bitreich-memestats/commit/e3aca3409bdee91be0505096223c25b318e030ee.gph	bitreich.org	70
1parent fc2311b33218ea7cd9d7d084d33685fbfa3ea85b	/scm/bitreich-memestats/commit/fc2311b33218ea7cd9d7d084d33685fbfa3ea85b.gph	bitreich.org	70
hAuthor: Anders Damsgaard <anders@adamsgaard.dk>	URL:mailto:anders@adamsgaard.dk	bitreich.org	70
iDate:   Mon, 20 Apr 2020 09:02:00 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
iAdd plot script	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  A plot-memecount.sh                   |      49 +++++++++++++++++++++++++++++++	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 49 insertions(+), 0 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/plot-memecount.sh b/plot-memecount.sh	/scm/bitreich-memestats/file/plot-memecount.sh.gph	bitreich.org	70
i@@ -0,0 +1,49 @@	Err	bitreich.org	70
i+#!/bin/sh	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+annnadir="$HOME/code/annna"	Err	bitreich.org	70
i+memefile="modules/hashtags/hashtags.txt"	Err	bitreich.org	70
i+statfile="$(mktemp)"	Err	bitreich.org	70
i+update_annna=yes	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+die() {	Err	bitreich.org	70
i+        printf 'error: %s\n' "$1" >&2	Err	bitreich.org	70
i+        exit 1	Err	bitreich.org	70
i+}	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+if [ ! -e "${annnadir}/${memefile}" ]; then	Err	bitreich.org	70
i+        die "could not open '${annnadir}/${memefile}'"	Err	bitreich.org	70
i+fi	Err	bitreich.org	70
i+cd "$annnadir"	Err	bitreich.org	70
i+if [ "$update_annna" = "yes" ]; then	Err	bitreich.org	70
i+        git pull >/dev/null 2>&1	Err	bitreich.org	70
i+fi	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+# derived from Hiltjo Posthuma's loc.sh	Err	bitreich.org	70
i+git log --pretty='format:%H %cd' --date="format:%Y-%m-%d" | \	Err	bitreich.org	70
i+        sort -k 2 | uniq -f 1 | \	Err	bitreich.org	70
i+        while read -r commit date; do	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        # hashtags originally stored in annna-start-services...	Err	bitreich.org	70
i+        n="$(git show "$commit:annna-start-services" 2>/dev/null | \	Err	bitreich.org	70
i+                grep -E '^        #[a-z0-9]' | wc -l)"	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        # ...but are now stored in $memefile	Err	bitreich.org	70
i+        if [ "$n" -eq 0 ]; then	Err	bitreich.org	70
i+                n="$(git show "$commit:$memefile" 2>/dev/null | wc -l)"	Err	bitreich.org	70
i+        fi	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+        if [ "$n" -gt 1 ]; then	Err	bitreich.org	70
i+                printf '%s\t%s\t%s\n' "$date" "$commit" "$n"	Err	bitreich.org	70
i+        fi	Err	bitreich.org	70
i+done > "$statfile"	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+gnuplot - <<__EOF__	Err	bitreich.org	70
i+set term dumb	Err	bitreich.org	70
i+set title "annna meme count (total on $(date +%Y-%m-%d): \	Err	bitreich.org	70
i+$(tail -1 "$statfile" | awk '{print $3}'))"	Err	bitreich.org	70
i+set xdata time	Err	bitreich.org	70
i+set format x "%Y-%m"	Err	bitreich.org	70
i+set timefmt "%Y-%m-%dT%H:%M:%S"	Err	bitreich.org	70
i+set xtics 2592000*4	Err	bitreich.org	70
i+plot '$statfile' u 1:3 w lp t '' pt 13	Err	bitreich.org	70
i+__EOF__	Err	bitreich.org	70
.