Velrok’s gists

Velrok / edn-to-json.clj

Last active April 10, 2019 11:26

cli to convert edn to json

	#!/usr/bin/env inlein
	'{:dependencies [[org.clojure/clojure "1.10.0"]
	[cheshire "5.8.1"]]}

	(require '[cheshire.core :as json])
	(require '[clojure.edn :as edn])

	(defn read-edn
	[s]
	(try

Velrok / ignition.json

Last active November 28, 2017 21:52

	{
	"ignition": {
	"version": "2.1.0",
	"config": {}
	},
	"storage": {},
	"systemd": {},
	"networkd": {},
	"passwd": {
	"users": [

Velrok / id_rsa.pub

Created November 27, 2017 23:08

pubic key

ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAACAQDcJIYfSR6r85ZbogEhuPFnptCCHE9kVtUL7ekX+vMlXj5lQ/H1NSLm4Fls14z+yiimQAEbF4Vl7bM+YwX1azwoCihVseeRgwIZi0Ukb0et0Llh3/tOX5aM47gNdYyAWXDiz2Tsj/Sz0prm6m4N5AymHQXKfWqPdqJszZ/0iZXu1ZQeteGR3wnHObIh6721PdmgLz0/YPkMDx7/gfYLrqV/DvGeCQimg+V3d//NPLdNXlFUOrxiiTne8zC61R/LNavE0i+DdQu0qFgSFUiVnimlswgzkZy6gWMsZpdWbnkEQmsXhMq73/TakQVxDNBDuNu/P+Apwhi0IGVjwK2h52vs9gAQCxnekP+7puVZrQqsw/i8619eRi6ELNpYYyCIkFEyOFtjTtfDe0nsU0FiFYLQGksd2tcRdVGwV42H/JwJH5wF9YGjnkBxD21PqUUeinKyuujb7AH1DtwIAtv3KKf5MtjxCWRAFKZd5EB8sj8iuuzNFsQJokqIyLNp4JAKiJbtaJJ5Hj23YOtc275dA3Prczn1GGP9lXE6uqaf38LeIYdUg8mAEmwkeoCmcbYE5aqnohax2Z3tYIOABdlE5/qoNyF4ziQ/nEJUrpRBJ2ens0ABb/lJXg7M5Xo7n++5EgLy1Bo23e/nREsQIZr/ookpVYHYvsSJsw1BKnk+ixZeAQ== [email protected]

Velrok / keybase.md

Created November 3, 2017 12:16

Keybase proof

I hereby claim:

I am velrok on github.
I am velrok (https://keybase.io/velrok) on keybase.
I have a public key ASCtj3g7F-0bL8rlPOJ42abTtSh8SJMr18WIMVLUz6U8QAo

To claim this, I am signing this object:

Velrok / follow_json_logs

Created March 31, 2017 11:14

Piple the logs of an app into follow_json_logs. If the message is json it will pretty print it. Optionally parse a jq query as a first argument.

	function follow_json_log {
	if [ -n "$1" ]
	then
	jq -R "fromjson? \| select (type == \"object\") \| $1"
	else
	jq -R 'fromjson? \| select (type == "object")'
	fi
	}

Velrok / follow_json_logs

Created March 31, 2017 11:10

Defines a bash function called follow_json_logs you can pipe a json log into.

	function follow_json_log {
	jq -R 'fromjson? \| select (type == "object") \| .message'
	}

Velrok / cloure-jetty-q-snipet.clj

Created February 17, 2017 17:20

Inject a different factory function that creates a fixed sized request queue.

	(def jetty-req-q (java.util.concurrent.ArrayBlockingQueue. configuration/http-queue-length))

	(defn create-threadpool [options]
	(let [pool (org.eclipse.jetty.util.thread.QueuedThreadPool. (options :max-threads configuration/http-max-threads)
	(options :min-threads configuration/http-min-threads)
	0
	jetty-req-q)]
	(.setMinThreads pool (options :min-threads configuration/http-min-threads))
	(when (:daemon? options false)
	(.setDaemon pool true))

Velrok / ewan-shuffle.clj

Last active January 30, 2017 13:48

Create an algorithm that ensures that for any given sequence there is no more than a run of 2 of the same type. Try to preserve the order as much as possible.

	(ns user)
	;@here if anyone wants a small friday challenge. Create an algorithm that
	;ensures that for any given sequence there is no more than a run of 2 of the
	;same type. Try to preserve the order as much as possible.
	;ie: not a random shuffle. There can be a continuous run of more than 2
	;at the end of the sequence
	(def problem [:a :a :a :a :a :a :b :b :c :a :b :b :b])

	(def large-problem (doall (map (fn [_]
	(->> #{:a :b :c}

Velrok / afile_client.erl

Created April 22, 2016 22:49

learning Erlang

	-module(afile_client).
	-export([ls/1, get_file/2, put_file/3]).

	ls(Server) ->
	Server ! {self(), list_dir},
	receive
	{Server, FileList} ->
	FileList
	end.

Velrok / dump_mondo_trx.sh

Created November 14, 2015 15:10

Dump all available mondo transactions.

	#!/bin/bash

	set -e

	# yo need to set
	# all values must be url encoded!
	# export MONDO_EMAIL
	# export MONDO_PASSWORD
	# export MONDO_CLIENT_ID
	# export MONDO_CLIENT_SECRET

Waldemar Velrok

Keybase proof