How script results are served depends entirely on script.

[scratchy.git] / burrower.scm

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)
-          (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))