Org-sync is a tool to synchronize online bugtrackers with org
Put the org-sync directory in your load-path and load the org-sync
backend you need. You can add this to your .emacs:
(add-to-list 'load-path "path/to/org-sync")
'("org-element" "os" "os-bb" "os-github" "os-rmine"))
Make sure you have =org-element.el= (it's part of recent org-mode). If
you don't have it you can download a recent version in the org-sync
wget -O org-element.el 'http://orgmode.org/w/?p=org-mode.git;a=blob_plain;f=lisp/org-element.el;hb=b60445cfd44bf800f0c338cbf9795ceb2767a06d'
Next, open a new org-mode buffer and run =M-x os-import=. It prompts
you for an URL. You can try my github test repo:
github.com/ostesting/test. Org-sync should import the issues from the
Now, let's try to add a new issue. First you have to set a
user/password to be able to modify the issue remotely.
Set the variable os-github-auth to like so:
=(setq os-github-auth '("ostesting" . "thisisostesting42"))=
Try to add another issue e.g. insert =** OPEN my test issue=. You can
type a description under it if you want.
The next step is simple, just run =M-x os-sync=. It synchronize all
the buglists in the document.
* How to write a new backend
Writing a new backend is easy. If something is not clear, try to read
the header in =os.el= or one of the existing backend.
;; backend symbol/name: demo
;; the symbol is used to find and call your backend functions (for now)
;; what kind of urls does you backend handle?
;; add it to os-backend-alist in os.el:
'(("github.com/\\(?:repos/\\)?[^/]+/[^/]+" . os-github-backend)
("bitbucket.org/[^/]+/[^/]+" . os-bb-backend)
("demo.com" . os-demo-backend)))
;; if you have already loaded os.el, you'll have to add it
;; manually in that case just eval this in *scratch*
(add-to-list 'os-backend-alist (cons "demo.com" 'os-demo-backend))
;; now, in its own file os-demo.el:
;; this is the variable used in os-backend-alist
'((base-url . os-demo-base-url)
(fetch-buglist . os-demo-fetch-buglist)
(send-buglist . os-demo-send-buglist))
;; this overrides os--base-url.
;; the argument is the url the user gave.
;; it must return a cannonical version of the url that will be
;; available to your backend function in the os-base-url variable.
;; In the github backend, it returns API base url
;; ie. https://api.github/reposa/<user>/<repo>
(defun os-demo-base-url (url)
"Return proper URL."
;; this overrides os--fetch-buglist
;; you can use the variable os-base-url
(defun os-demo-fetch-buglist (last-update)
"Fetch buglist from demo.com (anything that happened after LAST-UPDATE)"
;; a buglist is just a plist
`(:title "Stuff at demo.com"
;; add a :since property set to last-update if you return
;; only the bugs updated since it. omit it or set it to
;; nil if you ignore last-update and fetch all the bugs of
;; the repo.
;; bugs contains a list of bugs
;; a bug is a plist too
:bugs ((:id 1 :title "Foo" :status open :desc "bar."))))
;; this overrides os--send-buglist
(defun os-demo-send-buglist (buglist)
"Send BUGLIST to demo.com and return updated buglist"
;; here you should loop over :bugs in buglist
(dolist (b (os-get-prop :bugs buglist))
;; new bug (no id)
((null (os-get-prop :id b)
;; delete bug
((os-get-prop :delete b)
;; else, modified bug
;; return any bug that has changed (modification date, new bugs,
;; etc). they will overwrite/be added in the buglist in os.el
;; we return the same thing for the demo.
;; :bugs is the only property used from this function in os.el
`(:bugs ((:id 1 :title "Foo" :status open :desc "bar."))))
That's it. A bug has to have at least an id, title and status
properties. Other recognized but optionnal properties are
=:date-deadline=, =:date-creation=, =:date-modification=, =:desc=.
Any other properties are automatically added in the =PROPERTIES= block
of the bug via =prin1-to-string= and are =read= back by org-sync. All
the dates are regular emacs time object. For more details you can
look at the github backend in =os-github.el=.
* More information
You can find more in the =os.el= commentary headers.