*How can I achieve the Desired Output as shown below?*

I think I'm running into an issue with `define`. According to the docs, 
there are two forms of `define`, one which binds to the result of an 
expression, and the other to a procedure. It seems as if the 2nd, 
parameter-taking form is somehow stirpping the default-tag-function of its 
tag. How can I preserve the `txexpr` generated by `default-tag-function`?

Input (*test.poly.pm*)
#lang pollen

Joan Didion called Joseph Conrad's β—Štitle{Victory}, "maybe my favorite book 
in the world."

Input (*pollen.rkt*)















*#lang racket/base(require pollen/tag  racket/string  txexpr  
pollen/decode)(provide (all-defined-out))(define (title text) 
(default-tag-function 'book-title) (string-join (list "πŸ“• " text)))(define 
(root . items)  (decode (txexpr 'root '() items)          
#:txexpr-elements-proc decode-paragraphs          #:exclude-tags '(style 
script)))*Actual Output (*test.html*)
<html>
<head>
  <meta charset="UTF-8">
  <title>πŸ“•: </title>
  <link rel="stylesheet" type="text/css" href="styles.css" />
</head>
<body>
<root>Joan Didion called Joseph Conrad's πŸ“•  Victory, "maybe my favorite 
book in the world."</root>
</body>
</html>

Desired Output (*test.html*)
<html>
<head>
  <meta charset="UTF-8">
  <title>πŸ“•: </title>
  <link rel="stylesheet" type="text/css" href="styles.css" />
</head>
<body>
<root>Joan Didion called Joseph Conrad's <book-title>πŸ“•  Victory
</book-title>, "maybe my favorite book in the world."</root>
</body>
</html>

-- 
You received this message because you are subscribed to the Google Groups 
"Pollen" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to pollenpub+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

Reply via email to