 (defun set-property (id name value)
   (if (in-setproperties-mode)
     (let ((params (list :id id :name name :value value)))
-       (fetch-path "set?request=" nil params)))
-  (fetch-view))
+       (fetch-path "set?request=" nil params 'receive-set-properties-response))))
 
 (defun push-view ()
   (let ((context (clone-context)) (entity (buffer-string)))

        (show-http-response-status status json)
      (info-message success-message))))

(defun switch-to-buffer (name context)
  "activate Brain-mode in all new view buffers created by Brain-mode"
  (switch-to-buffer name)
  (setq buffer-read-only nil)

    (to-query-list (if context context (get-context)))))
    
(defun fetch-path (path context params &optional handler)
  (http-get-and-receive (url-for-request path (to-params context params)) context handler))

(defun fetch-path-post (path context params &optional handler)
  (http-post-and-receive (url-for-request path)
    (to-params context params) handler context))

(defun fetch-view (&optional context handler)
  (http-get-and-receive (url-for-view-request context) context handler))

(defun fetch-history ()
  (let ((context (create-search-context)))
