hlolli

(ns input-masker-test
  (:require
    [goog.dom :as gdom]
    [om.next :as om :refer-macros [defui]]
    [goog.events :as events]	
    [goog.events.EventType :as EventType]	
    [om.dom :as dom]))

(defn input-masker
  "mask: a string of number/char with seperator

hlolli

(ns omx
  (:require 
    [goog.dom :as gdom]
    [om.next :as om :refer-macros [defui]]
    [om.dom :as dom]))

(def init-state {:data-1 {:a 1 :b 2}
                 :data-2 {:c 3 :d 4}
                 :data-3 {:e 5 :f 6}})

hlolli

(ns omx
  (:require 
    [goog.dom :as gdom]
    [om.next :as om :refer-macros [defui]]
    [om.dom :as dom]))

(def init-state {:data-1 {:a 1 :b 2}
                 :data-2 {:c 3 :d 4}
                 :data-3 {:e 5 :f 6}})

hlolli

(ns panaeolus.macros
  (:require [lumo.repl :refer [get-current-ns]]))

(ns panaeolus.macros$macros)

(defmacro pull-symbols [from-namespace]
  `(let [into-namespace# (symbol (lumo.repl/get-current-ns))
         into-map# (or (get-in @env/*compiler* [:cljs.analyzer/namespaces
                                                into-namespace#
                                                :uses]) {})

hlolli

;; Iain McCurdy's Shredulator as i-rate UDO

opcode shred,aa,aaiiiiiiiiiii
  aL,aR,\
  iMaxDelay,iTransPose,iTransRand,\
  iDepth,iRate,iFeedback,iWidth,iwet,\
  iFFTindex,iGain,iPrePost xin
  iFFTsizes[] fillarray 128,256,512,1024,2048,4096 ;arrayofFFTsizevalues
  iFFTsize = iFFTsizes[iFFTindex-1] ;retrieveFFTsizevaluefromarray

hlolli

instr 1
  aphs phasor p4
  amod1 poscil 100, p4, 1
  amod2 poscil 10, amod1, 1
  amod3 poscil 1, amod2*amod1, 1
  asin tablei amod3, 1, 1, 0, 1
  outc asin
endin

hlolli

(ns shadow.chrome-extension
  (:refer-clojure :exclude (flush require))
  (:require [shadow.build :as build]
            [shadow.build.api :as build-api]
            [clojure.java.io :as io]
            [clojure.set :as set]
            [clojure.string :as str]
            [clojure.data.json :as json]
            [shadow.build.data :as data]
            [shadow.build.output :as output]

hlolli

;; -*- lexical-binding: t -*-
;;; shadow-cljs.el --- shadow-cljs bindings for Emacs
;;; Commentary: Provides easy Cider interaction
;;              for shadow-cljs.

(require 'cider)
(require 'edn)


;; target/shadow-cljs/nrepl.port

hlolli

(require 'package)
(package-initialize)

(add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/") t)

;; First run of this emacs config
(when (not (package-installed-p 'use-package))
  (package-refresh-contents)
  (package-install 'use-package)
  (package-install 'quelpa-use-package)

hlolli

(defn detectBlock []
  (let [interval   500
        blockDelta 5]
    (js/setInterval
     (fn []
       (let [last (.hrtime js/process)]
         (js/setImmediate 
          (fn [] 
            (let [delta (* 1e-6 (aget (.hrtime js/process last) 1))]