How to compute the outline of a calendar month like this [D3 example](http://bl.ocks.org/mbostock/4063318). 

(D3 is a functional language built on JavaScript developed at Stanford and used by New York Times to deploy interactive graphics.)

```
days = <| DayRange[DateObject[{2014, 10, 5}], 
     DateObject[{2014, 10, 11}]] // Map[DayName] // 
   MapIndexed [#1 -> First[#2] &] |>

(* <|Sunday -> 1, Monday -> 2, Tuesday -> 3, Wednesday -> 4, 
 Thursday -> 5, Friday -> 6, Saturday -> 7|> *) 

```

Day positions for Oct 2014:

```
october2014 = <| 
    DayRange[DateObject[{2014, 10, 1}], 
      DateObject[{2014, 10, 31}]] //  
     MapIndexed[#1 -> {days[DayName[#1]], -1 - 
          Quotient[-days[DayName[#1]] + First[#2], 7]} &] |> // 
   Dataset;

```

Individual day `Rectangles` give shape to the month though because they overlap the grid looks somewhat ragged:

```
{october2014[Values, Rectangle[# - {1, 1}, #] & /* RegionBoundary] // 
   Normal,
  october2014[KeyMap[Normal /* (#[[3]] &)]] // Normal // Normal // 
   Map[Text[First[#], Last[#] - {1/2, 1/2}] &] } // Graphics

```

![enter image description here](https://i.stack.imgur.com/HMN9B.png)

But how to compute (not only show graphically) the boundary of the month as a whole? 

```
october2014[Values /* RegionUnion /* RegionBoundary, 
   Rectangle[# - {1, 1}, #] &] // Normal // DiscretizeRegion

```

![enter image description here](https://i.stack.imgur.com/cCPmb.png)

The desired answer is a closed `Line` specified by the corner points of the boundary only. This is a special case of [simplifying polyhedral region](https://mathematica.stackexchange.com/questions/61019/simplify-polyhedral-regions-like-interval) (currently no answers), but will accept any method. 

The correct answer for above is: 

```
Line[{{0, -5}, {6, -5}, {6, -4}, {7, -4}, {7, 0}, {3,0}, {3, -1}, {0, -1}, {0, -5}}]

```