 (cl-defun mesh:conj (a b)
   (pcase (list (type-of a) (type-of b))
     (`(cons vector)
-      (seq-concatenate 'vector
-                       (vector a) b))
+     (seq-concatenate 'vector
+                      (vector a) b))
     (`(vector vector)
-      (seq-concatenate 'vector
-                       (vector a) b))
+     (seq-concatenate 'vector
+                      (vector a) b))
     (`(,_ cons)
-      (cons a b))
+     (cons a b))
     (`(,_ nil)
-      (cons a nil))
+     (cons a nil))
     (`(,_ vector)
-      (seq-concatenate 'vector
-                       (vector a) b))))
+     (seq-concatenate 'vector
+                      (vector a) b))))
 
 (cl-defun mesh:removev (f seq)
   (seq-into (seq-remove f seq) 'vector))

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

(cl-defun mesh::update (f &rest args)
  (apply #'tupper:update! 'mesh:*state* f args))

(provide 'mesh-core)

              :sessions []
              :inside-session-p nil))

(cl-defmacro mesh:defcommand (name . body)
  (declare (debug t)
           (indent 1))
  `(cl-defun ,name ()
