From: Tim Vaughan <tgvaughan@gmail.com>
Date: Fri, 31 May 2019 20:05:03 +0000 (+0200)
Subject: How script results are served depends entirely on script.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=1aa8c0968de58d4831907c30c84ae0340d4c12c1;p=scratchy.git

How script results are served depends entirely on script.
---

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