;;;; wiliki-xfn.scm -- adds an $$xfn macro to WiLiKi
;;;; Copyright 2006 Evan Prodromou <evan@prodromou.name>
;;;; Licensed under the Academic Free License 3.0

;; You can use this macro like so:
;;
;; [[$$xfn http://example.com/ friend,met,co-worker Joe Q. Example]]
;;
;; The relationships _must_ be comma-separated, and must not have spaces between,
;; because that's how WiLiKi macros work, dangit!

(with-module wiliki.macro
	     (use srfi-13)
	     (define-reader-macro (xfn url rels . name-parts)
		`((a (@ (href ,url) (rel ,(string-join (string-split rels ",") " ")))
		      ,(string-join name-parts " ")))))