/*

 * Copyright 2012 Tomas Zeman <tzeman@volny.cz>

 *

 * Licensed under the Apache License, Version 2.0 (the "License");

 * you may not use this file except in compliance with the License.

 * You may obtain a copy of the License at

 *

 *     http://www.apache.org/licenses/LICENSE-2.0

 *

 * Unless required by applicable law or agreed to in writing, software

 * distributed under the License is distributed on an "AS IS" BASIS,

 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

 * See the License for the specific language governing permissions and

 * limitations under the License.

 */

package fis.base.ui

import net.liftweb.common._

import net.liftweb.http._

import net.liftweb.sitemap._

import net.liftweb.sitemap.Loc._

import net.liftweb.sitemap.Menu._

import net.liftweb.util._

import net.liftweb.util.Helpers._

import net.tz.lift.snippet._

import scala.xml.NodeSeq

/**

 * Secondary navigation snippet.

 */

object SecNav extends SecNav(Nil) {

  def init() {

    LiftRules.snippets.append {

      case List("secnav") => ClearNodes

    }

  }

  val TAG = "secnav"

  def apply[T](m: Menuable): SecNav = this + m

  def apply[T](p: ParamMenuable[T]): SecNav = this + p

}

class SecNav(val navs: Seq[SecNavItem]) {

  def + (i: SecNavItem): SecNav = new SecNav(navs :+ i)

  def + (m: Menuable): SecNav = this + (new SecNavMenu(m))

  def +[T] (p: ParamMenuable[T]): SecNav = this + (new SecNavLoc(p))

  def toCssTr: CssTr = ".items" #> (navs flatMap { _.toHtml })

  def build = Snippet(SecNav.TAG, toCssTr)

}

sealed abstract class SecNavItem {

  def toHtml: NodeSeq

  protected def item(href: String, cnt: NodeSeq) =

    <li><a href={href}>{cnt}</a></li>

}

class SecNavMenu(m: Menuable) extends SecNavItem {

  def toHtml = (for {

    l <- SiteMap.findAndTestLoc(m.name)

  } yield {

    item(l.calcDefaultHref, m.linkText.text())

  }) toSeq

}

class SecNavLoc[T](p: ParamMenuable[T]) extends SecNavItem {

  def toHtml = (for {

    cur <- S.location

    value <- cur.currentValue

    l <- SiteMap.findAndTestLoc(p.name)

    p <- tryo { (l.asInstanceOf[Loc[T]], value.asInstanceOf[T]) }

  } yield {

    item(p._1.calcHref(p._2), p._1.linkText(p._2))

  }) toSeq

}

// vim: set ts=2 sw=2 et: