ichramm

$(shell $(MAKE) -qp -f $(lastword $(MAKEFILE_LIST)) : 2>/dev/null | grep $(shell echo $(OUTPUT_FILE) | sed 's|./||') | awk '{ for ( n=1; n<=NF; n++ ) if($$n ~ "[.]o$$") print $$n }') \

ichramm

(ns ichramm.log
  (:require [clojure.tools.logging :as log]))

(def ^:macro trace #'log/trace)
(def ^:macro debug #'log/debug)
(def ^:macro info #'log/info)
(def ^:macro warn #'log/warn)
(def ^:macro error #'log/error)
(def ^:macro fatal #'log/fatal)

ichramm

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Matlab code to produce PCA animations shown here:
% http://stats.stackexchange.com/questions/2691
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Static image

clear all
rng(42)

ichramm

;; # EMULATING DATOMIC EXCISION VIA MANUAL DATA MIGRATION


;; *************************************
;; ## Introduction
;; *************************************

;; This Gist demonstrates a generic way to migrate an entire Datomic database
;; from an existing 'Origin Connection' to a clean 'Destination Connection',
;; while getting rid of some undesirable data and otherwise preserving history.

ichramm

;; manually
(defn compute-common-factor
  [maps]
  (if (empty? (rest maps))
    ;; only one
    (first maps)
    (let [head (first maps)
          maps (rest maps)]
      (letfn [(reducer [path obj]
                (reduce-kv (fn [m k v]

ichramm

(ns components.datomic-registry.service
  (:require [datomic.api :as d]
            [components.lifecycle.protocol :as lifecycle]
            [components.datomic.service :refer [make-uri]]
            [components.datomic-registry.protocol :as protocol]))

(defrecord DatomicRegistryService [db ns-name state]
  lifecycle/Lifecycle
  (start [this system]
    (let [db (lifecycle/handler db)

ichramm

/*!
 * \file wireshark_dissector.cpp
 * \author ichramm
 * 
 * \date 2020-09-08
 */

#include <iostream>

#include "config.h"

ichramm

sleep $(awk "BEGIN{print 1 + 1 / $(($RANDOM % 5 + 1))}")

ichramm

(defn index-of
  [pred coll]
  (first (keep-indexed #(when (pred %2) %1) coll)))

; or

(defn indices
  [pred coll]
  (keep-indexed #(when (pred %2) %1) coll))

ichramm

netsh interface portproxy add v4tov4 listenport=10022 listenaddress=0.0.0.0 connectport=22 connectaddress=192.168.1.1

netsh interface portproxy show all

#netsh interface portproxy delete v4tov4 listenaddress=0.0.0.0 listenport=10022