From 5b481b842e73b783087b87f3e7d4ee677df0f9af Mon Sep 17 00:00:00 2001
From: Circling Skies <loop@antartida.xyz>
Date: Fri, 13 Dec 2024 08:06:15 -0300
Subject: [PATCH] Adds stuff that's *mine*.

---
 .gitattributes |  3 ++
 .gitignore     | 13 ++++++++
 Makefile.mine  | 91 ++++++++++++++++++++++++++++++++++++++++++++++++++
 THANKS         | 17 ++++++++++
 4 files changed, 124 insertions(+)
 create mode 100644 .gitattributes
 create mode 100644 .gitignore
 create mode 100644 Makefile.mine
 create mode 100644 THANKS

diff --git a/.gitattributes b/.gitattributes
new file mode 100644
index 0000000..596fafa
--- /dev/null
+++ b/.gitattributes
@@ -0,0 +1,3 @@
+*.tex -linguist-detectable
+*.pdf -linguist-detectable
+*.nw -linguist-detectable
diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..2637511
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,13 @@
+*~
+*.aux
+*.exe
+*.fdb_latexmk
+*.fls
+*.log
+*.out
+*.pdf
+*.tex
+*.db
+tmp/
+peat
+noweb.sty
diff --git a/Makefile.mine b/Makefile.mine
new file mode 100644
index 0000000..41e0b82
--- /dev/null
+++ b/Makefile.mine
@@ -0,0 +1,91 @@
+# -*- mode: makefile -*-
+include Makefile
+
+REMOTE=dbastos@antartida.xyz
+LOOP=loop
+
+default: all
+
+live: all remote-copy # remote-build-exe
+
+all: loop rename-loop loop.lisp loop.asd scripts/build-exe.lisp \
+scripts/build-index-from-fs.lisp \
+scripts/cron-remove-inactive-users.lisp \
+scripts/migrate-add-creation-date.lisp
+
+rename-loop: loop.exe
+	cmp loop loop.exe || mv loop loop.exe
+
+loop.lisp: loop.nw
+	(any tangle -Rloop.lisp < loop.nw | dos2unix > loop.tmp || \
+		(rm loop.tmp && exit 1)) && \
+		mv loop.tmp loop.lisp
+
+loop.asd: loop.nw
+	(any tangle -Rloop.asd < loop.nw | dos2unix > loop-asd.tmp || \
+		(rm loop-asd.tmp && exit 1)) && \
+		mv loop-asd.tmp loop.asd
+
+scripts/build-exe.lisp: loop.nw
+	(any tangle -Rbuild-exe.lisp < loop.nw | dos2unix > build-exe.tmp || \
+		(rm build-exe.tmp && exit 1)) && \
+	    mv build-exe.tmp scripts/build-exe.lisp
+
+scripts/build-index-from-fs.lisp: loop.nw
+	(any tangle -Rbuild-index-from-fs.lisp < loop.nw | dos2unix > \
+		build-index-from-fs.tmp || \
+		(rm build-index-from-fs.tmp && exit 1)) && \
+	    	mv build-index-from-fs.tmp scripts/build-index-from-fs.lisp
+
+scripts/cron-remove-inactive-users.lisp: loop.nw
+	(any tangle -Rcron-remove-inactive-users.lisp < loop.nw | dos2unix > \
+		cron-remove-inactive-users.tmp || \
+		(rm cron-remove-inactive-users.tmp && exit 1)) && \
+		mv cron-remove-inactive-users.tmp \
+			scripts/cron-remove-inactive-users.lisp
+
+scripts/migrate-add-creation-date.lisp: loop.nw
+	(any tangle -Rmigrate-add-creation-date.lisp < loop.nw | dos2unix > \
+		migrate-add-creation-date.tmp || \
+		(rm migrate-add-creation-date.tmp && exit 1)) && \
+		mv migrate-add-creation-date.tmp \
+			scripts/migrate-add-creation-date.lisp
+
+run: loop.nw
+	(any tangle -Rrun < loop.nw | dos2unix > run.tmp || (rm run.tmp && exit 1)) && \
+		mv run.tmp run && \
+		chmod 0755 run
+
+loop.tex: loop.nw
+	any weave -delay -index loop.nw | dos2unix > loop.tex
+
+loop.pdf: loop.tex
+	latexmk -pdf loop
+
+livedoc:
+	echo loop.nw | python peat -C 'make loop.pdf'
+
+remote-copy:
+	scp loop.asd loop.lisp $(REMOTE):$(LOOP)
+	scp -r scripts $(REMOTE):$(LOOP)
+
+sync-users:
+	scp $(REMOTE):$(LOOP)/accounts.lisp .
+
+remote-build-exe:
+	plink -ssh $(REMOTE) cd $(LOOP)/ && \
+	   sbcl --script build-exe.lisp
+
+remote-migrate-account-creation:
+	plink -ssh $(REMOTE) cd $(LOOP)/ && \
+	   sbcl --script migrate-add-creation-date.lisp
+
+remote-cron-remove-inactive-users:
+	plink -ssh $(REMOTE) cd $(LOOP)/ && \
+	   sbcl --script cron-remove-inactive-users.lisp
+
+service: run
+	sudo ln -s $(pwd) /service/$(LOOP)
+
+clean: 
+	rm -f *.pdf *.out *.aux *.log *.fls *.fdb_latexmk loop loop.tex
diff --git a/THANKS b/THANKS
new file mode 100644
index 0000000..0533412
--- /dev/null
+++ b/THANKS
@@ -0,0 +1,17 @@
+(*) Special thanks 
+
+Stefan Monnier.  General advice and discussions.  Gave us the solution
+to atomically write articles without resorting to renameat2().
+
+(*) Discord Lisp
+
+Bike.  How to get rid of sb-ext:file-exists,
+sb-ext:file-does-not-exist.
+
+Shinmera (Yukari Hafner).  How to get rid of cl-fad.  Suggested
+filesystem-utils.
+
+(*) UFRJ
+
+João Pedro Mendes Alves Bianco.  Gave us OpenSuse and POP OS to test
+LOOP's installation.  General discussions and friendship.