ClearAll["Global`"];
folders={"alternates/fakenews","alternates/fakenews-gambling","alternates/fakenews-gambling-only","alternates/fakenews-gambling-porn","alternates/fakenews-gambling-porn-only","alternates/fakenews-gambling-porn-social","alternates/fakenews-gambling-porn-social-only","alternates/fakenews-gambling-social","alternates/fakenews-gambling-social-only","alternates/fakenews-only","alternates/fakenews-porn","alternates/fakenews-porn-only","alternates/fakenews-porn-social","alternates/fakenews-porn-social-only","alternates/fakenews-social","alternates/fakenews-social-only","alternates/gambling","alternates/gambling-only","alternates/gambling-porn","alternates/gambling-porn-only","alternates/gambling-porn-social","alternates/gambling-porn-social-only","alternates/gambling-social","alternates/gambling-social-only","alternates/porn","alternates/porn-only","alternates/porn-social","alternates/porn-social-only","alternates/social","alternates/social-only","data/Badd-Boyz-Hosts","data/KADhosts","data/StevenBlack","data/URLHaus","data/UncheckyAds","data/adaway.org","data/add.2o7Net","data/add.Dead","data/add.Risk","data/add.Spam","data/hostsVN","data/minecraft-hosts","data/mvps.org","data/someonewhocares.org","data/tiuxo","data/yoyo.org","extensions/fakenews","extensions/gambling/bigdargon","extensions/gambling/sinfonietta","extensions/gambling","extensions/porn/bigdargon","extensions/porn/brijrajparmar27","extensions/porn/clefspeare13","extensions/porn/sinfonietta","extensions/porn/sinfonietta-snuff","extensions/porn","extensions/porn/tiuxo","extensions/social/sinfonietta","extensions/social","extensions/social/tiuxo"};

sourcegraph[folder_] :=(
SetDirectory[NotebookDirectory[]<>folder];
datain=Import["stats.out"];
data=Select[Select[datain,Length[#]==2&],#[[2]] > 0&];
graphtitle= Last[StringSplit[folder,"/"]] <> " domain tally history";
data=({DateObject[#1[[1]]],#1[[2]]}&)/@data;
latest=ToString[Last[data][[2]]];
lastitem=Callout[Last[data],latest,Right, LabelStyle->Small, Background->LightBlue];
data[[Length[data]]]=lastitem;
graph=DateListPlot[data
,PlotTheme->"Detailed"
,FrameLabel->{{HoldForm[Unique domains],None},{HoldForm[Year],None}}
,FrameTicks->{{All,All},Automatic}
,ImageMargins->20
,ImageSize -> Large
,PlotRange->Full
,PlotLabel -> 
Column[
{
Style[graphtitle,16,Bold]
,Style["updated: "<>DateString[TimeZone->"Zulu"] <> " UTC",12]
,Style["latest: "<>latest <> " domains",12]
}
,Center
]
,LabelStyle->{GrayLevel[0]}
];
Export["stats.png", graph];
SetDirectory[NotebookDirectory[]];
Return[graph];
);

sourcegraph /@ folders