M2MD.nb

Notebook[{

Cell[CellGroupData[{
Cell["M2MD", "Title",ExpressionUUID->"6d30d064-6ad5-4d00-ad1b-e90016088dff"],

Cell[BoxData[{
 RowBox[{"PacletDirectoryAdd", " ", "@", " ", 
  RowBox[{"NotebookDirectory", "[", "]"}]}], "\n", 
 RowBox[{"SetDirectory", "@", 
  RowBox[{"NotebookDirectory", "[", "]"}]}]}], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"5384612b-2fdb-4dd0-896d-9c2a84aa7f4e"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"<<", "M2MD`"}]}]], "Input",
 CellLabel->"In[3]:=",ExpressionUUID->"aeb9f136-81cb-44fa-b647-6baeefdfeb0d"],

Cell[BoxData[
 RowBox[{"M2MD", "[", 
  RowBox[{
   RowBox[{"Cell", "[", 
    RowBox[{"\"\<test\>\"", ",", " ", "\"\<Code\>\""}], "]"}], ",", " ", 
   RowBox[{"\"\<MDElementTemplates\>\"", " ", "\[Rule]", " ", 
    RowBox[{"<|", 
     RowBox[{"\"\<CodeBlock\>\"", "\[Rule]", "\"\<<!-->\>\""}], "|>"}]}]}], 
  "]"}]], "Input",
 CellLabel->"In[4]:=",ExpressionUUID->"b07a7c12-8c95-4337-8025-bd973939e722"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CreateDocument", "[", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"Cell", "[", 
     RowBox[{
      RowBox[{"M2MD", " ", "@", " ", 
       RowBox[{"EvaluationNotebook", "[", "]"}]}], ",", "\"\<Program\>\""}], 
     "]"}], "}"}], "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellLabel->
  "In[305]:=",ExpressionUUID->"dabb488c-d0c3-44a6-a3f4-9ac1cddbec74"],

Cell[CellGroupData[{

Cell["build", \
"Subsection",ExpressionUUID->"106fee2a-c44e-4872-85cf-70e13c705c5d"],

Cell[BoxData[
 RowBox[{"<<", "build.m"}]], "Input",
 CellLabel->"In[7]:=",ExpressionUUID->"5ac09f12-8b81-4f73-916d-f0b2c0360f4b"],

Cell[BoxData[
 RowBox[{"PreviousCell", "[", "]"}]], "Input",
 CellLabel->"In[37]:=",ExpressionUUID->"abfe85b0-5012-404f-85cc-97d95d6924f5"],

Cell[BoxData[
 RowBox[{"SetDirectory", "@", "$TemporaryDirectory"}]], "Input",
 CellLabel->"In[20]:=",ExpressionUUID->"92e6ee82-80c3-472c-87a3-4f585b0f016a"],

Cell[BoxData[{
 RowBox[{"Directory", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nb", "=", 
  RowBox[{
   RowBox[{"Notebooks", "[", "]"}], "[", 
   RowBox[{"[", "2", "]"}], "]"}]}]}], "Input",
 CellLabel->"In[26]:=",ExpressionUUID->"7a977348-f0c9-4ecf-ac42-bfe37b019021"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MDExport", "[", 
   RowBox[{"\"\<test.md\>\"", ",", "nb", ",", 
    RowBox[{"\"\<BoxesToStringType\>\"", "\[Rule]", "\"\<InputText\>\""}]}], 
   "]"}], "//", "AbsoluteTiming"}]], "Input",
 CellLabel->"In[28]:=",ExpressionUUID->"025f7c36-8f61-4289-819d-b87d43162bb0"],

Cell[BoxData[
 RowBox[{"SystemOpen", "@", 
  RowBox[{"%", "[", 
   RowBox[{"[", "2", "]"}], "]"}]}]], "Input",
 CellLabel->"In[29]:=",ExpressionUUID->"e33cf853-1695-46b7-8632-2c3284124825"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Notebooks", "[", "]"}], "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellLabel->
  "In[150]:=",ExpressionUUID->"71e89637-89d5-43c2-a335-281fa7a21993"],

