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