paultopia · June 7, 2018 22:29 · andrewzhurov · Jul 4, 2016
diff --git a/navbar.cljs b/navbar.cljs
 ;; I think this will work.  It's extracted from a working version here: 
 ;; https://github.com/paultopia/stdio  (mostly in the nav namespace)
 ;; so if you try this and it doesn't work, I probably left something off, feel free to go to the original.

 (ns navbar.core
  (:require [reagent.core :as r :refer [render atom]]))

 (defn loren [reps]
  (apply str (take reps (repeat "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do
      eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim
      ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut
      aliquip ex ea commodo consequat. Duis aute irure dolor in
      reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla
      pariatur. Excepteur sint occaecat cupidatat non proident, sunt in
      culpa qui officia deserunt mollit anim id est laborum."))))

 (def scrollpos (atom 0))

 (defn update-scroll []
  (reset! scrollpos (.-pageYOffset js/window)))

 (defn track-scroll []
  (.addEventListener js/window "scroll" update-scroll))

 (defn crazyfloat [sp]
  (cond
    (< sp 30) "static"
    :else "fixed"))

 (defn navbar []
  [:div {:style {:position (crazyfloat @scrollpos)}}
   ; components containing navbar items go here
   ])

 (defn das-page []
  [:div
    [navbar]
    [:p (loren 10]])

 (track-scroll)

 (render [das-page] (.getElementById js/document "app"))
	;; I think this will work. It's extracted from a working version here:
	;; https://github.com/paultopia/stdio (mostly in the nav namespace)
	;; so if you try this and it doesn't work, I probably left something off, feel free to go to the original.

	(ns navbar.core
	(:require [reagent.core :as r :refer [render atom]]))

	(defn loren [reps]
	(apply str (take reps (repeat "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do
	eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim
	ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut
	aliquip ex ea commodo consequat. Duis aute irure dolor in
	reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla
	pariatur. Excepteur sint occaecat cupidatat non proident, sunt in
	culpa qui officia deserunt mollit anim id est laborum."))))

	(def scrollpos (atom 0))

	(defn update-scroll []
	(reset! scrollpos (.-pageYOffset js/window)))

	(defn track-scroll []
	(.addEventListener js/window "scroll" update-scroll))

	(defn crazyfloat [sp]
	(cond
	(< sp 30) "static"
	:else "fixed"))

	(defn navbar []
	[:div {:style {:position (crazyfloat @scrollpos)}}
	; components containing navbar items go here
	])

	(defn das-page []
	[:div
	[navbar]
	[:p (loren 10]])

	(track-scroll)

	(render [das-page] (.getElementById js/document "app"))
No results found