     (define-key brain-mode-map (kbd "C-c C-v t")       'brain-set-value-truncation-length-prompt)
     (define-key brain-mode-map (kbd "C-c C-v v")       'brain-toggle-minimize-verbatim-blocks)
     (define-key brain-mode-map (kbd "C-c C-w C-m")     'brain-set-min-weight-prompt)
+     ;; likely not the greatest shortcut -- w just stands for weird
     (define-key brain-mode-map (kbd "C-c C-w r")       'brain-ripple-query-prompt)
-      ;; likely not the greatest shortcut -- w just stands for weird
-
     (define-key brain-mode-map (kbd "C-c C-w e")       'brain-export-edges-prompt)
     (define-key brain-mode-map (kbd "C-c C-w g")       'brain-export-graphml-prompt)
     (define-key brain-mode-map (kbd "C-c C-w l")       'brain-export-latex-prompt)


(defun receive-remove-isolated-atoms-response (status)
  (acknowledge-http-response status "removed isolated atoms"))

(defun to-query-list (&optional context)
  (list

(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 'receive-set-properties-response))))

(defun push-view ()
  (let ((context (clone-context)) (entity (buffer-string)))
