 (require 'seq)
 (require 'glof)
 (require 'tupper)
+(require 'colle)
 (require 'mesh-class "lib/mesh-class")
 
 (defcustom mesh:default-tab-name "eshell"



(cl-defun mesh:find-missing-index (fn lst)
  (cl-letf ((indices (seq-sort #'< (seq-map fn lst))))
    (seq-difference (number-sequence 0 (seq-max indices))
                    indices)))




(cl-defun mesh:find-prev-tab (current-tab tabs)
  (cl-letf* ((indices (seq-sort #'< (colle:map (lambda (p) (glof:get p :index)) tabs)))
             (min-index (seq-min indices))
             (max-index (seq-max indices))
             (current-index (glof:get current-tab :index))
