(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     17272,        401]
NotebookOptionsPosition[     14090,        329]
NotebookOutlinePosition[     15411,        367]
CellTagsIndexPosition[     15235,        359]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 "Prompt Text",
 Cell[BoxData[
  PaneSelectorBox[{True->
   TemplateBox[{"PromptTemplate", 
     Cell[
      BoxData[
       FrameBox[
        Cell[
        "Type the content of the prompt below. Use the Template Slots tools \
above to insert slots into the template.", "MoreInfoText"], Background -> 
        GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
        RoundingRadius -> 5, ImageSize -> {
          Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, 
      CellTags -> {"SectionMoreInfoPromptTemplate"}, 
      CellMargins -> {{66, 66}, {15, 15}}]},
    "MoreInfoOpenerButtonTemplate"]}, Dynamic[
    CurrentValue[
     EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]],
   ImageSize->Automatic]],ExpressionUUID->
  "e8627b6a-9f92-4f9c-a7f5-10e5e66f3488"]
}], "Section",
 Deletable->False,
 TaggingRules->{"TemplateGroupName" -> "PromptTemplate"},
 CellTags->{"PromptTemplate", "Prompt Text", "TemplateCellGroup"},
 CellID->38396073,ExpressionUUID->"db13be87-b1d3-42d7-9469-53bc8f652189"],

