Mercurial > urweb
view lib/ur/string.urs @ 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 | 2da693675de9 |
children |
line wrap: on
line source
type t = string val str : char -> t val length : t -> int val lengthGe : t -> int -> bool val append : t -> t -> t val sub : t -> int -> char val suffix : t -> int -> string val index : t -> char -> option int val sindex : {Haystack : t, Needle : t} -> option int val atFirst : t -> char -> option string val mindex : {Haystack : t, Needle : t} -> option int val substring : t -> {Start : int, Len : int} -> string val seek : t -> char -> option string val mseek : {Haystack : t, Needle : t} -> option (char * string) val split : t -> char -> option (string * string) val split' : t -> char -> option (string * string) (* The matched character is kept at the beginning of the suffix. *) val msplit : {Haystack : t, Needle : t} -> option (string * char * string) val ssplit : {Haystack : t, Needle : t} -> option (string * string) val all : (char -> bool) -> string -> bool val mp : (char -> char) -> string -> string val newlines : ctx ::: {Unit} -> [[Body] ~ ctx] => string -> xml ([Body] ++ ctx) [] [] val isPrefix : {Full : t, Prefix : t} -> bool val trim : t -> t