Tips to write lists about pollen-users HOT 5 OPEN

You could parse the contents of the ul tag function as markdown. See related example.

from pollen-users.

Thanks, that’s a nice idea! Now that I’m thinking about it, I could also run my own small list-parser, to be able to extend it with additional bullet point types. However, what I didn’t understand from the issue you’ve linked, nor from the discussion on the old mailing list, is whether it is possible to use pollen tags inside that kind of environment (and additionaly how to do it).

◊parse-list{
- first item
- second,
    ◊bold{multiline}
    item
        - first item
        - second,
            multiline
            item
}

from pollen-users.

The tricky issue is how you transmit the result of a tag function, which is an X-expression, through a block of Markdown, which doesn’t know anything about X-expressions. @otherjoel had a clever idea to convert the X-expression to HTML, which will pass through the Markdown parser intact.

Another idea is to make your bold tag function behave differently within a parse-list — it could emit the Markdown-compliant **multiline** rather than '(strong "multiline").

from pollen-users.

The idea with HTML is a good one, thanks.

from pollen-users.

For posterity, here is the original example of reapplying tag functions with eval:

"test.html.pm"

#lang pollen

Hello _world_!

"pollen.rkt"

#lang racket
(require (only-in markdown parse-markdown)
         pollen/decode pollen/tag txexpr/stx
         (prefix-in pt: pollen/top))

(provide (all-defined-out))

(define-tag-function (em attrs elems)
  `(my-em ,attrs  "--Never a dull moment!--" ,@elems))

(define (reapply-tags stx)
  (with-syntax ([XEXPR (let loop ([stx stx])
                         (if (stx-txexpr? stx)
                             (with-syntax ([TAG (stx-txexpr-tag stx)]
                                           [ATTRS (stx-txexpr-attrs stx)]
                                           [ELEMS (map loop (stx-txexpr-elements stx))])
                               #'(TAG 'ATTRS . ELEMS))
                             stx))])
    #'(let-syntax ([#%top (make-rename-transformer #'pt:#%top)])
        XEXPR)))
  
(define (root . xs)
  (define marked-down (decode-elements xs #:string-proc parse-markdown))
  (eval (reapply-tags `(body ,@marked-down))))

What happens here:

1. Here, the source is not a pollen/markdown dialect. Rather, the Markdown parsing happens in the root function (this is just for the sake of the example — IRL you wouldn’t do it this way — you’d just attach parse-markdown to certain tags)

2. The result of this parse is an X-expression that looks like this:
   '(body (p () "Hello " (em () "world") "!"))

3. Then we reapply-tags by using this X-expression as a parse tree and passing it through eval.

4. In principle you can do this as many times as you want, thereby extending what would ordinarily be one runtime evaluation into more.

5. There may be a way to do this at compile time too — say, by running parse-markdown as part of a macro rather than a tag function, but that may incur other difficulties I’m not considering for now.

from pollen-users.