Cell[TextData[{
 "Rewrite the following text and convert some of it into emojis.\nThe emojis \
are all related to whatever is in the text.\n\n",
 Cell[BoxData[
  TemplateBox[{1, "\"\"", "Positional", TextData},
   "NotebookTemplateSlot"]],ExpressionUUID->
  "3e3c0510-9418-4948-86b4-6724d7a8808c"]
}], "Text",
 TaggingRules->{},
 CellChangeTimes->{{3.8926557327207804`*^9, 3.8926557726323767`*^9}, {
  3.8926560261677723`*^9, 3.892656039609857*^9}, {3.8926560881905065`*^9, 
  3.8926560914002743`*^9}, {3.892659369342989*^9, 3.892659395065239*^9}, {
  3.892659608191674*^9, 3.892659700976309*^9}, {3.892659735663034*^9, 
  3.892659739155972*^9}, {3.892659999524551*^9, 3.892660010309381*^9}, {
  3.89266005320142*^9, 3.8926600628885813`*^9}, {3.894141745586822*^9, 
  3.8941417529309473`*^9}, {3.902139902042885*^9, 3.9021399025169973`*^9}},
 Background->GrayLevel[0.97],
 CellTags->"DefaultContent",
 CellID->439264869,ExpressionUUID->"36bd8e5e-cc9e-4404-9af2-fb5f98961237"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Template object", "Section",
 CellChangeTimes->{{3.902139697965864*^9, 
  3.902139709338511*^9}},ExpressionUUID->"453e6156-196c-45b3-9218-\
dddb0385cb18"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringTemplate", "[", "\"\<Make a list of `count` random cars.\>\"",
   "]"}]], "Input",
 CellChangeTimes->{{3.902139601904305*^9, 3.902139659445586*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"6e174610-bdb4-4751-b213-aa7d793fb1b9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["TemplateObject",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = True, Typeset`embedState$$ = "Ready"}, 
    TemplateBox[{
      PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"], 
               ImageSizeCache -> {11., {0., 11.}}], Appearance -> None, 
              BaseStyle -> {}, ButtonFunction :> (Typeset`open$$ = True), 
              Evaluator -> Automatic, Method -> "Preemptive"], 
             Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], "", 
            GridBox[{{
               RowBox[{
                 TagBox["\"Content: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  TagBox[
                   TemplateBox[{"\"Make a list of \"", 
                    
                    TemplateBox[{"\"count\""}, "TemplateSlot", 
                    DisplayFunction -> (
                    FrameBox[#, Background -> RGBColor[0.945, 0.992, 1.], 
                    BaselinePosition -> Baseline, 
                    BaseStyle -> {ShowStringCharacters -> True}, 
                    FrameMargins -> {{2, 2}, {0, 0}}, FrameStyle -> 
                    RGBColor[0.698, 0.898, 0.9255], RoundingRadius -> 3]& ), 
                    Tooltip -> Automatic], "\" random cars.\""}, 
                    "RowDefault"], Deploy, DefaultBaseStyle -> "Deploy"], 
                  "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Parameters: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  TemplateBox[{",", "\",\"", 
                    StyleBox[
                    "\"count\"", ShowStringCharacters -> True, StripOnInput -> 
                    False]}, "RowWithSeparators"], "SummaryItem"]}]}}, 
             AutoDelete -> False, 
             BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> 
          False, BaselinePosition -> {1, 1}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True -> 
        GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"], 
               ImageSizeCache -> {11., {0., 11.}}], Appearance -> None, 
              BaseStyle -> {}, ButtonFunction :> (Typeset`open$$ = False), 
              Evaluator -> Automatic, Method -> "Preemptive"], 
             Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 
                3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification])}]], "", 
            GridBox[{{
               RowBox[{
                 TagBox["\"Content: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  TagBox[
                   TemplateBox[{"\"Make a list of \"", 
                    
                    TemplateBox[{"\"count\""}, "TemplateSlot", 
                    DisplayFunction -> (
                    FrameBox[#, Background -> RGBColor[0.945, 0.992, 1.], 
                    BaselinePosition -> Baseline, 
                    BaseStyle -> {ShowStringCharacters -> True}, 
                    FrameMargins -> {{2, 2}, {0, 0}}, FrameStyle -> 
                    RGBColor[0.698, 0.898, 0.9255], RoundingRadius -> 3]& ), 
                    Tooltip -> Automatic], "\" random cars.\""}, 
                    "RowDefault"], Deploy, DefaultBaseStyle -> "Deploy"], 
                  "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Parameters: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  TemplateBox[{",", "\",\"", 
                    StyleBox[
                    "\"count\"", ShowStringCharacters -> True, StripOnInput -> 
                    False]}, "RowWithSeparators"], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"CombinerFunction: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["StringJoin", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"InsertionFunction: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["TextString", "SummaryItem"]}]}}, AutoDelete -> False,
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}}, AutoDelete -> 
          False, BaselinePosition -> {1, 1}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  TemplateObject[{"Make a list of ", 
    TemplateSlot["count"], " random cars."}, CombinerFunction -> StringJoin, 
   InsertionFunction -> TextString, MetaInformation -> <||>],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.902139660255148*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"2f3c6d04-f816-477a-a39c-400578bbb7e9"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Export", "Section",
 CellChangeTimes->{{3.7925802491878033`*^9, 
  3.7925802500430098`*^9}},ExpressionUUID->"55551cea-6da6-4e3b-8d32-\
b8d7d7bbebdf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetDirectory", "[", 
  RowBox[{"NotebookDirectory", "[", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.787869226097657*^9, 3.787869234619795*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"3f985899-c809-46c6-98c9-43b958f60f55"],

Cell[BoxData["\<\"/Users/antonov/MathFiles/Questions\"\>"], "Output",
 CellChangeTimes->{3.902139664869804*^9, 3.902139834091034*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"bfb66245-652f-4284-9051-99e8ba78d18a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<M2MD`\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.787867887165537*^9, 3.787867895537777*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"745cbb88-70f9-4368-b7f0-d61c0432ff4b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fileName", "=", 
  RowBox[{"StringReplace", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"FileNameSplit", "[", 
      RowBox[{"NotebookFileName", "[", "]"}], "]"}], "\[LeftDoubleBracket]", 
     RowBox[{"-", "1"}], "\[RightDoubleBracket]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<.nb\>\"", "~~", "EndOfString"}], "->", "\"\<.md\>\""}], 
     "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7878678839976263`*^9, 3.787867955368351*^9}, {
  3.787868011346472*^9, 3.787868014427517*^9}, {3.7878683619937572`*^9, 
  3.787868363704116*^9}, {3.787868405577346*^9, 3.787868428816819*^9}, {
  3.788089833569029*^9, 3.788089847412901*^9}, {3.788089930604616*^9, 
  3.788089947949142*^9}, {3.788090081610413*^9, 3.78809008426838*^9}, {
  3.788882474036006*^9, 3.78888247943267*^9}, {3.788882566803999*^9, 
  3.788882599856888*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"fe4e91a6-9e8a-4ee4-beba-f73646d8290e"],

Cell[BoxData["\<\"M2MD-export-of-template-objects.md\"\>"], "Output",
 CellChangeTimes->{3.902139664900378*^9, 3.902139834112763*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"c9332eb8-1f42-41c3-9904-6003718421d2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SeedRandom", "[", "2323", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.788254866605153*^9, 3.788254869010036*^9}, 
   3.835345416523335*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"b84f9118-c93a-4251-ad45-ab6447540822"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "MDExport", "]"}]], "Input",
 CellChangeTimes->{{3.788882741025703*^9, 3.788882744623519*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"dc49d01b-fe4d-4c65-83a9-452fcdac2216"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"ImagesExportURL\"\>", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"\<\"ImagesFetchURL\"\>", "\[Rule]", "\<\"Relative\"\>"}], ",", 
   RowBox[{"\<\"ImageNameFunction\"\>", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"\<\"OverwriteImages\"\>", "\[Rule]", "True"}], ",", 
   RowBox[{"\<\"IgnoredStyles\"\>", "\[Rule]", "None"}], ",", 
   RowBox[{"\<\"CellStyleRules\"\>", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"\<\"CodeLanguage\"\>", "\[Rule]", "\<\"mathematica\"\>"}], ",", 
   RowBox[{"\<\"BoxesToStringType\"\>", "\[Rule]", "\<\"InputText\"\>"}], ",", 
   RowBox[{"\<\"MDElementTemplates\"\>", "\[Rule]", "Automatic"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.90213966490658*^9, 3.9021398341195717`*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"79aa7463-de64-40c7-92aa-ff3d2204bb45"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MDExport", "[", 
  RowBox[{"fileName", ",", 
   RowBox[{"EvaluationNotebook", "[", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7878678839976263`*^9, 3.787867955368351*^9}, {
  3.787868011346472*^9, 3.787868014427517*^9}, {3.7878683619937572`*^9, 
  3.787868363704116*^9}, {3.787868405577346*^9, 3.787868428816819*^9}, {
  3.788089833569029*^9, 3.788089847412901*^9}, {3.788089930604616*^9, 
  3.788089947949142*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"869a0b4d-815d-43a0-8d3a-77a56f802454"],

Cell[BoxData["\<\"M2MD-export-of-template-objects.md\"\>"], "Output",
 CellChangeTimes->{3.902139665048601*^9, 3.9021398342659683`*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"8a813785-7e1f-4abd-9411-73e18398cbd5"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"SystemOpen", "[", "fileName", "]"}]], "Input",
 CellChangeTimes->{{3.787869278940383*^9, 3.787869291906027*^9}, {
  3.788089915805559*^9, 3.788089918167675*^9}, {3.788089952687037*^9, 
  3.788089956262328*^9}, {3.7888826137631397`*^9, 3.788882614749709*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"570aed07-aebb-4440-b90d-b4127d78d25d"]
}, Open  ]]
},
WindowSize->{808, 911},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
FrontEndVersion->"13.3 for Mac OS X ARM (64-bit) (June 3, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"dba52d53-52a7-4b66-b210-b01e86c98bb0"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "DefaultContent"->{
  Cell[1647, 49, 975, 18, 128, "Text",ExpressionUUID->"36bd8e5e-cc9e-4404-9af2-fb5f98961237",
   CellTags->"DefaultContent",
   CellID->439264869]},
 "Prompt Text"->{
  Cell[580, 22, 1064, 25, 69, "Section",ExpressionUUID->"db13be87-b1d3-42d7-9469-53bc8f652189",
   CellTags->{"PromptTemplate", "Prompt Text", "TemplateCellGroup"},
   CellID->38396073]},
 "PromptTemplate"->{
  Cell[580, 22, 1064, 25, 69, "Section",ExpressionUUID->"db13be87-b1d3-42d7-9469-53bc8f652189",
   CellTags->{"PromptTemplate", "Prompt Text", "TemplateCellGroup"},
   CellID->38396073]},
 "TemplateCellGroup"->{
  Cell[580, 22, 1064, 25, 69, "Section",ExpressionUUID->"db13be87-b1d3-42d7-9469-53bc8f652189",
   CellTags->{"PromptTemplate", "Prompt Text", "TemplateCellGroup"},
   CellID->38396073]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"DefaultContent", 14436, 340},
 {"Prompt Text", 14603, 344},
 {"PromptTemplate", 14812, 348},
 {"TemplateCellGroup", 15024, 352}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1064, 25, 69, "Section",ExpressionUUID->"db13be87-b1d3-42d7-9469-53bc8f652189",
 CellTags->{"PromptTemplate", "Prompt Text", "TemplateCellGroup"},
 CellID->38396073],
