case not handled properly

not-parsed-properly.janet

(comment

  (def case-3-md
    ``
    * A
    * B
      * B.1
      * B.2

    * C
    ``)

  # actual result
  (doc-parse case-3-md)
  # =>
  @[@[:ul
      @[[["A" 1]]]
      @[[["B" 1]]
        @[:ul
          @[[["B.1" 3]]]
          @[[["B.2" 3]]]]]
      @[[["C" 1]]]]]

  # desired result?
  (doc-parse case-3-md)
  # =>
  @[@[:ul 
      @[[["A" 1]]] 
      @[[["B" 1]] 
        @[:ul-loose
          @[[["B.1" 3]]] 
          @[[["B.2" 3]]]]] 
      @[[["C" 1]]]]]

  # desired result?
  (doc-parse case-3-md)
  # =>
  @[@[:ul-loose
      @[[["A" 1]]] 
      @[[["B" 1]] 
        @[:ul
          @[[["B.1" 3]]] 
          @[[["B.2" 3]]]]] 
      @[[["C" 1]]]]]
 
  )