From 874c74dad6c9fcd33a756722d3d8339574084fb4 Mon Sep 17 00:00:00 2001
From: s-ol <s-ol@users.noreply.github.com>
Date: Thu, 22 Nov 2018 17:44:14 +1100
Subject: fix browser nav buttons

---
 mmm/mmmfs/browser.moon | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/mmm/mmmfs/browser.moon b/mmm/mmmfs/browser.moon
index 370c039..6bbd5fd 100644
--- a/mmm/mmmfs/browser.moon
+++ b/mmm/mmmfs/browser.moon
@@ -34,8 +34,15 @@ class Browser
     -- update URL bar
     if MODE == 'CLIENT'
       @path\subscribe (path) ->
-        path ..= '/' unless '/' == path\sub -1
-        window.history\pushState nil, '', path
+        return if @skip
+        vis_path = path .. (if '/' == path\sub -1 then '' else '/')
+        window.history\pushState path, '', vis_path
+
+      window.onpopstate = (_, event) ->
+        if event.state
+          @skip = true
+          @path\set event.state
+          @skip = nil
 
     -- active fileder
     -- (re)set every time @path changes
-- 
cgit v1.2.3