piranha

(defn make-profile-transform [^String thread-name]
  (fn [^String s]
    (when (> (.indexOf s thread-name) -1)
      (-> s
          (str/replace #"com.fasterxml.jackson.+" "JACKSON...")
          (str/replace #"org.elasticsearch.client.RestClient.+" "ES request...")
          (str/replace #"clojure.tools.logging/.+" "LOG...")))))


(defn profiler-mw [handler]

piranha

(defmacro cx [& classes]
  "This macro compiles this:
    (cx :one true :two true :three false :four (pos? 1))

   Into this:

     [ \"one two\", 1 > 0 ? \"four\" : null ].join(\" \")
  "
  (let [class-map#   (partition 2 classes)
        groups#      (group-by (fn [[k v]]

piranha

(ns mk.fe.core.why-update
  (:require [cljsjs.react]))

(defn comp-did-update [prev-props prev-state]
  (this-as this
    (let [name       (or (aget this "displayName")
                       (aget this "constructor" "displayName")
                       (aget this "constructor" "name"))
          prev-state (aget prev-state ":rum/state")
          state      (aget (.-state this) ":rum/state")]

piranha

#!/bin/sh

if [ -z "$1" ]; then
    echo "Usage: $0 <path-to-wallpaper>"
    exit 1
fi

realpath() {
    [[ $1 = /* ]] && echo "$1" || echo "$PWD/${1#./}"
}

piranha

;; extend honeysql

(defmethod honeyhelpers/build-clause :returning [ _ m cols]
  (assoc m :returning (honeyhelpers/collify cols)))

(defmethod honeyfmt/format-clause :returning [[_ cols] _]
  (str "RETURNING " (honeyfmt/comma-join (map honeyfmt/to-sql cols))))

(extend-protocol honeyfmt/ToSql
  clojure.lang.Sequential

piranha

<?xml version="1.0"?>

<!--
Convert podcast RSS to commands for curl.

Originally from bashpodder, modified by Alexander Solovyov.

Usage:
    xsltproc podcast2wget.xsl path/to/podcast.rss
OR

piranha

(ns mailers.main
  (:gen-class)
  (:require [com.stuartsierra.component :as c]
            [aleph.http                 :as aleph]
            [manifold.stream            :as mani]
            [ring.util.response         :as response]
            [ring.middleware.file-info  :only [wrap-file-info]]
            [ring.middleware.resource   :refer [wrap-resource]]))

piranha

Keybase proof

I hereby claim:

• I am piranha on github.
• I am asolovyov (https://keybase.io/asolovyov) on keybase.
• I have a public key whose fingerprint is 1F63 22C2 2BAE B0D4 18C1 4477 AB09 CA13 33A4 4CB6

To claim this, I am signing this object:

piranha

#!/usr/bin/env python
# -*- mode: python, coding: utf-8 -*-
#
# This incredible piece of code makes git a bit Polish, a bit Western Ukrainian,
# пше прошу пана
# Joke is based on fact that 'git' is 'пше' in qwerty/йцукен layouts
#
# (c) 2013 Alexander Solovyov under terms of WTFPL

import sys

piranha

/*
* Anchorify without jQuery
* Rewritten from https://github.com/willdurand/anchorify.js/
*/

var anchorify = (function() {
    var specialCharsRe = /[ ;,.'?!_]/g;

    function generateId(text) {
        return text