PasteRack.org
Paste # 83741
2017-02-17 09:45:23

Fork as a new paste.

Paste viewed 1063 times.


Embed:

htg

  1. #lang racket
  2. (require scribble/html/html)
  3. (require scribble/html/xml)
  4.  
  5. (define my-component%
  6.   (class object%
  7.     (super-new)
  8.  
  9.     (define/public (render)
  10.       (printf
  11.        (xml->string
  12.         (element 'div 'class: "toolbar" 'id: "#123"
  13.                  (element 'a 'class: "main-link" 'href: "/nowhere"
  14.                           "Click me"
  15.                           (element 'img 'src: "http://deaddrop.ftp.sh/QvystY0EkXu6.jpg")
  16.                           "Please!")
  17.                  (element 'hr)))))))
  18.  
  19. (send (new my-component%) render)

=>

<div class="toolbar" id="#123"><a class="main-link" href="/nowhere">Click me<img src="http://deaddrop.ftp.sh/QvystY0EkXu6.jpg" />Please!</a><hr /></div>