 
 ;; BUFFERS / VARIABLES ;;;;;;;;;;;;;;;;;
 
+(setq readonly-view-mode "readonly")
+(setq readwrite-view-mode "readwrite")
+(setq search-view-mode "search")
+
 ;; Buffer-local variables. Given them initial, global bindings so they're defined before there are actual view buffers.
 (setq view-depth 3)
 (setq view-root nil)

(defun base-url ()
    (concat "http://" tinkernotes-rexster-host ":" tinkernotes-rexster-port "/graphs/" tinkernotes-rexster-graph "/tinkernotes/"))

(defun receive-view-debug (status)
    (message (buffer-string)))

(defun receive-view (status)
    (let ((json (json-read-from-string (strip-http-headers (buffer-string)))))
        (if status
            (let ((msg (cdr (assoc 'message json)))
                (error (cdr (assoc 'error json))))

                    (make-local-variable 'view-default-weight)
                    (make-local-variable 'view-atoms)
                    (make-local-variable 'view-current-line)
                    (make-local-variable 'tn-view-mode)
                    (setq view-root root)
                    (if depth (setq view-depth (string-to-number depth)))
                    (setq view-min-sharability min-sharability)
