Peter Nagy xificurC

## println_driven_development_with_a_twist.html
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head>
<!-- 2023-03-24 Pi 16:05 -->
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1" />
<title>Println Driven Development, with a twist</title>
<meta name="author" content="Peter Nagy" />

## electric.html
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<head>
<!-- 2023-03-16 Št 08:40 -->
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1" />
<title>Why Electric Clojure is a big deal</title>
<meta name="author" content="Peter Nagy" />

## bootstrap-wordpress
#!/bin/zsh -f

set -uo pipefail

function pr {
    print -- "!! $*"
    $*
}

pr sudo pacman -S --needed pwgen docker docker-compose

## eagle.clj
#!/usr/bin/env bb
(ns user
  (:require
   [clojure.edn :as edn]
   [clojure.java.io :as io]
   [clojure.string :as str]
   [babashka.fs :as fs]))

(def wpms-kept 10)
(def drop-at-least 5)

## harpoons.core.cljc
;; from https://github.com/codebrutale/harpoons

(ns harpoons.core
  #?(:cljs (:require-macros harpoons.core)))

(defmacro non-nil
  "Return the leftmost non-nil value.

  The evaluation is short-circuiting and each form is evaluated at most once.

## clojure-specter-benchmarks
Leiningen 2.8.1 on Java 1.8.0_181 OpenJDK 64-Bit Server VM

{:dependencies
 ([org.clojure/clojure "1.9.0"] [criterium/criterium "0.4.4"]),
 :jvm-opts nil,
 :eval-in nil}

Benchmark: get value in nested map

Mean(us)  vs best   Code

## git-updater.factor
#!/usr/bin/env factor-vm

USING: kernel io namespaces sequences io.launcher io.directories io.encodings.utf8 io.files io.files.info io.pathnames concurrency.messaging threads math tools.threads accessors calendar ;
IN: script

: git-clean? ( path -- t/f )
    [ "git status --untracked-files=no --porcelain" utf8 [ read1 not ]
      with-process-reader* ] with-directory nip 0 = and ;

: git-pull ( path -- )

## gist:308017c850de3b041c3deea5cfe2d995
root@4e7f2ed9b46c:/tmp/hadoop-2.7.2# bin/hadoop checknative -a
16/05/12 12:51:03 WARN bzip2.Bzip2Factory: Failed to load/initialize native-bzip2 library system-native, will use pure-Java version
16/05/12 12:51:03 INFO zlib.ZlibFactory: Successfully loaded & initialized native-zlib library
Native library checking:
hadoop:  true /tmp/hadoop-2.7.2/lib/native/libhadoop.so.1.0.0
zlib:    true /lib/x86_64-linux-gnu/libz.so.1
snappy:  true /usr/lib/libsnappy.so.1
lz4:     true revision:99
bzip2:   false
openssl: false Cannot load libcrypto.so (libcrypto.so: cannot open shared object file: No such file or directory)!

## gist:db8224ea5e8bf252024a
/ # update-ca-certificates
/etc/ca-certificates/update.d/c_rehash: exec: line 2: /usr/bin/c_rehash: not found
run-parts: /etc/ca-certificates/update.d/c_rehash: exit status 2

## string-injection-test.sh
#!/bin/bash

local files=("file one" "file two")
touch "${files[@]}"
bash -c "rm ??"
	<?xml version="1.0" encoding="utf-8"?>
	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
	"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
	<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
	<head>
	<!-- 2023-03-24 Pi 16:05 -->
	<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
	<meta name="viewport" content="width=device-width, initial-scale=1" />
	<title>Println Driven Development, with a twist</title>
	<meta name="author" content="Peter Nagy" />
	#!/bin/zsh -f

	set -uo pipefail

	function pr {
	print -- "!! $*"
	$*
	}

	pr sudo pacman -S --needed pwgen docker docker-compose
	#!/usr/bin/env bb
	(ns user
	(:require
	[clojure.edn :as edn]
	[clojure.java.io :as io]
	[clojure.string :as str]
	[babashka.fs :as fs]))

	(def wpms-kept 10)
	(def drop-at-least 5)
	;; from https://github.com/codebrutale/harpoons

	(ns harpoons.core
	#?(:cljs (:require-macros harpoons.core)))

	(defmacro non-nil
	"Return the leftmost non-nil value.

	The evaluation is short-circuiting and each form is evaluated at most once.
	Leiningen 2.8.1 on Java 1.8.0_181 OpenJDK 64-Bit Server VM

	{:dependencies
	([org.clojure/clojure "1.9.0"] [criterium/criterium "0.4.4"]),
	:jvm-opts nil,
	:eval-in nil}

	Benchmark: get value in nested map

	Mean(us) vs best Code
	#!/usr/bin/env factor-vm

	USING: kernel io namespaces sequences io.launcher io.directories io.encodings.utf8 io.files io.files.info io.pathnames concurrency.messaging threads math tools.threads accessors calendar ;
	IN: script

	: git-clean? ( path -- t/f )
	[ "git status --untracked-files=no --porcelain" utf8 [ read1 not ]
	with-process-reader* ] with-directory nip 0 = and ;

	: git-pull ( path -- )
	root@4e7f2ed9b46c:/tmp/hadoop-2.7.2# bin/hadoop checknative -a
	16/05/12 12:51:03 WARN bzip2.Bzip2Factory: Failed to load/initialize native-bzip2 library system-native, will use pure-Java version
	16/05/12 12:51:03 INFO zlib.ZlibFactory: Successfully loaded & initialized native-zlib library
	Native library checking:
	hadoop: true /tmp/hadoop-2.7.2/lib/native/libhadoop.so.1.0.0
	zlib: true /lib/x86_64-linux-gnu/libz.so.1
	snappy: true /usr/lib/libsnappy.so.1
	lz4: true revision:99
	bzip2: false
	openssl: false Cannot load libcrypto.so (libcrypto.so: cannot open shared object file: No such file or directory)!
	/ # update-ca-certificates
	/etc/ca-certificates/update.d/c_rehash: exec: line 2: /usr/bin/c_rehash: not found
	run-parts: /etc/ca-certificates/update.d/c_rehash: exit status 2
	#!/bin/bash

	local files=("file one" "file two")
	touch "${files[@]}"
	bash -c "rm ??"