diff --git a/.gitignore b/.gitignore index 4b464f1..74b59e4 100644 --- a/.gitignore +++ b/.gitignore @@ -1,2 +1 @@ ~* -index.html \ No newline at end of file diff --git a/generate/end.html b/generate/end.html deleted file mode 100644 index e1cda8c..0000000 --- a/generate/end.html +++ /dev/null @@ -1,21 +0,0 @@ - - -
- 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 deleted file mode 100755 index 8b13df2..0000000 --- a/generate/genuserdescs.scm +++ /dev/null @@ -1,15 +0,0 @@ -#!/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 deleted file mode 100755 index 4c884bd..0000000 --- a/generate/make-site.sh +++ /dev/null @@ -1,13 +0,0 @@ -#!/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/generate/start.html b/generate/start.html deleted file mode 100644 index 5462148..0000000 --- a/generate/start.html +++ /dev/null @@ -1,46 +0,0 @@ - - - - - - Linuxposting Tilde - - - - - - - - -
    -

    Connecting.

    -

    Connecting..

    -

    Connecting...

    -
    -
    │. . -│ ├┐ ─┐/┌┐┌┐┌ ├ ├┐┌┐ ─┐/ ─┐ ┌─┐ ╷ -││││││ │ ││││└┐│ │││││ │ ││┌┘ ╵ └─┘ -└ └┘/└─├┘└┘─┘└─ └┤./└─└┤└─ - ┘ ┘
    -