#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))
 

 (defmacro funcall (fun . args)
   `(,fun ,@args))

 (defmacro defvar (name def)
   `(define ,name ,def))

 
 ;; 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))])
        (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)))))]))
 

 (defvar head-tag-num
   (make-parameter 0))
 
 (defvar def
   (default-tag-function 'a #:name "foo"))
 
 (defvar items
   (default-tag-function 'ul))
 
 (defvar item
   (default-tag-function 'li 'p))
 
 (defvar %section-tag
   (default-tag-function 'section))
 
 (defun 1+ (n)
   (+ 1 n))
 
 (defun current-head-tag ()
   (string->symbol (format "h~d" (head-tag-num))))
 
 (defun headline (element)
   (funcall (default-tag-function (current-head-tag)) empty element))
 
 (defun 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)))))
 
 (defun link (url text)
   `(a (funcall (href ,url)) ,text))
 
 (defun 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)))