                         (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 "http://localhost:8182/tinkernotes/myotherbrain/view-notes?root=" atom-id) 'receive-view))))
+                (concat (base-url) "view-notes?root=" atom-id) 'receive-view))))
 
 
 (defun visit-meta ()

    (let ((assoc-id (car (find-id))))
        (if assoc-id
            (url-retrieve
                (concat "http://localhost:8182/tinkernotes/myotherbrain/view-notes?root=" assoc-id) 'receive-view))))

(defun http-post (url args callback)
  "Send ARGS to URL as a POST request."

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

;; Required global variables: tinkernotes-rexster-host, tinkernotes-rexster-port, tinkernotes-rexster-graph
;;
;; For example:
;;
;;     (defun tinkernotes ()
;;         (defvar tinkernotes-rexster-host "localhost")
;;         (defvar tinkernotes-rexster-port "8182")
;;         (defvar tinkernotes-rexster-graph "tinkernotes"))

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