search

kubaPod / M2MD

Simple converter of Mathematica notebooks to markdown.
45 stars 13 forks source link

Incorrect export of images in TraditionalForm #14

Open vsht opened 4 years ago

vsht commented 4 years ago

TraditionalForm output cells may also contain images. Currently, this is not accounted for in 

M2MD[style_, cell:_[BoxData @ FormBox[_, TraditionalForm], ___], OptionsPattern[]
] := MDElement["LaTeXBlock", BoxesToTeXString @ cell ];

Changing the function

M2MD[style_, cell:_[BoxData @ FormBox[_, TraditionalForm], ___], OptionsPattern[]
] := MDElement["LaTeXBlock", BoxesToTeXString @ cell ]/;!inlineImageQ[cell];

seems to fix the issue. Here is an example of a misbehaving cell

Cell[BoxData[
 FormBox[
  GraphicsBox[{InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {5.999999999996362, 
          10.000000000001819`}}], 
         PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, {2.2829934723757828`, 
          12.576822127959739`}, {2.7951409921073664`, 13.191399151637638`}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->29.323636363636364`],
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            29.323636363636364`]& ], {2.6125141805200567, 11.914057016624067}, {1, 1}], 
         LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {5.999999999994543, 
          9.999999999994543}}], 
         PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, {3.7170065276242172`, 
          7.576822127959737}, {3.2048590078926336`, 8.191399151637638}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->29.323636363636364`],
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            29.323636363636364`]& ], {3.387485819479944, 6.914057016624067}, {-1, 1}], 
         LineBox[{{20.000000000007276`, 15.000000000003638`}, {14.000000000005457`, 
          10.000000000003638`}}], 
         PolygonBox[{{17.460932767758425`, 12.884110639798688`}, {16.282993472375782`, 
          12.423177872040261`}, {16.795140992107367`, 11.808600848362362`}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->29.323636363636364`],
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            29.323636363636364`]& ], {16.61251418052006, 13.085942983375933}, {1, -1}], 
         LineBox[{{20.00000000000182, 5.000000000001819}, {14., 10.}}], 
         PolygonBox[{{16.539067232241575`, 7.8841106397986875`}, {17.717006527624218`, 
          7.423177872040263}, {17.204859007892633`, 6.808600848362362}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->29.323636363636364`],
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            29.323636363636364`]& ], {17.38748581947994, 8.085942983375933}, {-1, -1}], 
         LineBox[CompressedData["
1:eJxFlH9QVFUUx98CbTFkM00yICzL7t4bCyKzbrcknaRjTQI22IozsSM1sNA+
QCcxoVQSsEiymQgx2PYZCSbpgn+QQCYzMq4SC8htQWAa/FVGghAw7qhTQcl2
6I/bm3nz5jP3vXfvOef7/epzCtPtAZIkbcF76Tk75scrHqT/LgqaidOOyxz5
ser5Taso5Hxf81mdgpydJWm2UnjpYrnGJiNbw2wnC/F982JWAlvikPqcMgqD
iTnZC/6VIIE9tKyUwt4Pw5b1ceT8d7uXv00hIO0uOBTkvd7OhNcobO2d7H1L
Rk6pXiwxUiidOSgzhny4xHl7gUBd8PCvKgnZ8t2mOS+B5ulu9RCPA8nXZQpq
JuBMSf/2KwVZV3FprIqAxZAxsF1GPuD8wnOAgEOezUhkyLcmI3ZUELAHs/xA
CTn2YPHuOgIX20Y0gzwWpL8enTzeQaDCxRuOKsjWVKv2JoHYdKtWlpEtU9mT
wRSmMvsumRnylKpl13MUTO3xrQ/9RuxfkjFzG4VzZwrm+zly35HC0GIKFfOv
NDsUZPfwqnfKKdSZi87lysgu5lG/T0E99/lyM1ta147a8ih0ud1fL/pjcL+q
n+9upPDwxOLLnCOnBB9qj6LQ2HLvqqIgW91NPT4Cnr/pq3kysnR9rr2HgCZx
beWzDNlVu+HKcQKu3LMVKgl59Y24qk8IrB8zbfTyp0E6pC69U04g6OPbY0cV
ZNePu5+sJDD4pzYtT0a25Ewnf0ngvdzhs4whP1/70cx5XL/5SJwkIfs6To9M
EkgvaWrjnOI8r5Lhp/B8gaY3FAX5cK8qI4nC5ihXjCwj+6ytOhuF3sBfQhhD
Xv3HhvE9FOK9S/ojOL91RwawPw0XdA84J2I9/GQG1kvE9z0Xhk7IMhH/DzJk
pjFGxP6Oifmf/H6DOJ8vKyGVc4M4f2XTrTanYhD1bQmNNNplg6g/dmaw08wM
oj9dWan7F/160b+1ds++Aa4X/a1uvNbhVPSi/z3hy7BevZhPfrTqPGN6MT/l
etKbKkkv5mtp3THj5Tox/ys1nybXKzqhj9/6O18vkHVCP8d+r1OvYTqhL+P0
iCVA0gn9LXh3ltQr0UKf+8c3dzMWLfTbdMfuvsy1/+t7JMNjk7VC/1KxYpr3
Rwl/HOuMsdQoUcI/jz+wFKxkUcJfJae2NfzANcJ/+9r33MuSNcKfjUWZL/zj
jxT+PWO7/4yiRAp/q1vMu9awSOH/vlld2QiPEPlw7YOhiUI5QuTHE/3rXgyR
IkS+1NJA+EZZIfInOUjqXc9WiHxSh98YH+XhIr+Kdp4a3i6Hi3y7P7qkvzCR
f/8CUmEAYA==
          "]], InsetBox[
          TagBox[
           StyleBox[
            TagBox["\[Gamma]",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->29.323636363636364`],
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            29.323636363636364`]& ], {10., 9.0548}, {0, 1}], 
         {PointSize[0.04], PointBox[{6., 10.}], PointBox[{14., 10.}]}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["1",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->23.458909090909092`],
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            23.458909090909092`]& ], {10., -0.5}, {0, -1}]},
        "\"aebe/cfdf/ef.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "aebe/cfdf/ef.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], InsetBox[
     GraphicsBox[
      TagBox[
       TooltipBox[
        {Thickness[0.005], 
         LineBox[{{1.8189894035458565`*^-12, 15.000000000003638`}, {9.999999999997726, 
          14.000000000003638`}}], 
         PolygonBox[{{5.597022314125994, 14.440297768587401`}, {4.363176198265607, 
          14.161687355328603`}, {4.442779173482406, 14.957717107496595`}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->29.323636363636364`],
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            29.323636363636364`]& ], {4.8457692355174515, 13.562492355174516}, {0, 1}], 
         LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {9.999999999988404, 6.}}], 
         PolygonBox[{{4.402977685874006, 5.440297768587401}, {5.636823801734393, 
          5.161687355328604}, {5.557220826517594, 5.9577171074965944`}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->29.323636363636364`],
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            29.323636363636364`]& ], {5.1542307644825485, 4.562492355174517}, {0, 1}], 
         LineBox[{{20.000000000002956`, 14.999999999996362`}, {10.000000000002956`, 
          13.999999999996362`}}], 
         PolygonBox[{{15.597022314125994`, 14.559702231412599`}, {14.363176198265608`, 
          14.838312644671397`}, {14.442779173482405`, 14.042282892503405`}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->29.323636363636364`],
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            29.323636363636364`]& ], {14.845769235517452, 15.437507644825484}, {0, -1}], 
         LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 
          5.999999999996362}}], 
         PolygonBox[{{14.402977685874006`, 5.559702231412599}, {15.636823801734392`, 
          5.838312644671396}, {15.557220826517595`, 5.0422828925034056`}}], InsetBox[
          TagBox[
           StyleBox[
            TagBox["e",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->29.323636363636364`],
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            29.323636363636364`]& ], {15.154230764482548, 6.437507644825483}, {0, -1}], 
         LineBox[CompressedData["
1:eJxFlAlMnEUYhmcLWa2k9egBFLoszOzJ4sIOVmuVftWEltqGpU1kA5VjlaHQ
KL1MgbbQhEpoIr1CkR8xpKVaeiQ9FqtETDaUyzLgumCFlmIl7YrSg6Cpgu2u
g5rxT/5Mnsx/zPd97/tGO4s25M1BCKWJe3b99yLw1D9rGKAnD02vtRCod5/y
FjLBOdkociMBS+HI2CAX7AjN/ayIQJYVdb9KwwWHNDjLCJxJDYJPFcGQt6hs
LwEasWJlCFoCaPP7Vxa+SwANeu4UMcHF/a1xqQRGQ6PLBrjgNYf8pQYCK7Bt
6zIaAehwad3tGQw/uH6zKYpg++dr7/Vj6O7MfOVRQPDk19bg0xgOj+6aymaR
gLQV7UPVGC5qMxs7uOB9dR917cNgS04rMNOlgG75lmypwNARYrAfUQQbP9i5
/RiGxY2KdTog+M8nfMdbMGStc3TlMo2oJ8WhuYmhdzlzX+WC7eM5vrkETiSm
XqE0CtC46szWFwg8M/NeaYMiGCUZMjMItOsG7XOQFlDP0aJFOwlcXFCrXkYF
u72WbeUEHk61vlnABDfTLvVuAptOfbi6QZnd1wzm5hOYmNgy0c8F26tHHyQT
OBe88i0Vihb9mVvlWkpg9xpVG6WCHe6TnZMY7M/P0zMmGN245+rEYL55vaVO
Edxcs+q74xjWHewq6eWC40dM1QcweKpS9vgDgqvUe38ux+BCntYEGiOe79v+
bCWGu2kRhjwm2O78ZfXHGJS+W5fqFMEv1eyfaMMQdCAuhXPBky1nB3wYYv6a
vhYICC4ext4FBBqzMtdTisX8ulXpSQSGxj1NjAmedJzX5hJo+ip9WFEExz9c
NbaLgPl77e+cC9a+fLRX9Cfpj4C4/t+/bvkxhFIi3x+2NYt6ify+Jdy6SVGI
/H9e08lLnBN5vjG12oSQTp5fVeK9TKlO1leYGLU+n+lk/WEXbg/VKzrZH7sq
Prmf62T/aMnlChXSy/5+sWN5ZSLVy/4PE90b+Uwv5+MamBL16uX8qlr9r3Ou
l/N1PHaf8Af0cv7hi2sWJlCD1Edzxo4v32YGqZ/5TyefrlUMUl8b7xdMf8MN
Un+vjcSefxwwSH0+2t/TnkCNUr+ufIeGMaPUt+YOb6xXjFL/gzcGIr/lRumP
YhvdHIRM0j8xe+6mv0hN0l+/ZqX3FjKT9N/ZbRsufKKYpD/bnutQe7hJ+lcb
5f1JhczS32HGSkapWfqfTfq632FmmQ/VzgdQq5hlfgTXhc7r4WaZL2M5zpyZ
gFnmjzXDnx1HY2U+9V0rj8xlsTK/7vMjB48psTLfrPPP1V7lgv/Lv4BqdrXA
3yJp8BI=
          "]], InsetBox[
          TagBox[
           StyleBox[
            TagBox["\[Gamma]",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->29.323636363636364`],
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            29.323636363636364`]& ], {9.0548, 10.}, {1, 0}], 
         {PointSize[0.04], PointBox[{10., 14.}], PointBox[{10., 6.}]}, InsetBox[
          TagBox[
           StyleBox[
            TagBox["2",
             DisplayForm],
            FontFamily->"Helvetica",
            FontSize->23.458909090909092`],
           StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
            23.458909090909092`]& ], {10., -0.5}, {0, -1}]},
        "\"aebf/cedf/ef.m\"",
        TooltipStyle->"TextStyling"],
       Annotation[#, "aebf/cedf/ef.m", "Tooltip"]& ],
      AspectRatio->1,
      PlotRange->{{-1, 21}, {-1, 21}}], {22, 0}, {0, 0}, {22, 22}]},
   AspectRatio->NCache[
     Rational[1, 2], 0.5],
   ImageSize->{512, 256},
   PlotRange->{{0, 44}, {0, 22}}], TraditionalForm]], "Print",
 CellLabel->"During evaluation of In[35]:="]