   (hl-line-mode 1)
   (toggle-truncate-lines 1)
   (setq font-lock-defaults ovirt-log-analyzer-font-lock-keywords)
+  (setq buffer-invisibility-spec '(yes))
   (ovirt-log-analyzer-process))
 
 (provide 'ovirt-log-analyzer)

                ;; generic tag without special handling
                )
               (t
                (add-to-list 'unknown-tags tag))))))
        (forward-line))
      (when (> max-file-field-length 0)
        (goto-char (point-min))

                 (end (match-end 0))
                 (line-overlay (make-overlay beg end))
                 (file-point (match-beginning 1))
                 (tag-beg (match-beginning 2))
                 (tag-end (match-end 2))
                 (tag-overlay (make-overlay (match-beginning 2) (match-end 2)))
                 (file-field (match-string 1))
                 (tag-field (match-string 3))
                 (tag-list (split-string (match-string 3) ";"))
                 (visible-tags nil))
            (overlay-put line-overlay 'help-echo (mapconcat #'identity tag-list "; "))
            (overlay-put line-overlay 'ovirt-log-analyzer-file-reference file-field)
            (overlay-put line-overlay 'ovirt-log-analyzer-file (car (split-string file-field ":")))
            (when (string-match "^\\(.*/\\)\\([^/]+\\)$" file-field)
              (let ((file-overlay (make-overlay file-point (+ file-point (match-end 1))))
                    (length (- (match-end 2) (match-beginning 2))))
                (overlay-put file-overlay 'invisible 'yes)
                (overlay-put file-overlay 'ovirt-log-analyzer-file-field-length length)
                (setq max-file-field-length (max max-file-field-length length))))
            (dolist (tag tag-list)
              (cond
               ((string-match "^Task/\\([1-9]\\)$" tag)
                (overlay-put tag-overlay 'after-string (make-string (string-to-number (match-string 1 tag))  ? )))
               ((string-match "^Task(duration=\\([0-9.]+\\))$" tag)
                (ovirt-log-analyzer-add-after tag-overlay (concat " " (match-string 1 tag) "s" ) 'font-lock-constant-face))
               ((string-match "^Host=\\(.*\\)$" tag)
                (let ((host (match-string 1 tag)))
                  (add-to-list 'ovirt-log-analyzer-hosts host)
                  (setq visible-tags t)))
               ((string-match "^VM=\\(.*\\)$" tag)
                (let ((vm (match-string 1 tag)))
                  (add-to-list 'ovirt-log-analyzer-vms vm)
                  (setq visible-tags t)))
               ((member tag '("Error or warning" "Long operation" "Task" "Unique"))
                ;; handled by font lock
                )