Cell[BoxData[
 RowBox[{"PrintDefinitions", "@", "M2MD"}]], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"0099416c-8c5d-4497-9915-73781789714b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["tests", \
"Section",ExpressionUUID->"d6f7fe7e-3205-41c8-bb96-753bc71c7aa5"],

Cell[BoxData[
 RowBox[{"reports", "=", 
  RowBox[{"TestReport", " ", "/@", " ", 
   RowBox[{"FileNames", "[", 
    RowBox[{"\"\<*.m\>\"", ",", " ", 
     RowBox[{"{", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"NotebookDirectory", "[", "]"}], ",", " ", "\"\<Tests\>\""}],
         "}"}], "]"}], "}"}]}], "]"}]}]}]], "Input",
 CellLabel->"In[28]:=",ExpressionUUID->"5b53fe5f-f56a-432c-b96f-b38c91a9e46a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"reports", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "[", "\"\<TestsFailed\>\"", "]"}]], "Input",
 CellLabel->"In[29]:=",ExpressionUUID->"d22e7dbc-33d2-4263-aca5-976ce47d7d6e"],

Cell[BoxData[
 RowBox[{"Internal`InheritedBlock", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"$MDEnvironment", " ", "=", " ", "True"}], ",", " ", "M2MD"}], 
    "}"}], ",", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Attributes", "[", "M2MD", "]"}], "=", 
     RowBox[{"{", "}"}]}], ";", "\n", "  ", 
    RowBox[{"Nest", "[", "\n", "    ", 
     RowBox[{
      RowBox[{"ReplaceAll", "[", 
       RowBox[{"DownValues", "[", "M2MD", "]"}], "]"}], "\n", "  ", ",", " ", 
      RowBox[{"Hold", " ", "@", " ", 
       RowBox[{"M2MD", " ", "@", " ", 
        RowBox[{"Cell", "[", 
         RowBox[{"\"\<1+\\n2\>\"", ",", " ", "\"\<Program\>\""}], "]"}]}]}], 
      "\n", "  ", ",", " ", "2"}], "\n", "  ", "]"}]}]}], "\n", 
  "]"}]], "Code",ExpressionUUID->"acda713c-39b6-43f6-9906-9a4d1b4bd2dc"],

Cell[BoxData[
 RowBox[{"Internal`InheritedBlock", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"$MDEnvironment", " ", "=", " ", "True"}], ",", " ", "M2MD"}], 
    "}"}], ",", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Attributes", "[", "M2MD", "]"}], "=", 
     RowBox[{"{", "}"}]}], ";", "\n", "  ", 
    RowBox[{"MatchQ", "[", "\n", "    ", 
     RowBox[{
      RowBox[{"Hold", " ", "@", " ", 
       RowBox[{"M2MD", "[", 
        RowBox[{"\"\<Program\>\"", ",", " ", 
         RowBox[{"Cell", "[", 
          RowBox[{"\"\<1+\\n2\>\"", ",", " ", "\"\<Program\>\""}], "]"}]}], 
        " ", "]"}]}], ",", "\n", "    ", 
      RowBox[{
       RowBox[{"Verbatim", "[", "Hold", "]"}], " ", "@", " ", 
       RowBox[{
        RowBox[{"Verbatim", "[", "M2MD", "]"}], "[", " ", 
        RowBox[{
         RowBox[{"_", "?", 
          RowBox[{"(", 
           RowBox[{"Echo", "@*", "InputStyleQ", "@*", "Echo"}], ")"}]}], ",", 
         " ", "cell_"}], "]"}]}]}], "\n", "  ", "]"}]}]}], "\n", 
  "]"}]], "Code",ExpressionUUID->"b660457c-2bdc-4366-8399-11881b371d72"],

Cell[BoxData[
 RowBox[{
  RowBox[{"docsCell", "=", " ", 
   RowBox[{"Cell", "[", 
    RowBox[{
     RowBox[{"TextData", "[", 
      RowBox[{"{", "\n", " ", 
       RowBox[{"\"\<Define an initialized \>\"", ",", "\n", " ", 
        RowBox[{"Cell", "[", 
         RowBox[{
          RowBox[{"BoxData", "[", "\n", "  ", 
           RowBox[{"TemplateBox", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Cell", "[", "\n", "     ", 
                RowBox[{"TextData", "[", "\"\<NetChain\>\"", "]"}], "]"}], 
               ",", "\"\<paclet:ref/NetChain\>\""}], "}"}], ",", "\n", "   ", 
             "\"\<RefLink\>\"", ",", "\n", "   ", 
             RowBox[{"BaseStyle", "->", 
              RowBox[{"{", "\"\<InlineFormula\>\"", "}"}]}]}], "]"}], "]"}], 
          ",", " ", "\"\<InlineFormula\>\"", ",", "\n", "  ", 
          RowBox[{"FontFamily", "->", "\"\<Source Sans Pro\>\""}]}], "]"}], 
        ",", "\n", " ", "\"\<:\>\""}], "\n", "}"}], "]"}], ",", " ", 
     "\"\<ExampleText\>\"", ",", "\n", " ", 
     RowBox[{"CellID", "->", "480966610"}]}], "]"}]}], 
  ";"}]], "Code",ExpressionUUID->"17228c84-e586-4f6b-a13f-f29ffa583483"],

