racket macro experimentation

playing-with-macros.rkt

#lang racket

(define-syntax define-html-tag
  (syntax-rules ()
    [(_ element)
     (define element
       (let ([es (symbol->string 'element)])
         (make-keyword-procedure
          (lambda [keys vals . contents]
            (let ([properties (string-join
                               (for/list ([k keys]
                                          [v vals])
                                 (format "~a=\"~a\"" (keyword->string k) v)))]
                  [text (string-join contents " ")])
              (format "<~a ~a>~a</~a>" es properties text es)))
          (lambda [contents . rest]
            (if (empty? rest)
                (format "<~a>~a</~a>" es contents es)
                (format "<~a>~a ~a</~a>" es contents (string-join rest) es))))))]))

(define-html-tag a)
(define-html-tag p)
(define-html-tag strong)
(define-html-tag div)

(printf
 (div #:class "float-left"
      (div #:id "statement"
           (p "hi" (strong "my friends") "let's go" (a #:href "http://joinmastodon.org" "join mastodon!")))))