Function: attach-urlmap

Documentation

Registers a urlmap under the provided url-prefix.

Source

(defun attach-urlmap (url-prefix map-name)
  "Registers a urlmap under the provided url-prefix."
  (let ((map (get-urlmap map-name))
	(url-prefix (ensure-prefix-slash-only url-prefix)))
    (detect-circular-map-nesting map)
    (with-slots (url-prefixes) map
      (setf url-prefixes (adjoin url-prefix url-prefixes)))
    (publish-prefix :prefix url-prefix
		    :content-type "text/html"
		    :function (^url-dispatcher url-prefix map))))