Cell[BoxData[
 RowBox[{"M2MD", " ", "@", " ", 
  "docsCell"}]], \
"Code",ExpressionUUID->"b15620a5-c442-4376-8866-06558d8c78f5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "@", "foo"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"foo", "[", 
   RowBox[{"lbl_String", ",", " ", "url_String"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"StringTemplate", "[", "\"\<[``](``)\>\"", "]"}], "[", 
   RowBox[{"lbl", ",", " ", "url"}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"foo", "[", 
    RowBox[{"lbl_String", ",", " ", 
     RowBox[{"url_String", "?", 
      RowBox[{"(", 
       RowBox[{"StringContainsQ", "[", "\"\<reference.wolfram.com\>\"", "]"}],
        ")"}]}]}], " ", "]"}], ":=", " ", 
   RowBox[{"(", "\n", "  ", 
    RowBox[{"(*", 
     RowBox[{"do", " ", "whatever"}], "*)"}], "\n", "  ", "url", "\n", 
    ")"}]}], "\n"}], "\n", 
 RowBox[{"M2MD", "[", "\n", "  ", 
  RowBox[{"docsCell", ",", " ", "\n", "  ", 
   RowBox[{"\"\<MDElementTemplates\>\"", " ", "->", " ", 
    RowBox[{"<|", "\n", "     ", 
     RowBox[{"\"\<Hyperlink\>\"", " ", "->", " ", "\"\<<*foo[#, #2]*>\>\""}], 
     "\n", "  ", "|>"}]}]}], "\n", 
  "]"}]}], "Code",ExpressionUUID->"e891cb52-c138-477c-9943-ba5593fe1b49"],

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"M2MD`Private`$MDEnvironment", " ", "=", " ", "True"}], "}"}], 
   ",", "\n", "  ", 
   RowBox[{
    RowBox[{"Hold", " ", "@", " ", 
     RowBox[{"M2MD", " ", "@", " ", 
      RowBox[{"Cell", "[", 
       RowBox[{"\"\<Test\>\"", ",", " ", "\"\<Item\>\""}], "]"}]}]}], " ", "/.",
     " ", 
    RowBox[{"DownValues", "[", "M2MD", "]"}]}]}], " ", "\n", 
  "]"}]], "Code",ExpressionUUID->"2d9c47f4-7372-416e-864c-74f5b40d1194"],

Cell[BoxData[
 RowBox[{"M2MD`Private`ItemStyleQ", "@", 
  "\"\<Item\>\""}]], \
"Code",ExpressionUUID->"1726243c-4ed4-43f6-8674-c1eac603b6d6"],

Cell[BoxData[
 RowBox[{"PrintDefinitions", " ", "@", " ", 
  "M2MD"}]], "Code",ExpressionUUID->"90270b62-de2c-4b73-b046-f207223282eb"],

Cell[BoxData[
 RowBox[{"M2MD", " ", "@", " ", 
  RowBox[{"Cell", "[", 
   RowBox[{
    RowBox[{"BoxData", "[", "\n", " ", 
     RowBox[{"RowBox", "[", 
      RowBox[{"{", "  ", 
       RowBox[{
        RowBox[{"RowBox", "[", 
         RowBox[{"{", 
          RowBox[{
          "\"\<test\>\"", ",", " ", "\"\<=\>\"", ",", " ", "\"\< \>\"", ",", 
           "    ", 
           RowBox[{"GraphicsBox", "[", 
            RowBox[{"DiskBox", "[", 
             RowBox[{"{", 
              RowBox[{"0", ",", " ", "0"}], "}"}], "]"}], "]"}]}], "}"}], 
         "]"}], ",", " ", "\"\<;\>\""}], "}"}], "]"}], "]"}], ",", " ", 
    "\"\<Code\>\""}], " ", 
   "]"}]}]], "Code",ExpressionUUID->"0b323a58-8dc8-45ca-90b5-1899b05c0f4a"],

