 (setq floobits-agent-buffer "")
 (setq floobits-conn nil)
 (setq max-specpdl-size 1500)
+(setq floobits-current-position '((mark . 1) (point . 1) (name . "")))
 ; To set this: M-x customize-variable RET floobits-username
 (defcustom floobits-username ""
   "Username for floobits"

(defmacro floo-get-item (alist key)
  "just grab an element from an alist"
  (list 'cdr (list 'assoc key alist)))

(defun floobits-filter-func (condp lst)
  (delq nil

(defun floobits-send-to-agent (req event)
  (add-to-list 'req (cons 'version floobits-agent-version))
  (add-to-list 'req (cons 'name event))
  (when (boundp floobits-conn)
    (process-send-string floobits-conn (concat (json-encode req) "\n"))))

(defun floobits-get-text (begin end)
  (buffer-substring-no-properties begin end))
