 
           (destructuring-bind
               (start-line start-column end-line end-column num count)
-              (mapcar 'string-to-number rest)
+              (mapcar #'string-to-number rest)
 
             (when (and (string= (file-name-nondirectory file) file-name))
               (if (> count max-count)
                   (setq max-count count))
-              (push
-               (make-go--covered
-                :start-line start-line
-                :start-column start-column
-                :end-line end-line
-                :end-column end-column
-                :covered (/= count 0)
-                :count count)
-               ranges)))
+              (push (make-go--covered :start-line start-line
+                                      :start-column start-column
+                                      :end-line end-line
+                                      :end-column end-column
+                                      :covered (/= count 0)
+                                      :count count)
+                    ranges)))
 
           (forward-line)))
 

      go--coverage-origin-buffer
    (current-buffer)))

(defun go--coverage-make-overlay (range divisor)
  "Create a coverage overlay for a range of coverd/uncovered code."
  (let* ((count (go--covered-count range))
         (norm (cond
                ((= count 0)
                 -0.1)
                ((= divisor 0)
                 0.8)
                (t
                 (/ (log count) divisor))))
         (n (1+ (floor (* norm 9))))
         (face (concat "go-coverage-" (number-to-string n)))
         (ov (make-overlay
              (go--line-column-to-point
               (go--covered-start-line range)
               (go--covered-start-column range))
              (go--line-column-to-point
               (go--covered-end-line range)
               (go--covered-end-column range)))))

    (overlay-put ov 'face face)
    (overlay-put ov 'help-echo (format "Count: %d" count))))

  "Remove existing overlays and put a single untracked overlay
over the entire buffer."
  (remove-overlays)
  (overlay-put (make-overlay (point-min) (point-max))
               'face
               'go-coverage-untracked))

(defun go--coverage-parse-file (coverage-file file-name)
  "Parse COVERAGE-FILE and extract coverage information and
divisor for FILE-NAME."
  (let (ranges
        (max-count 0))
    (with-temp-buffer
      (insert-file-contents coverage-file)
