oxaliq/oxaliq.net
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add index file for /{resource} paths

Browse source
This commit is contained in:
Sorrel 2023-11-12 21:35:59 -05:00
parent f9baec0fd8
commit 6f2040edff
4 changed files with 7 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
.gitignore vendored
View file

@ -1,3 +1,3 @@
**/**.**~ **/**.**~
**/.DS_Store **/.DS_Store
sorrel/**

10
sorrel.dev.rkt
View file

@ -12,6 +12,7 @@
(prefix-in files: web-server/dispatchers/dispatch-files) (prefix-in files: web-server/dispatchers/dispatch-files)
(prefix-in filter: web-server/dispatchers/dispatch-filter) (prefix-in filter: web-server/dispatchers/dispatch-filter)
(prefix-in sequencer: web-server/dispatchers/dispatch-sequencer) (prefix-in sequencer: web-server/dispatchers/dispatch-sequencer)
racket/runtime-path
web-server/dispatchers/filesystem-map web-server/dispatchers/filesystem-map
web-server/http web-server/http
csv-reading) csv-reading)
@ -19,7 +20,6 @@
(define-namespace-anchor anc) (define-namespace-anchor anc)
(define ns (namespace-anchor->namespace anc)) (define ns (namespace-anchor->namespace anc))
(define (html-response content) (define (html-response content)
(response/full (response/full
200 200
@ -42,7 +42,6 @@
(build-path "source" type "index") (build-path "source" type "index")
(build-path "source" "index" )) (build-path "source" "index" ))
#".txt")]) #".txt")])
(displayln res-path)
(if (file-exists? res-path) (if (file-exists? res-path)
(html-response (resource-processor res-path)) (html-response (resource-processor res-path))
(html-response (resource-processor "source/not-found.txt"))))] (html-response (resource-processor "source/not-found.txt"))))]
@ -74,14 +73,11 @@
(xexpr->string (read (open-input-file file))))) (xexpr->string (read (open-input-file file)))))
(define (build-index res) (define (build-index res)
;; get all the entries in res table
;; build index
(let* ([table (csv->list (open-input-file (let* ([table (csv->list (open-input-file
(path-add-extension (path-add-extension
(build-path "data" res) (build-path "data" res) #".csv")))]
#".csv")))]
[make-index [make-index
(read (open-input-file "data/make-index.txt"))] (read (open-input-file "source/make-index.txt"))]
[index ((eval make-index ns) res (rest table))]) [index ((eval make-index ns) res (rest table))])
(lambda (req) (lambda (req)
(if (equal? res "tagged") (if (equal? res "tagged")

3
source/make-index.txt
View file

@ -18,7 +18,8 @@
(p (em (~a "everything (or maybe just some things) i've ever said about \"~a\"" tag)))))] (p (em (~a "everything (or maybe just some things) i've ever said about \"~a\"" tag)))))]
[else [else
'(hgroup (h1 "i'm lost") '(hgroup (h1 "i'm lost")
(p (em "you weren't meant to be here")))]))]) (p (em "you weren't meant to be here")))])
(h3 "the thoughts"))])
(define (settled-post post) (define (settled-post post)
`((div ((class "post-preview")) `((div ((class "post-preview"))
(h4 ,(second post)) (h4 ,(second post))

2
static/styles.css
View file

@ -66,7 +66,7 @@ body {
max-width: 600; max-width: 600;
margin: auto; margin: auto;
font-size: medium; font-size: medium;
font-family: Verdana, ui-sans-serif; font-family: sans-serif;
} }
header{ header{