 
 (defun eww-other-window (url)
   (save-excursion
-    (split-window-vertically)
-    (other-window 1)
-    (eww url)
-    (other-window 1)))
+    (progn (eww url)
+           (quit-window))))
 
 (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-other-window (to-file-url url))))

(defun erl-open-ct-test-log ()
  (interactive)
  (let* ((test-name (downcase (erlang-function-name)))
         (suite-name (downcase (file-name-sans-extension (buffer-name))))
         (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))))

(setq erlang-electric-commands nil)

;; EQC Emacs Mode -- Configuration Start
(setq eqc-installed nil)
(when eqc-installed
  (add-to-list 'load-path (erlang-get-current-version erlang-home "eqc-*/emacs"))
  (autoload 'eqc-erlang-mode-hook "eqc-ext" "EQC Mode" t)
  (add-hook 'erlang-mode-hook 'eqc-erlang-mode-hook)
  (setq eqc-max-menu-length 30)
  (setq eqc-root-dir (erlang-get-current-version erlang-home "eqc-*")))

;; Erlang hooks
(add-hook 'erlang-mode-hook 'erlang-key-bindings)