Cell[BoxData[
 RowBox[{"M2MD", " ", "@", " ", 
  RowBox[{"Cell", "[", 
   RowBox[{
    RowBox[{"TextData", "[", 
     RowBox[{"{", "\n", " ", 
      RowBox[{"\"\<test \>\"", ",", "\n", " ", 
       RowBox[{"Cell", "[", 
        RowBox[{"BoxData", "[", "\n", "  ", 
         RowBox[{"GraphicsBox", "[", 
          RowBox[{
           RowBox[{"DiskBox", "[", 
            RowBox[{"{", 
             RowBox[{"0", ",", " ", "0"}], "}"}], "]"}], ",", " ", 
           RowBox[{"ImageSize", " ", "->", " ", "20"}]}], "]"}], "]"}], "  ", 
        "]"}]}], "\n", "}"}], "]"}], ",", " ", "\"\<Text\>\""}], 
   "]"}]}]], "Code",ExpressionUUID->"0fc696eb-cc54-4fa0-9592-990669609c7b"],

Cell[CellGroupData[{

Cell["style rules", \
"Subsection",ExpressionUUID->"f717b148-997b-430a-82e6-35c156df8026"],

Cell[BoxData[
 RowBox[{"SetDirectory", "@", "$TemporaryDirectory"}]], "Input",
 CellLabel->"In[16]:=",ExpressionUUID->"1715cf84-6479-4d8c-923f-d86b5f270f40"],

Cell[BoxData[{
 RowBox[{"M2MD", "[", " ", 
  RowBox[{"Cell", "[", 
   RowBox[{"\"\<Test\>\"", ",", " ", "\"\<MyStyle\>\""}], "]"}], "]"}], "\n", 
 RowBox[{"M2MD", "[", " ", 
  RowBox[{
   RowBox[{"Cell", "[", 
    RowBox[{"\"\<Test\>\"", ",", " ", "\"\<MyStyle\>\""}], "]"}], ",", " ", 
   RowBox[{"\"\<CellStyleRules\>\"", " ", "\[Rule]", " ", 
    RowBox[{"<|", 
     RowBox[{"\"\<MyStyle\>\"", " ", "\[Rule]", " ", "\"\<h1\>\""}], 
     "|>"}]}]}], "]"}], "\n", 
 RowBox[{"M2MD", "[", " ", 
  RowBox[{
   RowBox[{"Cell", "[", 
    RowBox[{"\"\<Test\>\"", ",", " ", "\"\<MyStyle\>\""}], "]"}], ",", " ", 
   RowBox[{"\"\<CellStyleRules\>\"", " ", "\[Rule]", " ", 
    RowBox[{"<|", 
     RowBox[{"\"\<MyStyle\>\"", " ", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<h1\>\"", ",", " ", 
        RowBox[{
         RowBox[{"BoxesToTeXString", "[", "#", "]"}], "&"}]}], "}"}]}], 
     "|>"}]}]}], "]"}], "\n", 
 RowBox[{"M2MD", "[", " ", 
  RowBox[{
   RowBox[{"Cell", "[", 
    RowBox[{"\"\<Test\>\"", ",", " ", "\"\<MyStyle\>\""}], "]"}], ",", " ", 
   RowBox[{"\"\<CellStyleRules\>\"", " ", "\[Rule]", " ", 
    RowBox[{"<|", 
     RowBox[{"\"\<MyStyle\>\"", " ", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<h1\>\"", ",", " ", 
        RowBox[{
         RowBox[{"ToImageElement", "[", "#", "]"}], "&"}]}], "}"}]}], 
     "|>"}]}]}], "]"}]}], "Code",
 CellLabel->"In[17]:=",ExpressionUUID->"eaf31bfc-43b5-4ee1-9b62-dbe6f3ef2ecd"],

Cell[" specification {tag_, parsers___} translates to ", \
"Text",ExpressionUUID->"7ed0adeb-bc69-4543-9cad-b1be780426dc"],

