diff options
Diffstat (limited to 'coorgi-client.org')
| -rw-r--r-- | coorgi-client.org | 51 |
1 files changed, 39 insertions, 12 deletions
diff --git a/coorgi-client.org b/coorgi-client.org index 80d7429..6860ca0 100644 --- a/coorgi-client.org +++ b/coorgi-client.org @@ -1,9 +1,16 @@ #+PROPERTY: header-args:emacs-lisp :lexical t +#+name: test-trivial-example-cursor-in-body +#+begin_src emacs-lisp :var org-doc=trivial-example() + (let ((subject (with-temp-buffer (insert org-doc) (org-element-parse-buffer)))) + (print subject) + (print (org-element-interpret-data subject))) +#+end_src + + * Coorgi Client - A collaborative org document sync client. ** Overview - If you evaluate the following block, it will effecively "eval-buffer" on the whole shebang. @@ -27,6 +34,25 @@ on the whole shebang. ;;; coorgi-client.el ends here #+end_src +** Parsing, modifying, and re-inserting org data + +~org-element-parse-buffer~ will turn any org document into a parsed +data tree. ~org-element-interpret-data~ will turn any (valid) parsed +org-data structure back into a string. + +therefore, we /should/ be able to act upon the parsed data with Coorgi +functions to update the document, rather than mucking with live buffer +edits and updates. + +*** TODO example proof of concept + +For example: + +#+begin_src emacs-lisp :var org-doc=trivial-example() :results verbatim + (let ((subject (with-temp-buffer (insert org-doc) (org-element-parse-buffer)))) + (org-element-interpret-data subject)) +#+end_src + ** Syncing Coorgi documents with collaborators *** TODO ~coorgi-initialize~ creates the document on the server *** TODO Coorgi syncs on the ~after-save-hook~ @@ -88,7 +114,6 @@ Converts the current org outline section into a coorgi-node data structure. #+end_src *** Testing - **** Trivial Org Example Given this org document: @@ -139,16 +164,18 @@ No matter where the cursor is in the buffer (there's only one coorgi node) #+end_src #+RESULTS: test-trivial-example-cursor-in-body -#+begin_src emacs-lisp -((actual - (type entry headline "MOO" version 1 last-modified-by "colin/123" last-modified "123" key "101" properties - (:FOO "bar") - contents "hello\n")) - (expected - (type entry headline "MOO" version 1 last-modified-by "colin/123" last-modified "123" key "101" properties - (:FOO "bar") - content "\nhello\n\n" children nil))) -#+end_src +#+begin_example +,* MOO +:PROPERTIES: +:coorgi-version: 1 +:coorgi-last-modified-by: colin/123 +:coorgi-last-modified: 123 +:coorgi-key: 101 +:foo: bar +:END: + +hello +#+end_example ***** TODO When the cursor at the top of the document |