PasteRack.org
Paste # 32375
2018-01-10 21:17:32

Fork as a new paste.

Paste viewed 84 times.


Embed:

Struct match tag

#lang racket
(require (prefix-in h: html))

(define (extract-tag-content tag-name)
  (define (extract-selected-tag-data element-content)
    (match content
      [(struct h:html-full (attributes content)) (apply append (map extract-pcdata content))]
      [(struct h:meta (attributes)) (get-content-if-named attributes)]
      [(struct h:html-element (attributes)) null]))
 
(extract-tag-content h:meta)

=>

prog:4:0: read: expected a `)' to close `('
  possible cause: indentation suggests a missing `)' before line 11
  context...:
   /home/pasterack/racket68/collects/syntax/module-reader.rkt:186:17: body
   /home/pasterack/racket68/collects/syntax/module-reader.rkt:183:2: wrap-internal
   /home/pasterack/racket68/collects/racket/../syntax/module-reader.rkt:65:9: lang:read-syntax
   /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:112:0: get-tokens
   /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:56:0: typeset-code15
   /home/pasterack/pasterack/tmp/32375/32375code.scrbl: [running body]
   loop
   ...cket/cmdline.rkt:179:51
   /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/run.rkt: [running body]