module Haste.Hash (
onHashChange, onHashChange', setHash, getHash, setHash', getHash'
) where
import Haste.Foreign
import Control.Monad.IO.Class
import Haste.Prim
onHashChange :: MonadIO m
=> (String -> String -> IO ())
-> m ()
onHashChange f = do
firsthash <- getHash'
liftIO $ jsOnHashChange firsthash cb
where
cb = \old new -> f (fromJSStr old) (fromJSStr new)
onHashChange' :: MonadIO m
=> (JSString -> JSString -> IO ())
-> m ()
onHashChange' f = do
firsthash <- getHash'
liftIO $ jsOnHashChange firsthash f
jsOnHashChange :: JSString -> (JSString -> JSString -> IO ()) -> IO ()
jsOnHashChange =
ffi "(function(firsthash,cb){\
\window.__old_hash = firsthash;\
\window.onhashchange = function(e){\
\var oldhash = window.__old_hash;\
\var newhash = window.location.hash.split('#')[1] || '';\
\window.__old_hash = newhash;\
\cb(oldhash,newhash);\
\};\
\})"
setHash :: MonadIO m => String -> m ()
setHash = liftIO . jsSetHash . toJSStr
setHash' :: MonadIO m => JSString -> m ()
setHash' = liftIO . jsSetHash
jsSetHash :: JSString -> IO ()
jsSetHash = ffi "(function(h) {location.hash = '#'+h;})"
getHash :: MonadIO m => m String
getHash = liftIO $ fromJSStr `fmap` jsGetHash
getHash' :: MonadIO m => m JSString
getHash' = liftIO jsGetHash
jsGetHash :: IO JSString
jsGetHash = ffi "(function() {return location.hash.substring(1);})"