Adding arrowheads at both ends of the axes in a 2D plot

Questions
1

Is there a way in Mathematica to add arrowheads at both ends of the axes in a 2D plot?
In the following code snippet I have customized the appearance of arrowheads (function k) but can’t work out how to get the arrowheads at both ends of each axis.

k = Graphics[Line[{{-1/4, 1/4}, {0, 0}, {-1/4, -1/4}}]];
Plot[Sin[x], {x, -10, 10},
 AxesLabel -> {x, y},
 PlotRange -> {-11, 11},
 LabelStyle -> 
  Directive[Black, 14, Italic, FontFamily -> "Times New Roman"],
 TicksStyle -> Directive[Black, Plain, 10],
 AxesStyle -> Arrowheads[{{Automatic, Automatic, k}}],
 ]

Any help would be much appreciated.
Geoffrey

2

You can try something like this:

k = Graphics[Line[{{-1/4, 1/4}, {0, 0}, {-1/4, -1/4}}]];
Plot[Sin[x], {x, -10, 10},
 AxesLabel -> {x, y}, PlotRange -> {-11, 11},
 LabelStyle -> Directive[Black, 14, Italic,
   FontFamily -> "Times New Roman"],
 TicksStyle -> Directive[Black, Plain, 10],
 AxesStyle -> Arrowheads[{{Automatic, 0,
     Graphics[Line[-{{-1/4, 1/4}, {0, 0}, {-1/4, -1/4}}]]},
    {Automatic, Automatic, k}}]]
3

Thank you. That’s perfect.