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

16
eliss.el
View file

@ -136,6 +136,11 @@ certain other properties.
(class "span7") (class "span7")
(rows "15")) ""))))))))) (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) (defun eliss-issue-page (httpcon)
"Send an issue-detail page over HTTPCON." "Send an issue-detail page over HTTPCON."
(let* ((project (match-string 1 (elnode-http-mapping httpcon))) (let* ((project (match-string 1 (elnode-http-mapping httpcon)))
@ -163,14 +168,11 @@ certain other properties.
(dd ,(org-entry-get entry "TAGS")) (dd ,(org-entry-get entry "TAGS"))
(dt "Category:") (dt "Category:")
(dd ,(org-entry-get entry "CATEGORY"))))) (dd ,(org-entry-get entry "CATEGORY")))))
`(pre ,(buffer-substring-no-properties `(pre ,(eliss-current-entry-content))
(org-end-of-meta-data-and-drawers) `(div ,@(org-map-entries
(org-entry-end-position))) (lambda ()
`(div ,@(org-map-entries (lambda ()
`(div (h2 ,(nth 4 (org-heading-components))) `(div (h2 ,(nth 4 (org-heading-components)))
(pre ,(buffer-substring-no-properties (pre ,(eliss-current-entry-content))))
(org-end-of-meta-data-and-drawers)
(org-entry-end-position)))))
"/+COMMENT" 'tree)) "/+COMMENT" 'tree))
`(form (@ (action ,(concat "/" project "/" issue `(form (@ (action ,(concat "/" project "/" issue
"/comment/")) "/comment/"))