jackrusher

(ns drei
  (:require [chia.util.js-interop :as j]
            ["three" :as three]
            ["bezier-easing" :as BezierEasing]
            [colours :refer [palettes]])) ; from Google's art palettes project

(defonce renderer
  (doto (three/WebGLRenderer. (clj->js :antialias true))
    (.setPixelRatio (.-devicePixelRatio js/window))
    (.setSize (.-innerWidth js/window) (.-innerHeight js/window))

jackrusher

(ns drei
  (:require [clojure.string :as string]
            ["three" :as three]
            ["three.meshline" :refer (MeshLine MeshLineMaterial)]
            ["three-orbitcontrols" :refer (OrbitControls)]
            ["perlin-simplex" :as Simplex]
            ["bezier-easing" :as BezierEasing]
            ["easing" :as easing]
            [colours :refer [palettes]])) ; from Google's art palettes project

jackrusher

(ns drei
  (:require [goog.object :as gobj]
            ["three" :as three]
            ["three-orbitcontrols" :refer (OrbitControls)]
            ["bezier-easing" :as BezierEasing]))

(defonce renderer
  (let [rndr (three/WebGLRenderer. (js-obj "antialias" true))]
    (.setPixelRatio rndr (.-devicePixelRatio js/window))
    (.setSize rndr

jackrusher

(ns livecode.flickr
  (:require [datoteka.core :as fs]
            [clojure.string :as cs]
            [clojure.data.json :as json]
            [hiccup.page :as hp]
            [hiccup.core :as hc]))

(def json-files
  (reduce
   (fn [m file]

jackrusher

(defun maria-connect ()
  (interactive)
  (cider-connect "localhost" "9000") ; doesn't return the buffer in 0.16.0 😢
  (with-current-buffer (cider-default-connection)
    (cider-nrepl-send-request
     `("op" "eval"
       "ns" ,(cider-current-ns)
       "code" "(do (in-ns 'shadow.cljs.devtools.api) (repl :live))")
     (cider-repl-handler (current-buffer)))
    (setq cider-repl-type "cljs")))

jackrusher

;; # Maria for Experts

;; This is a short tour of abstractions we've made in the process of building Maria, which are also available while using the system. It is meant for people with experience using functional programming languages who already know how to evaluate forms in Maria. If you're a beginner to Maria or to programming in general, I recommend starting [here](https://www.maria.cloud/intro).

;; (For the impatient, Command-Enter — Control-Enter on a PC — within a code block with evaluate the code before the cursor.)

;; ## Notebook interface
;;
;; In the notebook tradition exemplified by iPython Notebooks, one has a mix of prose and code with the ability to visualize the results of evaluating a particular piece of code.
;;

jackrusher

(ns marc21-reader
  (:require [nio.core :as nio]       ; only for mmap
            [clojure.string :as string]
            [hickory.core :as hc]
            [hickory.select :as hs]))

(def ^:dynamic *current-encoding* "ISO-8859-1") ; changes to UTF-8 as needed

;; I'm old, tired and lazy, so I'd
;; spider the format description

jackrusher

(defn confetti []
  (let [palette (cycle ["aqua" "springgreen" "magenta"])]
    (->> (repeat 20 (triangle 20))
     (map #(position (rand-int 500) (rand-int 500) %))
     (map colorize palette)
     (apply layer))))

(cell (interval 100 confetti))

jackrusher

(defcell app-state {:red 0 :green 0 :blue 0})

(defn update-state [color]
  #(swap! app-state assoc color 
           (int (* 2.55 (-> % (.-currentTarget) (.-value) js/parseInt)))))

(cell
  (html [:div
	  [:p "red"]
          [:input {:type "range" :default-value "0" :on-input (update-state :red)}]

jackrusher

;; A `cell` is a special kind of variable that acts like a spreadsheet cell, sending updates along to every place it is referenced, updating and re-computing along the way.

(defcell circle-size 16)

;; Here's a small view contains a slider and a circle that responds to the slider:

(cell
  (html [:div
          [:h2 "Adjustable Circle"]
          [:input {:type "range"