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.
|
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.
|
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)
|
(define (directory? file-name)
|
||||||
(eq? (stat:type (stat file-name)) 'directory))
|
(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 (serve-file path)
|
||||||
(define %prefix `(,(getcwd) "public"))
|
(define %prefix `(,(getcwd) "public"))
|
||||||
(define (prepend-prefix path) (string-join (append %prefix `(,path)) file-name-separator-string))
|
(define (prepend-prefix path) (string-join (append %prefix `(,path)) file-name-separator-string))
|
||||||
|
|
|
@ -5,5 +5,4 @@
|
||||||
(specifications->manifest (list "guile-colorized"
|
(specifications->manifest (list "guile-colorized"
|
||||||
"guile-hall"
|
"guile-hall"
|
||||||
"guile-readline"
|
"guile-readline"
|
||||||
"guix"
|
|
||||||
"git"))
|
"git"))
|
||||||
|
|
Loading…
Reference in New Issue