From 81a50c48c28ba205b2b50144b0eb7f724ffe52d9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?c=C3=A6l=C5=8Drum=20spect=C4=81tr=C4=ABx?=
 <afiw@linuxposting.xyz>
Date: Fri, 21 Nov 2025 22:13:54 +0100
Subject: [PATCH] Switch to a R7RS layout with csm

---
 all.options |  3 +++
 rain.scm    | 14 --------------
 rain.sld    | 20 ++++++++++++++++++++
 3 files changed, 23 insertions(+), 14 deletions(-)
 create mode 100644 all.options
 mode change 100755 => 100644 rain.scm
 create mode 100755 rain.sld

diff --git a/all.options b/all.options
new file mode 100644
index 0000000..1d65c46
--- /dev/null
+++ b/all.options
@@ -0,0 +1,3 @@
+;; csm options file -*- lisp-data -*-
+"-program" "rain"
+"-optimize-level" "3"
diff --git a/rain.scm b/rain.scm
old mode 100755
new mode 100644
index a373d91..b3e8b7e
--- a/rain.scm
+++ b/rain.scm
@@ -1,19 +1,5 @@
-#!/bin/sh
-#| -*- scheme -*-
-exec csi -ss "$0" "$@"
-|#
-
 (define parallel 1)
 
-(import (chicken io)
-        (chicken format)
-        (chicken port)
-        (chicken process-context)
-        (html-parser)
-        (http-client)
-        (matchable)
-        (srfi-18))
-
 (define (find-comic-image index)
   (call-with-current-continuation
    (lambda (k)
diff --git a/rain.sld b/rain.sld
new file mode 100755
index 0000000..0c2c22e
--- /dev/null
+++ b/rain.sld
@@ -0,0 +1,20 @@
+#!/bin/sh
+#| -*- scheme -*-
+exec csi -s "$0" "$@"
+|#
+(define-library (rain)
+  (import
+   (scheme base)
+   (scheme file)
+   (chicken base)
+   (chicken io)
+   (chicken format)
+   (chicken port)
+   (chicken process-context)
+   (html-parser)
+   (openssl)                            ; has to be before http-client
+   (http-client)
+   (matchable)
+   (srfi-18))
+  (include "rain.scm")
+  (begin (main (command-line-arguments))))