jclaggett

(ns ezducerdemo)

;;
;; 1st take
;;

(defn ezducer [constructor]
    (fn [reducer]
      (let [steps (fn [a vs] 
                    ;; Use loop/recur instead of reduce to avoid reduce's

quephird

SQL Tricks

Contents

• Purpose
• Nota bene
• Example schema
• Selecting records
  • How do I get a list of items and the sum of another column in a table?
  • How do I concatenate a list of string values each relavant to a row?
• How do I get a list of items and filter the result set on some aggregate?

ghadishayban

(import '[java.lang.reflect Method Modifier])

(set! *warn-on-reflection* true)

(defn- samsig
  "Given a SAM interface, returns the j.l.reflect.Method of the abstract method"
  [sym]
  (let [kls (resolve sym)]
    (if (and (class? kls) (.isInterface ^Class kls))
      (let [mid (fn [^Method m] [(.getName m) (vec (.getParameterTypes m))])

ghadishayban

#!/bin/bash

# author Ghadi Shayban <gshayban@gmail.com>
set -e

if [ -z ${1+x} ]
then
  echo provide an asm git sha / ref
  exit 1
fi

devn

defmodule Do do
  def dont think, about, it, but, please do
    [think, about, it, please]
  end
end

Do.dont :worry, :about, :grouping, :any, :arguments
=> [:worry, :about, :grouping, :arguments]

pjstadig

(ns typehint.core)

;; A little type hint hint...

(set! *warn-on-reflection* true)

;; There are two ways to type hint the return value of a function, but one is
;; (technically) wrong:

(defn ^String as-string0

noprompt

(ns strum.core
  (:refer-clojure :exclude [defn])
  (:require
   [clojure.spec :as spec]
   [clojure.spec.test :as spec.test]))

;; ---------------------------------------------------------------------
;; Prelude

;; HACK: Currently, as of Clojure 1.9.0-alpha14, there is a bug with

lrascao

dash_id=xxxx
api_key=xxx
app_key=xxx

# 1. export
curl -X GET "https://app.datadoghq.com/api/v1/dash/${dash_id}?api_key=${api_key}&application_key=${app_key}" > dash.json

# 2. edit dash.json
move "graphs", "title", "description" up one level in the json hierarchy, from being beneath "dash" to being at the same level

alandipert

(defelem blink
  [{:keys [interval :as attr] :or {interval 1000}} kids]
  (with-let [container (span (dissoc attr :interval) kids)]
    (with-init!
      (with-interval interval
        (.toggle (js/jQuery container))))))

renestalder

Facebook: Unfollow people and pages

See comments section for more up-to-date versions of the script. The original script is from 2014 and will not work as is.

1. Open news feed preferences on your Facebook menu (browser)
2. Click people or pages
3. Scroll down (or click see more) until your full list is loaded
4. Run the script in your browser console

Facebook will block this feature for you while you use it, depending on how much entities you try to unfollow. It automatically unblocks in a couple of hours and you will be able to continue.