This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defn no-bugs [{:keys [] :as data} owner {:keys []}] | |
(reify | |
om/IInitState | |
(init-state [_] | |
{:comm-ch (chan) | |
:obstacle {:x 50 :width 50 :height 50} | |
:animated {:x 10}}) | |
om/IDidMount | |
(did-mount [_] | |
(let [{:keys [comm-ch]} (om/get-state owner) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{ | |
"name": "Soleil v2 Comfort Fun", | |
"categories": [ | |
"womens", | |
"shoes", | |
"sneakers-&-athletic-shoes" | |
], | |
"brand": "Puma", | |
"description": "Dance-inspired sneaker, Synthetic leather uppers, Lightly padded tongue and collar", | |
"external-product-id": "Either Globally Unique Identifier or Unique Identifier of the Product in Your System", |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{ | |
"name": "RB3183 Sunglasses 63 mm", | |
"categories": [ | |
"unisex", | |
"eyewear" | |
], | |
"brand": "Ray Ban", | |
"description": "Made in US,Ray-Ban sizes refer to the width of one lens in millimeters,Lenses are prescription-ready (Rx-able)", | |
"external-product-id": "Either Globally Unique Identifier or Unique Identifier of the Product in Your System", | |
"original-price": 12750, |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns immutable-v-list | |
"Example of React Native VirtualizedList from Om.next" | |
(:require [om.next :as om :refer-macros [defui]])) | |
(set! js/window.React (js/require "react")) | |
(set! js/window.ReactNative (js/require "react-native")) | |
(def ^js/window.ReactNative ReactNative js/window.ReactNative) | |
(defn create-element-no-auto-js |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;add (:require [clojure.core.async :refer [chan close! go >! <! <!! >!! go-loop put! thread alts! alts!! timeout pipeline pipeline-blocking pipeline-async]]) | |
;chans | |
(def to-ch (chan)) | |
(def from-ch (chan)) | |
;data looks like {url some-data, etc} | |
(def my-map (atom {})) | |
(defn fetch-from-url [{:keys [url]}] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;USAGE | |
;1. get https://github.com/planck-repl/planck | |
;2. run it from the project folder like this: | |
;plk patch-metro-worker.cljs | |
(require '[planck.core :refer [spit slurp]]) | |
;Works with ReactNative 0.62 | |
(def my-production-index-js-file-name "index.prod.js") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import React, {PropTypes, Component, useImperativeHandle, useRef, forwardRef} from 'react'; | |
import Animated, {useSharedValue, useAnimatedStyle, withTiming, withSpring} from 'react-native-reanimated'; | |
function Box(props, ref) { | |
const aRef = useRef(); | |
useImperativeHandle(ref, function () { | |
return { | |
moveBox: function (globalY) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(comment | |
;This takes at most ~2000 ms to execute | |
(let [process-seq-of-channels | |
(fn [chans] | |
(a/go | |
(loop [chans chans] | |
(if-not (empty? chans) | |
(let [ch (first chans) | |
resp (a/<! ch)] | |
(println resp) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns scratch | |
(:require [clojure.core.async :as a] | |
[taoensso.timbre :as timbre])) | |
(def core-async-agent-state (atom 0)) | |
(def core-async-agent-ch (a/chan 1)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(def sections | |
;convert to Clojure data | |
(js->clj | |
#js [ | |
#js { | |
"title" "Getting started", | |
"reset_lesson_position" false, | |
"lessons" [ | |
{"name" "Welcome"}, | |
{"name" "Installation"} |