Mercurial > gui

comparison remotePager.ur @ 33:2e7f8f7d71d4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update for Ur/Web's new tag name resolution
author Adam Chlipala <adam@chlipala.net>
date Thu, 21 Nov 2013 16:12:17 -0500
parents b5432d74841a
children
comparison
equal deleted inserted replaced
32:d32fb0f7b137 33:2e7f8f7d71d4
11 style curPage 11 style curPage
12 style rangeCtl 12 style rangeCtl
13 13
14 fun defaultFormatLbl {First = fLbl, Back = bLbl, Next = nLbl, Last = lLbl} = 14 fun defaultFormatLbl {First = fLbl, Back = bLbl, Next = nLbl, Last = lLbl} =
15 let 15 let
16 fun mkLink c txt = fn a => <xml><li onclick={fn _ => a} class={c}><a class={c} onclick={fn _ => return ()}>{[txt]}</a></li></xml> 16 fun mkLink c txt = fn x => <xml><li onclick={fn _ => x} class={c}><a class={c} onclick={fn _ => return ()}>{[txt]}</a></li></xml>
17 in 17 in
18 {Width = 5, 18 {Width = 5,
19 RangeCtl = {First = mkLink firstCtl fLbl, 19 RangeCtl = {First = mkLink firstCtl fLbl,
20 Back = mkLink backCtl bLbl, 20 Back = mkLink backCtl bLbl,
21 Next = mkLink nextCtl nLbl, 21 Next = mkLink nextCtl nLbl,
22 Last = mkLink lastCtl lLbl}, 22 Last = mkLink lastCtl lLbl},
23 PageCtl = {Unsel = fn n a => <xml><li onclick={fn _ => a}><a onclick={fn _ => return ()}>{[n + 1]}</a></li></xml>, 23 PageCtl = {Unsel = fn n x => <xml><li onclick={fn _ => x}><a onclick={fn _ => return ()}>{[n + 1]}</a></li></xml>,
24 Sel = fn n a => <xml><li onclick={fn _ => a} class={curPage}><a class={curPage} onclick={fn _ => return ()}>{[n + 1]}</a></li></xml>}, 24 Sel = fn n x => <xml><li onclick={fn _ => x} class={curPage}><a class={curPage} onclick={fn _ => return ()}>{[n + 1]}</a></li></xml>},
25 WrapPageCtl = fn x => x, 25 WrapPageCtl = fn x => x,
26 Wrap = fn {First = f, Back = b, Pages = p, Next = n, Last = l} => <xml><ul class={rangeCtl}>{f}{b}{p}{n}{l}</ul></xml>} 26 Wrap = fn {First = f, Back = b, Pages = p, Next = n, Last = l} => <xml><ul class={rangeCtl}>{f}{b}{p}{n}{l}</ul></xml>}
27 end 27 end
28 28
29 val defaultFormat = defaultFormatLbl {First = "<<", Back = "<", Next = ">", Last = ">>"} 29 val defaultFormat = defaultFormatLbl {First = "<<", Back = "<", Next = ">", Last = ">>"}