           mesh:mode-line-format)
     (force-mode-line-update)))
 
+(cl-defun mesh:pane--set-header-line (buffer)
+  (with-current-buffer buffer
+    (setq header-line-format
+          mesh:header-line-format)))
+
 (cl-defun mesh:pane--get-buffer-create
     (session-name tab-name tab-index pane-index)
   (get-buffer-create

(require 'eieio)
(require 'mesh-class "lib/mesh-class")
(require 'mesh-mode-line "lib/mesh-mode-line")

(defmethod mesh:pane--new (session-name tab-name tab-index)
  (cl-letf* ((buffer (mesh:pane--get-buffer-create
                      session-name tab-name tab-index 0)))
    (mesh:pane--make-buffer-eshell-mode buffer)
    (mesh:pane--set-mode-line buffer)
    (mesh:pane--make-pane
     session-name tab-name 0 buffer)))


                      session-name tab-name tab-index pane-index)))
    (mesh:pane--make-buffer-eshell-mode buffer)
    (mesh:pane--set-mode-line buffer)
    (mesh:pane--set-header-line buffer)
    (mesh:pane--make-pane
     session-name tab-name pane-index buffer)))

