piranha

(defmacro cond+ [& clauses]
  (when-some [[test expr & rest] clauses]
    (condp = test
      :do   `(do ~expr (cond+ ~@rest))
      :let  `(let ~expr (cond+ ~@rest))
      :some `(or ~expr (cond+ ~@rest))
            `(if ~test ~expr (cond+ ~@rest)))))

piranha

What

The world needs another utility lib for Clojure, since the existing ones are seldom accepting new stuff in. Ideally it would have an understandable rules how to add more stuff in, so that it's utility will grow over time.

What's not to replace

• hashp is almost perfect (?), only needs (defmacro p [form] (p* form)) to call it in threading pipelines

Ideas to bring in

piranha

# use with https://github.com/pashky/restclient.el

:admin := <<
(let* ((key "649484dc581803f494a07f40:dbee81202550e7afe5a022405d8b5b10da9f24d18883c92d5331bace31f6796d")
       (bits (split-string key ":"))
       (jwt-header (base64url-encode-string
                    (json-serialize (list :alg "HS256"
                                          :typ "JWT"
                                          :kid (car bits)))))
       (payload (base64url-encode-string

piranha

const test = require('node:test');
const assert = require('node:assert').strict;


let RE = /[\s,()]/;

function tokenize(s) {
  var tokens = []
  let j = 0;
  for (var i = 0; i < s.length; i++) {

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

import logging, timeit


class LoggedSetItemMixin(object):
    def __setitem__(self, index, value):
        logging.info('Setting %r to %r' % (index, value))
        super(LoggedSetItemMixin, self).__setitem__(index,value)

class LoggingDict(LoggedSetItemMixin, dict):
    pass

piranha

:headers = <<
Content-Type: application/json
#

# what indices are there
GET http://localhost:9200/_cat/indices

# delete product
DELETE http://localhost:9200/product

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

(ns encrypt
  (:import [javax.crypto Cipher]
           [javax.crypto.spec SecretKeySpec]
           [java.security MessageDigest]
           [java.util Base64 Base64$Encoder Base64$Decoder]))


(def SECRET (or (System/getenv "SECRET")
                (binding [*out* *err*]
                  (print "\nWARNING: set 'SECRET' env variable to be secure\n\n")

piranha

(defn hex [ba]
  (->> (map #(format "%02x" %) ba)
       (apply str)))


(defn unhex [s]
  (->> (partition 2 s)
       (map #(Integer/parseInt (apply str %) 16))
       byte-array))