From 1afa152ab94ab8041b937dde4ff5abfcd0d3e6e1 Mon Sep 17 00:00:00 2001 From: "Luna Magdalena :3" <3"@girlkissing.tips> Date: Mon, 17 Nov 2025 18:50:08 -0300 Subject: [PATCH 1/2] it is template now --- index.html => index.html.template | 9 --------- 1 file changed, 9 deletions(-) rename index.html => index.html.template (82%) diff --git a/index.html b/index.html.template similarity index 82% rename from index.html rename to index.html.template index 90d56ad..ff0821c 100644 --- a/index.html +++ b/index.html.template @@ -43,15 +43,6 @@
Users:
From fffda7cedad2266139e1e2ce5f2d82b60501dd1a Mon Sep 17 00:00:00 2001 From: "Luna Magdalena :3" <3"@girlkissing.tips> Date: Tue, 18 Nov 2025 11:51:54 -0300 Subject: [PATCH 2/2] this might make it generate. i think. perhaps --- .gitignore | 1 + generate/end.html | 21 +++++++++++++++++++++ generate/genuserdescs.scm | 15 +++++++++++++++ generate/make-site.sh | 13 +++++++++++++ index.html.template => generate/start.html | 22 +--------------------- 5 files changed, 51 insertions(+), 21 deletions(-) create mode 100644 generate/end.html create mode 100755 generate/genuserdescs.scm create mode 100755 generate/make-site.sh rename index.html.template => generate/start.html (57%) diff --git a/.gitignore b/.gitignore index 74b59e4..4b464f1 100644 --- a/.gitignore +++ b/.gitignore @@ -1 +1,2 @@ ~* +index.html \ No newline at end of file diff --git a/generate/end.html b/generate/end.html new file mode 100644 index 0000000..e1cda8c --- /dev/null +++ b/generate/end.html @@ -0,0 +1,21 @@ + + +
+ Services: + +
Description
+ + site by Magdalunaa :3 + Click / space to skip + + + \ No newline at end of file diff --git a/generate/genuserdescs.scm b/generate/genuserdescs.scm new file mode 100755 index 0000000..8b13df2 --- /dev/null +++ b/generate/genuserdescs.scm @@ -0,0 +1,15 @@ +#!/home/afiw/opt/bin/csi -s + +(import (chicken file) + (chicken format) + (chicken io) + (chicken pathname)) + +(for-each print (find-files "/home" + #:limit 0 + #:test (lambda (s) (not (string=? s "/home/!common"))) + #:action (lambda (homedir acc) + (let* ((path (sprintf "~a/.config/tilde/description" homedir)) + (username (pathname-file homedir)) + (desc (if (file-exists? path) (apply string-append (with-input-from-file path read-lines)) "Description file not found"))) + (cons (sprintf "
  • ~~~a

    ~a

    • " username username desc) acc))))) diff --git a/generate/make-site.sh b/generate/make-site.sh new file mode 100755 index 0000000..4c884bd --- /dev/null +++ b/generate/make-site.sh @@ -0,0 +1,13 @@ +#!/usr/bin/bash + +cd /var/lib/caddy/tilde/ + +rm ../index.html + +descs=$(./genuserdescs.scm) + +echo "$descs" > users.html + +cat start.html users.html end.html > ../index.html + +rm users.html \ No newline at end of file diff --git a/index.html.template b/generate/start.html similarity index 57% rename from index.html.template rename to generate/start.html index ff0821c..5462148 100644 --- a/index.html.template +++ b/generate/start.html @@ -43,24 +43,4 @@
    Users: - -
    - Services: - -
    Description
    - - site by Magdalunaa :3 - Click / space to skip - - - \ No newline at end of file + \ No newline at end of file