The Lambda Lab
/
projects
/
scratchy.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8cd0d61
)
How script results are served depends entirely on script.
author
Tim Vaughan
<tgvaughan@gmail.com>
Fri, 31 May 2019 20:05:03 +0000
(22:05 +0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Fri, 31 May 2019 20:05:03 +0000
(22:05 +0200)
burrower.scm
patch
|
blob
|
history
diff --git
a/burrower.scm
b/burrower.scm
index
feb26cc
..
ed5e98f
100644
(file)
--- a/
burrower.scm
+++ b/
burrower.scm
@@
-103,8
+103,7
@@
(let ((l (string-downcase selector)))
(cond
((or (= (string-length l) 0)
(let ((l (string-downcase selector)))
(cond
((or (= (string-length l) 0)
- (string-suffix? "/" l)
- (string-contains l ":")) 1)
+ (string-suffix? "/" l)) 1)
((has-suffix? l ".txt" ".org" ".md") 0)
((has-suffix? l ".png" ".jpg" ".gif" ".bmp" ".tif" ".tga") 'I)
((has-suffix? l "?" "%3f") 7)
((has-suffix? l ".txt" ".org" ".md") 0)
((has-suffix? l ".png" ".jpg" ".gif" ".bmp" ".tif" ".tga") 'I)
((has-suffix? l "?" "%3f") 7)
@@
-118,8
+117,8
@@
(let* ((selector-list (string-split raw-selector "\t"))
(selector (car selector-list))
(arguments (cdr selector-list)))
(let* ((selector-list (string-split raw-selector "\t"))
(selector (car selector-list))
(arguments (cdr selector-list)))
- (if (string-contains selector "
:
")
- (let ((l (string-split selector "
:
")))
+ (if (string-contains selector "
|
")
+ (let ((l (string-split selector "
|
")))
(serve-script (car l) (cdr l) config))
(case (infer-selector-type selector)
((1) (serve-directory-file selector config))
(serve-script (car l) (cdr l) config))
(case (infer-selector-type selector)
((1) (serve-directory-file selector config))