Mercurial > urweb
view tests/div.ur @ 2142:3288e3c9948b
Fix XML indentation in Emacs mode
The return value of MATCH-STRING is a string. At least on Emacs 25,
the comparisons between string and character with EQUAL could never
succeed, and so the cases for matching braces were never triggered.
GET-TEXT-PROPERTY may return a list rather than an atom (for example,
on long lines with whitespace-mode turned on), and this broke the
heuristic of looking for the tag face in previous text.
author | Julian Squires <julian@cipht.net> |
---|---|
date | Mon, 04 May 2015 14:35:07 -0400 |
parents | 15e0c935c91b |
children |
line wrap: on
line source
functor Make(M : sig type t val read_t : read t val show_t : show t val num_t : num t end) = struct fun calculate (n1, n2) = return <xml><body> {[readError n1 / readError n2 : M.t]}<br/> {[readError n1 % readError n2 : M.t]}<br/> </body></xml> fun main () = s1 <- source ""; s2 <- source ""; s3 <- source ""; s4 <- source ""; return <xml><body> <h1>Client-side</h1> <ctextbox source={s1}/> / <ctextbox source={s2}/> <button value="=" onclick={n1 <- get s1; n2 <- get s2; set s3 (show (readError n1 / readError n2 : M.t)); set s4 (show (readError n1 % readError n2 : M.t))}/> <dyn signal={n <- signal s3; return (txt n)}/>, <dyn signal={n <- signal s4; return (txt n)}/> <h1>Server-side</h1> <form> <textbox{#1}/> / <textbox{#2}/> <submit value="=" action={calculate}/> </form> </body></xml> end structure Int = Make(struct type t = int end) structure Float = Make(struct type t = float end) fun main () : transaction page = return <xml><body> <li><a link={Int.main ()}>Int</a></li> <li><a link={Float.main ()}>Float</a></li> </body></xml>