src/main/scala/net/tz/lift/snippet/Panel.scala
author Tomas Zeman <tzeman@volny.cz>
Tue, 29 Mar 2011 13:09:55 +0200
changeset 3 61b9f48ce17d
child 20 22424e6508cd
permissions -rw-r--r--
Attribute panel
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
     1
/*
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
     2
 * Copyright 2011 Tomas Zeman <tzeman@volny.cz>
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
     3
 *
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
     4
 * Licensed under the Apache License, Version 2.0 (the "License");
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
     5
 * you may not use this file except in compliance with the License.
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
     6
 * You may obtain a copy of the License at
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
     7
 *
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
     8
 *     http://www.apache.org/licenses/LICENSE-2.0
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
     9
 *
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    10
 * Unless required by applicable law or agreed to in writing, software
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    11
 * distributed under the License is distributed on an "AS IS" BASIS,
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    12
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    13
 * See the License for the specific language governing permissions and
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    14
 * limitations under the License.
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    15
 */
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    16
package net.tz.lift.snippet
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    17
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    18
import net.liftweb.mapper.MappedField
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    19
import scala.xml.{NodeSeq, Text}
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    20
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    21
object AttrRow {
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    22
  def apply(name: => NodeSeq, value: => NodeSeq) =  new AttrRow(name, value,
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    23
    "attr-name", "attr-value")
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    24
  def apply(f: MappedField[_, _]) = new AttrRow(Text(f.displayName), f.asHtml,
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    25
    "attr-name", "attr-value")
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    26
  def formRow(name: => NodeSeq, input: => NodeSeq) = new AttrRow(name, input,
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    27
    "form-name", "form-value")
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    28
  def submitRow(button: => NodeSeq) = new SpanRow(button)
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    29
}
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    30
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    31
class AttrRow(name: => NodeSeq, value: => NodeSeq, nameCss: String,
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    32
  valueCss: String) extends Function0[NodeSeq] {
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    33
  def tdN = <td class={nameCss}>{name}</td>
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    34
  def tdV = <td class={valueCss}>{value}</td>
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    35
  def apply(): NodeSeq = <tr>{tdN :: tdV :: Nil}</tr>
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    36
}
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    37
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    38
class SpanRow(value: => NodeSeq) extends AttrRow(NodeSeq.Empty, value, "", "")
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    39
{
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    40
  override def apply(): NodeSeq = <tr><td colspan="2">{value}</td></tr>
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    41
}
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    42
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    43
object Panel {
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    44
  def apply(attrs: Iterable[AttrRow]) = new Panel(attrs)
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    45
  def fromFields(fields: Iterable[MappedField[_,_]]) =
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    46
    new Panel(fields.map(AttrRow(_)))
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    47
}
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    48
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    49
class Panel(attrs: => Iterable[AttrRow]) extends Function1[NodeSeq, NodeSeq]
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    50
{
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    51
  def apply(in: NodeSeq): NodeSeq = <table>{attrs.map(_())}</table>
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    52
  def &(other: Function1[NodeSeq, NodeSeq]) = new Function1[NodeSeq, NodeSeq] {
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    53
    def apply(in: NodeSeq): NodeSeq = List(Panel.this, other) flatMap (_(in))
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    54
  }
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    55
}
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    56
61b9f48ce17d Attribute panel
Tomas Zeman <tzeman@volny.cz>
parents:
diff changeset
    57
// vim: set ts=2 sw=2 et: