Ur/Web: tests/jsuni.ur annotate

annotate tests/jsuni.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	e81434513720
children

rev	line source
adamc@1087	1 fun main () =
adamc@1087	2 s1 <- source "";
adamc@1087	3 s2 <- source "";
adamc@1087	4
adamc@1087	5 let
adamc@1087	6 fun echo s = return s
adamc@1087	7
adamc@1087	8 fun echoer () =
adamc@1087	9 v1 <- get s1;
adamc@1087	10 v1' <- rpc (echo v1);
adamc@1087	11 set s2 v1'
adamc@1087	12 in
adamc@1087	13 return <xml><body>
adamc@1087	14 <dyn signal={v <- signal s2; return (cdata v)}/><hr/>
adamc@1087	15 <ctextbox source={s1}/> <button onclick={echoer ()}/>
adamc@1087	16 </body></xml>
adamc@1087	17 end

Mercurial > urweb

annotate tests/jsuni.ur @ 2142:3288e3c9948b