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

;; 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

#!/bin/sh

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

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

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

(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

(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

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


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

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

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

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

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

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++) {