txexpr:   Tagged X-expressions
1 Installation
2 Importing the module
3 What’s a tagged X-expression (aka txexpr)?
4 Why not just use match, quasiquote, and so on?
5 Predicates
txexpr?
txexpr-tag?
txexpr-attr?
txexpr-attr-key?
txexpr-attr-value?
txexpr-element?
txexpr-tags?
txexpr-attrs?
txexpr-elements?
can-be-txexpr-attr-key?
can-be-txexpr-attr-value?
can-be-txexpr-attrs?
validate-txexpr
6 Making & breaking
txexpr
txexpr*
get-tag
get-attrs
get-elements
txexpr->values
txexpr->list
7 Attributes
attrs->hash
hash->attrs
attrs-have-key?
attrs-equal?
attr-ref
attr-set
attr-set*
attr-join
remove-attrs
8 Strange magic
map-elements
splitf-txexpr
findf-txexpr
findf*-txexpr
9 HTML conversion
xexpr->html
10 Unit testing
check-txexprs-equal?
11 Syntax Versions of X-expressions
stx-xexpr?
stx-txexpr?
stx-txexpr-tag?
stx-txexpr-attrs?
stx-txexpr-tag
stx-txexpr-attrs
stx-txexpr-elements
stx-txexpr->values
stx-txexpr->list
12 License & source code
8.12

txexpr: Tagged X-expressionsπŸ”—β„Ή

Matthew Butterick <mb@mbtype.com>

 (require txexpr) package: txexpr
 (require (submod txexpr safe))

A set of small but handy functions for improving the readability and reliability of programs that operate on tagged X-expressions (for short, txexprs).

1 InstallationπŸ”—β„Ή

At the command line:

raco pkg install txexpr

After that, you can update the package from the command line:

raco pkg update txexpr

2 Importing the moduleπŸ”—β„Ή

The module can be invoked two ways: fast or safe.

Fast mode is the default, which you get by importing the module in the usual way: (require txexpr).

Safe mode enables the function contracts documented below. Use safe mode by importing the module as (require (submod txexpr safe)).

3 What’s a tagged X-expression (aka txexpr)?πŸ”—β„Ή

It’s an X-expression with the following grammar:

  txexpr = (list tag (list attr ...) element ...)
  | (cons tag (list element ...))
     
  tag = symbol?
     
  attr = (list key value)
     
  key = symbol?
     
  value = string?
     
  element = xexpr?

A tagged X-expression — txexpr for short — is a list with a symbol in the first position — the tag — followed by a series of elements, which are other X-expressions. Optionally, a txexpr can have a list of attributes in the second position.

