#lang racket
 
 (require pollen/tag compatibility/defmacro)
 (require pollen/decode txexpr srfi/48)

 (provide (all-defined-out))

 
 (defmacro defun (name args . body)
   `(define (,name ,@args)
      ,@body))
 
 (defun 1+ (n)
   (+ 1 n))
 
 (define head-tag-num (make-parameter 0))
 (defun current-head-tag ()
   (println (format "at head tag: ~a" (head-tag-num)))
   (string->symbol (format "h~d" (head-tag-num))))
 
 (defun headline (element)
   ((default-tag-function (current-head-tag)) empty element))
 

 (define (term val)
   (let ([code (default-tag-function 'code)]

         [u (default-tag-function 'u)]
         [a (default-tag-function 'a)])

     (code (u (a #:href (string-append "#" val)

                 val)))))
 

 (define def (default-tag-function 'a #:name "foo"))

 (define items (default-tag-function 'ul))

 (define item (default-tag-function 'li 'p))

 (define (link url text) `(a ((href ,url)) ,text))

 
 (define %section-tag (default-tag-function 'section))
 
 ;; This is a macro so that the parameterize form evaluates in the right order
 (define-syntax section
   (syntax-rules ()
     [(section #:headline %headline . body)
      (parameterize ([head-tag-num (1+ (head-tag-num))])
        (println (format "At head-tag-num ~d" (head-tag-num)))
        (section `,(headline %headline) . body))]
     [(section . body)
      (txexpr 'section empty
              (decode-elements (list . body)
                               #:txexpr-elements-proc
                               (lambda (x)
                                 (decode-paragraphs x
                                                    #:linebreak-proc
                                                    (lambda (y) y)))))]))
 
 (define (sidenote label . xs)
   `(splice-me
     (label ((for ,label) (class "margin-toggle sidenote-number")))
     (input ((id ,label) (class "margin-toggle")(type "checkbox")))
     (span ((class "sidenote")) ,@xs)))