From 1aa8c0968de58d4831907c30c84ae0340d4c12c1 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Fri, 31 May 2019 22:05:03 +0200 Subject: [PATCH] How script results are served depends entirely on script. --- burrower.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/burrower.scm b/burrower.scm index feb26cc..ed5e98f 100644 --- a/burrower.scm +++ b/burrower.scm @@ -103,8 +103,7 @@ (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) @@ -118,8 +117,8 @@ (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)) -- 2.20.1