Examples:
> (txexpr? '(span "Brennan" "Dale"))

#t

> (txexpr? '(span "Brennan" (em "Richard") "Dale"))

#t

> (txexpr? '(span ((class "hidden")(id "names")) "Brennan" "Dale"))

#t

> (txexpr? '(span lt gt amp))

#t

> (txexpr? '("We really" "should have" "a tag"))

#f

> (txexpr? '(span ((class not-quoted)) "Brennan"))

#f

> (txexpr? '(span (class "hidden") "Brennan" "Dale"))

#t

The last one is a common mistake. Because the key–value pair is not enclosed in a list, it’s interpreted as a nested txexpr within the first txexpr, as you may not find out until you try to read its attributes:

Examples:
> (get-attrs '(span (class "hidden") "Brennan" "Dale"))

'()

> (get-elements '(span (class "hidden") "Brennan" "Dale"))

'((class "hidden") "Brennan" "Dale")

Tagged X-expressions are most commonly found in HTML & XML documents. Though the notation is different in Racket, the data structure is identical:

Examples:
> (xexpr->string '(span ((id "names")) "Brennan" (em "Richard") "Dale"))

"<span id=\"names\">Brennan<em>Richard</em>Dale</span>"

> (string->xexpr "<span id=\"names\">Brennan<em>Richard</em>Dale</span>")

'(span ((id "names")) "Brennan" (em () "Richard") "Dale")

After converting to and from HTML, we get back the original X-expression. Well, almost. Per its usual practice, string->xexpr added an empty attribute list after em. This is benign — an empty attribute list can be omitted with no change in meaning, or vice versa.

4 Why not just use match, quasiquote, and so on?πŸ”—β„Ή

If you prefer those, please do. But I’ve found two benefits to using module functions:

Readability. In code that already has a lot of matching and quasiquoting going on, these functions make it easy to see where & how txexprs are being used.

Reliability. Because txexprs come in two close but not quite equal forms, careful coders will always have to take both cases into account.

The programming is trivial, but the annoyance is real.

5 PredicatesπŸ”—β„Ή

procedure

(txexpr? v)  boolean?

  v : any/c

procedure

(txexpr-tag? v)  boolean?

  v : any/c

procedure

(txexpr-attr? v)  boolean?

  v : any/c

procedure

(txexpr-attr-key? v)  boolean?

  v : any/c

procedure

(txexpr-attr-value? v)  boolean?

  v : any/c

procedure

(txexpr-element? v)  boolean?

  v : any/c
Predicates for txexprs that implement this grammar:

  txexpr = (list tag (list attr ...) element ...)
  | (cons tag (list element ...))
     
  tag = symbol?
     
  attr = (list key value)
     
  key = symbol?
     
  value = string?
     
  element = xexpr?

procedure

(txexpr-tags? v)  boolean?

  v : any/c

procedure

(txexpr-attrs? v)  boolean?

  v : any/c

procedure

(txexpr-elements? v)  boolean?

  v : any/c
Predicates equivalent to a list of txexpr-tag?, txexpr-attr?, or txexpr-element?, respectively.

procedure

(can-be-txexpr-attr-key? v)  boolean?

  v : any/c

procedure

(can-be-txexpr-attr-value? v)  boolean?

  v : any/c
Predicates for input arguments that can be trivially converted to an attribute key or value with the associated conversion functions.

Examples:
> (can-be-txexpr-attr-key? 'symbol)

#t

> (can-be-txexpr-attr-key? "string-val")

#t

> (can-be-txexpr-attr-key? (list 1 2 3))

#f

> (can-be-txexpr-attr-value? 'symbol)

#t

> (can-be-txexpr-attr-value? "string-val")

#t

> (can-be-txexpr-attr-value? (list 1 2 3))

#f

procedure

(can-be-txexpr-attrs? v)  boolean?

  v : any/c
Predicate for functions that handle txexpr-attrs. Covers values that are easily converted into pairs of attr-key and attr-value. Namely: single xexpr-attrs, lists of xexpr-attrs (i.e., what you get from get-attrs), or interleaved symbols and strings (each pair will be concatenated into a single xexpr-attr).

procedure

(validate-txexpr possible-txexpr)  txexpr?

  possible-txexpr : any/c
Like txexpr?, but raise a descriptive error pinpointing the first problem encountered if possible-txexpr is invalid, and otherwise return possible-txexpr itself.

Examples:
> (validate-txexpr 'root)

validate-txexpr: contract violation

  expected: tagged X-expression

  given: 'root

> (validate-txexpr '(root))

'(root)

> (validate-txexpr '(root ((id "top")(class 42))))

validate-txexpr: attribute value is not a string

  attribute value: 42

  in: '(root ((id "top") (class 42)))

> (validate-txexpr '(root ((id "top")(class "42"))))

'(root ((id "top") (class "42")))

> (validate-txexpr '(root ((id "top")(class "42")) ("hi")))

validate-txexpr: element not a valid element (= txexpr,

string, symbol, XML char, cdata, or comment)

  element: '("hi")

  in: '(root ((id "top") (class "42")) ("hi"))

> (validate-txexpr '(root ((id "top")(class "42")) "hi"))

'(root ((id "top") (class "42")) "hi")

> (validate-txexpr '(root (p "Hello " (span [[class "inner"]] (1 2 3)))))

validate-txexpr: element not a valid element (= txexpr,

string, symbol, XML char, cdata, or comment)

  element: '(1 2 3)

  in: '(span ((class "inner")) (1 2 3))

> (validate-txexpr `(root (p "Look out" (span ,(void)) (1 2 3))))

validate-txexpr: element not a valid element (= txexpr,

string, symbol, XML char, cdata, or comment)

  element: #<void>

  in: '(span #<void>)

6 Making & breakingπŸ”—β„Ή

procedure

(txexpr tag [attrs elements])  txexpr?

  tag : txexpr-tag?
  attrs : txexpr-attrs? = empty
  elements : txexpr-elements? = empty
Assemble a txexpr from its parts. If you don’t have attributes, but you do have elements, you’ll need to pass empty (or null or '()) as the second argument. Note that unlike xml->xexpr, if the attribute list is empty, it’s not included in the resulting expression.

Examples:
> (txexpr 'div)

'(div)

> (txexpr 'div '() '("Hello" (p "World")))

'(div "Hello" (p "World"))

> (txexpr 'div '((id "top")))

'(div ((id "top")))

> (txexpr 'div '((id "top")) '("Hello" (p "World")))

'(div ((id "top")) "Hello" (p "World"))

> (define tx '(div ((id "top")) "Hello" (p "World")))
> (txexpr (get-tag tx)
  (get-attrs tx) (get-elements tx))

'(div ((id "top")) "Hello" (p "World"))

The txexpr form can also be used as a match pattern:

Examples:
> (match '(div)
    [(txexpr tag attrs elems)
     (values tag attrs elems)])

'div

'()

'()

> (match '(div "Hello" (p "World"))
    [(txexpr tag attrs elems)
     (values tag attrs elems)])

'div

'()

'("Hello" (p "World"))

> (match '(div "Hello" (p "World"))
    [(txexpr 'div attrs1 (list elems1 ... (txexpr 'p attrs2 elems2)))
     (values attrs1 elems1 attrs2 elems2)])

'()

'("Hello")

'()

'("World")

> (match '(div ((id "top")) "Hello" (p "World"))
    [(txexpr 'div attrs1 (list elems1 ... (txexpr 'p attrs2 elems2)))
     (values attrs1 elems1 attrs2 elems2)])

'((id "top"))

'("Hello")

'()

'("World")

procedure

(txexpr* tag [attrs] element ...)  txexpr?

  tag : txexpr-tag?
  attrs : txexpr-attrs? = empty
  element : txexpr-element?
Like txexpr, but takes an indefinite number of element arguments, which together are treated as the list of elements for the resulting txexpr. A notational convenience.

Examples:
> (txexpr* 'div)

'(div)

> (txexpr* 'div '() "Hello" '(p "World"))

'(div "Hello" (p "World"))

> (txexpr* 'div '((id "top")))

'(div ((id "top")))

> (txexpr* 'div '((id "top")) "Hello" '(p "World"))

'(div ((id "top")) "Hello" (p "World"))

> (define tx '(div ((id "top")) "Hello" (p "World")))
> (apply txexpr* (get-tag tx)
  (get-attrs tx) (get-elements tx))

'(div ((id "top")) "Hello" (p "World"))

procedure

(get-tag tx)  txexpr-tag?

  tx : txexpr?

procedure

(get-attrs tx)  txexpr-attr?

  tx : txexpr?

procedure

(get-elements tx)  (listof txexpr-element?)

  tx : txexpr?
Accessor functions for the individual pieces of a txexpr.

Examples:
> (get-tag '(div ((id "top")) "Hello" (p "World")))

'div

> (get-attrs '(div ((id "top")) "Hello" (p "World")))

'((id "top"))

> (get-elements '(div ((id "top")) "Hello" (p "World")))

'("Hello" (p "World"))

Dissolve a txexpr into its components. txexpr->values returns the components as multiple values; txexpr->list returns them in a list.

Examples:
> (txexpr->values '(div))

'div

'()

'()

> (txexpr->values '(div "Hello" (p "World")))

'div

'()

'("Hello" (p "World"))

> (txexpr->values '(div ((id "top")) "Hello" (p "World")))

'div

'((id "top"))

'("Hello" (p "World"))

> (txexpr->list '(div))

'(div () ())

> (txexpr->list '(div "Hello" (p "World")))

'(div () ("Hello" (p "World")))

> (txexpr->list '(div ((id "top")) "Hello" (p "World")))

'(div ((id "top")) ("Hello" (p "World")))

7 AttributesπŸ”—β„Ή

procedure

(attrs->hash [#:hash-style? hash-style-priority]    
  x ...)  hash-eq?
  hash-style-priority : boolean? = #f
  x : can-be-txexpr-attrs?

procedure

(hash->attrs h)  txexpr-attrs?

  h : hash?
Convert attrs to an immutable hash, and back again. Following the convention specified for XML parsers, the first appearance of an attribute name binds the value — later attributes with the same name are ignored. If you prefer the typical hash behavior where later values override earlier ones, set #:hash-style? to #t.

Examples:
> (define tx '(div ((id "top")(class "red")) "Hello" (p "World")))
> (attrs->hash (get-attrs tx))

'#hasheq((class . "red") (id . "top"))

> (hash->attrs '#hasheq((class . "red") (id . "top")))

'((id "top") (class "red"))

> (attrs->hash '((color "blue")(color "green")))

'#hasheq((color . "blue"))

> (attrs->hash #:hash-style? #t '((color "blue")(color "green")))

'#hasheq((color . "green"))

procedure

(attrs-have-key? attrs key)  boolean?

  attrs : (or/c txexpr-attrs? txexpr?)
  key : can-be-txexpr-attr-key?
Return #t if the attrs contain a value for the given key, #f otherwise.

Examples:
> (define tx '(div ((id "top")(class "red")) "Hello" (p "World")))
> (attrs-have-key? tx 'id)

#t

> (attrs-have-key? tx 'grackle)

#f

procedure

(attrs-equal? attrs other-attrs)  boolean?

  attrs : (or/c txexpr-attrs? txexpr?)
  other-attrs : (or/c txexpr-attrs? txexpr?)
Return #t if attrs and other-attrs contain the same keys and values, #f otherwise. The order of attributes is irrelevant. (If order matters to you, use good old equal? instead.)

Examples:
> (define tx1 '(div ((id "top")(class "red")) "Hello"))
> (define tx2 '(p ((class "red")(id "top")) "Hello"))
> (define tx3 '(p ((id "bottom")(class "red")) "Hello"))
> (attrs-equal? tx1 tx2)

#t

> (attrs-equal? tx1 tx3)

#f

> (equal? tx1 tx2)

#f

> (equal? tx1 tx3)

#f

procedure

(attr-ref attrs key [failure-result])  any

  attrs : (or/c txexpr-attrs? txexpr?)
  key : can-be-txexpr-attr-key?
  failure-result : any/c
   = (λ _ (raise (make-exn:fail:contract ....)))
Given a key, return the corresponding value from attrs. By default, asking for a nonexistent key produces an error. But if a value or procedure is provided as the failure-result, evaluate and return that instead.

Examples:
> (define tx '(div ((id "top")(class "red")) "Hello" (p "World")))
> (attr-ref tx 'class)

"red"

> (attr-ref tx 'id)

"top"

> (attr-ref tx 'nonexistent-key)

attr-ref: contract violation

  expected: key that exists in attr list

  given: 'nonexistent-key

> (attr-ref tx 'nonexistent-key "forty-two")

"forty-two"

> (attr-ref tx 'nonexistent-key (λ _ (* 6 7)))

42

> (define attrs '((id "top")(class "red")))
> (attr-ref attrs 'class)

"red"

> (attr-ref attrs 'id)

"top"

> (attr-ref attrs 'nonexistent-key)

attr-ref: contract violation

  expected: key that exists in attr list

  given: 'nonexistent-key

procedure

(attr-set tx key value)  txexpr?

  tx : txexpr?
  key : can-be-txexpr-attr-key?
  value : can-be-txexpr-attr-value?

procedure

(attr-set* tx key value ... ...)  txexpr?

  tx : txexpr?
  key : can-be-txexpr-attr-key?
  value : can-be-txexpr-attr-value?
Set the value of attribute key to value in txexpr. Return the updated txexpr. Duplicate attributes, if they exist, are resolved using attrs->hash. attr-set only accepts one key and one value; attr-set* accepts any number.

Examples:
> (define tx '(div ((class "red")(id "top")) "Hello" (p "World")))
> (attr-set tx 'id "bottom")

'(div ((id "bottom") (class "red")) "Hello" (p "World"))

> (attr-set tx 'class "blue")

'(div ((id "top") (class "blue")) "Hello" (p "World"))

> (attr-set (attr-set tx 'id "bottom") 'class "blue")

'(div ((id "bottom") (class "blue")) "Hello" (p "World"))

> (define tx '(div "Hello"))
> (attr-set* tx 'id "bottom" 'class "blue")

'(div ((id "bottom") (class "blue")) "Hello")

procedure

(attr-join tx key value)  txexpr?

  tx : txexpr?
  key : can-be-txexpr-attr-key?
  value : can-be-txexpr-attr-value?
Given a txexpr, append attribute key with value. Return the updated txexpr. If key doesn’t already exist, then add a new attribute (i.e., behave like attr-set).

Examples:
> (define tx '(div ((class "red")) "Hello"))
> (attr-join tx 'class "small")

'(div ((class "red small")) "Hello")

> (attr-join tx 'klass "small")

'(div ((class "red") (klass "small")) "Hello")

procedure

(remove-attrs tx)  txexpr?

  tx : txexpr?
Recursively remove all attributes from tx.

Examples:
> (define tx '(div ((id "top")) "Hello" (p ((id "lower")) "World")))
> (remove-attrs tx)

'(div "Hello" (p "World"))

8 Strange magicπŸ”—β„Ή

procedure

(map-elements proc tx)  txexpr?

  proc : procedure?
  tx : txexpr?
Recursively apply proc to all elements, leaving tags and attributes alone. Using plain map will only process elements at the top level of tx. Usually that’s not what you want.

Examples:
> (define tx '(div "Hello!" (p "Welcome to" (strong "Mars"))))
> (define upcaser (λ (x) (if (string? x) (string-upcase x) x)))
> (map upcaser tx)

'(div "HELLO!" (p "Welcome to" (strong "Mars")))

> (map-elements upcaser tx)

'(div "HELLO!" (p "WELCOME TO" (strong "MARS")))

In practice, most txexpr-elements are strings. But it’s unwise to pass string-only procedures to map-elements, because an txexpr-element can be any kind of xexpr?, and an xexpr? is not necessarily a string.

Examples:
> (define tx '(p "Welcome to" (strong "Mars" amp "Sons")))
> (map-elements string-upcase tx)

string-upcase: contract violation

  expected: string?

  given: 'amp

> (define upcaser (λ (x) (if (string? x) (string-upcase x) x)))
> (map-elements upcaser tx)

'(p "WELCOME TO" (strong "MARS" amp "SONS"))

procedure

(splitf-txexpr tx pred [replace-proc])

  
txexpr? (listof txexpr-element?)
  tx : txexpr?
  pred : procedure?
  replace-proc : procedure? = (λ (x) #f)
Recursively descend through txexpr and extract all elements that match pred. Returns two values: a txexpr with the matching elements removed, and the list of matching elements. Sort of esoteric, but I’ve needed it more than once, so here it is.

Examples:
> (define tx '(div "Wonderful day" (meta "weather" "good") "for a walk"))
> (define is-meta? (λ (x) (and (txexpr? x) (equal? 'meta (get-tag x)))))
> (splitf-txexpr tx is-meta?)

'(div "Wonderful day" "for a walk")

'((meta "weather" "good"))

Ordinarily, the result of the split operation is to remove the elements that match pred. But you can change this behavior with the optional replace-proc argument.

Examples:
> (define tx '(div "Wonderful day" (meta "weather" "good") "for a walk"))
> (define is-meta? (λ (x) (and (txexpr? x) (equal? 'meta (get-tag x)))))
> (define replace-meta (λ (x) '(em "meta was here")))
> (splitf-txexpr tx is-meta? replace-meta)

'(div "Wonderful day" (em "meta was here") "for a walk")

'((meta "weather" "good"))

procedure

(findf-txexpr tx pred)  (or/c #f txexpr-element?)

  tx : txexpr?
  pred : procedure?

procedure

(findf*-txexpr tx pred)  (or/c #f (listof txexpr-element?))

  tx : txexpr?
  pred : procedure?
Like splitf-txexpr, but only retrieve the elements that match pred. findf*-txexpr retrieves all results; findf-txexpr only the first. In both cases, if there are no matches, you get #f.

Examples:
> (define tx '(div "Wonderful day" (meta "weather" "good")
                   "for a walk" (meta "dog" "Roxy")))
> (define is-meta? (λ (x) (and (txexpr? x) (eq? 'meta (get-tag x)))))
> (findf*-txexpr tx is-meta?)

'((meta "weather" "good") (meta "dog" "Roxy"))

> (findf-txexpr tx is-meta?)

'(meta "weather" "good")

> (define is-zimzam? (λ (x) (and (txexpr? x) (eq? 'zimzam (get-tag x)))))
> (findf*-txexpr tx is-zimzam?)

#f

> (findf-txexpr tx is-zimzam?)

#f

9 HTML conversionπŸ”—β„Ή

procedure

(xexpr->html x)  string?

  x : xexpr?
Convert x to an HTML string. Better than xexpr->string because consistent with the HTML spec, it will skip the content of script or style blocks. For convenience, this function will take any X-expression, not just tagged X-expressions.

Examples:
> (define tx '(root (script "3 > 2") "Why is 3 > 2?"))
> (xexpr->string tx)

"<root><script>3 &gt; 2</script>Why is 3 &gt; 2?</root>"

> (xexpr->html tx)

"<root><script>3 > 2</script>Why is 3 &gt; 2?</root>"

> (map xexpr->html (list "string" 'entity 65))

'("string" "&entity;" "&#65;")

10 Unit testingπŸ”—β„Ή

procedure

(check-txexprs-equal? tx1 tx2)  void?

  tx1 : txexpr?
  tx2 : txexpr?
Designed to be used with rackunit. Check whether tx1 and tx2 are equal? except for ordering of attributes (which ordinarily has no semantic significance). Return void if so, otherwise raise a check failure.

Examples:
> (define tx1 '(div ((attr-a "foo")(attr-z "bar"))))
> (define tx2 '(div ((attr-z "bar")(attr-a "foo"))))
> (parameterize ([current-check-handler (λ _ (display "not "))])
    (display "txexprs are ")
    (check-txexprs-equal? tx1 tx2)
    (displayln "equal"))

txexprs are equal

If ordering of attributes is relevant to your test, then just use check-equal? as usual.

Examples:
> (define tx1 '(div ((attr-a "foo")(attr-z "bar"))))
> (define tx2 '(div ((attr-z "bar")(attr-a "foo"))))
> (parameterize ([current-check-handler (λ _ (display "not "))])
    (display "txexprs are ")
    (check-equal? tx1 tx2)
    (displayln "equal"))

txexprs are not equal

11 Syntax Versions of X-expressionsπŸ”—β„Ή

 (require txexpr/stx) package: txexpr
This module provides functions for destructuring TX-expressions that might be wrapped in syntax objects.

procedure

(stx-xexpr? v)  boolean?

  v : any/c
A predicate for X-expressions that might be wrapped in syntax (or have parts of them wrapped in syntax). It returns #true for values that would become normal X-expressions with (syntax->datum (datum->syntax #f v)).

Examples:
> (stx-xexpr? "A leaf on the wind")

#t

> (stx-xexpr? #'"A leaf in a bin")

#t

> (stx-xexpr? '(div ((id "top")) "Hello" (p "World")))

#t

> (stx-xexpr? #'(div ((id "top")) "Hello" (p "World")))

#t

> (stx-xexpr? `(div ((id ,#'"top")) "Hello" ,#'(p "World")))

#t

procedure

(stx-txexpr? v)  boolean?

  v : any/c
A predicate for Tagged X-expressions that might be wrapped in syntax. It returns #true for values that become one of these with (syntax->datum (datum->syntax #f v)):

  txexpr = (list tag attrs xexpr ...)
  | (list tag xexpr ...)

Examples:
> (stx-txexpr? "A block at the top")

#f

> (stx-txexpr? '(div ((id "top")) "A block beneath a" (p "tag")))

#t

> (stx-txexpr? #'(div ((id "top")) "A block beneath a" (p "tag")))

#t

> (stx-txexpr? #'(div "A block beneath a" (p "tag")))

#t

procedure

(stx-txexpr-tag? v)  boolean?

  v : any/c

procedure

(stx-txexpr-attrs? v)  boolean?

  v : any/c
Predicates for sub-parts of TX-expressions that might be wrapped in syntax. There return #true for values that become txexpr-tag?s or txexpr-attrs?s when unwrapped with (syntax->datum (datum->syntax #f v)).

Examples:
> (stx-txexpr-tag? 'div)

#t

> (stx-txexpr-tag? #'div)

#t

> (stx-txexpr-tag? 'analogous)

#t

> (stx-txexpr-tag? #'analogous)

#t

> (stx-txexpr-attrs? '())

#t

> (stx-txexpr-attrs? #'())

#t

> (stx-txexpr-attrs? '((id "top") (style "color: blue")))

#t

> (stx-txexpr-attrs? #'((id "top") (style "color: blue")))

#t

> (stx-txexpr-attrs? `((id "top") (style ,#'"color: blue")))

#t

procedure

(stx-txexpr-tag tx)  stx-txexpr-tag?

  tx : stx-txexpr?

procedure

(stx-txexpr-attrs tx)  stx-txexpr-attrs?

  tx : stx-txexpr?

procedure

(stx-txexpr-elements tx)  (listof stx-txexpr?)

  tx : stx-txexpr?
Accessor functions for the tag, attributes, and elements of a txexpr that might be wrapped in syntax. Note that these functions work whether the input is wrapped in syntax or not, and that the results may or may not be wrapped in syntax, depending on whether the input was wrapped.

Examples:
> (define tx1 '(div ((id "top")) "Hello" (p "World")))
> (define tx2 #'(div ((id "top")) "Hello" (p "World")))
> (stx-txexpr-tag tx1)

'div

> (stx-txexpr-tag tx2)

#<syntax:eval:21:0 div>

> (stx-txexpr-attrs tx1)

'((id "top"))

> (stx-txexpr-attrs tx2)

#<syntax:eval:21:0 ((id "top"))>

> (stx-txexpr-elements tx1)

'("Hello" (p "World"))

> (stx-txexpr-elements tx2)

'(#<syntax:eval:21:0 "Hello"> #<syntax:eval:21:0 (p "World")>)

These functions break up a TX-expression into its components. stx-txexpr->values returns them as three values, and stx-txexpr->list returns them as a three-element list.

Examples:
> (stx-txexpr->values '(div))

'div

'()

'()

> (stx-txexpr->list '(div))

'(div () ())

> (stx-txexpr->values #'(div))

#<syntax:eval:30:0 div>

'()

'()

> (stx-txexpr->values #'(div "Hello" (p "World")))

#<syntax:eval:31:0 div>

'()

'(#<syntax:eval:31:0 "Hello"> #<syntax:eval:31:0 (p "World")>)

> (stx-txexpr->values #'(div ((id "top")) "Hello" (p "World")))

#<syntax:eval:32:0 div>

#<syntax:eval:32:0 ((id "top"))>

'(#<syntax:eval:32:0 "Hello"> #<syntax:eval:32:0 (p "World")>)

> (stx-txexpr->values `(div ((id "top")) "Hello" ,#'(p "World")))

'div

'((id "top"))

'("Hello" #<syntax:eval:33:0 (p "World")>)

12 License & source codeπŸ”—β„Ή

This module is licensed under the LGPL.

Source repository at http://github.com/mbutterick/txexpr. Suggestions & corrections welcome.