Allow columns to have an initial reversed sort

src/Table.elm

@@ -1,7 +1,7 @@
 module Table exposing
   ( view
   , config, stringColumn, intColumn, floatColumn
-  , State, initialSort
+  , State, initialSort, initialReversedSort
   , Column, customColumn, veryCustomColumn
   , Sorter, unsortable, increasingBy, decreasingBy
   , increasingOrDecreasingBy, decreasingOrIncreasingBy
@@ -84,6 +84,13 @@ initialSort header =
   State header False
 
 
+{-| Same as initialSort, but reverse the order.
+-}
+initialReversedSort : String -> State
+initialReversedSort header =
+  State header True
+
+
 
 -- CONFIG