         (if status
             (show-http-response-status status json)
             (info-message success-message))))
+
+(defun brain-switch-to-buffer (name)
+    "activate Brain-mode in all new view buffers created by Brain-mode"
+    (switch-to-buffer name)
+    (brain-mode))
 
 (defun receive-view-internal (status mode)
     (let ((json (json-read-from-string (strip-http-headers (buffer-string))))

            (decode-coding-string (substring entity (+ i 2)) 'utf-8)))

(defun base-url ()
    (concat smsn-rexster-url "/graphs/" smsn-rexster-graph "/smsn/"))

(defun receive-view (mode)
    (lexical-let ((m mode))

        nil))

(defun handle-changewindow (address)
    (let ((c (car (coerce address 'list))))
      (if (string-match "[uiop]" (string c))
         (let ((n (string-to-number (string (gethash c line-addr-keymap)))))
           (other-window n)
           (coerce (cdr (coerce address 'list)) 'string))
         address)))

(defun visit-target-value (value-selector value-to-url)
    (lexical-let ((vs value-selector) (vu value-to-url))
