     (let* ((id (zk-lift-id file))
            (title (zk-file-title file))
            (summary (or (zk-file-summary file) id))
-           (mtime (when zk-time-format
-                    (format-time-string zk-time-format (zk-file-mtime file))))
-           (mtime-width (zk-string-width mtime))
-           (line-width (- zk-window-width mtime-width))
-           (title-width (min line-width (zk-string-width title)))
+           (title-width (min zk-window-width (zk-string-width title)))
            (summary-width (min (zk-string-width summary)
-                               (- line-width
+                               (- zk-window-width
                                   title-width
-                                  (length zk-separator)))))
+                                  1))))
       (widget-create 'link
                      :button-prefix ""
                      :button-suffix ""


(defconst zk-buffer "*Zk*"
  "Zk buffer name.")

(defconst zk-separator " --- "
  "Text used to separate file titles and summaries.")

(defconst zk-empty-file-title "[Empty file]"
  "Text to use as title for empty files.")

  "Face for Zk file titles."
  :group 'zk-faces)

(defface zk-summary-face
  '((t :inherit font-lock-comment-face))
  "Face for Zk file summary strings."
