diff options
author | shoshin <shoshin@cicadas.surf> | 2022-12-20 14:27:56 -0600 |
---|---|---|
committer | shoshin <shoshin@cicadas.surf> | 2022-12-20 14:27:56 -0600 |
commit | 83ea79847c3707c48fcc0a7e818019120a56b8f8 (patch) | |
tree | 86aba11d8328d03f9216f6b34ee1ab66dcafdee5 | |
parent | f3482413ff55b10fdb3eba4b6d9862b7a215ea4f (diff) |
-rw-r--r-- | annotations | 2 | ||||
-rw-r--r-- | coorgi-client.org | 15 |
2 files changed, 14 insertions, 3 deletions
diff --git a/annotations b/annotations index 9f8511f..9110719 100644 --- a/annotations +++ b/annotations @@ -1,3 +1,3 @@ (("~/projects/coorgi-client/coorgi-client.org" ((109 325 "please refine this block, i know you've got some good language for it out there -g" "Coorgi stands for \"cooperative org interchange\", and intends to enable multiple users to sync org documents between one another. Possible uses -include issue trackers, shared agendas, and near real-time collaboration.")) "fd9653579213d5ac89bc604c229ee18c"))
\ No newline at end of file +include issue trackers, shared agendas, and near real-time collaboration.")) "d2862b139a6d48a12c938eba3c2c4630"))
\ No newline at end of file diff --git a/coorgi-client.org b/coorgi-client.org index 1ac82f5..3ae57b9 100644 --- a/coorgi-client.org +++ b/coorgi-client.org @@ -180,11 +180,22 @@ value of the org-tags-column variable. (tags (plist-get props :tags)) (tags-count (length tags)) (tags-length (+ 2 (cl-reduce #'+ (mapcar (lambda (t) (length t)) tags))))) - (+ 2 h-length h-begin h-level tags-length)) + (+ 2 h-length h-begin h-level tags-length tags-count)) #+end_src #+RESULTS: property-drawer-should-begin -: 18 +: 19 + +#+begin_src emacs-lisp :var org-doc=uncoorgified-example-1() + (let ((org-data (with-temp-buffer (insert org-doc) (org-element-parse-buffer)))) + (pcase-let ((`(org-data nil (headline ,props)) org-data)) + (with-plist ((raw :raw-value) (b :begin) (l :level) (tags :tags)) props + (+ 2 b l (length raw) (length tags) + (+ 2 (cl-reduce #'+ (mapcar (lambda (t) (length t)) tags))))))) +#+end_src + +#+RESULTS: +: 19 **** TODO Recalculate existing element positions |