Skip to content

Instantly share code, notes, and snippets.

style = defaultWithAlign
maxColumn = 111
rewrite.rules = [
SortImports
RedundantBraces
RedundantParens
PreferCurlyFors
]
rewrite.redundantBraces.stringInterpolation = true
def time[R](what: String)(block: => R): R = {
val t0 = java.lang.System.nanoTime()
val result = block
val ms = (java.lang.System.nanoTime() - t0) / 10e5.toInt
println(s"$what completed. Time elapsed: ${ms}ms")
result
}
def t[R](block: => R): R = {
val t0 = java.lang.System.nanoTime()
(ns gallery.server.io
"""Ns for interaction with server. Uses `fetch` API (required polyfill for some browsers)
Q: use goog.net.XhrIo instead?
""")
(ns hello.core
(:require [clojure.string :as str]))
(defn parse-int [^String n]
(Integer/parseInt n))
(defn parse-cmd
[arg]
(let [splitted (str/split arg #"\s")]
@narma
narma / ruby-keywordize.rb
Created August 15, 2015 00:43
ruby keywordize keys
class Hash
def keywordize!
self.keys.each do |k|
if k.class == String
self[k.to_sym] = self[k]
self.delete(k)
end
end
self
end
@narma
narma / datascript_utils.cljs
Last active January 27, 2016 13:13
Convert json dump or just regular data to seq for `d/transact!`
(ns datascript-utils
(:require [datascript :as d]))
(defn data->datoms [prefix json]
(let [make-prefix
(fn [p]
(let [[full short]
(re-matches #"(.+?)s?$" p)]
short))]
@narma
narma / app.cljs
Last active November 24, 2021 14:53
Rum example
(ns rumissue1.core
(:require [rum :include-macros true]))
(def errors (atom []))
(def errors-count (atom 0))
(defn error [msg]
(swap! errors-count inc)
(when (> (count @errors)
12)
@narma
narma / designer.html
Created July 14, 2014 10:28
designer
<link rel="import" href="../paper-button/paper-button.html">
<link rel="import" href="../paper-checkbox/paper-checkbox.html">
<polymer-element name="my-element">
<template>
<style>
:host {
position: absolute;
width: 100%;
(use 'clojure.core.async)
(defn req [server query]
(go
(<! (timeout (rand-int 100)))
(str query " from " server)))
(defn fastest [query & servers]
(let [c (chan)]
(doseq [server servers]
#!/bin/sh
# Capture X11 with encoding to mp4 on fly with noise removal with sox
# and mixing both mic with game audio
# TODO: remove noise by pulseaudio
loadModule() {
# Pavucontrol guide
# playback: Send audio from the game to game_out
# record: stream from duplex_out
pacmd load-module module-null-sink sink_name=duplex_out sink_properties=device.description="duplex_out"