Assembly File for the Places Gallery

To do

Make "Place" pages adjust to window size.

Actions

SetDirectory["C:/drorbn/projects/Gallery/Places"];
Make /@ AllPages;
files=Page[0][AllFiles];
{
OrphanedFiles = Complement[FileNames[], files~Join~{"Thumbs.db"}],
MissingFiles = Complement[files, FileNames[]]
}

DeleteFile[OrphanedFiles]

(# -> #)& /@ SortBy[Select[(#[HTMLFile])& /@ AllPages, StringLength[#]>39&],  (-StringLength[#])&]

The Images

Aliases = {
"Kyoto0705-The_Golden_Pavilion_at_the_Kinkakuji_Temple_(1).html" -> "Kyoto0705-GoldenPavilion-1.html",
"Kyoto0705-The_Golden_Pavilion_at_the_Kinkakuji_Temple_(2).html" -> "Kyoto0705-GoldenPavilion-2.html",
"TJ0707-The_Great_Wall_of_China,_Coke_and_Pepsi.html"->"TJ0707-ChinaCokeAndPepsi.html","BJ0708-Construction_in_the_Forbidden_City.html"->"BJ0708-ConstructionAtForbiddenCity.html","HN0708-TayPhuong-Water_Buffalo_(Chao)_(1).html"->"HN0708-TayPhuong-Chao-1.html","HN0708-TayPhuong-Water_Buffalo_(Chao)_(2).html"->"HN0708-TayPhuong-Chao-2.html","Kyoto0705-A_Mini-Temple_on_Teramachi_Dori.html"->"Kyoto0705-TempleOnTeramachiDori.html","HN0708-Shop,_Four_Floors_and_a_Penthouse.html"->"HN0708-Shop4FloorsPenthouse.html","Kyoto0705-Conference-Catharina_Stroppel.html"->"Kyoto0705-Conference-Stroppel.html","HN0708-HaLong-Views_of_Ha_Long_Bay_(1).html"->"HN0708-HaLong-Views-1.html","HN0708-HaLong-Views_of_Ha_Long_Bay_(2).html"->"HN0708-HaLong-Views-2.html","HN0708-HaLong-Floating_in_Ha_Long_Bay.html"->"HN0708-HaLong-Floating.html","TJ0707-The_Tianjin_TV_and_Radio_Tower.html"->"TJ0707-TVAndRadioTower.html","BJ0708-Imperial_Ancestral_Temple_(1).html"->"BJ0708-ImperialAncestralTemple-1.html","BJ0708-Imperial_Ancestral_Temple_(2).html"->"BJ0708-ImperialAncestralTemple-2.html","BJ0708-Imperial_Ancestral_Temple_(3).html"->"BJ0708-ImperialAncestralTemple-3.html","BJ0708-Imperial_Ancestral_Temple_(4).html"->"BJ0708-ImperialAncestralTemple-4.html",
"HN0708-TayPhuong-Laundary.html" -> "HN0708-TayPhuong-Laundry.html"
};

Page["Image",
Title -> "Image title goes here", (* Defaults to ImageFile with the extension removed *)
HTMLName -> "The html filename goes here", (* Defaults to Title with spaces replaced by underscores and .html added*)
Text -> "Image description", (* Defaults to "" *)
ExtraText -> "Some further text for the image page", (* Defaults to "" *)
ImageFile -> "The image filename goes here", (* Must be present! *)
FullSize -> {w, h}, (* Read from image file if not given *)
DisplaySize -> {w, h}  (* Defaults to 640 by 640 (max) *)
]

Pages[]  = Page["Index",Title->"Places",FullTitle->"Dror Bar-Natan's Image Gallery: Places",HTMLFile->"index.html",IconFile->"CameraIcon.jpg",FullPrefix->"", {
Pages["Tokyo0705"], Pages["Kyoto0705"], Pages["Aarhus-0706"],
Pages["Tianjin-0707"], Pages["Beijing-0708"], Pages["Hanoi-0708"],
Pages["Bogota-0902"], Pages["Montpellier-1006"], Pages["AllOver-1008"]
}
];

Pages["AllOver-1008"] = Page["Image",
Title->"All Over, August 2010",FullSize->{3000,2700},ImageFile->"AllOver.jpg", IconFile -> "AllOver-Icon.jpg", HTMLName -> "AllOver.html",
Text->"All Over the World in One Day",
ExtraText -> StringReplace[ExtractDataCell["AllOver-1008 Extra Text"], {
"<*"~~ShortestMatch[s___]~~"*>" :> StringJoin[
"<a class=external href=\"http://en.wikipedia.org/wiki/", s, "\">",s, "</a>"
],
"<#"~~ShortestMatch[u___]~~"; "~~ShortestMatch[s___]~~"#>" :> StringJoin[
"<a class=external href=\"http://en.wikipedia.org/wiki/", u, "\">",s, "</a>"
]
}
]
];

Data Cell AllOver-1008 Extra Text:
On August 7, 2010 Assaf and I visited <*Hamburg*>, <*Boston*>, <*Corfu*>, <*Alabama*>, <*Medina*>, <*Elba*>, <*Bergen*>, <*Lima*>, <*Bristol*>, <*Naples*>, <*Italy*>, <*Geneva*>, <#Waterloo, Belgium; Waterloo#>, <#Tyre, Lebanon; Tyre#>, <*Jordan*>, <*Memphis*>, <*Liverpool*>, <*Verona*>, <*Vienna*>, <*Rome*>, <*Paris*>, <*Poland*>, <*Russia*>, <*Norway*>, <*Ephratah*>, <#Perth, Western Australia; Perth#>, <*Amsterdam*>, <*Rotterdam*>, <*Troy*>, and <*Berlin*>.

<div style="background-color: white"><br><b>Extras.</b>
Before lunch map: <a href="http://katlas.math.toronto.edu/drorbn/AcademicPensieve/2010-08/AllOver/BeforeLunchMap.png"><img align=middle height=50 src="http://katlas.math.toronto.edu/drorbn/AcademicPensieve/2010-08/AllOver/thumbs/BeforeLunchMap.png"></a> (<a class=external href="http://maps.google.ca/maps?f=q&source=s_q&hl=en&geocode=&q=from:Hamburg,+NY+to:Boston,+NY+to:Corfu,+NY+to:Alabama,+NY+to:Medina,+NY+to:Elba,+NY+to:Bergen,+NY+to:Lima,+NY+to:Bristol,+NY+to:Naples,+NY+to:Italy,+NY+to:Geneva,+NY+to:Waterloo,+NY&sll=42.843751,-76.289062&sspn=3.097107,6.366577&doflg=ptk&ie=UTF8&z=9">@google</a>)
and after lunch map: <a href="http://katlas.math.toronto.edu/drorbn/AcademicPensieve/2010-08/AllOver/AfterLunchMap.png"><img align=middle height=50 src="http://katlas.math.toronto.edu/drorbn/AcademicPensieve/2010-08/AllOver/thumbs/AfterLunchMap.png"></a> (<a class=external href="http://maps.google.ca/maps?f=q&source=s_q&hl=en&geocode=&q=from:Waterloo,+NY+to:Tyre,+NY+to:Jordan,+NY+to:Memphis,+NY+to:Liverpool,+NY+to:Verona,+NY+to:Vienna,+NY+to:Rome,+NY+to:Paris,+NY+to:Poland,+Herkimer+County,+NY+to:Russia,+NY+to:Norway,+NY+to:Ephratah,+NY+to:Perth,+NY+to:Amsterdam,+NY+to:Rotterdam,+NY+to:Troy,+NY+to:Berlin,+NY&sll=42.964463,-75.102539&sspn=3.091051,6.366577&doflg=ptk&ie=UTF8&z=8">@google</a>).
Starting picture: <a href="http://katlas.math.toronto.edu/drorbn/AcademicPensieve/2010-08/AllOver/P1010515.JPG"><img align=middle height=50 src="http://katlas.math.toronto.edu/drorbn/AcademicPensieve/2010-08/AllOver/thumbs/P1010515.JPG"></a>,
ending picture: <a href="http://katlas.math.toronto.edu/drorbn/AcademicPensieve/2010-08/AllOver/P1010660.JPG"><img align=middle height=50 src="http://katlas.math.toronto.edu/drorbn/AcademicPensieve/2010-08/AllOver/thumbs/P1010660.JPG"></a>.
In Italy, we met the leader and the first lady: <a href="http://katlas.math.toronto.edu/drorbn/AcademicPensieve/2010-08/AllOver/P1010563.JPG"><img align=middle height=50 src="http://katlas.math.toronto.edu/drorbn/AcademicPensieve/2010-08/AllOver/thumbs/P1010563.JPG"></a>.
The evening before, we've been to <a class=external href="http://en.wikipedia.org/wiki/South_Park">South Park</a>: <a href="http://katlas.math.toronto.edu/drorbn/AcademicPensieve/2010-08/AllOver/P1010513.JPG"><img align=middle height=50 src="http://katlas.math.toronto.edu/drorbn/AcademicPensieve/2010-08/AllOver/thumbs/P1010513.JPG"></a>.
Another poster: <a href="http://katlas.math.toronto.edu/drorbn/AcademicPensieve/2010-08/AllOver/Poster.jpg"><img align=middle height=50 src="http://katlas.math.toronto.edu/drorbn/AcademicPensieve/2010-08/AllOver/thumbs/Poster.jpg"></a>.
Higher resolution images are <a href="http://katlas.math.toronto.edu/drorbn/AcademicPensieve/2010-08/AllOver/Places">here</a> and <a href="http://katlas.math.toronto.edu/drorbn/AcademicPensieve/2010-08/AllOver/">here</a>.
<span style="color: red">In full screen mode, hit "t" to make this text box disappear.</span>
</div>

Pages["Montpellier-1006"] = Page["Place",Title->"Montpellier, June 2010",Prefix->"MO1006-", IconFile->"Montpellier-icon.jpg", HTMLName->"index.html", ExtraText->"See also <a href=/~drorbn/Talks/Montpellier-1006>Talks: Montpellier-1006</a>.",{
Page["Image",Title->"Horizontal",Text->"Horizontal in Montpellier, June 2010",FullSize->{3000,3000},ImageFile->"MontpellierH.jpg"],
Page["Image",Title->"Vertical",Text->"Vertical in Montpellier, June 2010",FullSize->{3000,2400},ImageFile->"MontpellierV.jpg"],
Page["Image",Title->"Red",Text->"Red in Montpellier, June 2010",FullSize->{4000,3000},ImageFile->"MontpellierRed.jpg"],
Page["Image",Title->"Pink",Text->"Pink in Montpellier, June 2010",FullSize->{4000,3000},ImageFile->"MontpellierPink.jpg"],
Page["Image",Title->"Brass",Text->"Brass in Montpellier, June 2010",FullSize->{3240,4320}/2,ImageFile->"P1010087.JPG"],
Page["Image",Title->"Rainbow",Text->"Rainbow in Montpellier, June 2010",FullSize->{4320,3240}/2,ImageFile->"P1010100.JPG"]
}];

Pages["Bogota-0902"] = Page["Place",Title->"Bogota, February 2009",Prefix->"BO0902-", IconFile->"Bogota-icon.jpg", HTMLName->"index.html", ExtraText->"See also <a href=/~drorbn/Talks/Bogota-0902>Talks: Bogota-0902</a>.", {
Page["Image",Title->"CityScape",Text->"Bogota City Scape, February 2009.",FullSize->{3200,2400},ImageFile->"CityScape.jpg"],
Page["Image",Title->"Cow",Text->"Bogota's Parque Nacional, February 15, 2009",FullSize->{3648,2736},ImageFile->"P2150128.JPG"],
Page["Image",Title->"Tenis",Text->"Bogota's Parque Nacional, February 15, 2009",FullSize->{3648,2736},ImageFile->"P2150129.JPG"],
Page["Image",Title->"Dog",Text->"Bogota's Parque Nacional, February 15, 2009",FullSize->{3648,2736},ImageFile->"P2150131.JPG"],
Page["Image",Title->"Exercising",Text->"Bogota's Parque Nacional, February 15, 2009",FullSize->{3648,2736},ImageFile->"P2150132.JPG"],
Page["Image",Title->"Viva La Intifada",Text->"Central Bogota, February 15, 2009",FullSize->{3648,2736},ImageFile->"P2150133.JPG"],
Page["Image",Title->"Policia",Text->"Central Bogota, February 15, 2009",FullSize->{3648,2736},ImageFile->"P2150136.JPG"],
Page["Image",Title->"Pigeons",Text->"Central Bogota, February 15, 2009",FullSize->{3648,2736},ImageFile->"P2150138.JPG"],
Page["Image",Title->"Toothless Smile",Text->"Bogota's Sunday Ciclovia, February 15, 2009",FullSize->{3648,2736},ImageFile->"P2150142.JPG"],
Page["Image",Title->"Buses",Text->"Bogota, February 15, 2009",FullSize->{3648,2736},ImageFile->"P2150143.JPG"],
Page["Image",Title->"Morwen Thistlethwaite",Text->"On a Bogota rooftop, February 17, 2009",FullSize->{3648,2736},ImageFile->"P2170144.JPG"],
Page["Image",Title->"Strugle",Text->"At the Monserrate, February 18, 2009",FullSize->{3648,2736},ImageFile->"P2180155.JPG"],
Page["Image",Title->"Romance",Text->"At the Monserrate, February 18, 2009",FullSize->{1024,768},ImageFile->"P2180156.JPG"],
Page["Image",Title->"Pixels",Text->"Bogota from the Monserrate, February 18, 2009",FullSize->{3648,2736},ImageFile->"P2180158.JPG"],
Page["Image",Title->"Confidence",Text->"At the Monserrate, February 18, 2009",FullSize->{3648,2736},ImageFile->"P2180163.JPG"],
Page["Image",Title->"Early Afternoon",Text->"Universidad de Los Andes, February 19, 2009",FullSize->{3648,2736},ImageFile->"P2190165.JPG"],
Page["Image",Title->"Eyes",Text->"Universidad de Los Andes, February 19, 2009",FullSize->{3648,2736},ImageFile->"P2190167.JPG"],
Page["Image",Title->"El Chorro de Quevedo",Text->"Alexander Cardona, Morwen Thistlethwaite and Stella Huerfano in Bogota's birthplace, February 19, 2009",FullSize->{3648,2736},ImageFile->"P2190170.JPG"],
Page["Image",Title->"Payphone",Text->"La Candelaria, Bogota, February 19, 2009",FullSize->{3648,2736},ImageFile->"P2190171.JPG"],
Page["Image",Title->"Water",Text->"Botero Museum, La Candelaria, Bogota, February 19, 2009",FullSize->{2736,3648},ImageFile->"P2190174.JPG"],
Page["Image",Title->"A Star",Text->"Central Bogota, February 19, 2009",FullSize->{3648,2736},ImageFile->"P2190177.JPG"],
Pages["Bogota0902-Bucaramanga"],
Page["Image",Title->"Pizza Pizza",Text->"Central Bogota, February 23, 2009",FullSize->{3648,2736},ImageFile->"P2230373.JPG"]
}];

Pages["Bogota0902-Bucaramanga"] = Page["Place",Title->"Bucaramanga Excursion",Prefix->"Bucaramanga-",HTMLName->"index.html",IconFile->"Bucaramanga-Icon.jpg",  ExtraText -> "(The photos in the Bucaramanga Excusrsion group are joint with Lara Simone Lopez.)", {
Page["Image",Title->"Puente de Boyaca",Text->"Site of the Battle of Boyaca, February 20, 2009",FullSize->{3648,2736},ImageFile->"P2200178.JPG"],
Page["Image",Title->"Lara Simone Suarez Lopez",Text->"At Puente de Boyaca, February 20, 2009",FullSize->{3648,2736},ImageFile->"P2200181.JPG"],
Page["Image",Title->"Men",Text->"At Puente de Boyaca, February 20, 2009",FullSize->{3648,2736},ImageFile->"P2200182.JPG"],
Page["Image",Title->"Hat",Text->"At Puente de Boyaca, February 20, 2009",FullSize->{3648,2736},ImageFile->"P2200184.JPG"],
Page["Image",Title->"Villa de Leiva",Text->"February 20, 2009",FullSize->{3648,2736},ImageFile->"P2200188.JPG"],
Page["Image",Title->"Waterfall (1)",Text->"Near Villa de Leiva, February 20, 2009",FullSize->{3648,2736},ImageFile->"P2200192.JPG"],
Page["Image",Title->"Waterfall (2)",Text->"Near Villa de Leiva, February 20, 2009",FullSize->{2736,3648},ImageFile->"P2200193.JPG"],
Page["Image",Title->"Hooks",Text->"Socorro, February 21, 2009",FullSize->{3648,2736},ImageFile->"P2210194.JPG"],
Page["Image",Title->"Carving Knife",Text->"Socorro, February 21, 2009",FullSize->{2736,3648},ImageFile->"P2210196.JPG"],
Page["Image",Title->"Guard Duty",Text->"On the main road near San Gil, February 21, 2009",FullSize->{3648,2736},ImageFile->"P2210200.JPG"],
Page["Image",Title->"Troughs",Text->"On the main road near San Gil, February 21, 2009",FullSize->{3648,2736},ImageFile->"P2210205.JPG"],
Page["Image",Title->"Dark Glasses",Text->"Above the Chicamocha Canyon, February 21, 2009",FullSize->{3648,2736},ImageFile->"P2210207.JPG"],
Page["Image",Title->"Bucaramanga",Text->"As seen from the airport access road, way above the city, February 21, 2009",FullSize->{3648,2736},ImageFile->"P2210212.JPG"],
Page["Image",Title->"Barrancabermeja",Text->"The Rio Magdalena in Barrancabermeja, February 21, 2009",FullSize->{3604,3606},ImageFile->"OnTheRioMagdalena.jpg"],
Page["Image",Title->"Dog",Text->"Outside Barrancabermeja, February 21, 2009",FullSize->{3648,2736},ImageFile->"P2210271.JPG"],
Page["Image",Title->"Children",Text->"Outside Barrancabermeja and along the main road to Medellin, February 21, 2009",FullSize->{3500,3500},ImageFile->"Children.jpg"],
Page["Image",Title->"Cat",Text->"Outside Barrancabermeja, February 21, 2009",FullSize->{2736,3648},ImageFile->"P2210290.JPG"],
Page["Image",Title->"Savanna (1)",Text->"February 22, 2009",FullSize->{3005,2000},ImageFile->"Savanna1.jpg"],
Page["Image",Title->"Savanna (2)",Text->"February 22, 2009",FullSize->{3204,2404},ImageFile->"Savanna2.jpg"],
Page["Image",Title->"Savanna (3)",Text->"February 22, 2009",FullSize->{3204,2404},ImageFile->"Savanna3.jpg"],
Page["Image",Title->"Conflict",Text->"On the main road between Barrancabermeja and Puerto Boyaca, February 22, 2009",FullSize->{2403,1800},ImageFile->"Roosters.jpg"],
Page["Image",Title->"Cooking (1)",Text->"On the main road between Barrancabermeja and Puerto Boyaca, February 22, 2009",FullSize->{3648,2736},ImageFile->"P2220315.JPG"],
Page["Image",Title->"Everyone",Text->"Everyone present in a small Cafe in Puerto Boyaca on the Rio Magdalena, mid-day, February 22, 2009",FullSize->{3602,2401},ImageFile->"MagdalenaCafe.jpg"],
Page["Image",Title->"Cooking (2)",Text->"Under the main-road bridge in Honda, February 22, 2009",FullSize->{3648,2736},ImageFile->"P2220364.JPG"],
Page["Image",Title->"Fisherman",Text->"On the Rio Magdalena in Honda, February 22, 2009",FullSize->{3004,2000},ImageFile->"Fishing1.jpg"],
Page["Image",Title->"Fishing (1)",Text->"On the Rio Magdalena in Honda, February 22, 2009",FullSize->{3204,2404},ImageFile->"Fishing2.jpg"],
Page["Image",Title->"Fishing (2)",Text->"On the Rio Magdalena in Honda, February 22, 2009",FullSize->{3204,2404},ImageFile->"Fishing3.jpg"],
Page["Image",Title->"Safety",Text->"Climbing from Honda to Villeta, February 22, 2009",FullSize->{2402,1600},ImageFile->"Safety.jpg"]
} /.  Page[p__] :> Page[p, ExtraText -> "(All photos in the Bucaramanga Excusrsion group are joint with Lara Simone Lopez.)"]];

Pages["Hanoi-0708"] = Page["Place",Title->"Hanoi, August 2007",Prefix->"HN0708-", IconFile->"Hanoi-icon.jpg", HTMLName->"index.html", ExtraText->"See also <a href=/~drorbn/Talks/Hanoi-0708>Talks: Hanoi-0708</a>.", {
mct=awk=veg=0;
Page["Image",Title->"Tran Quoc Pagoda",Text->"On Ho Tay (West Lake), August 4, 2007.",FullSize->{3648,2736},ImageFile->"P8041110.JPG"],
Page["Image",Title->"A Barber Shop",Text->"On Ho Tay (West Lake), August 4, 2007.",FullSize->{3648,2736},ImageFile->"P8041112.JPG"],
Page["Image",Title->"Off to the Market (1)",Text->"Near Ho Tay (West Lake), August 4, 2007.",FullSize->{3648,2736},ImageFile->"P8041116.JPG"],
Page["Image",Title->"Off to the Market (2)",Text->"Near Ho Tay (West Lake), August 4, 2007.",FullSize->{2048,1536},ImageFile->"P8041118.JPG"],
Page["Image",Title->"Cycling",Text->"Near Ho Tay (West Lake), August 4, 2007.",FullSize->{3648,2736},ImageFile->"P8041119.JPG"],
Page["Image",Title->"Fruit Sellers",Text->"Near Ho Tay (West Lake), August 4, 2007.",FullSize->{3648,2736},ImageFile->"P8041125.JPG"],
Page["Image",Title->"Construction Work",Text->"Near Ho Tay (West Lake), August 4, 2007.",FullSize->{3648,2736},ImageFile->"P8041126.JPG"],Page["Image",Title->"Dishwashing",Text->"North of the Citadel, August 4, 2007.",FullSize->{3648,2736},ImageFile->"P8041129.JPG"],
Page["Image",Title->"1 2 3 4",Text->"Cho Long Bien, August 4, 2007.",FullSize->{1600,1200},ImageFile->"P8041130.JPG"],
Page["Image",Title->"Shop, Four Floors and a Penthouse",Text->"Near Cho Long Bien, August 4, 2007.",FullSize->{3648,2736},ImageFile->"P8041134.JPG"],Page["Image",Title->"The Garbage Man",Text->"Tran Nhat Duat, August 4, 2007.",FullSize->{3648,2736},ImageFile->"P8041136.JPG"],
Page["Image",Title->"By the Lake",Text->"Ho Hoan Kiem, Central Hanoi, August 5, 2007.",FullSize->{3648,2736},ImageFile->"P8051139.JPG"],
Page["Image",Title->"Hang Bong Street",Text->"Central Hanoi, August 5, 2007.",FullSize->{3318,2490},ImageFile->"P8051146.JPG"],
Page["Image",Title->"On Guard",Text->"Central Hanoi, August 5, 2007.",FullSize->{3648,2736},ImageFile->"P8051147.JPG"],
Page["Image",Title->"Motorcycle Traffic (<*++mct*>)",Text->"August 5, 2007.",FullSize->{3648,2736},ImageFile->"P8051151.JPG"],
Page["Image",Title->"Ho Chi Minh Mausoleum",Text->"August 5, 2007.",FullSize->{3648,2736},ImageFile->"P8051154.JPG"],
Page["Image",Title->"A River of",Text->"Central Hanoi, just south of Ho Tay (West Lake), August 5, 2007.",FullSize->{3648,2736},ImageFile->"P8051156.JPG"],
Page["Image",Title->"At work (<*++awk*>)",Text->"August 5, 2007.",FullSize->{3260,2445},ImageFile->"P8051158.JPG"],
Page["Image",Title->"Fish",Text->"August 5, 2007.",FullSize->{3648,2736},ImageFile->"P8051161.JPG"],
Page["Image",Title->"Quantum Topology",Text->"August 5, 2007.",FullSize->{3648,2736},ImageFile->"P8051162.JPG"],
Page["Image",Title->"Vegetables (<*++veg*>)",Text->"August 5, 2007.",FullSize->{2048,1536},ImageFile->"P8051164.JPG"],
Page["Image",Title->"Motorcycle Traffic (<*++mct*>)",Text->"August 5, 2007.",FullSize->{3648,2736},ImageFile->"P8051166.JPG"],
Page["Image",Title->"A Motorcycle Shower",Text->"August 5, 2007.",FullSize->{3648,2736},ImageFile->"P8051167.JPG"],
Page["Image",Title->"Hanoi Air",Text->"August 5, 2007.",FullSize->{3648,2736},ImageFile->"P8051169.JPG"],
Page["Image",Title->"The Coal Man",Text->"August 5, 2007.",FullSize->{3648,2736},ImageFile->"P8051171.JPG"],
Page["Image",Title->"Motorcycle Traffic (<*++mct*>)",Text->"August 5, 2007.",FullSize->{3648,2736},ImageFile->"P8051177.JPG"],
Page["Image",Title->"Motorcycle Traffic (<*++mct*>)",Text->"August 5, 2007.",FullSize->{3648,2736},ImageFile->"P8051178.JPG"],
Page["Image",Title->"Motorcycle Traffic (<*++mct*>)",Text->"August 5, 2007.",FullSize->{3648,2736},ImageFile->"P8051183.JPG"],
Page["Image",Title->"Motorcycle Traffic (<*++mct*>)",Text->"August 5, 2007.",FullSize->{1600,1200},ImageFile->"P8051186.JPG"],
Page["Image",Title->"At Work (<*++awk*>)",Text->"August 7, 2007.",FullSize->{3648,2736},ImageFile->"P8071187.JPG"],
Page["Image",Title->"Taxi",Text->"A motorcycle-taxi driver awaiting passengers, August 7, 2007.",FullSize->{3648,2736},ImageFile->"P8071188.JPG"],
Page["Image",Title->"Restaurant",Text->"August 7, 2007.",FullSize->{3648,2736},ImageFile->"P8071189.JPG"],
Page["Image",Title->"Vegetables (<*++veg*>)",Text->"August 7, 2007.",FullSize->{3648,2736},ImageFile->"P8071193.JPG"],
Page["Image",Title->"Market",Text->"August 7, 2007.",FullSize->{3648,2736},ImageFile->"P8071196.JPG"],
Page["Image",Title->"A Conference Lunch",Text->"August 8, 2007.",FullSize->{3648,2736},ImageFile->"P8081198.JPG"],
Pages["Hanoi0708-TayPhuong"],
Pages["Hanoi0708-HaLong"],
Page["Image",Title->"Den Ngoc Son",Text->"AKA the Jade Mound Temple, August 13, 2007.",FullSize->{3648,2736},ImageFile->"P8131371.JPG"],
Page["Image",Title->"Incense",Text->"Near Den Ngoc Son (Jade Mound Temple), August 13, 2007.",FullSize->{3648,2736},ImageFile->"P8131375.JPG"],
Page["Image",Title->"The Kill",Text->"Southeast of Hanoi, August 13, 2007.",FullSize->{3648,2736},ImageFile->"P8131378.JPG"],
Page["Image",Title->"Travel",Text->"Southeast of Hanoi, August 13, 2007.",FullSize->{3648,2736},ImageFile->"P8131385.JPG"],
Page["Image",Title->"Yellow",Text->"Southeast of Hanoi, August 13, 2007.",FullSize->{3648,2736},ImageFile->"P8131386.JPG"],
Page["Image",Title->"Rural Streets",Text->"Southeast of Hanoi, August 13, 2007.",FullSize->{3200,2400},ImageFile->"RuralStreetsNearHanoi.jpg"],
Page["Image",Title->"Crossing the Red River",Text->"Southeast of Hanoi, August 13, 2007.",FullSize->{3200,2400},ImageFile->"CrossingTheRedRiver.jpg"]
}];

Pages["Hanoi0708-HaLong"] = Page["Place",Title->"Ha Long Bay",Prefix->"HaLong-",HTMLName->"index.html",IconFile->"HaLong-icon.jpg",  {
Page["Image",Title->"The Chisel",Text->"On the road to Ha Long Bay, August 11-12, 2007.",FullSize->{3200,2400},ImageFile->"MarbleWorks.jpg"],
Page["Image",Title->"Jewellery",Text->"On the road to Ha Long Bay, August 11-12, 2007.",FullSize->{3648,2736},ImageFile->"P8111249.JPG"],
Page["Image",Title->"A Shop-Workshop",Text->"On the road to Ha Long Bay, August 11-12, 2007.",FullSize->{3648,2736},ImageFile->"P8111254.JPG"],
Page["Image",Title->"Eye",Text->"August 12, 2007.",FullSize->{3648,2736},ImageFile->"P8121366.JPG"],
Page["Image",Title->"Infestation",Text->"August 11, 2007.",FullSize->{3648,2736},ImageFile->"P8111291.JPG"],
Page["Image",Title->"Cave",Text->"August 11, 2007.",FullSize->{2048,1536},ImageFile->"P8111295.JPG"],
Page["Image",Title->"Temple",Text->"Cat Ba Island, August 11, 2007.",FullSize->{2048,1536},ImageFile->"P8111346.JPG"],
Page["Image",Title->"Floating in Ha Long Bay",Text->"August 11-12, 2007.",FullSize->{3200,2400},ImageFile->"FloatingInHaLong.jpg"],
Page["Image",Title->"Views of Ha Long Bay (1)",Text->"August 11-12, 2007.",FullSize->{3200,2400},ImageFile->"HaLongViews_1.jpg"],
Page["Image",Title->"Views of Ha Long Bay (2)",Text->"August 11-12, 2007.",FullSize->{3200,2400},ImageFile->"HaLongViews_2.jpg"],
Page["Image",Title->"Morning Fog",Text->"August 12, 2007.",FullSize->{3648,2736},ImageFile->"P8121348.JPG"],
Page["Image",Title->"Graphing Functions",Text->"August 12, 2007.",FullSize->{3648,2736},ImageFile->"P8121358.JPG", ExtraText -> "Sorry for the rain drop on the lens."]
}];

Pages["Hanoi0708-TayPhuong"] = Page["Place",Title->"Chao Tay Phuong",Prefix->"TayPhuong-",HTMLName->"index.html",IconFile->"TayPhuong-icon.jpg", ExtraFiles -> {"TayPhuongMap.jpg"},TopText -> "<p>On August 10, 2007, Jana Comstock, Scott Morrison, Dylan Thurston and I rode west out of Hanoi to chao Tay Phuong (Tay Phuong pagoda) on a bicycle, bicycle, bicycle and a moped (see <a href=#map>map</a> below).",ExtraText -> "<center><a name=map><img src=TayPhuongMap.jpg></a></center>", {
fw=0;
Page["Image",Title->"Water Buffalo (Chao) (1)",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081199.JPG"],
Page["Image",Title->"Water Buffalo (Chao) (2)",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081200.JPG"],
Page["Image",Title->"Along the Road (1)",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081204.JPG"],
Page["Image",Title->"Along the Road (2)",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081205.JPG"],
Page["Image",Title->"Men and Cow",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081209.JPG"],
Page["Image",Title->"Fishing (1)",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081210.JPG"],
Page["Image",Title->"Fishing (2)",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081213.JPG"],
Page["Image",Title->"Along the Road (3)",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081214.JPG"],
Page["Image",Title->"Field Work (<*++fw*>)",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081215.JPG"],
Page["Image",Title->"The Pagoda (1)",Text->"With Scott and Jana, August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081217.JPG"],
Page["Image",Title->"Laundry",Text->"At chao Tay Phuong, August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081221.JPG"],
Page["Image",Title->"The Pagoda (2)",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081223.JPG"],
Page["Image",Title->"100 Hands",Text->"At chao Tay Phuong, August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081226.JPG"],
Page["Image",Title->"Paka Paka (1)",Text->"Near chao Tay Phuong, August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081229.JPG"],
Page["Image",Title->"Field Work (<*++fw*>)",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081231.JPG"],
Page["Image",Title->"Field Work (<*++fw*>)",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081235.JPG"],
Page["Image",Title->"Along the Road (4)",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081236.JPG"],
Page["Image",Title->"Paka Paka (2)",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081240.JPG"],
Page["Image",Title->"1 2 3 4 5",Text->"Photo by Scott Morrison: Phung Xa, August 10, 2007.",FullSize->{1600,1200},ImageFile->"Morrison-P8080079.JPG"],
Page["Image",Title->"Field Work (<*++fw*>)",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081241.JPG"],
Page["Image",Title->"Field Work (<*++fw*>)",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081243.JPG"],
Page["Image",Title->"The Ride Back",ExtraText->"Photo by Scott Morrison: Dror, Dylan, Jana a bit south of Quoc Oai, August 10, 2007.",FullSize->{2272,1704},ImageFile->"Morrison-P8080086.JPG"],
Page["Image",Title->"Swimming",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081244.JPG"],Page["Image",Title->"Field Work (<*++fw*>)",Text->"August 10, 2007.",FullSize->{3648,2736},ImageFile->"P8081245.JPG"],
Page["Image",Title->"A Street Scene",Text->"Photo by Dylan Thurston: Southwest of Hanoi, August 10, 2007.",FullSize->{3072,2304},ImageFile->"ThurstonD-img_2607.jpg"],
Page["Image",Title->"Us",Text->"Dror, Scott, Jana and Dylan, Southwest Hanoi, August 10, 2007.",ExtraText->"Photos by Dylan and Dror, stitching by Dylan.",FullSize->{4568,2312},ImageFile->"ThurstonD-Panorama.jpg", IconFile -> "ThurstonD-Panorama-Icon.jpg"]
}];

Pages["Beijing-0708"] = Page["Place",Title->"Beijing Stopover",Prefix->"BJ0708-",HTMLName->"index.html",Banner-> ExtractDataCell["Beijing-0708 Banner"], IconFile->"BJ0708-icon.jpg",
ExtraText->"Beijing is where <a class=extarnal href=http://www.math.columbia.edu/~dpt/>Dylan</a> and I spent our time between <a href=TJ0707-index.html>Tianjin</a> and <a href=HN0708-index.html>Hanoi</a>.",{
Page["Image",Title->"Changu He Park",Text->"August 1, 2007",FullSize->{2048,1536},ImageFile->"P8011074.JPG"],
Page["Image",Title->"Imperial Ancestral Temple (1)",Text->"August 1, 2007",FullSize->{3648,2736},ImageFile->"P8011077.JPG"],
Page["Image",Title->"Imperial Ancestral Temple (2)",Text->"August 1, 2007",FullSize->{3648,2736},ImageFile->"P8011078.JPG"],
Page["Image",Title->"Imperial Ancestral Temple (3)",Text->"August 1, 2007",FullSize->{3648,2736},ImageFile->"P8011080.JPG"],
Page["Image",Title->"Imperial Ancestral Temple (4)",Text->"August 1, 2007",FullSize->{3648,2736},ImageFile->"P8011083.JPG"],
Page["Image",Title->"Construction in Beijing",Text->"August 2, 2007.",FullSize->{3020,2570},ImageFile->"P8021092.JPG"],
Page["Image",Title->"Construction in the Forbidden City",Text->"August 2, 2007.",FullSize->{3265,2450},ImageFile->"P8021095.JPG"],
Page["Image",Title->"In the Forbidden City",Text->"August 2, 2007.",FullSize->{2540,2465},ImageFile->"P8021099.JPG"],
Page["Image",Title->"At the White Dagoba on Jade Island",Text->"August 2, 2007.",HTMLName->"WhiteDagoba.html",ExtraText->"This, of course, is the universal cover of the torus, truncated a bit due to the physical limitations of the medium.",FullSize->{3648,2736},ImageFile->"P8021100.JPG"],
Page["Image",Title->"In the Yongan Temple",Text->"August 2, 2007.",ExtraText->"More on <a href=http://katlas.org/wiki/7_4>7<sub>4</sub>.</a>",FullSize->{1536,2048},ImageFile->"P8021103.JPG"],
Page["Image",Title->"On the Bei Hai Lake",Text->"August 2, 2007.",FullSize->{3648,2736},ImageFile->"P8021105.JPG"]
}];

Data Cell Beijing-0708 Banner:
  <td><table width=240 cellpadding=0 cellspacing=0>
        <tr><td align=center><font size=-2>&nbsp;</font></td></tr>
        <tr><td align=center valign=middle height=180>
          <a href="<#HTMLFile#>">&gt;&gt;&gt;&nbsp;Beijing&nbsp;&gt;&gt;&gt;<br><font size=-2>11 images</font></a>
        </td></tr>
    </table></td>

Pages["Tianjin-0707"] = Page["Place",Title->"Tianjin, July 2007",Prefix->"TJ0707-",HTMLName->"index.html",IconFile->"TJ0707-icon.jpg",
ExtraText->"See also <a href=/~drorbn/Talks/Tianjin-0707>Talks: Tianjin-0707</a>.",{
Page["Image",Title->"The Tianjin TV and Radio Tower",Text->"July 26, 2007.",FullSize->{1200,1600},ImageFile->"P7260990.JPG"],
Page["Image",Title->"At the Foot of the Wall (1)",Text->"The Great Wall at Huangya Pass, July 28, 2007.",FullSize->{3648,2736},ImageFile->"P7280992.JPG"],
Page["Image",Title->"At the Foot of the Wall (2)",Text->"The Great Wall at Huangya Pass on foggy July 28, 2007.",FullSize->{3648,2736},ImageFile->"P7280993.JPG"],
Page["Image",Title->"A Wall of Mathematicians",Text->"The Great Wall at Huangya Pass, July 28, 2007.",FullSize->{1024,768},ImageFile->"P7281002.JPG"],
Page["Image",Title->"At the Top of the Wall (1)",Text->"Qiang Zhang and Dylan Thurston way up on the Great Wall at Huangya Pass, July 28, 2007.",FullSize->{3648,2736},ImageFile->"P7281004.JPG"],
Page["Image",Title->"At the Top of the Wall (2)",Text->"Way up on the Great Wall at Huangya Pass, July 28, 2007.",FullSize->{3648,2736},ImageFile->"P7281009.JPG"],
Page["Image",Title->"At the Foot of the Wall (3)",Text->"The Great Wall at Huangya Pass, July 28, 2007.",FullSize->{3648,2736},ImageFile->"P7281014.JPG"],
Page["Image",Title->"The Great Wall of China, Coke and Pepsi",Text->"The Great Wall at Huangya Pass, July 28, 2007.",FullSize->{3200,2400},ImageFile->"ChinaCokePepsi.jpg"],
Page["Image",Title->"A Street Scene in Jixian (1)",Text->"July 28, 2007.",FullSize->{1024,768},ImageFile->"P7281016.JPG"],
Page["Image",Title->"A Street Scene in Jixian (2)",Text->"July 28, 2007.",FullSize->{3648,2736},ImageFile->"P7281018.JPG"],
Page["Image",Title->"A Street Scene in Jixian (3)",Text->"July 28, 2007.", ExtraText -> "<a class=external href=\"http://www.cs.rutgers.edu/~ccshan/\">Ken</a> says that the sign says \"going-out-of-business sale\".",FullSize->{3648,2736},ImageFile->"P7281019.JPG"],
Page["Image",Title->"A Street Scene in Jixian (4)",Text->"July 28, 2007.", ExtraText -> "<a class=external href=\"http://www.cs.rutgers.edu/~ccshan/\">Ken</a> says that the sign says \"supermarket entrance\".", FullSize->{1600,1200},ImageFile->"P7281021.JPG"],
Page["Image",Title->"A Street Scene in Jixian (5)",Text->"July 28, 2007.",FullSize->{3648,2736},ImageFile->"P7281025.JPG"],
Page["Image",Title->"Morning in Tianjin (1)",Text->"July 30, 2007.",FullSize->{2048,1536},ImageFile->"P7301030.JPG"],
Page["Image",Title->"Morning in Tianjin (2)",Text->"July 30, 2007.",FullSize->{1600,1200},ImageFile->"P7301033.JPG"],
Page["Image",Title->"Morning in Tianjin (3)",Text->"July 30, 2007.",FullSize->{3648,2736},ImageFile->"P7301036.JPG"],
Page["Image",Title->"Morning in Tianjin (4)",Text->"July 30, 2007.",FullSize->{2048,1536},ImageFile->"P7301038.JPG"],
Page["Image",Title->"Morning in Tianjin (5)",Text->"July 30, 2007.",FullSize->{3648,2736},ImageFile->"P7301041.JPG"],
Page["Image",Title->"Morning in Tianjin (6)",Text->"<a href=http://www.cim.nankai.edu.cn/nim_e/index.htm>The Chern Institue</a>, July 30, 2007.",FullSize->{3648,2736},ImageFile->"P7301045.JPG"],
Page["Image",Title->"The Queen of Heaven Palace",Text->"At the Ancient Culture Street, July 31, 2007.",FullSize->{3648,2736},ImageFile->"P7311048.JPG"],
Page["Image",Title->"I got him first",Text->"At the Ancient Culture Street, July 31, 2007.",FullSize->{3648,2736},ImageFile->"P7311057.JPG"],
Page["Image",Title->"Street Calligraphy (1)",Text->"At the Ancient Culture Street, July 31, 2007.",FullSize->{3648,2736},ImageFile->"P7311060.JPG"],
Page["Image",Title->"Street Calligraphy (2)",Text->"At the Ancient Culture Street, July 31, 2007.",FullSize->{3648,2736},ImageFile->"P7311062.JPG"],
Page["Image",Title->"Street Calligraphy (3)",Text->"At the Ancient Culture Street, July 31, 2007.",FullSize->{3648,2736},ImageFile->"P7311066.JPG"],
Page["Image",Title->"The Ancient Culture Street",Text->"July 31, 2007.",FullSize->{3648,2736},ImageFile->"P7311068.JPG"],
Page["Image",Title->"Tongbei Lu",Text->"July 31, 2007.",FullSize->{2736,3648},ImageFile->"P7311072.JPG"]
}];

Pages["Aarhus-0706"] = Page["Place",Title->"&Aring;rhus, June 2007",Prefix->"DK0706-",HTMLName->"index.html",IconFile->"DK0706-icon.jpg",
ExtraText->"See also <a href=/~drorbn/Talks/Aarhus-0706>Talks: Aarhus-0706</a>.",{
Page["Image",Title->"Downtown &Aring;rhus (<*k=1*>)",Text->"June 14, 2007.",FullSize->{3648,2736},ImageFile->"P6140499.JPG"],
Page["Image",Title->"Downtown &Aring;rhus (<*++k*>)",Text->"June 14, 2007.",FullSize->{3648,2736},ImageFile->"P6140500.JPG"],
Page["Image",Title->"Downtown &Aring;rhus (<*++k*>)",Text->"June 14, 2007.",FullSize->{3648,2736},ImageFile->"P6140505.JPG"],
Page["Image",Title->"Downtown &Aring;rhus (<*++k*>)",Text->"June 14, 2007.",FullSize->{3648,2736},ImageFile->"P6140506.JPG"],
Page["Image",Title->"Downtown &Aring;rhus (<*++k*>)",Text->"June 14, 2007.",FullSize->{3648,2736},ImageFile->"P6140507.JPG"],
Page["Image",Title->"Downtown &Aring;rhus (<*++k*>)",Text->"June 16, 2007.",FullSize->{3648,2736},ImageFile->"P6160510.JPG"],
Page["Image",Title->"Downtown &Aring;rhus (<*++k*>)",Text->"June 16, 2007.",FullSize->{2736,3648},ImageFile->"P6160515.JPG"],
Page["Image",Title->"A Danish Garbage Chute",Text->"Downtown &Aring;rhus, June 17, 2007.",FullSize->{2736,3648},ImageFile->"P6170518.JPG"],
Page["Image",Title->"Botanisk Have",Text->"June 17, 2007.",FullSize->{3648,2736},ImageFile->"P6170519.JPG"],
Page["Image",Title->"Den Gamle By (<*dgb=1*>)",Text->"June 17, 2007.",FullSize->{3648,2736},ImageFile->"P6170522.JPG"],
Page["Image",Title->"Den Gamle By (<*++dgb*>)",Text->"June 17, 2007.",FullSize->{3648,2736},ImageFile->"P6170524.JPG"],
Page["Image",Title->"A Day Out, Danish Style",Text->"Botanisk Have, June 17, 2007.",
HTMLName->"A_Day_Out.html",FullSize->{3648,2736},ImageFile->"P6170527.JPG"],
Page["Image",Title->"Den Gamle By (<*++dgb*>)",Text->"June 17, 2007.",FullSize->{3648,2736},ImageFile->"P6170528.JPG"],
Page["Image",Title->"Den Gamle By (<*++dgb*>)",Text->"June 17, 2007.",FullSize->{3648,2736},ImageFile->"P6170529.JPG"],
Page["Image",Title->"Den Gamle By (<*++dgb*>)",Text->"June 17, 2007.",FullSize->{3648,2736},ImageFile->"P6170533.JPG"],
Page["Image",Title->"Den Gamle By (<*++dgb*>)",Text->"June 17, 2007.",FullSize->{3648,2736},ImageFile->"P6170535.JPG"],
Page["Image",Title->"Den Gamle By (<*++dgb*>)",Text->"June 17, 2007.",FullSize->{2736,3648},ImageFile->"P6170536.JPG"],
Page["Image",Title->"Den Gamle By (<*++dgb*>)",Text->"June 17, 2007.",FullSize->{3648,2736},ImageFile->"P6170539.JPG"],
Page["Image",Title->"Den Gamle By (<*++dgb*>)",Text->"June 17, 2007.",FullSize->{3648,2736},ImageFile->"P6170542.JPG"],
Page["Image",Title->"Den Gamle By (<*++dgb*>)",Text->"June 17, 2007.",FullSize->{3648,2736},ImageFile->"P6170544.JPG"],
Page["Image",Title->"Den Gamle By (<*++dgb*>)",Text->"June 17, 2007.",FullSize->{3648,2736},ImageFile->"P6170545.JPG"],
Page["Image",Title->"Den Gamle By (<*++dgb*>)",FullSize->{3560,2670},ImageFile->"P6170548.JPG"],
Page["Image",Title->"Downtown &Aring;rhus (<*++k*>)",Text->"June 17, 2007.",
FullSize->{3648,2736},ImageFile->"P6170552.JPG"],
Page["Image",Title->"Reshetikhin and Turaev",Text->"At &Aring;rhus University, June 18, 2007.",FullSize->{3000,2250},ImageFile->"P6180559.JPG"],
Page["Image",Title->"At &Aring;rhus University (<*aau=1*>)",Text->"June 18, 2007.",FullSize->{3648,2736},ImageFile->"P6180562.JPG"],
Page["Image",Title->"At &Aring;rhus University (<*++aau*>)",Text->"June 18, 2007.",FullSize->{3648,2736},ImageFile->"P6180568.JPG"],
Page["Image",Title->"At &Aring;rhus University (<*++aau*>)",Text->"June 18, 2007.",FullSize->{3648,2736},ImageFile->"P6180569.JPG"],
Page["Image",Title->"At &Aring;rhus University (<*++aau*>)",Text->"June 18, 2007.",FullSize->{3648,2736},ImageFile->"P6180572.JPG"],
Page["Image",Title->"Downtown &Aring;rhus (<*++k*>)",Text->"June 22, 2007.",
FullSize->{3648,2736},ImageFile->"P6220578.JPG"],
Page["Image",Title->"Downtown &Aring;rhus (<*++k*>)",Text->"June 22, 2007.",
FullSize->{2736, 3648},ImageFile->"P6220583.JPG"],
Page["Image",Title->"Downtown &Aring;rhus (<*++k*>)",Text->"June 22, 2007.",
FullSize->{3648,2736},ImageFile->"P6220585.JPG"]
}];

Pages["Kyoto0705-Kamo"] = Page["Place",Title->"Along the Kamo River",Prefix->"Kamo-",HTMLName->"index.html",IconFile->"Kamo-icon.jpg",{
Page["Image",Title->"Along the Kamo River (<*k=1*>)",HTMLName->"<*k*>.html",Text->"May 10, 2007.",ImageFile->"P5100060.JPG",FullSize->{3648,2736}],
Page["Image",Title->"Along the Kamo River (<*++k*>)",HTMLName->"<*k*>.html",Text->"May 10, 2007.",ImageFile->"P5100061.JPG",FullSize->{3648,2736}],
Page["Image",Title->"Along the Kamo River (3)",HTMLName->"3.html",Text->"May 12, 2007.",ImageFile->"P5120125.JPG",FullSize->{1824,1368}],
Page["Image",Title->"Along the Kamo River (4)",HTMLName->"4.html",Text->"May 12, 2007.",ImageFile->"P5120146.JPG",FullSize->{1280,960}],
Page["Image",Title->"Along the Kamo River (5)",HTMLName->"5.html",Text->"May 17, 2007.",FullSize->{3648,2736},ImageFile->"P5170225.JPG"],
Page["Image",Title->"Along the Kamo River (6)",HTMLName->"6.html",Text->"May 17, 2007.",FullSize->{3648,2736},ImageFile->"P5170267.JPG"],
Page["Image",Title->"Along the Kamo River (7)",HTMLName->"7.html",Text->"May 17, 2007.",FullSize->{2340,1755},ImageFile->"P5170271.JPG"],
Page["Image",Title->"Along the Kamo River (8)",HTMLName->"8.html",Text->"May 17, 2007.",FullSize->{1705,1280},ImageFile->"P5170278.JPG"],
Page["Image",Title->"Along the Kamo River (9)",HTMLName->"9.html",Text->"May 17, 2007.",FullSize->{1824,1368},ImageFile->"P5170304.JPG"]
}];

Pages["Kyoto0705-Conference"] = Page["Place",Title->"The Conference",Prefix->"Conference-",HTMLName->"index.html",IconFile->"Kyoto0705-Conference-icon.jpg",ExtraText->"See also <a href=/~drorbn/Talks/Kyoto-0705>Talks: Kyoto-0705</a>.",{
Page["Image",Title->"Aaron Lauda",HTMLName->"Lauda.html",Text->"At the Kyoto University Mathematics Department, May 11, 2007.",ImageFile->"P5110063.JPG",FullSize->{3648,2736}],
Page["Image",Title->"RIMS",Text->"University of Kyoto, May 14, 2007",FullSize->{3648,2736},ImageFile->"P5140193.JPG"],
Page["Image",Title->"Lev Rozansky",Text->"RIMS May 14, 2007",FullSize->{1824,1368},ImageFile->"P5140197.JPG"],
Page["Image",Title->"Sergei Gukov",Text->"RIMS May 14, 2007",FullSize->{1280,960},ImageFile->"P5140201.JPG"],
Page["Image",Title->"Marko Stosic",Text->"RIMS May 15, 2007",FullSize->{1824,1368},ImageFile->"P5150204.JPG"],
Page["Image",Title->"Joel Kamnitzer",Text->"RIMS, May 16 2007",FullSize->{1824,1368},ImageFile->"P5160212.JPG"],
Page["Image",Title->"Catharina Stroppel",Text->"RIMS, May 16 2007",FullSize->{1824,1368},ImageFile->"P5160220.JPG"],
Page["Image",Title->"Peter Ozsvath",Text->"RIMS, May 18 2007",FullSize->{1824,1368},ImageFile->"P5180338.JPG"]
}];

Pages["Kyoto0705-Shimogamo"] = Page["Place",Title->"Shimogamo Jinja",Prefix->"Shimogamo-",HTMLName->"index.html",IconFile->"Shimogamo-icon.jpg",{
Page["Image",Title->"A crick near Shimogamo Jinja",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120069.JPG", HTMLName -> "Crick.html"],
Page["Image",Title->"A tree near Shimogamo Jinja",Text->"May 12, 2007",IconFile->"P5120070_icon.jpg",FullSize->{2736,3648},ImageFile->"P5120070.JPG", HTMLName -> "Tree.html"],
Page["Image",Title->"Shimogamo Jinja (1)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120071.JPG", HTMLName -> "1.html"],
Page["Image",Title->"Shimogamo Jinja (2)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120074.JPG", HTMLName -> "2.html"],
Page["Image",Title->"Shimogamo Jinja (3)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120075.JPG", HTMLName -> "3.html"],
Page["Image",Title->"Shimogamo Jinja (4)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120076.JPG", HTMLName -> "4.html"],
Page["Image",Title->"Shimogamo Jinja (5)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120079.JPG", HTMLName -> "5.html"],
Page["Image",Title->"Shimogamo Jinja (6)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120082.JPG", HTMLName -> "6.html"],
Page["Image",Title->"Shimogamo Jinja (7)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120084.JPG", HTMLName -> "7.html"],
Page["Image",Title->"Shimogamo Jinja (8)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120085.JPG", HTMLName -> "8.html"],
Page["Image",Title->"Shimogamo Jinja (9)",Text->"May 12, 2007",IconFile->"P5120086_icon.jpg",FullSize->{2736,3648},ImageFile->"P5120086.JPG", HTMLName -> "9.html"],
Page["Image",Title->"Shimogamo Jinja (10)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120087.JPG", HTMLName -> "10.html"],
Page["Image",Title->"Shimogamo Jinja (11)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120088.JPG", HTMLName -> "11.html"]
}];

Pages["Kyoto0705-Daitokuji"] = Page["Place",Title->"Daitokuji Temple",Prefix->"Daitokuji-",HTMLName->"index.html",IconFile->"Daitokuji-icon.jpg",{
Page["Image",Title->"Near the Daitokuji Temple",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120094.JPG", HTMLName -> "Near.html"],
Page["Image",Title->"Daitokuji Temple (1)",Text->"May 12, 2007", HTMLName -> "1.html",ExtraText->"The poor scooter on the bottom right of the picture was mine until an hour or so later, when a kind person relieved it of its loneliness while I was having lunch. This is the only remaining picture of a close friend who served me well for over a year.",IconFile->"P5120096_icon.jpg",FullSize->{2736,3648},ImageFile->"P5120096.JPG"],
Page["Image",Title->"Daitokuji Temple (2)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120099.JPG", HTMLName -> "2.html"],
Page["Image",Title->"Daitokuji Temple (3)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120101.JPG", HTMLName -> "3.html"],
Page["Image",Title->"Daitokuji Temple (4)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120104.JPG", HTMLName -> "4.html"],
Page["Image",Title->"Daitokuji Temple (5)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120105.JPG", HTMLName -> "5.html"],
Page["Image",Title->"Daitokuji Temple (6)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120106.JPG", HTMLName -> "6.html"],
Page["Image",Title->"Daitokuji Temple (7)",Text->"May 12, 2007",FullSize->{2736,3648},ImageFile->"P5120109.JPG", HTMLName -> "7.html"],
Page["Image",Title->"Daitokuji Temple (8)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120110.JPG", HTMLName -> "8.html"],
Page["Image",Title->"Daitokuji Temple (9)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120111.JPG", HTMLName -> "9.html"],
Page["Image",Title->"Daitokuji Temple (10)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120117.JPG", HTMLName -> "10.html"]}
];

Pages["Kyoto0705-Fushimi"] = Page["Place",Title->"The Fushimi-Inari Shrine",Prefix->"Fushimi-",HTMLName->"index.html",IconFile->"Fushimi-icon.jpg",{
Page["Image",Title->"Near the Fushimi-Inari Shrine",Text->"May 17, 2007",FullSize->{3648,2736},ImageFile->"P5170308.JPG", HTMLName -> "Near.html"],
Page["Image",Title->"At the Fushimi-Inari Shrine (1)",Text->"May 17, 2007",FullSize->{2736,3648},ImageFile->"P5170310.JPG", HTMLName -> "1.html"],
Page["Image",Title->"At the Fushimi-Inari Shrine (2)",Text->"May 17, 2007",FullSize->{3648,2736},ImageFile->"P5170311.JPG", HTMLName -> "2.html"],
Page["Image",Title->"At the Fushimi-Inari Shrine (3)",Text->"May 17, 2007",FullSize->{3648,2736},ImageFile->"P5170312.JPG", HTMLName -> "3.html"],
Page["Image",Title->"At the Fushimi-Inari Shrine (4)",Text->"May 17, 2007",FullSize->{3648,2736},ImageFile->"P5170313.JPG", HTMLName -> "4.html"],
Page["Image",Title->"At the Fushimi-Inari Shrine (5)",Text->"May 17, 2007",FullSize->{3648,2736},ImageFile->"P5170315.JPG", HTMLName -> "5.html"],
Page["Image",Title->"At the Fushimi-Inari Shrine (6)",Text->"May 17, 2007",FullSize->{3648,2736},ImageFile->"P5170317.JPG", HTMLName -> "6.html"],
Page["Image",Title->"At the Fushimi-Inari Shrine (7)",Text->"May 17, 2007",FullSize->{3648,2736},ImageFile->"P5170318.JPG", HTMLName -> "7.html"],
Page["Image",Title->"At the Fushimi-Inari Shrine (8)",Text->"May 17, 2007",FullSize->{3648,2736},ImageFile->"P5170321.JPG", HTMLName -> "8.html"],
Page["Image",Title->"At the Fushimi-Inari Shrine (9)",Text->"May 17, 2007",FullSize->{3648,2736},ImageFile->"P5170330.JPG", HTMLName -> "9.html"],
Page["Image",Title->"At the Fushimi-Inari Shrine (10)",Text->"May 17, 2007",FullSize->{3648,2736},ImageFile->"P5170332.JPG", HTMLName -> "10.html"],
Page["Image",Title->"At the Fushimi-Inari Shrine (11)",Text->"May 17, 2007",FullSize->{2736,3648},ImageFile->"P5170333.JPG", HTMLName -> "11.html"]
}];

Pages["Kyoto0705"] = Page["Place",Title->"Kyoto, May 2007",Prefix->"Kyoto0705-",HTMLName->"index.html",IconFile->"Kyoto0705-icon.jpg",ExtraText->"See also <a href=/~drorbn/Talks/Kyoto-0705>Talks: Kyoto-0705</a>.",{
Pages["Kyoto0705-Kamo"],
Pages["Kyoto0705-Conference"],
Pages["Kyoto0705-Shimogamo"],
Pages["Kyoto0705-Daitokuji"],
Pages["Kyoto0705-Fushimi"],
Page["Image",Title->"Along Higashiojidori Street",HTMLName->"Higashiojidori.html",Text->"In a small temple along Higashiojidori Street, May 11, 2007.",ImageFile->"P5110064.JPG",FullSize->{3648,2736}],
Page["Image",Title->"Rozansky at Yasaka Jinja",Text->"Lev Rozansky at the Yasaka Jinja shrine, May 11, 2007.",ImageFile->"P5110065.JPG",FullSize->{3648,2736}],
Page["Image",Title->"A Mini-Temple on Teramachi Dori",Text->"May 11, 2007.",IconFile->"P5110067_icon.jpg",FullSize->{2736,3648},ImageFile->"P5110067.JPG"],
Page["Image",Title->"Imamiya Shrine (1)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120091.JPG"],
Page["Image",Title->"Imamiya Shrine (2)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120092.JPG"],
Page["Image",Title->"Imamiya Shrine (3)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120093.JPG"],
Page["Image",Title->"The Golden Pavilion at the Kinkakuji Temple (1)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120118.JPG"],
Page["Image",Title->"Kinkakuji Temple (1)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120119.JPG"],
Page["Image",Title->"The Golden Pavilion at the Kinkakuji Temple (2)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120120.JPG"],
Page["Image",Title->"Kinkakuji Temple (2)",Text->"May 12, 2007",FullSize->{3648,2736},ImageFile->"P5120121.JPG"],
Page["Image",Title->"A Vertical Parking Garage",Text->"On Kawaramachi, near its intersection with Imadegawa. May 13, 2007",FullSize->{2736,3648},ImageFile->"P5130184.JPG"],
Page["Image",Title->"A Thin Building",Text->"Off Kawaramachi St., May 13, 2007",FullSize->{2736,3648},ImageFile->"P5130186.JPG"],
Page["Image",Title->"On the Takasegawa River",Text->"May 13, 2007",FullSize->{3648,2736},ImageFile->"P5130189.JPG"],
Page["Image",Title->"A Kyoto Dollar Store",Text->"May 13, 2007. Note the openning hours!",FullSize->{3072,2304},ImageFile->"DSC01200.JPG"],
Page["Image",Title->"Some Dense Housing",Text->"Near the University of Kyoto, May 14, 2007",FullSize->{3648,2736},ImageFile->"P5140192.JPG"],
Page["Image",Title->"Shogetsu (1)",Text->"An okonomiyaki place, May 15, 2007",ExtraText->"Scott Morrison, Sabin Cautis, Joel Kamnitzer, Lev Rozansky and Hana Wachs.",FullSize->{3648,2736},ImageFile->"P5150205.JPG"],Page["Image",Title->"Shogetsu (2)",Text->"An okonomiyaki place, May 15, 2007",ExtraText->"For the lack of a better description, ``okonomiyaki'' are cabbage pancakes with lots of extras. Scott Morrison, Sabin Cautis, Joel Kamnitzer, an unnamed waitress, Lev Rozansky and Hana Wachs",FullSize->{3648,2736},ImageFile->"P5150209.JPG"],
Page["Image",Title->"At the Tofukuji Temple",Text->"May 17, 2007",FullSize->{3648,2736},ImageFile->"P5170334.JPG"],
Page["Image",Title->"Near the Tofukuji Temple",Text->"May 17, 2007",FullSize->{3648,2736},ImageFile->"P5170336.JPG"],
Page["Image",Title->"Outside the Kyoto Station",Text->"May 19, 2007",ExtraText->"With a reflection of the Kyoto Tower",FullSize->{2736,3648},ImageFile->"P5190342.JPG"],Page["Image",Title->"Inside the Kyoto Station",Text->"May 19, 2007",FullSize->{2736,3648},ImageFile->"P5190343.JPG"]
}];

Pages["Tokyo0705"] = Page["Place",Title->"Tokyo, May 2007",Prefix->"Tokyo0705-",HTMLName->"index.html",IconFile->"Tokyo0705-icon.jpg",ExtraText->"See also <a href=/~drorbn/Talks/TiTech-070508>Talks: TiTech-070508</a>.", {
Page["Image",Title->"Homeless at Ueno Station",HTMLName->"HomelessAtUeno.html",Text->"On my first evening in Tokyo, May 7, 2007.",ImageFile->"DSC01188.jpg",FullSize->{1024,768}],Page["Image",Title->"Painting at a Ginza park",HTMLName->"PaintingAtGinza.html",Text->"May 7, 2007.",ImageFile->"DSC01189.jpg",FullSize->{3072,2304}],
Page["Image",Title->"Lunch at a Ginza park",HTMLName->"LunchAtGinza.html",Text->"May 7, 2007.",ImageFile->"DSC01193.jpg",FullSize->{3072,2304}],
Page["Image",Title->"Shinjuku",HTMLName->"Shinjuku.html", Text->"May 7, 2007.",ImageFile->"DSC01194.jpg",FullSize->{3072,2304}],
Page["Image",Title->"Club ads in Shinjuku",HTMLName->"AdsInShinjuku.html",Text->"May 7, 2007.",ImageFile->"DSC01196.jpg",DisplaySize->{480,640},FullSize->{2304,3072}],Page["Image",Title->"The Tokyo Institute of Technology",HTMLName->"TiTech.html",Text->"May 8, 2007.",ImageFile->"P5080014.JPG",FullSize->{3648,2736}],
Page["Image",Title->"At the Tokyo Institute of Technology (1)",HTMLName->"TiTech-1.html",Text->"May 8, 2007.",ImageFile->"P5080021.JPG",IconFile->"P5080021_icon.jpg",FullSize->{2736,3648}],
Page["Image",Title->"At the Tokyo Institute of Technology (2)",HTMLName->"TiTech-2.html",Text->"May 8, 2007.",ImageFile->"P5080023.JPG",FullSize->{3648,2736}],Page["Image",Title->"Window cleaning near Akasuka",HTMLName->"AkasukaWindowCleaning.html",Text->"May 9, 2007.",ImageFile->"P5090049.JPG",FullSize->{3648,2736}],
Page["Image",Title->"Near the Akasuka Shrine (1)",HTMLName->"NearAkasuka-1.html",Text->"May 9, 2007.",ImageFile->"P5090050.JPG",FullSize->{3648,2736}],
Page["Image",Title->"Near the Akasuka Shrine (2)",HTMLName->"NearAkasuka-2.html",Text->"May 9, 2007.",ImageFile->"P5090053.JPG",FullSize->{1280,960}],
Page["Image",Title->"At the Akasuka Shrine (1)",HTMLName->"Akasuka-1.html",Text->"May 9, 2007.",ImageFile->"P5090055.JPG",FullSize->{3648,2736}],
Page["Image",Title->"At the Akasuka Shrine (2)",HTMLName->"Akasuka-2.html",Text->"May 9, 2007.",ImageFile->"P5090057.JPG",FullSize->{3648,2736}],
Page["Image",Title->"At the Akasuka Shrine (3)",HTMLName->"Akasuka-3.html",Text->"May 9, 2007.",ImageFile->"P5090059.JPG",FullSize->{3648,2736}]
}];

Programs

PathOf["ImageMagick"] = "C:\\Program Files\\ImageMagick-6.5.0-Q16\\";

Utilities

StringSplice[this_Page, ss_String] := StringReplace[ss, {
"<#"~~ShortestMatch[s___]~~"#>" :> ToString[this[ToExpression[s]]],
"<*"~~ShortestMatch[s___]~~"*>" :> ToString[ToExpression[s]]
}
];
RemoveRepetitions[l_List] := Module[{a}, a[x_]:=(a[x]=Sequence[]; x); a /@ l];

Completing the Pages List

ReadImage[im_String] := Module[{fs, s},
fs=Import[im, "ImageSize"];
s = Import["!\""<>PathOf["ImageMagick"]<>"identify.exe\"\ -format %c "<>im, "String"];
Print[s];
Page["Image", ToExpression["Sequence["<>s<>"]"], FullSize -> fs, ImageFile -> Last[FileNameSplit[im]]]
];

Object Orientation

Clear[Page];
ObjectOrient[parent_Page, Page[type_String, attribs___Rule]] := ObjectOrient[parent, Page[type, attribs, {}]];
ObjectOrient[parent_Page, Page[type_String, attribs___Rule, subs_List]] := Module[{this},
this=Page[n++];
this[Parent] = parent;
this[Type] = type;
(this[#1] = If[Head[#2]===String, StringSplice[this, #2], #2])& @@@ {attribs};
this[Subpages] =  ObjectOrient[this, #]& /@ subs;
this
];
this_Page[a_[b_]] := this[a][b];

Cell Extraction

Clear[ExtractDataCell];
ExtractDataCell[cn_String] := ExtractDataCell[cn] = First[Cases[
NotebookGet[EvaluationNotebook[]],
Cell[
cc_String?(StringMatchQ[#, ("Data Cell "<>cn<>":\n")~~___]&),
"Text" , ___
] :> Last[StringSplit[cc, "\n", 2]],
Infinity
]];
ExtractDataCell /@ {"Top UpNavigator", "Index Template", "Place Page Banner", "Place Template", "Image Page Banner", "Image Template", "Navigator", "Mirroring Template", "AllOver-1008 Extra Text"};

The Index Page

Page[0][UpNavigator] =  ExtractDataCell["Top UpNavigator"];
(this_Page)[Files] /; this[Type] == "Index":= this[Files] = {this[HTMLFile], this[IconFile], "Mirroring.html", "Assemble.nb", ".htaccess"};

Data Cell Top UpNavigator:
<a href="/~drorbn/Copyleft/index.html">&copy;</a> |
<a href="/~drorbn/">Dror Bar-Natan</a>'s
<a href="../index.html">Image Gallery</a>:

The Index Template

Data Cell Index Template:
<! Script generated - do not edit! >
<! This is Page[<#N#>] of <*Length[AllPages]*> in this Make >

<html>
<head>
  <link rel="stylesheet" type="text/css" href="/~drorbn/global.css">
  <title><#FullTitle#></title>
  <script language=JavaScript>var n=<#N#>, up="index.html";</script>
  <script src="AllPages.js"></script>
  <script src="Actions.js"></script>
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onkeypress = "keypressed(event)" onload="loaded()" onresize="resized()">

<#Navigator#>

<p><center><table>
<#MainContent#>
</table></center>

<p>The html files in the Places gallery were created from an abstract data structure by <a href="Assemble.nb">Assemble.nb</a> on <*Floor[Date[]]*>. 

<p><a href="Mirroring.html">Mirroring / File Lists</a>.

</body></html>

Place Pages

(this_Page)[IconFile] /; this[Type] == "Place":= this[IconFile] = First[this[Subpages]][IconFile];
(this_Page)[Banner] /; this[Type] == "Place":= this[Banner] = StringSplice[this, ExtractDataCell["Place Page Banner"]];
(this_Page)[Files] /; this[Type] == "Place":= this[Files] = {
this[HTMLFile], this[IconFile], this[FullPrefix]<>"Mirroring.html"
}~Join~this[ExtraFiles];

Data Cell Place Page Banner:
  <td><table width=240 cellpadding=0 cellspacing=0>
        <tr><td align=center><font size=-2><a href="<#HTMLFile#>"><#NumberOfLeafs#> images</a></td></font></tr>
        <tr><td align=center><a href="<#HTMLFile#>"><img src=<#IconFile#> height=180 alt="<#Title#>"></a></td></tr>
        <tr><td align=center><#Title#></td></tr>
    </table></td>

The Place Template

Data Cell Place Template:
<! Script generated - do not edit! >
<! This is Page[<#N#>] >

<html>
<head>
  <link rel="stylesheet" type="text/css" href="/~drorbn/global.css">
  <title><#FullTitle#></title>
  <script language=JavaScript>var n=<#N#>, up="<#Parent@HTMLFile#>";</script>
  <script src="AllPages.js"></script>
  <script src="Actions.js"></script>
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onkeypress = "keypressed(event)" onload="loaded()" onresize="resized()">

<#Navigator#>
<#TopText#>
<p><center><table>
<#MainContent#>
</table></center>

<p><#ExtraText#>

<p><a href="<#FullPrefix#>Mirroring.html">Mirroring / File Lists</a>.

</body></html>

Image Pages

(this_Page)[Leafs] /; this[Type] == "Image" := this[Leafs] = this;
(this_Page)[DisplaySize] := this[DisplaySize] = Round[640*this[FullSize]/Max[this[FullSize]]];
(this_Page)[IconSize] := this[IconSize] = Round[180*this[FullSize]/this[FullSize][[2]]];
(this_Page)[Title] := this[Title] = StringReplace[this[ImageFile], RegularExpression["\\..*"] -> ""];
(this_Page)[FullSize] := this[FullSize] = Dimensions[Import[this[ImageFile]][[1,1]]][[{2,1}]];
(this_Page)[FullWidth] := this[FullWidth] = this[FullSize][[1]];
(this_Page)[FullHeight] := this[FullHeight] = this[FullSize][[2]];
(this_Page)[FullSizeString] := this[FullSizeString] = StringJoin[
ToString[this[FullWidth]], "x", ToString[this[FullHeight]]
];
(this_Page)[DisplaySizeString] := this[DisplaySizeString] = StringJoin[
ToString[this[DisplaySize][[1]]], "x", ToString[this[DisplaySize][[2]]]
];
(this_Page)[IconSizeString] := this[IconSizeString] = StringJoin[
ToString[this[IconSize][[1]]], "x", ToString[this[IconSize][[2]]]
];
(this_Page)[DisplayImageFile] /; this[Type] == "Image" := this[DisplayImageFile] = StringReplace[this[ImageFile], ".jpg"|".JPG" -> "_"<>this[DisplaySizeString]<>".jpg"];
(this_Page)[IconFile] /; this[Type] == "Image" := this[IconFile] = StringReplace[this[ImageFile], ".jpg"|".JPG" -> "_"<>this[IconSizeString]<>".jpg"];
(this_Page)[Banner] /; this[Type] == "Image":= this[Banner] = StringSplice[this, ExtractDataCell["Image Page Banner"]];
(this_Page)[Files] /; this[Type] == "Image":= this[Files] = (this[#])& /@ {
HTMLFile, ImageFile, DisplayImageFile, IconFile
};

Data Cell Image Page Banner:
  <td align=center><table width=240 cellpadding=0 cellspacing=0>
   <tr>
     <td align=left><font size=-2><a href="<#HTMLFile#>">Text and <#DisplaySizeString#></a></font></td>
     <td align=right><font size=-2><a href="<#ImageFile#>"><#ImageFile#> (<#FullSizeString#>)</a></font></td>
  </tr> <tr>
    <td colspan=2 align=center><a href="<#HTMLFile#>"><img src=<#IconFile#> height=180 alt="<#Title#>"></a></td>
    </tr> <tr>
      <td colspan=2 align=center><#Title#></td>
    </tr>
    </table></td>

The Image Template

Data Cell Image Template:
<! Script generated - do not edit! >
<! This is Page[<#N#>] >

<html>
<head>
  <link rel="stylesheet" type="text/css" href="/~drorbn/global.css">
  <title><#FullTitle#></title>
  <script language=JavaScript>
    var n=<#N#>;
    var up="<#Parent@HTMLFile#>";
    var imagefile="<#ImageFile#>";
    var fullwidth=<#FullWidth#>.;
    var fullheight=<#FullHeight#>.;
  </script>
  <script src="AllPages.js"></script>
  <script src="Actions.js"></script>
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onkeypress = "keypressed(event)" onload="loaded()" onresize="resized()">

<div id="displayed" style="display: block;">
<#Navigator#>

<table border=0 align=center cellspacing=0 cellpadding=0>
<tr><td colspan=2 align=center><a href="javascript: keyaction('f');"><img src="<#DisplayImageFile#>"></a></td></tr>
<tr>
  <td align=left><font size=-1><a href="javascript: keyaction('f');"><font color=red>f</font>itted view (best; use full screen (<font color=red>F11</font>))</a></font></td>
  <td align=right><font size=-1><a href="<#ImageFile#>"><font color=red>i</font>mage only (<#ImageFile#>, <#FullSizeString#>)</a></font></td>
</tr>
<tr><td colspan=2 align=center>&nbsp;<br><#Text#></td></tr>
</table>

<p><#ExtraText#>
</div>

<div id="fitted" align=center style="display: none">
<img id=fullsize border=0 src="<#DisplayImageFile#>" style="z-index:0;">
<div id="TopLeftText" style="display: block; position: absolute; top: 0px; left: 0px; z-index: 1; text-align: left; max-width: 66%"><span style=" background-color:white;"><#UpNavigator#> <b><#Title#></b></span></div>
<div id="TopRightText" style="display: block; position: absolute; top: 0px; right: 0px; z-index: 1; font-size: small; text-align: right; max-width: 33%">
  <a href="javascript: keyaction('s');" style="background-color:white"><font color=red>s</font>tandard view</a><br>
  <a href="javascript: keyaction('i');" style="background-color:white"><font color=red>i</font>mage only</a><br>
  <a href="javascript: keyaction('t');" style="background-color:white"><font color=red>t</font>ext on/off</a><br>
  <a href="javascript: keyaction('p');" style="background-color:white"><font color=red>p</font>revious</a><br>
  <a href="javascript: keyaction('r');" style="background-color:white"><font color=red>r</font>andom</a><br>
  <a href="javascript: keyaction('n');" style="background-color:white"><font color=red>n</font>ext</a><br>
  <a href="javascript: keyaction('u');" style="background-color:white"><font color=red>u</font>p</a>
</div>
<div id="BottomLeftText" style="display: block; position: absolute; bottom: 0px; left: 0px; z-index: 1; font-size: small; text-align: left; max-width: 66%"><span style="background-color:white;"><#Text#><br><#ExtraText#></span></div>
<div id="BottomRightText" style="display: block; position: absolute; bottom: 0px; right: 0px; background-color:white; z-index: 1; font-size: small; text-align: right; max-width: 33%">Best viewed at full screen (<font color=red>F11</font>)</div>
</div>

</body></html>

Mirroring / File Lists Pages

FileTable[c_Integer, l_List] := StringJoin[
("<td>"<>StringJoin[#]<>"</td>")& /@ 
Partition[
PadRight[("<a href="<>#<>">"<>#<>"</a><br>\n")& /@ l, c*Ceiling[Length[l]/c], ""],
Ceiling[Length[l]/c]
]
]

(this_Page)[DisplayedImages] := (this)[DisplayedImages] = #[DisplayImageFile]& /@ this[Leafs];
(this_Page)[DisplayedImagesFileList] := FileTable[5, this[DisplayedImages]];
(this_Page)[Images] := (this)[Images] = #[ImageFile]& /@ this[Leafs];
(this_Page)[ImagesFileList] := FileTable[5, this[Images]];
(this_Page)[RemainingFileList] := FileTable[5, Select[
this[AllFiles], 
!MemberQ[Union[this[DisplayedImages], this[Images]], #]&
]];

The Mirroring Template

Data Cell Mirroring Template:
<! Script generated - do not edit! >

<html>

<head>
  <link rel="stylesheet" type="text/css" href="/~drorbn/global.css">
  <link rel="stylesheet" type="text/css" href="Art.css">
  <title><#FullTitle#></title>
</head>

<body>

<#UpNavigator#> <a href=<#HTMLFile#>><#Title#></a>:
  <p><center><h1>Mirroring / File Lists</h1></center>
  
  <h2>Mirroring</h2>
  
You can mirror all or part of the <a href=<#HTMLFile#>><#Title#></a> section of this image gallery by copying some or all of the files in the lists below into a single directory on your computer. You may wish to find an automated way of doing so. A nice possibility is to use the command <a class=external href="http://www.gnu.org/software/wget/wget.html">wget</a>, available on several operating systems (<a class=external href="http://www.gnu.org/software/wget/wget.html">see also</a>). On a unix machine, for example, you may copy-paste one or more of the lists below into a text file <tt>file_list</tt> and then issue the command
<blockquote><tt>wget -i file_list --base=http://www.math.toronto.edu/~drorbn/Gallery/Places/</tt></blockquote>
Alternatively, you may issue the command
<blockquote><tt>wget -i - --base=http://www.math.toronto.edu/~drorbn/Gallery/Places/</tt></blockquote>
and then copy-paste one or more of the lists below into standard input.

<h2>File Lists</h2>

<table class=FileList align=center width=100% border=1 cellspacing=0>
<tr><td colspan=5 align=center style="font-size: large"><b>HTML files, Scripts and Icons</b></td></tr>
<tr valign=top>
<#RemainingFileList#>
</tr>
<tr><td colspan=5 align=center style="font-size: large"><b>Medium-Size (roughly VGA) Images</b></td></tr>
<tr valign=top>
<#DisplayedImagesFileList#>
</tr>
<tr><td colspan=5 align=center style="font-size: large"><b>Full-Size (large!) Images</b></td></tr>
<tr valign=top>
<#ImagesFileList#>
</tr>
</table>

</body></html>

DataCompletion (General)

this_Page[N] := First[this];
(this_Page)[Text] := this[Text] = "";
(this_Page)[TopText] := this[TopText] = "";
(this_Page)[ExtraText] := this[ExtraText] = "";
(this_Page)[ExtraFiles] := this[ExtraFiles] = {};
(this_Page)[Leafs] := this[Leafs] = Flatten[(#[Leafs])& /@ this[Subpages]];
(this_Page)[NumberOfLeafs] := this[NumberOfLeafs] = Length[this[Leafs]];
(this_Page)[Prefix] := this[Prefix] = "";
(this_Page)[FullPrefix] := this[FullPrefix] = this[Parent][FullPrefix]<>this[Prefix];
(this_Page)[HTMLFile] := this[HTMLFile] = (this[FullPrefix]<>this[HTMLName]) /. Aliases;(this_Page)[FullTitle] := this[FullTitle] = this[Parent][FullTitle]<>": "<>this[Title];
(this_Page)[UpNavigator] := this[UpNavigator] = StringJoin[
this[Parent][UpNavigator], "\n",
"<a href=", this[Parent][HTMLFile], ">", this[Parent][Title], "</a>:"
];
(this_Page)[Navigator] := this[Navigator] = StringSplice[this, ExtractDataCell["Navigator"]];
(this_Page)[HTMLName] := this[HTMLName] = StringReplace[this[Title], {" " -> "_", "&Aring;" -> "Aa"}]<>".html";
(this_Page)[MainContent] := Module[
{banners, i=1, out={}},
banners = #[Banner]& /@ this[Subpages];
While[i ≤ Length[banners],
AppendTo[out, "<tr valign=top>"<>Switch[Length[banners]-i,
0, "<td></td>"<>banners[[i++]]<>"<td></td>",
1, banners[[i++]]<>"<td></td>"<>banners[[i++]],
_, banners[[i++]]<>banners[[i++]]<>banners[[i++]]
]]
];
StringJoin @@ out
];
(this_Page)[HTMLForm] := this[HTMLForm] = StringSplice[this, ExtractDataCell[this[Type]<>" Template"]];
(this_Page)[AllFiles] := this[AllFiles] = RemoveRepetitions[Flatten[{
this[Files], "Actions.js", "AllPages.js", "Art.css", #[AllFiles]& /@ this[Subpages]
}]];

Data Cell Navigator:
<table width=100%><tr valign=top>
  <td align=left><#UpNavigator#><p><center><h1><#Title#></h1></center></td>
  <td align=right><table cellspacing=0 cellpadding=0><tr align=center>
    <td><a href=<#PreviousLeaf[HTMLFile]#>><img src=<#PreviousLeaf[IconFile]#> width=120 height=90 alt="Previous"><br><font size=-1><font color=red>p</font>revious</font></a></td>
    <td>&nbsp;</td>
    <td align=center valign=top><font size=-1>keyboard<br>shortcuts</br>in <font color=red>red</font></font>
      <p><a href="javascript:keyaction('f')"><font color=red>f</font>itted view</a>
      <br><a href="javascript:keyaction('r')"><font color=red>r</font>andom</a>
    </td>
    <td>&nbsp;</td>
    <td><a href=<#NextLeaf[HTMLFile]#>><img src=<#NextLeaf[IconFile]#> width=120 height=90 alt="Next"><br><font size=-1><font color=red>n</font>ext</font></a></td>
  </tr></table></td>
</tr></table>

Make

Make[this_Page] := Module[
{htmlfile, fulldate, displaydate, icondate, f, s1, s2},
If[this[Type]==="Index",
f=OpenWrite["AllPages.js"];
WriteString[f, "var AllPages = [\n"];
WriteString[f, "  \""<>#@HTMLFile<>"\",\n"]& /@ Drop[AllPages, -1];
WriteString[f, "  \""<>#@HTMLFile<>"\"\n"]& /@ Take[AllPages, -1];
WriteString[f, "]\n"];
Close[f];
f=OpenWrite[".htaccess"];
WriteString[f,
"Redirect /~drorbn/Gallery/Places/"<>#[[1]]<>" "<>"http://www.math.toronto.edu/~drorbn/Gallery/Places/"<>#[[2]]<>"\n"
]& /@ Aliases;
Close[f]
];
If[this[Type]==="Image",
fulldate=Date /. FileInformation[this[ImageFile]];
displaydate=Date /. FileInformation[this[DisplayImageFile]];
icondate=Date /. FileInformation[this[IconFile]];
If[displaydate===Date || displaydate<fulldate, Run[StringReplace[
"convert -resize SIZE SOURCE TARGET",
{"SIZE" -> this[DisplaySizeString], "SOURCE" -> this[ImageFile], "TARGET" -> this[DisplayImageFile]}
]]
];
If[icondate===Date, Run[StringReplace[
"convert -resize 240x180 SOURCE TARGET",
{"SOURCE" -> this[ImageFile], "TARGET" -> this[IconFile]}
]]
];
];
If[MemberQ[{"Index", "Place"},this[Type]],
f = OpenWrite[this[FullPrefix]<>"Mirroring.html"];
WriteString[f, StringSplice[this, ExtractDataCell["Mirroring Template"]]];
Close[f]
];
If[StringJoin[ReadList[this[HTMLFile], String]] =!= StringReplace[this[HTMLForm], "\n" -> ""],
htmlfile = OpenWrite[this[HTMLFile]];
WriteString[htmlfile, this[HTMLForm]];
Close[htmlfile];
];
this[AllFiles]
];

n=0; ObjectOrient[Page[], Pages[]];
AllSubpages[this_Page] := Flatten[{this, AllSubpages /@ this[Subpages]}];
AllPages = AllSubpages[Page[0]];
MapThread[(#1[NextLeaf] = #2; #2[PreviousLeaf]=#1)&, {AllPages, RotateLeft[AllPages]}];

Code Recycling

SetDirectory["C:/drorbn/projects/Gallery/Places"];

Experiments

SetDirectory[GalleryDirectory="C:/drorbn/projects/Gallery/Places"];
ReadImage[FileNameJoin[{
GalleryDirectory,
Last[FileNameSplit[#]]
}]]& /@ Take[FileNames[
"*.jpg",
{"C:\\drorbn\\AcademicPensieve\\2010-06\\MontpellierPictures"}
],All]