Improve descriptive list org rendering

- indent to correct lvl
  - term ::
            |<- indent up to here
    |<- not here

org/list.go

@@ -83,9 +83,6 @@ func (d *Document) parseListItem(l List, i int, parentStop stopFn) (int, Node) {
 	if l.Kind == "descriptive" {
 		if m := descriptiveListItemRegexp.FindStringIndex(content); m != nil {
 			dterm, content = content[:m[0]], content[m[1]:]
-			if len(content) == 0 {
-				content = "\n"
-			}
 		}
 	}
 	d.tokens[i] = tokenize(strings.Repeat(" ", minIndent) + content)
@@ -96,7 +93,7 @@ func (d *Document) parseListItem(l List, i int, parentStop stopFn) (int, Node) {
 		t := d.tokens[i]
 		return t.lvl < minIndent && !(t.kind == "text" && t.content == "")
 	}
-	for !stop(d, i) && !isSecondBlankLine(d, i) {
+	for !stop(d, i) && (i <= start+1 || !isSecondBlankLine(d, i)) {
 		consumed, node := d.parseOne(i, stop)
 		i += consumed
 		nodes = append(nodes, node)

org/org.go

@@ -201,22 +201,30 @@ func (w *OrgWriter) writeComment(c Comment) {
 func (w *OrgWriter) writeList(l List) { w.writeNodes(l.Items...) }
 
 func (w *OrgWriter) writeListItem(li ListItem) {
-	w.WriteString(w.indent + li.Bullet + " ")
 	liWriter := w.emptyClone()
 	liWriter.indent = w.indent + strings.Repeat(" ", len(li.Bullet)+1)
 	liWriter.writeNodes(li.Children...)
-	w.WriteString(strings.TrimPrefix(liWriter.String(), liWriter.indent))
+	content := strings.TrimPrefix(liWriter.String(), liWriter.indent)
+	w.WriteString(w.indent + li.Bullet)
+	if len(content) > 0 && content[0] == '\n' {
+		w.WriteString(content)
+	} else {
+		w.WriteString(" " + content)
+	}
 }
 
 func (w *OrgWriter) writeDescriptiveListItem(di DescriptiveListItem) {
+	w.WriteString(w.indent + di.Bullet)
+	indent := w.indent + strings.Repeat(" ", len(di.Bullet)+1)
+	if len(di.Term) != 0 {
+		term := w.nodesAsString(di.Term...)
+		w.WriteString(" " + term + " ::")
+		indent = indent + strings.Repeat(" ", len(term)+4)
+	}
 	diWriter := w.emptyClone()
-	diWriter.indent = w.indent + strings.Repeat(" ", len(di.Bullet)+1)
+	diWriter.indent = indent
 	diWriter.writeNodes(di.Details...)
 	details := strings.TrimPrefix(diWriter.String(), diWriter.indent)
-	w.WriteString(w.indent + di.Bullet)
-	if len(di.Term) != 0 {
-		w.WriteString(" " + w.nodesAsString(di.Term...) + " ::")
-	}
 	if len(details) > 0 && details[0] == '\n' {
 		w.WriteString(details)
 	} else {

org/testdata/lists.html

@@ -98,19 +98,32 @@ descriptive lists
 <dt>
 term<dd>
 <p>
-description
+details
+continued details
 </p>
 <dd>
 <dt>
 ?<dd>
 <p>
-without term
+details without a term
 </p>
 <dd>
 <dt>
 term<dd>
 <p>
-description
+details on a new line
 </p>
 <dd>
+<dt>
+term<dd>
+<p>
+details on a new line (with an empty line in between)
+<strong>continued</strong>
+</p>
+<div class="highlight">
+<pre>
+echo &#34;Hello World!&#34;
+</pre>
+</div>
+<dd>
 </dl>

org/testdata/lists.org

@@ -24,8 +24,15 @@
 
 
 descriptive lists
-
-- term :: description
-- without term
+- term :: details
+          continued details
+- details without a term
 - term ::
-  description
+          details on a new line
+- term ::
+
+          details on a new line (with an empty line in between)
+          *continued*
+          #+BEGIN_SRC bash
+          echo "Hello World!"
+          #+END_SRC