Public Sub Initialize
Pages.Initialize
PageNeedsUpload.Initialize
' add your icons
ABM.AddAppleTouchIcon("apple-touch-icon.png", "180x180")
ABM.AddMSTileIcon("mstile-150x150.png", "144x144")
ABM.AddFavorityIcon("favicon-32x32.png", "32x32")
ABM.AddFavorityIcon("favicon-16x16.png", "16x16")
ABM.AppVersion = ABMShared.AppVersion
ABM.AppPublishedStartURL = ABMShared.AppPublishedStartURL
ABM.MaskIcon = "safari-pinned-tab.svg"
ABM.MaskIconColor = ABM.COLOR_BLACK
ABM.MaskIconColorIntensity = ABM.INTENSITY_LIGHTEN1
ABM.MSTileColor = ABM.COLOR_BLACK
ABM.MSTileColorIntensity = ABM.INTENSITY_LIGHTEN1
ABM.AndroidChromeThemeColor = ABM.COLOR_BLACK
ABM.AndroidChromeThemeColorIntensity = ABM.INTENSITY_LIGHTEN1
ABM.Manifest = "manifest.json"
ABM.SetFontSizePercentages(80,90,100)
Dim p As Period
p.Initialize
p.Months = 3
ABM.SiteExpires = DateUtils.AddPeriod(DateTime.Now, p)
#If RELEASE
ABM.LoadJavascriptsAfterDOM = True
ABM.ActivateUseCDN(DONATORKEY, "https://cdn.jsdelivr.net/gh/RealAlwaysbusy/ABMaterial@v4.25/")
ABM.ActivateGZip(DONATORKEY, 1000)
Dim folders As List
folders.Initialize
folders.Add(File.DirApp & "/www/" & ABMShared.AppName & "/images")
ABM.ActivatePNGOptimize(DONATORKEY, folders, False , 9, False, True)
#End If
BuildPage
End Sub