Mercurial > urweb

view tests/rpc2.ur @ 2142:3288e3c9948b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 c5991cdb0c4b
children
line wrap: on
line source
sequence s
sequence s2

fun dint src = n <- signal src; return <xml>{[n]}</xml>

fun main () : transaction page =
    let
        fun getNext () =
            n <- nextval s;
            n2 <- nextval s2;
            return (n, n2)
    in
        src1 <- source 0;
        src2 <- source 0;
        return <xml><body>
          <button value="Get It On!"
                  onclick={p <- getNext ();
                           case p of
                               (n1, n2) => set src1 n1;
                                           set src2 n2}/>
          <br/>
          Current1: <dyn signal={dint src1}/>
          Current2: <dyn signal={dint src2}/>
        </body></xml>
    end