Add category discrimination (sc tag for single choice)

src/Literate.jl

@@ -976,8 +976,11 @@ function create_notebook(flavor::PlutoFlavor, chunks, config)
                 
                 admonition = filter(x -> x isa Markdown.Admonition, str.content)
                 questionName = "$(admonition[1].title)" * "$(replace(string(gensym()), "#" => ""))"
+                questionCategory = admonition[1].category
                 str = string(Markdown.MD(admonition[1]))
 
+
+                if questionCategory == "sc"
                     answers = []
                     questionDict = Dict("correct" => "")
                     qBuf = IOBuffer()
@@ -1032,6 +1035,16 @@ function create_notebook(flavor::PlutoFlavor, chunks, config)
 
                     write(io, logicBind, '\n')
                     cellCounter = formatCellsEnd(io, ionb, cellCounter, singleChoiceContent, singleChoiceUuids, singleChoiceFolds, fold)
+                else
+                    index = admoIndex
+                    while index <= length(mdContent)
+                        para = string(Markdown.MD(mdContent[index]))
+                        write(io, para, '\n')
+                        index += 1
+                    end
+                    write(io, "\"\"\"\n")
+                    cellCounter = formatCells(io, ionb, cellCounter, uuids, folds, fold)
+                end
             else
                 ################################################################
                 # If Chunk doesnt contain an Admonition