Fix for example 2, but sortable column for time broken

examples/2-travel.elm

@@ -1,14 +1,12 @@
+import Browser exposing ( element)
 import Html exposing (Html, Attribute, div, h1, input, p, text)
 import Html.Attributes exposing (checked, style, type_)
 import Html.Events exposing (onClick)
 import Html.Lazy exposing (lazy)
 import Table exposing (defaultCustomizations)
-import Time exposing (Time)
-
-
 
 main =
-  Html.program
+  Browser.element
     { init = init missionSights
     , update = update
     , view = view
@@ -25,9 +23,16 @@ type alias Model =
   , tableState : Table.State
   }
 
+type alias TimeSpan =
+  { hours: Float
+  , minutes: Float
+  }
 
-init : List Sight -> ( Model, Cmd Msg )
+type alias Flags = {}
-init sights =
+
+
+init : List Sight -> Flags -> ( Model, Cmd Msg )
+init sights _ =
   let
     model =
       { sights = sights
@@ -91,31 +96,36 @@ viewSummary allSights =
     sights ->
       let
         time =
-          List.sum (List.map .time sights)
+          sumTimeSpan (List.map .time sights)
 
         price =
           List.sum (List.map .price sights)
 
         summary =
-          "That is " ++ timeToString time ++ " of fun, costing $" ++ toString price
+          "That is " ++ timeToString time ++ " of fun, costing $" ++ String.fromFloat price
       in
         p [] [ text summary ]
 
+sumTimeSpan : List TimeSpan -> TimeSpan
+sumTimeSpan spans =
+  { hours = List.sum (List.map (.hours) spans)
+  , minutes = List.sum (List.map (.minutes) spans)
+  }
 
-timeToString : Time -> String
+timeToString : TimeSpan -> String
 timeToString time =
   let
     hours =
-      case floor (Time.inHours time) of
+      case floor (time.hours) of
         0 -> ""
         1 -> "1 hour"
-        n -> toString n ++ " hours"
+        n -> String.fromInt n ++ " hours"
 
     minutes =
-      case rem (round (Time.inMinutes time)) 60 of
+      case modBy 60 (round (time.minutes)) of
         0 -> ""
         1 -> "1 minute"
-        n -> toString n ++ " minutes"
+        n -> String.fromInt n ++ " minutes"
   in
     hours ++ " " ++ minutes
 
@@ -144,7 +154,7 @@ config =
 toRowAttrs : Sight -> List (Attribute Msg)
 toRowAttrs sight =
   [ onClick (ToggleSelected sight.name)
-  , style [ ("background", if sight.selected then "#CEFAF8" else "white") ]
+  , style "backgroundColor" (if sight.selected then "#CEFAF8" else "white")
   ]
 
 
@@ -153,10 +163,9 @@ timeColumn =
   Table.customColumn
     { name = "Time"
     , viewData = timeToString << .time
-    , sorter = Table.increasingOrDecreasingBy .time
+    , sorter = Table.unsortable
     }
 
-
 checkboxColumn : Table.Column Sight Msg
 checkboxColumn =
   Table.veryCustomColumn
@@ -179,7 +188,7 @@ viewCheckbox {selected} =
 
 type alias Sight =
   { name : String
-  , time : Time
+  , time : TimeSpan
   , price : Float
   , rating : Float
   , selected : Bool
@@ -188,12 +197,12 @@ type alias Sight =
 
 missionSights : List Sight
 missionSights =
-  [ Sight "Eat a Burrito" (30 * Time.minute) 7 4.6 False
+  [ Sight "Eat a Burrito" ( TimeSpan 0 30 ) 7 4.6 False
-  , Sight "Buy drugs in Dolores park" Time.hour 20 4.8 False
+  , Sight "Buy drugs in Dolores park" ( TimeSpan 1 0 ) 20 4.8 False
-  , Sight "Armory Tour" (1.5 * Time.hour) 27 4.5 False
+  , Sight "Armory Tour" ( TimeSpan 1 30 ) 27 4.5 False
-  , Sight "Tartine Bakery" Time.hour 10 4.1 False
+  , Sight "Tartine Bakery" ( TimeSpan 1 0 ) 10 4.1 False
-  , Sight "Have Brunch" (2 * Time.hour) 25 4.2 False
+  , Sight "Have Brunch" ( TimeSpan 2 0 ) 25 4.2 False
-  , Sight "Get catcalled at BART" (5 * Time.minute) 0 1.6 False
+  , Sight "Get catcalled at BART" ( TimeSpan 0 5 ) 0 1.6 False
-  , Sight "Buy a painting at \"Stuff\"" (45 * Time.minute) 400 4.7 False
+  , Sight "Buy a painting at \"Stuff\"" ( TimeSpan 0 45 ) 400 4.7 False
-  , Sight "McDonalds at 24th" (20 * Time.minute) 5 2.8 False
+  , Sight "McDonalds at 24th" ( TimeSpan 0 20 ) 5 2.8 False
   ]

examples/elm.js

@@ -4795,73 +4795,169 @@ var elm$json$Json$Decode$errorToStringHelp = F2(
 var elm$core$Platform$Cmd$batch = _Platform_batch;
 var elm$core$Platform$Cmd$none = elm$core$Platform$Cmd$batch(_List_Nil);
 var author$project$Main$init = F2(
-	function (people, _n0) {
+	function (sights, _n0) {
 		var model = {
-			people: people,
+			sights: sights,
-			query: '',
 			tableState: NoRedInk$elm_sortable_table$Table$initialSort('Year')
 		};
 		return _Utils_Tuple2(model, elm$core$Platform$Cmd$none);
 	});
-var author$project$Main$Person = F4(
+var author$project$Main$Sight = F5(
-	function (name, year, city, state) {
+	function (name, time, price, rating, selected) {
-		return {city: city, name: name, state: state, year: year};
+		return {name: name, price: price, rating: rating, selected: selected, time: time};
 	});
-var author$project$Main$presidents = _List_fromArray(
+var author$project$Main$TimeSpan = F2(
+	function (hours, minutes) {
+		return {hours: hours, minutes: minutes};
+	});
+var author$project$Main$missionSights = _List_fromArray(
 	[
-		A4(author$project$Main$Person, 'George Washington', 1732, 'Westmoreland County', 'Virginia'),
+		A5(
-		A4(author$project$Main$Person, 'John Adams', 1735, 'Braintree', 'Massachusetts'),
+		author$project$Main$Sight,
-		A4(author$project$Main$Person, 'Thomas Jefferson', 1743, 'Shadwell', 'Virginia'),
+		'Eat a Burrito',
-		A4(author$project$Main$Person, 'James Madison', 1751, 'Port Conway', 'Virginia'),
+		A2(author$project$Main$TimeSpan, 0, 30),
-		A4(author$project$Main$Person, 'James Monroe', 1758, 'Monroe Hall', 'Virginia'),
+		7,
-		A4(author$project$Main$Person, 'Andrew Jackson', 1767, 'Waxhaws Region', 'South/North Carolina'),
+		4.6,
-		A4(author$project$Main$Person, 'John Quincy Adams', 1767, 'Braintree', 'Massachusetts'),
+		false),
-		A4(author$project$Main$Person, 'William Henry Harrison', 1773, 'Charles City County', 'Virginia'),
+		A5(
-		A4(author$project$Main$Person, 'Martin Van Buren', 1782, 'Kinderhook', 'New York'),
+		author$project$Main$Sight,
-		A4(author$project$Main$Person, 'Zachary Taylor', 1784, 'Barboursville', 'Virginia'),
+		'Buy drugs in Dolores park',
-		A4(author$project$Main$Person, 'John Tyler', 1790, 'Charles City County', 'Virginia'),
+		A2(author$project$Main$TimeSpan, 1, 0),
-		A4(author$project$Main$Person, 'James Buchanan', 1791, 'Cove Gap', 'Pennsylvania'),
+		20,
-		A4(author$project$Main$Person, 'James K. Polk', 1795, 'Pineville', 'North Carolina'),
+		4.8,
-		A4(author$project$Main$Person, 'Millard Fillmore', 1800, 'Summerhill', 'New York'),
+		false),
-		A4(author$project$Main$Person, 'Franklin Pierce', 1804, 'Hillsborough', 'New Hampshire'),
+		A5(
-		A4(author$project$Main$Person, 'Andrew Johnson', 1808, 'Raleigh', 'North Carolina'),
+		author$project$Main$Sight,
-		A4(author$project$Main$Person, 'Abraham Lincoln', 1809, 'Sinking spring', 'Kentucky'),
+		'Armory Tour',
-		A4(author$project$Main$Person, 'Ulysses S. Grant', 1822, 'Point Pleasant', 'Ohio'),
+		A2(author$project$Main$TimeSpan, 1, 30),
-		A4(author$project$Main$Person, 'Rutherford B. Hayes', 1822, 'Delaware', 'Ohio'),
+		27,
-		A4(author$project$Main$Person, 'Chester A. Arthur', 1829, 'Fairfield', 'Vermont'),
+		4.5,
-		A4(author$project$Main$Person, 'James A. Garfield', 1831, 'Moreland Hills', 'Ohio'),
+		false),
-		A4(author$project$Main$Person, 'Benjamin Harrison', 1833, 'North Bend', 'Ohio'),
+		A5(
-		A4(author$project$Main$Person, 'Grover Cleveland', 1837, 'Caldwell', 'New Jersey'),
+		author$project$Main$Sight,
-		A4(author$project$Main$Person, 'William McKinley', 1843, 'Niles', 'Ohio'),
+		'Tartine Bakery',
-		A4(author$project$Main$Person, 'Woodrow Wilson', 1856, 'Staunton', 'Virginia'),
+		A2(author$project$Main$TimeSpan, 1, 0),
-		A4(author$project$Main$Person, 'William Howard Taft', 1857, 'Cincinnati', 'Ohio'),
+		10,
-		A4(author$project$Main$Person, 'Theodore Roosevelt', 1858, 'New York City', 'New York'),
+		4.1,
-		A4(author$project$Main$Person, 'Warren G. Harding', 1865, 'Blooming Grove', 'Ohio'),
+		false),
-		A4(author$project$Main$Person, 'Calvin Coolidge', 1872, 'Plymouth', 'Vermont'),
+		A5(
-		A4(author$project$Main$Person, 'Herbert Hoover', 1874, 'West Branch', 'Iowa'),
+		author$project$Main$Sight,
-		A4(author$project$Main$Person, 'Franklin D. Roosevelt', 1882, 'Hyde Park', 'New York'),
+		'Have Brunch',
-		A4(author$project$Main$Person, 'Harry S. Truman', 1884, 'Lamar', 'Missouri'),
+		A2(author$project$Main$TimeSpan, 2, 0),
-		A4(author$project$Main$Person, 'Dwight D. Eisenhower', 1890, 'Denison', 'Texas'),
+		25,
-		A4(author$project$Main$Person, 'Lyndon B. Johnson', 1908, 'Stonewall', 'Texas'),
+		4.2,
-		A4(author$project$Main$Person, 'Ronald Reagan', 1911, 'Tampico', 'Illinois'),
+		false),
-		A4(author$project$Main$Person, 'Richard M. Nixon', 1913, 'Yorba Linda', 'California'),
+		A5(
-		A4(author$project$Main$Person, 'Gerald R. Ford', 1913, 'Omaha', 'Nebraska'),
+		author$project$Main$Sight,
-		A4(author$project$Main$Person, 'John F. Kennedy', 1917, 'Brookline', 'Massachusetts'),
+		'Get catcalled at BART',
-		A4(author$project$Main$Person, 'George H. W. Bush', 1924, 'Milton', 'Massachusetts'),
+		A2(author$project$Main$TimeSpan, 0, 5),
-		A4(author$project$Main$Person, 'Jimmy Carter', 1924, 'Plains', 'Georgia'),
+		0,
-		A4(author$project$Main$Person, 'George W. Bush', 1946, 'New Haven', 'Connecticut'),
+		1.6,
-		A4(author$project$Main$Person, 'Bill Clinton', 1946, 'Hope', 'Arkansas'),
+		false),
-		A4(author$project$Main$Person, 'Barack Obama', 1961, 'Honolulu', 'Hawaii'),
+		A5(
-		A4(author$project$Main$Person, 'Donald Trump', 1946, 'New York City', 'New York')
+		author$project$Main$Sight,
+		'Buy a painting at \"Stuff\"',
+		A2(author$project$Main$TimeSpan, 0, 45),
+		400,
+		4.7,
+		false),
+		A5(
+		author$project$Main$Sight,
+		'McDonalds at 24th',
+		A2(author$project$Main$TimeSpan, 0, 20),
+		5,
+		2.8,
+		false)
 	]);
+var elm$core$Basics$not = _Basics_not;
+var author$project$Main$toggle = F2(
+	function (name, sight) {
+		return _Utils_eq(sight.name, name) ? _Utils_update(
+			sight,
+			{selected: !sight.selected}) : sight;
+	});
+var elm$core$List$foldrHelper = F4(
+	function (fn, acc, ctr, ls) {
+		if (!ls.b) {
+			return acc;
+		} else {
+			var a = ls.a;
+			var r1 = ls.b;
+			if (!r1.b) {
+				return A2(fn, a, acc);
+			} else {
+				var b = r1.a;
+				var r2 = r1.b;
+				if (!r2.b) {
+					return A2(
+						fn,
+						a,
+						A2(fn, b, acc));
+				} else {
+					var c = r2.a;
+					var r3 = r2.b;
+					if (!r3.b) {
+						return A2(
+							fn,
+							a,
+							A2(
+								fn,
+								b,
+								A2(fn, c, acc)));
+					} else {
+						var d = r3.a;
+						var r4 = r3.b;
+						var res = (ctr > 500) ? A3(
+							elm$core$List$foldl,
+							fn,
+							acc,
+							elm$core$List$reverse(r4)) : A4(elm$core$List$foldrHelper, fn, acc, ctr + 1, r4);
+						return A2(
+							fn,
+							a,
+							A2(
+								fn,
+								b,
+								A2(
+									fn,
+									c,
+									A2(fn, d, res))));
+					}
+				}
+			}
+		}
+	});
+var elm$core$List$foldr = F3(
+	function (fn, acc, ls) {
+		return A4(elm$core$List$foldrHelper, fn, acc, 0, ls);
+	});
+var elm$core$List$map = F2(
+	function (f, xs) {
+		return A3(
+			elm$core$List$foldr,
+			F2(
+				function (x, acc) {
+					return A2(
+						elm$core$List$cons,
+						f(x),
+						acc);
+				}),
+			_List_Nil,
+			xs);
+	});
 var author$project$Main$update = F2(
 	function (msg, model) {
-		if (msg.$ === 'SetQuery') {
+		if (msg.$ === 'ToggleSelected') {
-			var newQuery = msg.a;
+			var name = msg.a;
 			return _Utils_Tuple2(
 				_Utils_update(
 					model,
-					{query: newQuery}),
+					{
+						sights: A2(
+							elm$core$List$map,
+							author$project$Main$toggle(name),
+							model.sights)
+					}),
 				elm$core$Platform$Cmd$none);
 		} else {
 			var newState = msg.a;
@@ -4978,7 +5074,6 @@ var NoRedInk$elm_sortable_table$Table$onClick = F3(
 					elm$json$Json$Decode$succeed(name),
 					elm$json$Json$Decode$succeed(isReversed))));
 	});
-var elm$core$Basics$not = _Basics_not;
 var NoRedInk$elm_sortable_table$Table$toHeaderInfo = F3(
 	function (_n0, toMsg, _n1) {
 		var sortName = _n0.a;
@@ -5030,75 +5125,6 @@ var NoRedInk$elm_sortable_table$Table$viewCell = F2(
 		var details = viewData(data);
 		return A2(elm$html$Html$td, details.attributes, details.children);
 	});
-var elm$core$List$foldrHelper = F4(
-	function (fn, acc, ctr, ls) {
-		if (!ls.b) {
-			return acc;
-		} else {
-			var a = ls.a;
-			var r1 = ls.b;
-			if (!r1.b) {
-				return A2(fn, a, acc);
-			} else {
-				var b = r1.a;
-				var r2 = r1.b;
-				if (!r2.b) {
-					return A2(
-						fn,
-						a,
-						A2(fn, b, acc));
-				} else {
-					var c = r2.a;
-					var r3 = r2.b;
-					if (!r3.b) {
-						return A2(
-							fn,
-							a,
-							A2(
-								fn,
-								b,
-								A2(fn, c, acc)));
-					} else {
-						var d = r3.a;
-						var r4 = r3.b;
-						var res = (ctr > 500) ? A3(
-							elm$core$List$foldl,
-							fn,
-							acc,
-							elm$core$List$reverse(r4)) : A4(elm$core$List$foldrHelper, fn, acc, ctr + 1, r4);
-						return A2(
-							fn,
-							a,
-							A2(
-								fn,
-								b,
-								A2(
-									fn,
-									c,
-									A2(fn, d, res))));
-					}
-				}
-			}
-		}
-	});
-var elm$core$List$foldr = F3(
-	function (fn, acc, ls) {
-		return A4(elm$core$List$foldrHelper, fn, acc, 0, ls);
-	});
-var elm$core$List$map = F2(
-	function (f, xs) {
-		return A3(
-			elm$core$List$foldr,
-			F2(
-				function (x, acc) {
-					return A2(
-						elm$core$List$cons,
-						f(x),
-						acc);
-				}),
-			_List_Nil,
-			xs);
-	});
 var elm$html$Html$tr = _VirtualDom_node('tr');
 var NoRedInk$elm_sortable_table$Table$viewRowHelp = F3(
 	function (columns, toRowAttrs, data) {
@@ -5178,12 +5204,28 @@ var NoRedInk$elm_sortable_table$Table$view = F3(
 				}
 			}());
 	});
-var author$project$Main$SetQuery = function (a) {
-	return {$: 'SetQuery', a: a};
-};
 var NoRedInk$elm_sortable_table$Table$Config = function (a) {
 	return {$: 'Config', a: a};
 };
+var NoRedInk$elm_sortable_table$Table$customConfig = function (_n0) {
+	var toId = _n0.toId;
+	var toMsg = _n0.toMsg;
+	var columns = _n0.columns;
+	var customizations = _n0.customizations;
+	return NoRedInk$elm_sortable_table$Table$Config(
+		{
+			columns: A2(
+				elm$core$List$map,
+				function (_n1) {
+					var cData = _n1.a;
+					return cData;
+				},
+				columns),
+			customizations: customizations,
+			toId: toId,
+			toMsg: toMsg
+		});
+};
 var NoRedInk$elm_sortable_table$Table$simpleRowAttrs = function (_n0) {
 	return _List_Nil;
 };
@@ -5271,24 +5313,6 @@ var NoRedInk$elm_sortable_table$Table$simpleThead = function (headers) {
 		A2(elm$core$List$map, NoRedInk$elm_sortable_table$Table$simpleTheadHelp, headers));
 };
 var NoRedInk$elm_sortable_table$Table$defaultCustomizations = {caption: elm$core$Maybe$Nothing, rowAttrs: NoRedInk$elm_sortable_table$Table$simpleRowAttrs, tableAttrs: _List_Nil, tbodyAttrs: _List_Nil, tfoot: elm$core$Maybe$Nothing, thead: NoRedInk$elm_sortable_table$Table$simpleThead};
-var NoRedInk$elm_sortable_table$Table$config = function (_n0) {
-	var toId = _n0.toId;
-	var toMsg = _n0.toMsg;
-	var columns = _n0.columns;
-	return NoRedInk$elm_sortable_table$Table$Config(
-		{
-			columns: A2(
-				elm$core$List$map,
-				function (_n1) {
-					var cData = _n1.a;
-					return cData;
-				},
-				columns),
-			customizations: NoRedInk$elm_sortable_table$Table$defaultCustomizations,
-			toId: toId,
-			toMsg: toMsg
-		});
-};
 var NoRedInk$elm_sortable_table$Table$Column = function (a) {
 	return {$: 'Column', a: a};
 };
@@ -5314,16 +5338,17 @@ var elm$core$Basics$composeL = F3(
 		return g(
 			f(x));
 	});
-var NoRedInk$elm_sortable_table$Table$intColumn = F2(
+var elm$core$String$fromFloat = _String_fromNumber;
-	function (name, toInt) {
+var NoRedInk$elm_sortable_table$Table$floatColumn = F2(
+	function (name, toFloat) {
 		return NoRedInk$elm_sortable_table$Table$Column(
 			{
 				name: name,
-				sorter: NoRedInk$elm_sortable_table$Table$increasingOrDecreasingBy(toInt),
+				sorter: NoRedInk$elm_sortable_table$Table$increasingOrDecreasingBy(toFloat),
 				viewData: A2(
 					elm$core$Basics$composeL,
-					A2(elm$core$Basics$composeL, NoRedInk$elm_sortable_table$Table$textDetails, elm$core$String$fromInt),
+					A2(elm$core$Basics$composeL, NoRedInk$elm_sortable_table$Table$textDetails, elm$core$String$fromFloat),
-					toInt)
+					toFloat)
 			});
 	});
 var NoRedInk$elm_sortable_table$Table$stringColumn = F2(
@@ -5338,40 +5363,179 @@ var NoRedInk$elm_sortable_table$Table$stringColumn = F2(
 var author$project$Main$SetTableState = function (a) {
 	return {$: 'SetTableState', a: a};
 };
-var author$project$Main$config = NoRedInk$elm_sortable_table$Table$config(
+var NoRedInk$elm_sortable_table$Table$None = {$: 'None'};
+var NoRedInk$elm_sortable_table$Table$unsortable = NoRedInk$elm_sortable_table$Table$None;
+var NoRedInk$elm_sortable_table$Table$veryCustomColumn = NoRedInk$elm_sortable_table$Table$Column;
+var elm$html$Html$input = _VirtualDom_node('input');
+var elm$json$Json$Encode$bool = _Json_wrap;
+var elm$html$Html$Attributes$boolProperty = F2(
+	function (key, bool) {
+		return A2(
+			_VirtualDom_property,
+			key,
+			elm$json$Json$Encode$bool(bool));
+	});
+var elm$html$Html$Attributes$checked = elm$html$Html$Attributes$boolProperty('checked');
+var elm$json$Json$Encode$string = _Json_wrap;
+var elm$html$Html$Attributes$stringProperty = F2(
+	function (key, string) {
+		return A2(
+			_VirtualDom_property,
+			key,
+			elm$json$Json$Encode$string(string));
+	});
+var elm$html$Html$Attributes$type_ = elm$html$Html$Attributes$stringProperty('type');
+var author$project$Main$viewCheckbox = function (_n0) {
+	var selected = _n0.selected;
+	return A2(
+		NoRedInk$elm_sortable_table$Table$HtmlDetails,
+		_List_Nil,
+		_List_fromArray(
+			[
+				A2(
+				elm$html$Html$input,
+				_List_fromArray(
+					[
+						elm$html$Html$Attributes$type_('checkbox'),
+						elm$html$Html$Attributes$checked(selected)
+					]),
+				_List_Nil)
+			]));
+};
+var author$project$Main$checkboxColumn = NoRedInk$elm_sortable_table$Table$veryCustomColumn(
+	{name: '', sorter: NoRedInk$elm_sortable_table$Table$unsortable, viewData: author$project$Main$viewCheckbox});
+var NoRedInk$elm_sortable_table$Table$ColumnData = F3(
+	function (name, viewData, sorter) {
+		return {name: name, sorter: sorter, viewData: viewData};
+	});
+var NoRedInk$elm_sortable_table$Table$customColumn = function (_n0) {
+	var name = _n0.name;
+	var viewData = _n0.viewData;
+	var sorter = _n0.sorter;
+	return NoRedInk$elm_sortable_table$Table$Column(
+		A3(
+			NoRedInk$elm_sortable_table$Table$ColumnData,
+			name,
+			A2(elm$core$Basics$composeL, NoRedInk$elm_sortable_table$Table$textDetails, viewData),
+			sorter));
+};
+var elm$core$Basics$modBy = _Basics_modBy;
+var elm$core$Basics$round = _Basics_round;
+var author$project$Main$timeToString = function (time) {
+	var minutes = function () {
+		var _n1 = A2(
+			elm$core$Basics$modBy,
+			60,
+			elm$core$Basics$round(time.minutes));
+		switch (_n1) {
+			case 0:
+				return '';
+			case 1:
+				return '1 minute';
+			default:
+				var n = _n1;
+				return elm$core$String$fromInt(n) + ' minutes';
+		}
+	}();
+	var hours = function () {
+		var _n0 = elm$core$Basics$floor(time.hours);
+		switch (_n0) {
+			case 0:
+				return '';
+			case 1:
+				return '1 hour';
+			default:
+				var n = _n0;
+				return elm$core$String$fromInt(n) + ' hours';
+		}
+	}();
+	return hours + (' ' + minutes);
+};
+var author$project$Main$timeColumn = NoRedInk$elm_sortable_table$Table$customColumn(
+	{
+		name: 'Time',
+		sorter: NoRedInk$elm_sortable_table$Table$unsortable,
+		viewData: A2(
+			elm$core$Basics$composeL,
+			author$project$Main$timeToString,
+			function ($) {
+				return $.time;
+			})
+	});
+var author$project$Main$ToggleSelected = function (a) {
+	return {$: 'ToggleSelected', a: a};
+};
+var elm$html$Html$Events$onClick = function (msg) {
+	return A2(
+		elm$html$Html$Events$on,
+		'click',
+		elm$json$Json$Decode$succeed(msg));
+};
+var author$project$Main$toRowAttrs = function (sight) {
+	return _List_fromArray(
+		[
+			elm$html$Html$Events$onClick(
+			author$project$Main$ToggleSelected(sight.name)),
+			A2(
+			elm$html$Html$Attributes$style,
+			'backgroundColor',
+			sight.selected ? '#CEFAF8' : 'white')
+		]);
+};
+var author$project$Main$config = NoRedInk$elm_sortable_table$Table$customConfig(
 	{
 		columns: _List_fromArray(
 			[
+				author$project$Main$checkboxColumn,
 				A2(
 				NoRedInk$elm_sortable_table$Table$stringColumn,
 				'Name',
 				function ($) {
 					return $.name;
 				}),
+				author$project$Main$timeColumn,
 				A2(
-				NoRedInk$elm_sortable_table$Table$intColumn,
+				NoRedInk$elm_sortable_table$Table$floatColumn,
-				'Year',
+				'Price',
 				function ($) {
-					return $.year;
+					return $.price;
 				}),
 				A2(
-				NoRedInk$elm_sortable_table$Table$stringColumn,
+				NoRedInk$elm_sortable_table$Table$floatColumn,
-				'City',
+				'Rating',
 				function ($) {
-					return $.city;
+					return $.rating;
-				}),
-				A2(
-				NoRedInk$elm_sortable_table$Table$stringColumn,
-				'State',
-				function ($) {
-					return $.state;
 				})
 			]),
+		customizations: _Utils_update(
+			NoRedInk$elm_sortable_table$Table$defaultCustomizations,
+			{rowAttrs: author$project$Main$toRowAttrs}),
 		toId: function ($) {
 			return $.name;
 		},
 		toMsg: author$project$Main$SetTableState
 	});
+var elm$core$List$sum = function (numbers) {
+	return A3(elm$core$List$foldl, elm$core$Basics$add, 0, numbers);
+};
+var author$project$Main$sumTimeSpan = function (spans) {
+	return {
+		hours: elm$core$List$sum(
+			A2(
+				elm$core$List$map,
+				function ($) {
+					return $.hours;
+				},
+				spans)),
+		minutes: elm$core$List$sum(
+			A2(
+				elm$core$List$map,
+				function ($) {
+					return $.minutes;
+				},
+				spans))
+	};
+};
 var elm$core$List$filter = F2(
 	function (isGood, list) {
 		return A3(
@@ -5383,70 +5547,55 @@ var elm$core$List$filter = F2(
 			_List_Nil,
 			list);
 	});
-var elm$core$String$contains = _String_contains;
+var elm$html$Html$p = _VirtualDom_node('p');
-var elm$core$String$toLower = _String_toLower;
+var author$project$Main$viewSummary = function (allSights) {
+	var _n0 = A2(
+		elm$core$List$filter,
+		function ($) {
+			return $.selected;
+		},
+		allSights);
+	if (!_n0.b) {
+		return A2(
+			elm$html$Html$p,
+			_List_Nil,
+			_List_fromArray(
+				[
+					elm$html$Html$text('Click the sights you want to see on your trip!')
+				]));
+	} else {
+		var sights = _n0;
+		var time = author$project$Main$sumTimeSpan(
+			A2(
+				elm$core$List$map,
+				function ($) {
+					return $.time;
+				},
+				sights));
+		var price = elm$core$List$sum(
+			A2(
+				elm$core$List$map,
+				function ($) {
+					return $.price;
+				},
+				sights));
+		var summary = 'That is ' + (author$project$Main$timeToString(time) + (' of fun, costing $' + elm$core$String$fromFloat(price)));
+		return A2(
+			elm$html$Html$p,
+			_List_Nil,
+			_List_fromArray(
+				[
+					elm$html$Html$text(summary)
+				]));
+	}
+};
 var elm$html$Html$div = _VirtualDom_node('div');
 var elm$html$Html$h1 = _VirtualDom_node('h1');
-var elm$html$Html$input = _VirtualDom_node('input');
+var elm$virtual_dom$VirtualDom$lazy = _VirtualDom_lazy;
-var elm$json$Json$Encode$string = _Json_wrap;
+var elm$html$Html$Lazy$lazy = elm$virtual_dom$VirtualDom$lazy;
-var elm$html$Html$Attributes$stringProperty = F2(
-	function (key, string) {
-		return A2(
-			_VirtualDom_property,
-			key,
-			elm$json$Json$Encode$string(string));
-	});
-var elm$html$Html$Attributes$placeholder = elm$html$Html$Attributes$stringProperty('placeholder');
-var elm$html$Html$Events$alwaysStop = function (x) {
-	return _Utils_Tuple2(x, true);
-};
-var elm$virtual_dom$VirtualDom$MayStopPropagation = function (a) {
-	return {$: 'MayStopPropagation', a: a};
-};
-var elm$html$Html$Events$stopPropagationOn = F2(
-	function (event, decoder) {
-		return A2(
-			elm$virtual_dom$VirtualDom$on,
-			event,
-			elm$virtual_dom$VirtualDom$MayStopPropagation(decoder));
-	});
-var elm$json$Json$Decode$field = _Json_decodeField;
-var elm$json$Json$Decode$at = F2(
-	function (fields, decoder) {
-		return A3(elm$core$List$foldr, elm$json$Json$Decode$field, decoder, fields);
-	});
-var elm$json$Json$Decode$string = _Json_decodeString;
-var elm$html$Html$Events$targetValue = A2(
-	elm$json$Json$Decode$at,
-	_List_fromArray(
-		['target', 'value']),
-	elm$json$Json$Decode$string);
-var elm$html$Html$Events$onInput = function (tagger) {
-	return A2(
-		elm$html$Html$Events$stopPropagationOn,
-		'input',
-		A2(
-			elm$json$Json$Decode$map,
-			elm$html$Html$Events$alwaysStop,
-			A2(elm$json$Json$Decode$map, tagger, elm$html$Html$Events$targetValue)));
-};
 var author$project$Main$view = function (_n0) {
-	var people = _n0.people;
+	var sights = _n0.sights;
 	var tableState = _n0.tableState;
-	var query = _n0.query;
-	var lowerQuery = elm$core$String$toLower(query);
-	var acceptablePeople = A2(
-		elm$core$List$filter,
-		A2(
-			elm$core$Basics$composeL,
-			A2(
-				elm$core$Basics$composeL,
-				elm$core$String$contains(lowerQuery),
-				elm$core$String$toLower),
-			function ($) {
-				return $.name;
-			}),
-		people);
 	return A2(
 		elm$html$Html$div,
 		_List_Nil,
@@ -5457,17 +5606,10 @@ var author$project$Main$view = function (_n0) {
 				_List_Nil,
 				_List_fromArray(
 					[
-						elm$html$Html$text('Birthplaces of U.S. Presidents')
+						elm$html$Html$text('Trip Planner')
 					])),
-				A2(
+				A2(elm$html$Html$Lazy$lazy, author$project$Main$viewSummary, sights),
-				elm$html$Html$input,
+				A3(NoRedInk$elm_sortable_table$Table$view, author$project$Main$config, tableState, sights)
-				_List_fromArray(
-					[
-						elm$html$Html$Attributes$placeholder('Search by Name'),
-						elm$html$Html$Events$onInput(author$project$Main$SetQuery)
-					]),
-				_List_Nil),
-				A3(NoRedInk$elm_sortable_table$Table$view, author$project$Main$config, tableState, acceptablePeople)
 			]));
 };
 var elm$browser$Browser$External = function (a) {
@@ -5588,6 +5730,7 @@ var elm$core$String$left = F2(
 	function (n, string) {
 		return (n < 1) ? '' : A3(elm$core$String$slice, 0, n, string);
 	});
+var elm$core$String$contains = _String_contains;
 var elm$core$String$toInt = _String_toInt;
 var elm$url$Url$Url = F6(
 	function (protocol, host, port_, path, query, fragment) {
@@ -5700,7 +5843,7 @@ var elm$core$Platform$Sub$batch = _Platform_batch;
 var elm$core$Platform$Sub$none = elm$core$Platform$Sub$batch(_List_Nil);
 var author$project$Main$main = elm$browser$Browser$element(
 	{
-		init: author$project$Main$init(author$project$Main$presidents),
+		init: author$project$Main$init(author$project$Main$missionSights),
 		subscriptions: function (_n0) {
 			return elm$core$Platform$Sub$none;
 		},