frankiesardo

(ns stop-worry.core
  (:require ["react" :as react :rename {createElement $}]
            ["react-dom" :as dom]
            [goog.object :as obj]
            [cljs.core.async :as async]))

(extend-type object
  ILookup
  (-lookup
    ([o k] (obj/get o (name k)))

frankiesardo

(ns react.helper)

(defmacro defc [name argv & body]
  `(def ~name (react.helper/component (str '~(get-in &env [:ns :name]) "/" (name '~name)) (fn ~argv ~@body))))

frankiesardo

(ns example.core
  (:require [react.helper :refer-macros [defc]]
            [cljsjs.react.dom]
            [goog.object :as obj]))

(enable-console-print!)

(extend-type object
  ILookup
  (-lookup

frankiesardo

(ns react.helper
  #?(:cljs (:require [cljsjs.react]
                     [cljsjs.create-react-class])))

#?(:cljs
   (defn- react-factory [display-name render]
     (js/React.createFactory
      (js/createReactClass
       #js {:displayName display-name
            :shouldComponentUpdate

frankiesardo

clojure -Sdeps '{:deps {clj-http {:mvn/version "3.10.1"}}}' -e '(use (quote clj-http.client)) (get "http://google.com")'

frankiesardo

AsciiDoc Writer’s Guide

Table of Contents

• Header 1
• Header 2

Header 1

Header 2

frankiesardo

(defn batch [in out max-time max-count]
  (let [lim-1 (dec max-count)]
    (async/go-loop [buf [] t (async/timeout max-time)]
      (let [[v p] (async/alts! [in t])]
        (cond
          (= p t)
          (do
            (async/>! out buf)
            (recur [] (async/timeout max-time)))

frankiesardo

{:paths ["/"]
 :deps {}}

frankiesardo

(ns tinylog.core
  (:require [clj-http.client :as http]
            [cheshire.core :as json]
            [clojure.core.async :as async]))

(defprotocol Logger
  (log [this msg]))

(defn map* [f logger]
  (reify Logger

frankiesardo

(ns example.log)

(defprotocol Logger
  (log [this msg]))

(defn map* [f logger]
  (reify Logger
    (log [this msg] (log logger (f msg)))))