   (interactive)
   (if (in-view-mode)
     (let ((context (clone-context)))
-      (set-style brain-const-forward-style)
+      (set-style brain-const-forward-style context)
       (fetch-view context))))
 
 (defun brain-update-view ()

  (cons 'view-properties NIL)
  (cons 'view-style brain-const-color-by-sharability)))

(defun brain-define-buffer-local-variables ()
  (defvar brain-bufferlocal-context (default-context)))



  (interactive)
  (if (in-view-mode)
    (let ((context (clone-context)))
      (set-style brain-const-backward-style context)
      (fetch-view context))))

(defun brain-update-to-forward-view ()
