 (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)

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

(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))))


(defun visit-meta ()

    (let ((assoc-id (car (find-id))))
        (if assoc-id
            (url-retrieve
                (concat (base-url) "view-notes?root=" assoc-id) 'receive-view))))

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