ryuslash/eliss
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Extract eliss-current-entry-content

Browse source
This commit is contained in:
Tom Willemse 2013-05-19 03:05:44 +02:00
parent 35930b5734
commit 113b8f3076
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
eliss.el
View file

@ -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")