From 7e6436e2c820912dc614a34d6b99d7221ae30cb0 Mon Sep 17 00:00:00 2001 From: "Zane D. Purvis" Date: Sat, 10 Jan 2015 10:21:54 +0100 Subject: [PATCH] ox-html.el: Add exporting of priority * list/ox-html.el (org-html--priority): New function. (org-html-format-headline-default-function): Call `org-html--priority'. (org-html-style-default): Add `.priority'. HTML export previously did not support exporting of priority simply by setting `org-export-with-priority' to `t'. TINYCHANGE --- lisp/ox-html.el | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/lisp/ox-html.el b/lisp/ox-html.el index e2d1921bf..d4ccbbe30 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -276,6 +276,7 @@ for the JavaScript code in this tag. .title { text-align: center; } .todo { font-family: monospace; color: red; } .done { font-family: monospace; color: green; } + .priority { font-family: monospace; color: orange; } .tag { background-color: #eee; font-family: monospace; padding: 2px; font-size: 80%; font-weight: normal; } .timestamp { color: #bebebe; } @@ -1885,6 +1886,14 @@ INFO is a plist used as a communication channel." (org-html-fix-class-name todo) todo))) +;;;; Priority + +(defun org-html--priority (priority info) + "Format a priority into HTML. +PRIORITY is the character code of the priority or nil. INFO is +a plist containing export options." + (and priority (format "[%c]" priority))) + ;;;; Tags (defun org-html--tags (tags info) @@ -2396,8 +2405,12 @@ holding contextual information." "Default format function for a headline. See `org-html-format-headline-function' for details." (let ((todo (org-html--todo todo info)) + (priority (org-html--priority priority info)) (tags (org-html--tags tags info))) - (concat todo (and todo " ") text (and tags "   ") tags))) + (concat todo (and todo " ") + priority (and priority " ") + text + (and tags "   ") tags))) (defun org-html--container (headline info) (or (org-element-property :HTML_CONTAINER headline) -- 2.11.4.GIT