sogaiu

observe:

  (file/write out
              "#include <janet.h>\n"
              "static const unsigned char bytes[] = {"
              (string/join (interpose ", " chunks))
              "};\n\n"
              "const unsigned char *" name "_embed = bytes;\n"
 "size_t " name "_embed_size = sizeof(bytes);\n")

providing sensitive details to such places makes them juicier targets
- why should you trust that such places can protect your information?
once the data is "on the darkweb" it is likely that it cannot be removed
- assuming the data is there or will be eventually seems sensible

https://www.reddit.com/r/cybersecurity/comments/18rdnds/dark_web_monitoring_opinions/

2025-12-01

The Search for Meaning Through Collaboration and Code - Timothy Pratley

After installation, the bundle script and info.jdn file end up having the same parent directory under <syspath>/bundle.

Within the "repository root", the bundle script and info.jdn file are allowed to not share a common parent:

bundle/init.janet
info.jdn

	$ VISUAL=emacs janet find-callers-of.janet file/write ~/src/git-some-janets/repos 2>/dev/null
	# emacs +4 codeberg.org/amano.kenji/j3blocks/j3blocks/modules/cmd.janet
	run
	# emacs +18 codeberg.org/veqq/deforester/deforester.janet
	log
	# emacs +40 codeberg.org/veqq/deforester/deforester.janet
	set-sink-to-logger!
	# emacs +7 git.sr.ht/~nullevoid/jermbox/examples/example.janet
	command-loop
	# emacs +22 git.sr.ht/~subsetpark/bagatto/demo/vendoring/janet_modules/tester.janet

	$ VISUAL=emacs FC_PRED="\|(> (length $) 3)" janet find-calls-to.janet file/write ~/src/git-some-janets/repos 2>/dev/null
	# emacs +20 codeberg.org/veqq/deforester/deforester.janet
	(file/write f (time-string) " " data "\n")
	# emacs +46 codeberg.org/veqq/deforester/deforester.janet
	(file/write f data "," "\n")
	# emacs +192 github.com/janet-lang/spork/spork/declare-cc.janet
	(file/write out "};\n\n"
	"const unsigned char * const " name "_embed = bytes;\n"
	"const size_t " name "_embed_size = sizeof(bytes);\n")
	# emacs +150 github.com/janet-lang/jpm/jpm/cc.janet

	$ janet find-calls.janet file/write ~/src/git-some-janets/repos
	/home/user/src/git-some-janets/repos/codeberg.org/amano.kenji/j3blocks/j3blocks/modules/cmd.janet:
	51
	(file/write stderr (string $ "\n"))
	/home/user/src/git-some-janets/repos/codeberg.org/veqq/deforester/deforester.janet:
	20
	(file/write f (time-string) " " data "\n")
	46
	(file/write f data "," "\n")
	/home/user/src/git-some-janets/repos/git.sr.ht/~nullevoid/jermbox/examples/example.janet:

	$ janet find-calls.janet file/write ~/src/git-some-janets/repos
	/home/user/src/git-some-janets/repos/codeberg.org/amano.kenji/j3blocks/j3blocks/modules/cmd.janet:
	(file/write stderr (string $ "\n"))
	/home/user/src/git-some-janets/repos/codeberg.org/veqq/deforester/deforester.janet:
	(file/write f (time-string) " " data "\n")
	(file/write f data "," "\n")
	/home/user/src/git-some-janets/repos/git.sr.ht/~nullevoid/jermbox/examples/example.janet:
	(file/write stdout (string/from-bytes (jermbox/event-character env)))
	/home/user/src/git-some-janets/repos/git.sr.ht/~subsetpark/bagatto/demo/vendoring/janet_modules/tester.janet:
	(file/write stdout "\n\e[31mx\e[0m ")

	(def- template-peg
	"Extract string pieces to generate a templating function"
	(peg/compile
	~{:sub (group
	(choice (sequence "${" (capture (to "}")) "}")
	(sequence "$" (capture (some (range "az" "AZ" "09" "__" "--"))))))
	:main (any (sequence (capture (to (choice "$$"
	-1
	:sub)) )
	(choice (capture "$$")

	spork
	┌──────────────┐
	│ ┌──────────┐ │ ┌────┐
	│ │ janet-pm │ │ │jeep│
	│ └─────┬────┘ │ └──┬─┘
	└───────┼──────┘ │
	│ │
	┌─────────┼─────────────────────┼─────────┐
	│ │ │ │
	│ ┌─────▼─────────────────────▼─────┐ │