src/genurl.lisp

(defpackage murja.genurl
  (:use :cl)
  (:export :route->url)
  (:documentation "Provides functions for transforming murja.view.components.tabs:deftab'bed and easy-routes:defroute'd url symbols into correctly prefixed url strings")
  (:local-nicknames (:settings :murja.setting-definitions)))

(in-package :murja.genurl)

(defun route->url (symbol &rest params)
  (format nil "~a~a"
	  (settings:prefix)
	  (apply #'easy-routes:genurl symbol params)))


;; (route->url 'murja.view.rss::rss-single-item :feed-id "ffffeed-id" :item-id "itemiiii-id")
;; "/feeds/ffffeed-id/item/itemiiii-id"
;; "/feeds/feed-id/item/item-id"