Skip to content

Instantly share code, notes, and snippets.

@danielsz

danielsz/pushState.cljs

Last active July 15, 2016 15:13
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save danielsz/8086074 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save danielsz/8086074 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. danielsz renamed this gist Dec 22, 2013. 1 changed file with 0 additions and 0 deletions.
    0 demo.cljs → pushState.cljs
    View file
    File renamed without changes.
  2. danielsz revised this gist Dec 22, 2013. 1 changed file with 0 additions and 17 deletions.
    17 changes: 0 additions & 17 deletions pushState
    View file
    Original file line number Diff line number Diff line change
    @@ -1,17 +0,0 @@
    (def history (Html5History.))
    (.setUseFragment history false)
    (.setPathPrefix history "")
    (.setEnabled history true)

    (let [navigation (listen history EventType/NAVIGATE)]
    (go
    (while true
    (let [token (.-token (<! navigation))]
    (secretary/dispatch! token)))))

    (events/listen js/document "click" (fn [e]
    (let [path (.getPath (.parse Uri (.-href (.-target e))))
    title (.-title (.-target e))]
    (when (secretary/any-matches? path)
    (. history (setToken path title))
    (.preventDefault e)))))
  3. danielsz renamed this gist Dec 22, 2013. 1 changed file with 0 additions and 0 deletions.
    0 demo → demo.cljs
    View file
    File renamed without changes.
  4. danielsz revised this gist Dec 22, 2013. 1 changed file with 17 additions and 0 deletions.
    17 changes: 17 additions & 0 deletions pushState
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,17 @@
    (def history (Html5History.))
    (.setUseFragment history false)
    (.setPathPrefix history "")
    (.setEnabled history true)

    (let [navigation (listen history EventType/NAVIGATE)]
    (go
    (while true
    (let [token (.-token (<! navigation))]
    (secretary/dispatch! token)))))

    (events/listen js/document "click" (fn [e]
    (let [path (.getPath (.parse Uri (.-href (.-target e))))
    title (.-title (.-target e))]
    (when (secretary/any-matches? path)
    (. history (setToken path title))
    (.preventDefault e)))))
  5. danielsz revised this gist Dec 22, 2013. 1 changed file with 0 additions and 1 deletion.
    1 change: 0 additions & 1 deletion demo
    View file
    Original file line number Diff line number Diff line change
    @@ -7,7 +7,6 @@
    (go
    (while true
    (let [token (.-token (<! navigation))]
    (.log js/console (str "navigation event: " token))
    (secretary/dispatch! token)))))

    (events/listen js/document "click" (fn [e]
  6. danielsz revised this gist Dec 22, 2013. 1 changed file with 1 addition and 1 deletion.
    2 changes: 1 addition & 1 deletion demo
    View file
    Original file line number Diff line number Diff line change
    @@ -8,7 +8,7 @@
    (while true
    (let [token (.-token (<! navigation))]
    (.log js/console (str "navigation event: " token))
    (secretary/dispatch! token))))))
    (secretary/dispatch! token)))))

    (events/listen js/document "click" (fn [e]
    (let [path (.getPath (.parse Uri (.-href (.-target e))))
  7. danielsz created this gist Dec 22, 2013.
    18 changes: 18 additions & 0 deletions demo
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,18 @@
    (def history (Html5History.))
    (.setUseFragment history false)
    (.setPathPrefix history "")
    (.setEnabled history true)

    (let [navigation (listen history EventType/NAVIGATE)]
    (go
    (while true
    (let [token (.-token (<! navigation))]
    (.log js/console (str "navigation event: " token))
    (secretary/dispatch! token))))))

    (events/listen js/document "click" (fn [e]
    (let [path (.getPath (.parse Uri (.-href (.-target e))))
    title (.-title (.-target e))]
    (when (secretary/any-matches? path)
    (. history (setToken path title))
    (.preventDefault e)))))