Cell[1647, 49, 975, 18, 128, "Text",ExpressionUUID->"36bd8e5e-cc9e-4404-9af2-fb5f98961237",
 CellTags->"DefaultContent",
 CellID->439264869]
}, Open  ]],
Cell[CellGroupData[{
Cell[2659, 72, 160, 3, 67, "Section",ExpressionUUID->"453e6156-196c-45b3-9218-dddb0385cb18"],
Cell[CellGroupData[{
Cell[2844, 79, 256, 4, 30, "Input",ExpressionUUID->"6e174610-bdb4-4751-b213-aa7d793fb1b9"],
Cell[3103, 85, 6356, 130, 94, "Output",ExpressionUUID->"2f3c6d04-f816-477a-a39c-400578bbb7e9"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9508, 221, 155, 3, 67, "Section",ExpressionUUID->"55551cea-6da6-4e3b-8d32-b8d7d7bbebdf"],
Cell[CellGroupData[{
Cell[9688, 228, 249, 4, 30, "Input",ExpressionUUID->"3f985899-c809-46c6-98c9-43b958f60f55"],
Cell[9940, 234, 212, 2, 34, "Output",ExpressionUUID->"bfb66245-652f-4284-9051-99e8ba78d18a"]
}, Open  ]],
Cell[10167, 239, 215, 3, 30, "Input",ExpressionUUID->"745cbb88-70f9-4368-b7f0-d61c0432ff4b"],
Cell[CellGroupData[{
Cell[10407, 246, 944, 19, 52, "Input",ExpressionUUID->"fe4e91a6-9e8a-4ee4-beba-f73646d8290e"],
Cell[11354, 267, 212, 2, 34, "Output",ExpressionUUID->"c9332eb8-1f42-41c3-9904-6003718421d2"]
}, Open  ]],
Cell[11581, 272, 255, 5, 30, "Input",ExpressionUUID->"b84f9118-c93a-4251-ad45-ab6447540822"],
Cell[CellGroupData[{
Cell[11861, 281, 212, 3, 30, "Input",ExpressionUUID->"dc49d01b-fe4d-4c65-83a9-452fcdac2216"],
Cell[12076, 286, 845, 14, 77, "Output",ExpressionUUID->"79aa7463-de64-40c7-92aa-ff3d2204bb45"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12958, 305, 523, 9, 30, "Input",ExpressionUUID->"869a0b4d-815d-43a0-8d3a-77a56f802454"],
Cell[13484, 316, 214, 2, 34, "Output",ExpressionUUID->"8a813785-7e1f-4abd-9411-73e18398cbd5"]
}, Open  ]],
Cell[13713, 321, 361, 5, 30, "Input",ExpressionUUID->"570aed07-aebb-4440-b90d-b4127d78d25d"]
}, Open  ]]
}
]
*)