 
 (defun base-url ()
     (concat "http://" tinkernotes-rexster-host ":" tinkernotes-rexster-port "/" tinkernotes-rexster-graph "/tinkernotes/"))
-
-(defun receive-view-alt (status)
-    (let ((s (strip-http-headers (buffer-string))))
-        (switch-to-buffer "foo")
-	(insert (number-to-string (length s)))
-	(loop for c across s do
-	    (insert (number-to-string c))
-	    (insert " "))
-	(insert s)))
 
 (defun receive-view-debug (status)
     (message (buffer-string)))

                    (make-local-variable 'view-max-sharability)
                    (make-local-variable 'view-min-weight)
                    (make-local-variable 'view-max-weight)
                    (setq view-root root)
                    (if depth (setq view-depth (string-to-number depth)))
                    (setq view-min-sharability min-sharability)

                    (setq view-max-weight max-weight)
                    (setq view-style style)
                    (setq view-title title)
                    (setq view-atoms (make-hash-table :test 'equal))
                    ;;(tinkernotes-mode)
                    (erase-buffer)
                    (let ((view-json (json-read-from-string view)))
                        (write-view (cdr (assoc 'children view-json)) 0))
                    (beginning-of-buffer)
                    (info-message (concat "updated to view " (view-info)))))))

(setq full-colors '(
