 
 (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.")

    (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)))
           (summary-width (min (zk-string-width summary)
                               (- line-width
                                  title-width
                                  (length zk-separator)))))
      (widget-create 'link
                     :button-prefix ""
                     :button-suffix ""

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

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