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

   x))

(cl-defun mesh:substitute-if-v (new f x)
  (seq-into (seq-map
             (lambda (e)
               (if (funcall f e)
                   new
                 e))
             x)
            'vector))

(cl-defun mesh:last (seq)
  (seq-elt seq (1- (seq-length seq))))

;;              (_ '(0)))))))

(cl-defun mesh:find-last (lst)
  (cl-letf* ((indices (colle:map (lambda (thing) (glof:get thing :index)) lst))
             (max-index (seq-max indices)))
    max-index))

