diff options
| author |  Denis Redozubov <denis.redozubov@gmail.com> | 2018-08-22 15:11:32 +0300 |
|---|---|---|
| committer | Denis Redozubov <denis.redozubov@gmail.com> | 2018-08-22 15:14:21 +0300 |
| commit | eb86dffeeec897d17905f3adff84e6acfd018330 (patch) | |
| tree | 91e346a00ab96ec247af14529fc1d26c9c3a4ae0 /lib | |
| parent | 0e41b2ab9485f46c4303be46d41e39203eeb7138 (diff) | |
Rough same page anchors
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/js/urweb.js | 4 | ||||
| -rw-r--r-- | lib/ur/basis.urs | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/lib/js/urweb.js b/lib/js/urweb.js index ff4c7b7e..cd1b7005 100644 --- a/lib/js/urweb.js +++ b/lib/js/urweb.js @@ -2278,5 +2278,9 @@ function giveFocus(id) { er("Tried to give focus to ID not used in document: " + id); } +function anchorUrl(id) { + return "#" + id; +} + // App-specific code diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index 3b67946f..a416ba48 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -803,6 +803,7 @@ type id val fresh : transaction id val giveFocus : id -> transaction unit val show_id : show id +val anchorUrl : id -> url val dyn : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type} -> [ctx ~ [Dyn]] => unit -> tag [Signal = signal (xml ([Dyn] ++ ctx) use bind)] ([Dyn] ++ ctx) [] use bind |