From 113b8f307636163efca669743463c3910260a863 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sun, 19 May 2013 03:05:44 +0200 Subject: Extract eliss-current-entry-content --- eliss.el | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/eliss.el b/eliss.el index f326d93..56fea4c 100644 --- a/eliss.el +++ b/eliss.el @@ -136,6 +136,11 @@ certain other properties. (class "span7") (rows "15")) ""))))))))) +(defun eliss-current-entry-content () + "Get the content of the org entry currently at point." + (buffer-substring-no-properties (org-end-of-meta-data-and-drawers) + (org-entry-end-position))) + (defun eliss-issue-page (httpcon) "Send an issue-detail page over HTTPCON." (let* ((project (match-string 1 (elnode-http-mapping httpcon))) @@ -163,15 +168,12 @@ certain other properties. (dd ,(org-entry-get entry "TAGS")) (dt "Category:") (dd ,(org-entry-get entry "CATEGORY"))))) - `(pre ,(buffer-substring-no-properties - (org-end-of-meta-data-and-drawers) - (org-entry-end-position))) - `(div ,@(org-map-entries (lambda () - `(div (h2 ,(nth 4 (org-heading-components))) - (pre ,(buffer-substring-no-properties - (org-end-of-meta-data-and-drawers) - (org-entry-end-position))))) - "/+COMMENT" 'tree)) + `(pre ,(eliss-current-entry-content)) + `(div ,@(org-map-entries + (lambda () + `(div (h2 ,(nth 4 (org-heading-components))) + (pre ,(eliss-current-entry-content)))) + "/+COMMENT" 'tree)) `(form (@ (action ,(concat "/" project "/" issue "/comment/")) (method "POST") -- cgit v1.2.3-54-g00ecf