Compare commits
3 Commits
6217b13504
...
95c2843175
Author | SHA1 | Date |
---|---|---|
TakeV | 95c2843175 | |
TakeV | 77fc9f6c99 | |
TakeV | bde327be02 |
|
@ -9,3 +9,6 @@ Like janetdocs or clojuredocs, but for guile!
|
|||
Either run src_bash{scripts/launch-dev-shell} or run src_bash{guix shell -Df guix.scm -m manifest.scm} to get a developer environment.
|
||||
|
||||
manifest.scm is intended for dev tools related programs.
|
||||
* Resources
|
||||
** Useful Links
|
||||
- https://systemreboot.net/post/live-hacking-a-guile-web-server
|
||||
|
|
|
@ -37,6 +37,14 @@
|
|||
(define (directory? file-name)
|
||||
(eq? (stat:type (stat file-name)) 'directory))
|
||||
|
||||
(define (get-payload-for-path path routing-table)
|
||||
"Returns the first payload that matches the routing-table path"
|
||||
(let ((filtered-table
|
||||
(filter (lambda (routing-entry)
|
||||
(not (equal? path (uri-path (car routing-entry)))))
|
||||
routing-table)))
|
||||
(cdr (car filtered-table))))
|
||||
|
||||
(define (serve-file path)
|
||||
(define %prefix `(,(getcwd) "public"))
|
||||
(define (prepend-prefix path) (string-join (append %prefix `(,path)) file-name-separator-string))
|
||||
|
|
|
@ -5,5 +5,4 @@
|
|||
(specifications->manifest (list "guile-colorized"
|
||||
"guile-hall"
|
||||
"guile-readline"
|
||||
"guix"
|
||||
"git"))
|
||||
|
|
Loading…
Reference in New Issue