     (erase-buffer)
     (grep-mode)))
 
+(defun eww-other-window (url)
+  (save-excursion
+    (split-window-vertically)
+    (other-window 1)
+    (eww url)
+    (other-window 1)))
+
 (defun to-file-url (path)
  (format "file://%s" path))
 

(defun erl-open-ct-suite-log ()
  (interactive)
  (let ((url (format "%s/%s" (test-logs-dir) "suite.log.latest.html")))
    (eww (to-file-url url))))

(defun erl-open-ct-test-log ()
  (interactive)

         (test-pattern (format "%s.%s" suite-name test-name))
         (test-files (sort (directory-files-recursively (test-logs-dir) test-pattern) 'string>))
         (latest-test-file (car test-files)))
    (eww-other-window (to-file-url latest-test-afile))))
