 
 ;;; Code:
 
+(require 'seq)
 (require 'mesh-class "lib/mesh-class")
 
 (defcustom mesh:default-tab-name "eshell"

          ((eq 0 current-session-pos)
           (car (last sessions)))
          (t
           (cl-nth-value (- current-session-pos 1) sessions)))))

(cl-defun mesh:find-missing-index (fn lst)
  (cl-letf ((indices (seq-map fn lst)))

          ((eq 0 current-tab-pos)
           (car (last tabs)))
          (t
           (seq-elt tabs (- current-tab-pos 1))))))


(defmethod mesh:find-next ((current-session mesh:session) sessions)
