Skip to content

Instantly share code, notes, and snippets.

FreekPaans /
Created Sep 18, 2019
Sorts the swap usage of all procs
ls /proc | egrep "[0-9]+" | while read X; do echo $X $(cat $X/status | grep ^VmSwap); done | grep VmSwap | sort -n -k 3
View es-count-visualization.json
"_id": "628e63c0-c7ce-11e9-9c54-8d74d8e24aa6",
"_type": "visualization",
"_source": {
"title": "Count percentiles",
"visState": "{\n \"title\": \"Count percentiles\",\n \"type\": \"histogram\",\n \"params\": {\n \"addLegend\": true,\n \"addTimeMarker\": false,\n \"addTooltip\": true,\n \"categoryAxes\": [\n {\n \"id\": \"CategoryAxis-1\",\n \"labels\": {\n \"show\": true,\n \"truncate\": 100\n },\n \"position\": \"bottom\",\n \"scale\": {\n \"type\": \"linear\"\n },\n \"show\": true,\n \"style\": {},\n \"title\": {},\n \"type\": \"category\"\n }\n ],\n \"grid\": {\n \"categoryLines\": false,\n \"style\": {\n \"color\": \"#eee\"\n }\n },\n \"legendPosition\": \"right\",\n \"seriesParams\": [\n {\n \"data\": {\n \"id\": \"1\",\n \"label\": \"Percentiles of nginx.access.request_time\"\n },\
FreekPaans / find-thread-by-id.clj
Created Feb 18, 2019
find a thread by id in clojure
View find-thread-by-id.clj
(defn find-thread-by-id [thread-id]
(let [ts (make-array Thread 1000)]
(-> (Thread/currentThread) .getThreadGroup .getParent (.enumerate ts))
(->> ts
(filter (comp not nil?))
(filter #(= thread-id (.getId %)))
View caps-to-escape.reg
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]
"Scancode Map"=hex:00,00,00,00,00,00,00,00,02,00,00,00,01,00,3a,00,00,00,00,00
FreekPaans /
Created Dec 11, 2017
bash function which generates a json based on arguments
#!/usr/bin/env bash
# Usage: make_event my-event test "hello world" -> {"name":"my-event","test":"hello world","unixtime":123}
make_event() {
if ! (( "$#" % 2)); then
echo "log_event expects an uneven number of arguments"
echo "Usage: $0 <event-name> [[<key> <val>]...]"
exit 1
View start-it.clj
(start-server (fn []
[(LoggingHandler. "proxy" LogLevel/INFO)
(proxy-handler "" 80)
FreekPaans / zfs.conf
Created Jul 27, 2016
zabbix agent configuration file for monitoring zpool health and errors
View zfs.conf
# Adapted from[*],zpool list $1 | grep ONLINE | wc -l
UserParameter=zpool.error-free[*],zpool status $1 | grep ONLINE | grep -v " state" | awk '$$3==0 && $$4==0 && $$5==0 {print}' | wc -l
View csrf.php
//double submit cookies ( CSRF protection
define(__CSRF_TOKEN_INPUT_NAME, "__csrf_token");
function generate_csrf_token() {
View application-service-tests.clj
(ns layered-example.application-service-test
(:require [ :as test-helpers]
[clojure.test :refer :all]
[layered-example.application-service :as app-svc]
[layered-example.domain.cargo.cargo-repository :as cargo-repository]
[ :as mysql-cargo-repository]))
(def db-spec (test-helpers/default-db-spec))
(def the-cargo-repo (mysql-cargo-repository/new-cargo-repository db-spec))
View application-service.clj
(ns layered-example.application-service
(:require [layered-example.domain.cargo.cargo :as cargo]
[layered-example.domain.cargo.cargo-repository :as cargo-repository]))
(defn create-new-cargo! [& args ]
(let [new-cargo (apply cargo/create-new-cargo args)]
(cargo-repository/add! new-cargo)))
(defn book-onto-voyage! [cargo-id & args]
(let [{:keys [version cargo] :as result} (cargo-repository/find cargo-id)