diff options
| -rw-r--r-- | lib/js/urweb.js | 4 | ||||
| -rw-r--r-- | src/settings.sml | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/lib/js/urweb.js b/lib/js/urweb.js index 749e5056..66d427c8 100644 --- a/lib/js/urweb.js +++ b/lib/js/urweb.js @@ -3269,6 +3269,10 @@ function confrm(s) { return confirm(s) ? true : false; } +function currentUrl() { + return window.location; +} + // URL blessing diff --git a/src/settings.sml b/src/settings.sml index edc03d4c..ac403027 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -327,6 +327,7 @@ val jsFuncsBase = basisM [("alert", "alert"), ("checkUrl", "checkUrl"), ("bless", "bless"), ("blessData", "blessData"), + ("currentUrl", "currentUrl"), ("eq_time", "eq"), ("lt_time", "lt"), |