     (let (
         (root-id (find-root-id (buffer-name)))
         (entity (buffer-string)))
-;;        (message (concat "http://localhost:8182/tinkernotes/myotherbrain/update-notes?root=" root-id))))
         (http-post
-            "http://localhost:8182/tinkernotes/myotherbrain/update-notes"
+            (concat (base-url) "update-notes")
             (list (list "root" root-id) (list "view" entity))
             'receive-view)))
-
-;;(defun handle-post-response (status)
-;;    (interactive)
-;;    (message status))
 
 (defun my-debug ()
     (interactive)

(eval-when-compile (require 'cl))
(require 'json)


;; from Emacs-w3m
(defun w3m-url-encode-string (str &optional coding)

                        (list assoc-id atom-id))))
            (list nil nil))))

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

(defun visit-item ()
    (interactive)
    (let ((atom-id (car (last (find-id)))))
        (if atom-id
            (url-retrieve
                (concat (base-url) "view-notes?root=" atom-id) 'receive-view))))


(defun visit-meta ()
