mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00
Code

HTML export: Add CSS class for TODO keyword in inline tasks

Browse Source 
Request by Karl Maihofer.
This commit is contained in:
Carsten Dominik 2010-01-01 10:58:47 +01:00
parent 68d32abb0c
commit 436e4282b1
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2010-01-01 Carsten Dominik <carsten.dominik@gmail.com> 2010-01-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-inlinetask.el (org-inlinetask-export-handler): Add CSS class
for TODO keyword in inline tasks.
* org.el (org-log-note-headings): New headings for removing * org.el (org-log-note-headings): New headings for removing
deadline or scheduling date. deadline or scheduling date.
(org-deadline, org-schedule): Arrange for logging when removing a (org-deadline, org-schedule): Arrange for logging when removing a

12
lisp/org-inlinetask.el
View File

@ -149,7 +149,17 @@ Either remove headline and meta data, or do special formatting."
(when (string-match org-complex-heading-regexp headline) (when (string-match org-complex-heading-regexp headline)
(setq headline (concat (setq headline (concat
(if (match-end 2) (if (match-end 2)
(concat (match-string 2 headline) " ") "") (concat
(org-add-props
(format
"@<span class=\"%s %s\"> %s@</span>"
(if (member (match-string 2 headline)
org-done-keywords)
"done" "todo")
(match-string 2 headline)
(match-string 2 headline))
nil 'org-protected t)
" ") "")
(match-string 4 headline))) (match-string 4 headline)))
(when content (when content
(if (not (string-match "\\S-" content)) (if (not (string-match "\\S-" content))