Implement org-info.js support. And bug fixes.
Now you can set this stuff directly from the org-mode file. Documentation is still missing, this is a work-in-progress commit and still needs check with Sebastian's script. Bug fix with note taking when auto-repeating a task: There was a problem if the state change already triggered the recording of a time, then the request for a *note* in `org-log-repeat' was ignored. Reported by Bernt Hansen.
This commit is contained in:
Carsten Dominik
parent
10d856c97f
commit
2d899ae97f
|
|
@ -1,3 +1,11 @@
|
|||
2008-04-03 Carsten Dominik <dominik@science.uva.nl>
|
||||
|
||||
* lisp/org-exp.el (org-export-html-handle-js-options): New function.
|
||||
(org-export-html-infojs-setup): New option.
|
||||
(org-export-as-html): Call `org-export-html-handle-js-options'.
|
||||
|
||||
* lisp/org.el (org-auto-repeat-maybe): Make sure that a note can
|
||||
be enforces if `org-log-repeat' is `note'.
|
||||
|
||||
2008-04-01 Carsten Dominik <dominik@science.uva.nl>
|
||||
|
||||
|
|
|
|||
|
|
@ -405,7 +405,7 @@ Org-mode file."
|
|||
:group 'org-export)
|
||||
|
||||
(defcustom org-export-html-coding-system nil
|
||||
""
|
||||
"FIXME"
|
||||
:group 'org-export-html
|
||||
:type 'coding-system)
|
||||
|
||||
|
|
@ -463,6 +463,17 @@ you can \"misuse\" it to add arbitrary text to the header."
|
|||
:group 'org-export-html
|
||||
:type 'string)
|
||||
|
||||
(defcustom org-export-html-infojs-setup
|
||||
"<script =\"text/javascript\" language=\"JavaScript\" src=\"org-info.js\"></script>
|
||||
<script type=\"text/javascript\" language=\"JavaScript\">
|
||||
/* <![CDATA[ */
|
||||
%MANAGER-OPTIONS
|
||||
/* ]]> */
|
||||
</script>"
|
||||
"The template for the export style additions when org-info.js is used.
|
||||
Option settings will replace the %MANAGER-OPTIONS cookie."
|
||||
:group 'org-export-html
|
||||
:type 'string)
|
||||
|
||||
(defcustom org-export-html-title-format "<h1 class=\"title\">%s</h1>\n"
|
||||
"Format for typesetting the document title in HTML export."
|
||||
|
|
@ -652,8 +663,9 @@ The text will be inserted into the DESCRIPTION field."
|
|||
(widen)
|
||||
(goto-char 0)
|
||||
(let ((re (org-make-options-regexp
|
||||
'("TITLE" "AUTHOR" "DATE" "EMAIL" "TEXT" "OPTIONS" "LANGUAGE")))
|
||||
p key val text options)
|
||||
'("TITLE" "AUTHOR" "DATE" "EMAIL" "TEXT" "OPTIONS" "LANGUAGE"
|
||||
"INFOJS_UP" "INFOJS_HOME" "INFOJS_OPT")))
|
||||
p key val text options js-up js-main js-css js-opt)
|
||||
(while (re-search-forward re nil t)
|
||||
(setq key (org-match-string-no-properties 1)
|
||||
val (org-match-string-no-properties 2))
|
||||
|
|
@ -665,7 +677,13 @@ The text will be inserted into the DESCRIPTION field."
|
|||
((string-equal key "LANGUAGE") (setq p (plist-put p :language val)))
|
||||
((string-equal key "TEXT")
|
||||
(setq text (if text (concat text "\n" val) val)))
|
||||
((string-equal key "OPTIONS") (setq options val))))
|
||||
((string-equal key "OPTIONS") (setq options val))
|
||||
((string-equal key "INFOJS_UP")
|
||||
(setq p (plist-put p :infojs-up val)))
|
||||
((string-equal key "INFOJS_HOME")
|
||||
(setq p (plist-put p :infojs-home val)))
|
||||
((string-equal key "INFOJS_OPT")
|
||||
(setq p (plist-put p :infojs-opt val)))))
|
||||
(setq p (plist-put p :text text))
|
||||
(when options
|
||||
(let ((op '(("H" . :headline-levels)
|
||||
|
|
@ -703,6 +721,52 @@ The text will be inserted into the DESCRIPTION field."
|
|||
val)))
|
||||
dir))
|
||||
|
||||
(defun org-export-html-handle-js-options (exp-plist)
|
||||
"Analyze JavaScript options in INFO-PLIST and modify EXP-PLIST accordingly.
|
||||
Both P and PJ are property lists."
|
||||
(let (p1 (s "") p v a1 tmp)
|
||||
(setq p1 (plist-put p1 'TOC (if (not (plist-get exp-plist
|
||||
:table-of-contents))
|
||||
"0" "1")))
|
||||
(when (setq v (plist-get exp-plist :infojs-opt))
|
||||
(when (string-match "\\<view:\\(\\S-+\\)" v)
|
||||
(setq tmp (match-string 1 v))
|
||||
(unless (member tmp '("info" "overview" "content" "showall"))
|
||||
(error "Invalid value \"%s\" for `view' in #+INFOJS_OPT" tmp))
|
||||
(setq p1 (plist-put p1 'VIEW tmp)))
|
||||
(when (string-match "\\<mouse:\\(\\S-+\\)" v)
|
||||
(setq tmp (match-string 1 v))
|
||||
(unless (string-match "^underline$\\|^#[0-9a-fA-F]\\{6\\}" tmp)
|
||||
(error "Invalid value \"%s\" for `mouse' in #+INFOJS_OPT" tmp))
|
||||
(setq p1 (plist-put p1 'MOUSE_HINT tmp)))
|
||||
(when (string-match "\\<toc:\\(\\S-+\\)" v)
|
||||
(setq p1 (plist-put p1 'TOC
|
||||
(if (equal (match-string 1 v) "nil") "0" "1"))))
|
||||
(when (string-match "\\<runs:\\([0-9]+\\)" v)
|
||||
(setq p1 (plist-put p1 'MAX_RUNS (match-string 1 v))))
|
||||
(when (string-match "\\<buttons:\\(\\S-+\\)" v)
|
||||
(setq p1 (plist-put p1 'VIEW_BUTTONS
|
||||
(if (equal (match-string 1 v) "nil") "0" "1")))))
|
||||
(when (setq v (plist-get exp-plist :infojs-up))
|
||||
(setq p1 (plist-put p1 'LINK_UP v)))
|
||||
(when (setq v (plist-get exp-plist :infojs-home))
|
||||
(setq p1 (plist-put p1 'LINK_HOME v)))
|
||||
(while p1
|
||||
(setq p (pop p1) v (pop p1))
|
||||
(push (cons p v) a1))
|
||||
(setq s (mapconcat
|
||||
(lambda (x) (format "org_html_manager.set(\"%s\", \"%s\");"
|
||||
(car x) (cdr x)))
|
||||
a1 "\n"))
|
||||
(when (> (length s) 0)
|
||||
(and (string-match "%MANAGER-OPTIONS" org-export-html-infojs-setup)
|
||||
(setq s (replace-match s t t org-export-html-infojs-setup))
|
||||
(setq exp-plist
|
||||
(plist-put
|
||||
exp-plist :style
|
||||
(concat (or (plist-get exp-plist :style) "") "\n" s)))))
|
||||
exp-plist))
|
||||
|
||||
;;;###autoload
|
||||
(defun org-export (&optional arg)
|
||||
"Export dispatcher for Org-mode."
|
||||
|
|
@ -1999,9 +2063,11 @@ PUB-DIR is set, use this as the publishing directory."
|
|||
(setq-default org-deadline-line-regexp org-deadline-line-regexp)
|
||||
(setq-default org-done-keywords org-done-keywords)
|
||||
(setq-default org-maybe-keyword-time-regexp org-maybe-keyword-time-regexp)
|
||||
(let* ((opt-plist (org-combine-plists (org-default-export-plist)
|
||||
ext-plist
|
||||
(org-infile-export-plist)))
|
||||
(let* ((opt-plist
|
||||
(org-export-html-handle-js-options
|
||||
(org-combine-plists (org-default-export-plist)
|
||||
ext-plist
|
||||
(org-infile-export-plist))))
|
||||
|
||||
(style (plist-get opt-plist :style))
|
||||
(html-extension (plist-get opt-plist :html-extension))
|
||||
|
|
|
|||
19
lisp/org.el
19
lisp/org.el
|
|
@ -8679,13 +8679,16 @@ This function is run automatically after each state change to a DONE state."
|
|||
(when repeat
|
||||
(if (eq org-log-repeat t) (setq org-log-repeat 'state))
|
||||
(org-todo (if (eq interpret 'type) last-state head))
|
||||
(when (and org-log-repeat
|
||||
(or (not (memq 'org-add-log-note
|
||||
(default-value 'post-command-hook)))
|
||||
(eq org-log-note-purpose 'done)))
|
||||
;; Make sure a note is taken;
|
||||
(org-add-log-setup 'state (or done-word (car org-done-keywords))
|
||||
'findpos org-log-repeat))
|
||||
(when org-log-repeat
|
||||
(if (or (memq 'org-add-log-note (default-value 'post-command-hook))
|
||||
(memq 'org-add-log-note post-command-hook))
|
||||
;; OK, we are already setup for some record
|
||||
(if (eq org-log-repeat 'note)
|
||||
;; make sure we take a note, not only a time stamp
|
||||
(setq org-log-note-how 'note))
|
||||
;; Set up for taking a record
|
||||
(org-add-log-setup 'state (or done-word (car org-done-keywords))
|
||||
'findpos org-log-repeat)))
|
||||
(org-back-to-heading t)
|
||||
(org-add-planning-info nil nil 'closed)
|
||||
(setq re (concat "\\(" org-scheduled-time-regexp "\\)\\|\\("
|
||||
|
|
@ -13067,7 +13070,7 @@ the currently selected interval size."
|
|||
(when (looking-at "#\\+BEGIN: clocktable\\>.*?:block[ \t]+\\(\\S-+\\)")
|
||||
(let* ((b (match-beginning 1)) (e (match-end 1))
|
||||
(s (match-string 1))
|
||||
block shift ins y mw d date)
|
||||
block shift ins y mw d date wp m)
|
||||
(cond
|
||||
((string-match "^\\(today\\|thisweek\\|thismonth\\|thisyear\\)\\([-+][0-9]+\\)?$" s)
|
||||
(setq block (match-string 1 s)
|
||||
|
|
|
|||
Loading…
Reference in New Issue