Add short ArrowTopRight and short ArrowTopLeft with singlequote

[Geronymos]

There are two ways for creating ArrowBottomRight / ArrowBottomLeft with either slashes or a dot. There doesn't seem to be an equivalent for the dots with ArrowTopRight / ArrowTopLeft. Maybe make the backtick or singlequote ' the equvalent for dot . with ArrowTop.

Short ArrowBottomRight / ArrowBottomLeft with dot . works:

 .--.
v    v

But this does not work for creating ArrowTopRight / ArrowTopLeft:

^    ^
 '--'

//     ^
//   -'
(
    bottom_left.is('\''),
    vec![polygon(
        vec![w, p, o],
        true,
        vec![ArrowTopRight],
    )],
),
//   ^  
//    '-
(
    bottom_right.is('\'') || bottom_right.is('`'),
    vec![polygon(
        vec![w, k, t],
        true,
        vec![ArrowTopLeft],
    )],
),