org-toodledo-sim.el

(defvar org-toodledo-sim-id 10000)
(defvar org-toodledo-sim-lastedit-task 0)
(defvar org-toodledo-sim-lastdelete-task 0)
(defvar org-toodledo-sim-curtime 0)
(defvar org-toodledo-sim-pro "1")
(defvar org-toodledo-sim-db-tasks nil)
(defvar org-toodledo-sim-db-deleted nil)
(defvar org-toodledo-sim-invalid-key nil)

(defun org-toodledo-sim-http-post (method &optional params)
  (org-toodledo-debug "Simulated http-post for '%s' with '%S'" method params)
  (with-temp-buffer
    (org-toodledo-sim-xml-init)
    (cond 
     (org-toodledo-sim-invalid-key (org-toodledo-sim-invalid-key))
     ((string= method "account/token") (org-toodledo-sim-account-token params))
     ((string= method "account/get") (org-toodledo-sim-account-get params))
     ((string= method "tasks/get") (org-toodledo-sim-tasks-get params))
     ((string= method "tasks/add") (org-toodledo-sim-tasks-add params))
     ((string= method "tasks/edit") (org-toodledo-sim-tasks-edit params))
     ((string= method "tasks/delete") (org-toodledo-sim-tasks-delete params))
     ((string= method "tasks/deleted") (org-toodledo-sim-tasks-deleted params))
     (t (error "No sim support for method: %S" method)))
    (list (buffer-substring (point-min) (point-max))
          (format "HTTP/1.1 200 OK
Date: Sat, 10 Mar 2012 01:21:28 GMT
Server: Apache/2.2.3 (Red Hat)
Content-Length: %d
Keep-Alive: timeout=2, max=100
Connection: Keep-Alive
Content-Type: application/xml
" (point-max)) 200)))

;;
;; invalid key
;;
(defun org-toodledo-sim-invalid-key ()
  (insert-string "<error id='2'>Invalid key</error>")
  (setq org-toodledo-sim-invalid-key nil)
  )

;;
;; account/token
;;
(defun org-toodledo-sim-account-token (params)
  (insert-string (format "<token>%d</token>\n" (time-to-seconds)))
)
     
;;
;; account/get
;;
(defun org-toodledo-sim-account-get (params)
  (insert-string "<account>\n")
  (insert-string (format "  <lastedit_task>%s</lastedit_task>\n" org-toodledo-sim-lastedit-task))
  (insert-string (format "  <lastdelete_task>%s</lastdelete_task>\n" org-toodledo-sim-lastdelete-task))
  (insert-string (format "  <pro>%s</pro>\n" org-toodledo-sim-pro))
  (insert-string "</account>\n")
)
     
;;
;; tasks/get
;;
(defun org-toodledo-sim-tasks-get (params)
  (let ((modafter (string-to-int (cdr (assoc "modafter" params)))))
    (org-toodledo-sim-xml-get-tasks 
     (delq nil
           (mapcar (lambda (task)
                     (if (> (string-to-int (org-toodledo-task-modified task)) modafter) task nil))
                   (mapcar 'cdr org-toodledo-sim-db-tasks))))))

(defun org-toodledo-sim-xml-get-tasks (tasks)
  (let ((l (length tasks)))
    (insert-string (format "<tasks num='%d' total='%d'>\n" l l)))
  (mapc 'org-toodledo-sim-xml-get-task tasks)
  (insert-string "</tasks>"))

(defun org-toodledo-sim-xml-get-task (task)
  (insert-string "  <task>\n")
  (mapc (lambda (pair) 
          (let ((f (car pair))
                (v (cdr pair)))
            (insert-string (format "    <%s>%s</%s>\n" f v f))))
        task)
  (insert-string "  </task>\n")
)

;;
;; tasks/deleted
;;
(defun org-toodledo-sim-tasks-deleted (params)
  (let* 
      ((after (string-to-int (cdr (assoc "after" params))))
       (del-list 
        (delq nil
              (mapcar (lambda (elem)
                        (let ((id (car elem))
                              (deltime (cdr elem)))
                          (if (> deltime after) elem nil)))
                      org-toodledo-sim-db-deleted))))
    
    (insert-string (format "<deleted num=\"%d\">\n" (length del-list)))
    (mapc (lambda (elem)
            (insert-string (format "  <task><id>%s</id><stamp>%s</stamp></task>\n" (car elem) (cdr elem))))
          del-list)
    (insert-string "</deleted>\n")))

;;
;; tasks/add
;;
(defun org-toodledo-sim-tasks-add (params)
  (insert-string "<tasks>\n")
  (mapc
   (lambda (json-task)
     (setq task
           (mapcar (lambda (pair)
                     (cons (symbol-name (car pair)) (cdr pair))) json-task))
     (let ((ref (cdr (assoc "ref" task)))
           (id (org-toodledo-sim-db-new-task task)))
       (cond 
        ((integerp id)
         (insert-string (format "  <error id='%d'>%s</error>" id (org-toodledo-error-num-to-str (int-to-string id)))))

        (t
         (insert-string "  <task>\n")
         (insert-string (format "    <id>%s</id>\n" id))
         (insert-string (format "    <ref>%s</ref>\n" (or ref "")))
         (insert-string "  </task>\n")))))
   (json-read-from-string (cdr (assoc "tasks" params))))
  (insert-string "</tasks>\n"))

;;
;; tasks/edit
;;
(defun org-toodledo-sim-tasks-edit (params)
  (insert-string "<tasks>\n")
  (mapc
   (lambda (json-task)
     (setq task
           (mapcar (lambda (pair)
                     (cons (symbol-name (car pair)) (cdr pair))) json-task))
     (let ((id (org-toodledo-sim-db-edit-task task)))
       (cond 
        ((> id 0)
         (insert-string (format "  <error id='%d'>%s</error>" id (org-toodledo-error-num-to-str (int-to-string id)))))

        (t
         (insert-string "  <task>\n")
         (insert-string (format "    <id>%s</id>\n" (org-toodledo-task-id task)))
         (insert-string "  </task>\n")))))
   (json-read-from-string (cdr (assoc "tasks" params))))
  (insert-string "</tasks>\n"))

;;
;; tasks/delete
;; 
(defun org-toodledo-sim-tasks-delete (params)
  (insert-string "<deleted>\n")
  (mapc
   (lambda (id)
     (if (org-toodledo-sim-db-delete-task id)
         (insert-string (format "  <id>%s</id>\n" id))
       (insert-string "  <error id='7'>Invalid ID number</error>")))
   (json-read-from-string (cdr (assoc "tasks" params))))
  (insert-string "</deleted>\n"))

;;
;; Managing the simulated DB of tasks and deleted tasks
;;
(defun org-toodledo-sim-db-new-task (task)
  (org-toodledo-sim-advance-time)
  (let ((id (org-toodledo-task-id task))
        (title (org-toodledo-task-title task)))
        
    (cond
     ((string-match "simerror=\\([0-9]+\\)" title)
      (string-to-int (match-string 1 title)))
     
     (t
      (if (or (not id) (equal id "0"))
          (setq id (int-to-string (setq org-toodledo-sim-id (1+ org-toodledo-sim-id)))))
      (alist-put task "id" id)
      (alist-put task "modified" (int-to-string org-toodledo-sim-curtime))
      (setq org-toodledo-sim-lastedit-task org-toodledo-sim-curtime)
      (alist-put org-toodledo-sim-db-tasks id task)
      id))))

(defun org-toodledo-sim-db-edit-task (task)
  (org-toodledo-sim-advance-time)
  (let ((id (org-toodledo-task-id task))
        (title (org-toodledo-task-title task)))
    (cond
     ((string-match "simerror=\\([0-9]+\\)" title)
      (string-to-int (match-string 1 title)))
     
     ((null (assoc id org-toodledo-sim-db-tasks))
      ;; invalid task-id
      7)
     
     (t
      (alist-put task "modified" (int-to-string org-toodledo-sim-curtime))
      (setq org-toodledo-sim-lastedit-task org-toodledo-sim-curtime)
      (alist-put org-toodledo-sim-db-tasks id task)
      0))))

(defun org-toodledo-sim-db-delete-task (id &optional dont-save)
  (org-toodledo-sim-advance-time)
  (if (null (assoc id org-toodledo-sim-db-tasks))
      (progn 
        (org-toodledo-debug "org-toodledo-sim-db-delete-task: task not found %S" id)
        nil)
    (org-toodledo-debug "org-toodledo-sim-db-delete-task: deleting task %S" id)
    (alist-delete org-toodledo-sim-db-tasks id)
    (unless dont-save
      (alist-put org-toodledo-sim-db-deleted id org-toodledo-sim-curtime)
      (setq org-toodledo-sim-lastdelete-task org-toodledo-sim-curtime))
    t))

;;
;; Misc
;;
(defun org-toodledo-sim-advance-time ()
  (setq org-toodledo-sim-curtime (+ org-toodledo-sim-curtime 1)))

(defun org-toodledo-sim-xml-init ()
  (insert-string "<?xml version=\\\"1.0\\\" encoding=\\\"UTF-8\\\"?>\n")
  )

(defun org-toodledo-sim-make-task (&rest params)
  (let* ((task '(("id" . "0")
                 ("title" . "Task title")
                 ("modified" . "0")
                 ("completed" . "0")
                 ("folder" . "0")
                 ("context" . "0")
                 ("goal" . "0")
                 ("priority" . "0")
                 ("repeat" . "")
                 ("repeatfrom" . "0")
                 ("duedate" . "0")
                 ("startdate" . "0")
                 ("duetime" . "0")
                 ("starttime" . "0")
                 ("length" . "0")
                 ("status" . "0")
                 ("note" . "")
                 ("parent" . "0")
                 )))
    (mapcar (lambda (pair)
              (alist-put task (car pair) (cdr pair))) params)
    task))

(provide 'org-toodledo-sim)