cj-html-util.scm

;;; Copyright 2013 by Christian Jaeger <ch@christianjaeger.ch>

;;;    This file is free software; you can redistribute it and/or modify
;;;    it under the terms of the GNU General Public License (GPL) as published 
;;;    by the Free Software Foundation, either version 2 of the License, or
;;;    (at your option) any later version.


(require)

;; for html represented as sxml

(define (maillink email)
  `(a (@ (href ,(string-append "mailto:"
			       email)))
      ,email))