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] 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