(* Creating geo files *.kml for each date *)

maintainDatesKML := (
Print["Creating KML files for each date ..."];
gpstolerance = 60;
kmlhead = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<kml xmlns=\"http://www.opengis.net/kml/2.2\" xmlns:atom=\"http://www.w3.org/2005/Atom\">
<Document>";
kmlfoot = "</Document>
</kml>";
textall = Table[
   {date, pics0} = csubset;
   sdate = DateString[date, {"MonthName", " ", "DayShort", ", ", "Year"}];
    pics0 = Select[pics0, (roll = #[[2]]; fn = #[[3]];
       t = shootingdata["datetime", roll, fn];
       Head[t] === List)&];
(* Selecting GPS tracks *)
nmid = Round[Length[pics0]/2 + 0.1];
{year, roll, fn} = pics0[[nmid]];
tz1 = shootingdata["timezone1", roll, fn];
If[!NumberQ[tz1], tz1 = 0];
times0 = shootingdata["datetime", #[[2]], #[[3]]] & /@ pics0;
times0 = Round /@ AbsoluteTime /@ times0 - 3600 tz1;
tmin = Min[times0];
tmax = Max[times0];
gpstimes0 = Select[gpstimes, (First[#] - gpstolerance <= tmax && tmin <= Last[#] + gpstolerance) &];
gpstimes0 = Select[gpstimes0, Or @@ Table[First[#] - gpstolerance <= t <= Last[#] + gpstolerance, {t, times0}] &];
mgps = Length[gpstimes0];
    pics0 = Select[pics0, (roll = #[[2]]; fn = #[[3]];
       geolocat = shootingdata["gps position", roll, fn];
       Head[geolocat] === List && ToExpression[shootingdata["gps delay", roll, fn]] < 60)&];
mpics0 = Length[pics0];
If[mpics0 != 0, 
    noPrint["Creating KML: Processing date ", date];
    dirdatekmz = ToFileName[{dir0, "date-loc"}];
    checkdir1[dirdatekmz];
(*    kml = ToFileName[dirdatekmz, dateS[date, "-"] <> ".kml"]; *)
    kmz = ToFileName[dirdatekmz, dateS[date, "-"] <> ".kmz"];
(*    rolltit = rollcaption[roll];*)
    text = {
(* Adding line styles *)
If[mgps > 0,
SeedRandom[Plus@@date];
coffset = RandomReal[];
Table[
hue = coffset + (ngps - 1)/mgps;
col = hex /@ (List @@ ColorConvert[Hue[hue], "RGB"]);
col = "CC" <> col[[3]] <> col[[2]] <> col[[1]];
"<Style id=\"line" <> ToString[ngps] <> "\">
<LineStyle>
<color>" <> col <> "</color>
<width>3</width>
</LineStyle>
</Style>\[NewLine]", {ngps, mgps}], ""],
"<name>" <> sdate <> ": mushrooms</name>
<atom:author>      
<atom:name>Alexey Sergeev</atom:name>    
</atom:author>" <>    
(* <atom:link href=\"" <> urlroot <> "pictures/archives/" <> year <> "/" <> roll <> "/browser.htm\" /> *)  
"<open>1</open>
<description>" <> sdate <> ": mushrooms (" <> ToString[mpics0] <> " pictures)</description>",
Table[
    {year, roll, pic} = pic3;
    capt = addsymb[ncaption[caption[roll, pic]]];
    geolocat = shootingdata["gps position", roll, pic];
    geolocat = StringTrim /@ (ToString /@ (NumberForm[#, {9, 6}, ExponentFunction -> (Null &)] & /@ geolocat));
    geolocat = StringJoin[Riffle[Reverse[geolocat], ","]];
    alt = shootingdata["gps altitude", roll, pic];
    If[NumberQ[alt], geolocat = geolocat <> "," <> ToString[alt]];
    plname = placename[roll, pic];
    If[Head[plname] === String,
      plname = "<br/><br/>
<font size=\"-1\">" <> plname <> "</font>",
      plname = ""];
    dat = shootingdata["datetime", roll, pic];
    If[Head[dat] === List,
      dat = "<br/><br/>
<font face=\"Courier\">" <> 
   DateString[dat, {"Year", ":", "Month", ":", "Day", " ", "Hour", ":", "Minute", ":", "Second"}] <> 
   "</font>",
      dat = ""];
   {w, h} = ToString /@ whresizem[picsize[roll, pic]];
   date0 = shootingdata["datetime", roll, pic];
   diff0 = shootingdata["gps delay", roll, pic];
   diff = Round[ToExpression[diff0]];
   If[diff > 2,
      df = ToString[diff];
      If[diff > 9, df = "<font color=\"#ff0000\">" <> df <> "</font>"];
      df = "<br/><br/><font size=\"-2\">Showing position measured " <> df <> " minutes before the shot was taken.</font>",
      df = ""];
   If[diff0 === "00",
      df = "<br/><br/><font size=\"-2\">Showing position interpolated from GPS tracks.</font>"];
styleid = roll <> "x" <> pic;
"<Style id=\"map" <> styleid <> "\">
<IconStyle>
<Icon>
<href>" <> urlroot <> "pictures/archives/compress/" <> year <> "/" <> roll <> "/jpeg/" <> pic <> "q.jpg</href>
</Icon>
</IconStyle>
<BalloonStyle>
<text><![CDATA[
<table border=\"0\"><tr><td><img src=\"" <> urlroot <> "pictures/archives/compress/" <> year <> "/" <> roll <> "/jpeg/" <> pic <> "m.jpg\" width=\"" <> w <> "\" height=\"" <> h <> "\"></td>
<td><img src=\"" <> urlroot <> "blank.gif\" width=\"10\" height=\"20\"></td>
<td><b>Photo <a href=\"" <> urlroot <> "pictures/archives/" <> year <> "/" <> roll <> "/jpeg/" <> pic <> ".jpg\">" <> roll <> "-" <> pic <> "</a></b>
<br/><img src=\"" <> urlroot <> "blank.gif\" width=\"200\" height=\"20\"><br/>" <> 
   capt <> dat <> plname <> df <>
"</td></tr></table>
]]></text>
</BalloonStyle>
</Style>
<Placemark>
<name>" <> roll <> "-" <> pic <> "</name>
(* Removing bad symbols! *)
<description>" <> StringReplace[capt, {"&" -> ""}] <> "</description>
<styleUrl>#map" <> styleid <> "</styleUrl>
<Point>
<coordinates>" <> geolocat <> "</coordinates>
</Point>
</Placemark>", {pic3, pics0}],
(* Adding tracks *)
If[mgps > 0,
(* Print["Date ", date, "  - adding tracks: ", mgps]; *)
Table[
{gpsts = gpstimes0[[ngps]];
{t1, t2} = {First[gpsts], Last[gpsts]} + 3600 tz1;
tmid = Round[(t1 + t2)/2];
sdate = DateString[tmid, {"MonthName", " ", "DayShort", ", ", "Year", " - ", "DayName"}];
t1 = DateString[t1, {"Hour", ":", "Minute", ":", "Second"}];
t2 = DateString[t2, {"Hour", ":", "Minute", ":", "Second"}];
desc = t1 <> "-" <> t2; 
(* Print[ngps, ": ", desc]; *)
"<Placemark>
<description>Tracks for " <> sdate <> "</description>
<name>" <> desc <> "</name>
<styleUrl>#line" <> ToString[ngps] <> "</styleUrl>
<LineString>
<coordinates>",
Table[
{x, y} = printf /@ gpscoordinates[gpst];
"\[NewLine]" <> y <> "," <> x, {gpst, gpsts}],
"\[NewLine]</coordinates>
</LineString>
</Placemark>"}, {ngps, mgps}], ""]
};
textexp = StringJoin[Riffle[Flatten[{kmlhead, text, kmlfoot}], ""]];
(*Export[kml, textexp, "Text", CharacterEncoding -> "UTF8"];*)
Export[kmz, {textexp}, {"ZIP", {{"map.kml", "Text"}}}, CharacterEncoding -> "UTF8"];
]; (* If[mpics0 != 0, *)
If[mpics0 != 0, text, ""], {csubset, csubsets}];
textall = Select[textall, (# =!= "")&];
textallexp = StringJoin[Riffle[Flatten[{kmlhead, textall, kmlfoot}], ""]];
kmzall = ToFileName[dir0, "index.kmz"];
Export[kmzall, {textallexp}, {"ZIP", {{"map.kml", "Text"}}}, CharacterEncoding -> "UTF8"];
Print["Creating KML files - completed"];
);