viebel

find . | xargs grep -wl ugly | xargs sed -i .bak 's/\<ugly\>/nice/g' 

viebel

function namesOfArgs(fn) {
  var STRIP_COMMENTS = /((\/\/.*$)|(\/\*[\s\S]*?\*\/))/gm,
      FN_ARGS = /^function\s*[^\(]*\(\s*([^\)]*)\)/m,
      FN_ARG_SPLIT = /,/,
      fnText = fn.toString().replace(STRIP_COMMENTS, ''),
      argDecl = fnText.match(FN_ARGS);
  
  return argDecl[1].split(FN_ARG_SPLIT)
}

viebel

;;First rule of macros: Don't write a macro if you a function can do the job!

(defn assoc-it[obj & more]
  (let [path (vec (drop-last 1 more))
        val (last more)]
  (assoc-in obj path val)))

(assoc-it {:a {:b 6}} :a :b 5 ) ;; {:a {:b 5}}

(defn get-it[obj & path]

viebel

var numbers = [1,2,3];
for (var i = 0, n = numbers.length; i<n; i++) {
  var num = numbers[i];
  setTimeout(function() {
    console.log(num); 
  }, 0);
}

viebel

; given a string, determine whether it is a concatenation of english words
; string of digits only is considered an english word
; assume that strings are lower cased
; empty string: don't care


(defn word? [w]
  (or (re-matches #"[0-9]" w)
    (contains? #{"go" "hi" "my" "cat" "is" "nice" "mymy" "mymymy"} w)))

viebel

column <FILENAME> -ts,

viebel

(ns viebel.a8a0349b00689c40571b0faaa36a9ae8.raw.foo)
(defn square [x] (* x x))

viebel

(ns viebel.62563c3ad1a09e2fcabe9482972f2ee0.raw.bar
    (:require [viebel.a8a0349b00689c40571b0faaa36a9ae8.raw.foo :refer [square]]))

(defn square-square [x] (square (square x)))

viebel

(ns viebel.gist-368d3bec58d3ec47e935ad488bafb600.raw.color
    (:require [viebel.gist-3800b8ebae5292921c7d6fcb6c995c1f.raw.body-color :refer [set-bg-color]]))


(set-bg-color "blue")

viebel

cljs.user=> (ns my.ns$macros)
nil
my.ns$macros=> (defmacro hello[x] x)
true
my.ns$macros=> (my.ns/hello 19)
19