(ns quoi

  (require quoi)

  (defn menu [& mappings]
    #[ul ^{:class "sf-menu"}
      (reduce (fn [m i]
        (quoi#page (append "/menu/" (append (#:1 m) "$")) (#:2 m))
        (append i (list #[li #[a ^{:href (append "/menu/" (#:1 m))} (#:0 m)]])))
        ()
        mappings)])

  (defn superfish-menu [& mappings]
    #[span
      (apply menu mappings)
      #[script
        "$(document).ready(function(){$('ul.sf-menu').superfish()});"
         ]
      #[br]#[br]])

  )