diff options
Diffstat (limited to 'eliss.el')
-rw-r--r-- | eliss.el | 20 |
1 files changed, 11 insertions, 9 deletions
@@ -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") |