Juan Ramirez ichramm

## Makefile


$(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 }') \

## log.clj
(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)

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

% Static image

clear all
rng(42)

## datomic-erasing-data-migration.clj
;; # 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.

## diff-maps.clj
;; 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]

## datomic_registry.clj
(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)

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

#include <iostream>

#include "config.h"

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

## index-of.clj

(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))

## windows-port-forwarding.sh

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


	$(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 }') \
	(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)
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% Matlab code to produce PCA animations shown here:
	% http://stats.stackexchange.com/questions/2691
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

	% Static image

	clear all
	rng(42)
	;; # 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.
	;; 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]
	(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)
	/*!
	* \file wireshark_dissector.cpp
	* \author ichramm
	*
	* \date 2020-09-08
	*/

	#include <iostream>

	#include "config.h"

	(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))

	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