Cell[BoxData[
 RowBox[{"MDElement", "[", 
  RowBox[{"tag", ",", " ", 
   RowBox[{"parser1", "[", 
    RowBox[{"cell_", ",", " ", "style_"}], "]"}], ",", " ", 
   RowBox[{"parser2", "[", 
    RowBox[{"cell_", ",", " ", "style_"}], "]"}], ",", " ", "___"}], 
  "]"}]], "Code",ExpressionUUID->"ea446a9d-91d4-454c-9818-c9eeba495d9e"],

Cell["\<\
Built-in parsers :
BoxesToMDString
BoxesToInputString
ToImageElement
BoxesToTeXString

But you can use whatever you want as long as it returns something that \
MDElementTemplate for given tag can handle.\
\>", "Text",ExpressionUUID->"1a0ae989-cd03-44cf-a988-9fc47f4c2a9f"],

Cell["We can go even further and define a brand new conversion:", \
"Text",ExpressionUUID->"5de9ed14-c9e5-41b7-9bd9-867373faab85"],

Cell[BoxData[
 RowBox[{"\n", 
  RowBox[{"M2MD", "[", " ", 
   RowBox[{
    RowBox[{"Cell", "[", 
     RowBox[{"\"\<Test\>\"", ",", " ", "\"\<MyStyle\>\""}], "]"}], ",", " ", 
    "\[IndentingNewLine]", 
    RowBox[{"\"\<CellStyleRules\>\"", " ", "\[Rule]", " ", 
     RowBox[{"<|", 
      RowBox[{"\"\<MyStyle\>\"", " ", "\[Rule]", " ", "\"\<myTag\>\""}], 
      "|>"}]}], ",", "\[IndentingNewLine]", " ", 
    RowBox[{"\"\<MDElementTemplates\>\"", "\[Rule]", 
     RowBox[{"<|", 
      RowBox[{"\"\<myTag\>\"", "\[Rule]", "\"\<# ((((``))))\\n---\>\""}], 
      "|>"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 CellLabel->"In[25]:=",ExpressionUUID->"41679aa3-cd5b-4514-b3d6-a26534bf015b"],

Cell["\<\
Together with \[OpenCurlyDoubleQuote]IgnoredStyles\[CloseCurlyDoubleQuote] \
option you can probably get a lot done with standard documentation notebooks\
\>", "Text",ExpressionUUID->"a2c7340a-2a89-4013-8189-ddf7fb74b415"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"nb", "=", 
   RowBox[{"NotebookPut", "@", 
    RowBox[{"Notebook", "@", 
     RowBox[{"List", "@", 
      RowBox[{"Cell", "[", 
       RowBox[{
        RowBox[{"BoxData", "@", 
         RowBox[{"ToBoxes", "@", 
          RowBox[{"Graphics", "@", 
           RowBox[{"Disk", "[", "]"}]}]}]}], ",", "\"\<Output\>\""}], 
       "]"}]}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Export", "=", "export"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"MDExport", "[", "\[IndentingNewLine]", 
    RowBox[{
    "\"\<Test\>\"", ",", "\[IndentingNewLine]", "nb", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<ImagesFetchURL\>\"", "\[Rule]", 
      RowBox[{"URL", "[", "\"\<img\>\"", "]"}]}]}], "\[IndentingNewLine]", 
    "]"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{"NotebookClose", "@", "nb"}], "\[IndentingNewLine]"}], "Input",
 CellLabel->"In[25]:=",ExpressionUUID->"c039053a-85d4-460a-aa52-949f83cac01f"],

Cell[BoxData[
 RowBox[{"BoxesToInputString", "@", 
  RowBox[{"First", "@", 
   RowBox[{"NotebookRead", "@", 
    RowBox[{"PreviousCell", "[", "]"}]}]}]}]], "Input",
 CellLabel->"In[37]:=",ExpressionUUID->"3df94578-38f1-46b3-b99d-06502cb2765d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1225, 872},
WindowMargins->{{Automatic, 115}, {Automatic, 60}},
PrivateNotebookOptions->{"FileOutlineCache"->False},
TrackCellChangeTimes->False,
FrontEndVersion->"12.2 for Microsoft Windows (64-bit) (November 25, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"a30fb722-6a7c-4cb4-b35e-8e13214df9f1"
]