emacs: make trybot parser work on offical windows build output

tools/emacs/trybot.el

 ; To use this,
 ; 1) Add to init.el:
 ;    (setq-default chrome-root "/path/to/chrome/src/")
 ;    (add-to-list 'load-path (concat chrome-root "tools/emacs"))
 ;    (require 'trybot)
 ; 2) Run on trybot output:
 ;    M-x trybot
 ;
 ; To hack on this,
 ; M-x eval-buffer
@@ skipping 85 matching lines @@
     (get-buffer-create buffer-name)))
 
 (defun trybot-fetch (type-hint url)
   "Fetch a URL and postprocess it as trybot output."
 
   (let ((on-fetch-completion
          (lambda (process state)
            (switch-to-buffer (process-buffer process))
            (when (equal state "finished\n")
              (trybot-fixup (process-get process 'type-hint)))))
-        (command (concat "curl -s " url
-                         (when (eq type-hint 'mac)
-                           ; Pipe it through the output shortener.
+        (command (concat "curl -s " (shell-quote-argument url)
+                         ; Pipe it through the output shortener.
+                         (cond
+                          ((eq type-hint 'win)
                            (concat " | " (get-chrome-root)
-                                   "build/sanitize-mac-build-log.sh")))))
+                                   "build/sanitize-win-build-log.sh"))
+                          ((eq type-hint 'mac)
+                           (concat " | " (get-chrome-root)
+                                   "build/sanitize-mac-build-log.sh"))))))
 
     ; Start up the subprocess.
     (let* ((coding-system-for-read 'utf-8-dos)
            (buffer (trybot-get-new-buffer))
            (process (start-process-shell-command "curl" buffer command)))
       ; Attach the type hint to the process so we can get it back when
       ; the process completes.
       (process-put process 'type-hint type-hint)
       (set-process-query-on-exit-flag process nil)
       (set-process-sentinel process on-fetch-completion))))
@@ skipping 26 matching lines @@
   (when (= (length url) 0)
     (with-temp-buffer
       (clipboard-yank)
       (setq url (buffer-string))))
 
   ;; Append /text to the URL to get plain text output in the common
   ;; case of getting a URL to the HTML build log.
   (when (equal "stdio" (car (last (split-string url "/"))))
     (setq url (concat url "/text")))
 
-  (let ((type-hint (cond ((string-match "/win/" url) 'win)
+  (let ((type-hint (cond ((string-match "/[Ww]in" url) 'win)
                          ((string-match "/mac/" url) 'mac)
                          ; Match /linux, /linux_view, etc.
                          ((string-match "/linux" url) 'linux)
                          (t 'unknown))))
     (trybot-fetch type-hint url)))
 
 (provide 'trybot)