upd attribute shape keys

CHANGELOG.md

@@ -26,6 +26,10 @@
 | ```<<"kind">>``` | ```descriptions``` | ```"descriptions"``` |
 | ```<<"kind">>``` | ```chapters``` | ```"chapters"``` |
 | ```<<"kind">>``` | ```metadata``` | ```"metadata"``` |
+| ```<<"shape">>``` | ```rect``` | ```"rect"``` |
+| ```<<"shape">>``` | ```circle``` | ```"circle"``` |
+| ```<<"shape">>``` | ```poly``` | ```"poly"``` |
+| ```<<"shape">>``` | ```default``` | ```"default"``` |
 
 
 ##### 6.6.2-erl19

src/elements/embed/element_area.erl

@@ -73,10 +73,10 @@ render_element(Record) ->
     {<<"rel">>, Record#area.rel},
     {<<"shape">>,
        case Record#area.shape of
-         "rect" -> "rect";
-         "circle" -> "circle";
-         "poly" -> "poly";
-         "default" -> "default";
+         rect -> "rect";
+         circle -> "circle";
+         poly -> "poly";
+         default -> "default";
          _ -> []
        end},