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

(with-module 
   wiliki
   (define-wiliki-action urllist :read (_)
      (define (format-item wikiname)
	 (string-append "http://evan.prodromou.name/" (uri-encode-string wikiname) "\n"))
      (let ((entries (sort (wiliki-db-map (lambda (k v) k)) string<?)))
	   (append 
	      (list (cgi-header :content-type "text/plain; encoding=UTF-8"))
	      (map format-item entries)))))