ClearAll["Global`"];
folders={"data/Adguard-cname/","data/Badd-Boyz-Hosts/","data/KADhosts/","data/MetaMask/","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/shady-hosts/","data/someonewhocares.org/","data/tiuxo/","data/yoyo.org/","extensions/fakenews/","extensions/gambling/","extensions/porn/brijrajparmar27/","extensions/porn/clefspeare13/","extensions/porn/sinfonietta/","extensions/porn/sinfonietta-snuff/","extensions/porn/tiuxo/","extensions/social/sinfonietta/","extensions/social/tiuxo/"};

sourcegraph[folder_] :=(
SetDirectory[NotebookDirectory[]<>folder];
data=Import["stats.out"];
graphtitle= folder <> " domain contribution history";
data=({DateObject[#1[[1]]],#1[[2]]}&)/@data;
lastitem=Callout[Last[data],ToString[Last[data][[2]]],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->10
,ImageSize -> Large
,PlotLabel -> 
Column[
{
Style[graphtitle,16,Bold]
,Style["updated: "<>DateString[TimeZone->"Zulu"] <> " UTC",12]
}
,Center
]
,LabelStyle->{GrayLevel[0]}
];
Export["stats.png", graph];
SetDirectory[NotebookDirectory[]];
Return[graph];
);

sourcegraph /@ folders