(define-module (builder components)
  #:export (badge prose small-prose linkbox 
            linkline slash link elink))

(define (badge name icon link)
  `(a (@ (class "badge") (target "_blank") (href ,link))
     (img (@ (src ,icon)))
     (span ,name)))

(define (prose . content)
  `(div (@ (class "prose-container"))
    ,@content))
(define (small-prose . content)
  `(div (@ (class "prose-container small"))
    ,@content))

(define (linkbox name desc link image)
  `(a (@ (class "linkbox") (href ,link) (target "_blank"))
     (img (@ (src ,image)))
     (div 
       (h4 ,name)
       (p ,desc))))

(define (link url text)
  `(a (@ (href ,url)) ,text))
(define (elink url text)
  `(a (@ (href ,url) (target "_blank")) ,text))

(define (linkline . links)
  `(ul (@ (class "linkline"))
    ,(map (lambda (link)
           `(li (a (@ (href ,(car link))) ,(cdr link)))) 
         links)))
(define (slash url)
  (cons url url))