Mercurial > emacs
annotate lisp/org/org-jsinfo.el @ 105341:2a8a3a69c1c7
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-set-tags-to): New command.
* org-latex.el (org-export-latex-set-initial-vars): Also check in
the plist.
* org.el (org-additional-option-like-keywords): Add LATEX_CLASS
keyword.
* org-exp.el (org-infile-export-plist): Add LATEX_CLASS keyword.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-inlinetask.el (org-inlinetask-export): Option removed.
(org-inlinetask-export-handler): Better export.
* org-xoxo.el (org-export-xoxo-final-hook): New hook.
(org-export-as-xoxo): Run the new hook.
* org-html.el (org-export-html-final-hook): New hook.
(org-export-as-html): Run the new hook.
* org-docbook.el (org-export-docbook-final-hook): New hook.
(org-export-as-docbook): Run the new hook.
* org-ascii.el (org-export-ascii-final-hook): New hook.
(org-export-as-ascii): Run the new hook.
* org-latex.el (org-export-latex-treat-sub-super-char): Allow a
space character as the character before the ^/_.
(org-export-latex-final-hook): New hook.
(org-export-as-latex): Run `org-export-latex-final-hook'.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-macs.el (org-if-unprotected-at): Fix docstring.
* org-agenda.el (org-agenda-change-all-lines): Handle invisible
text in the prefix (if category is a link).
* org-latex.el (org-export-latex-preprocess): Deal properly with
empty lines in verse environments.
* org.el (org-format-latex-header): Inline fullpage.sty.
* org-footnote.el (org-footnote-create-definition): Reveal context
to add a new footnote definition.
* org.el (org-ctrl-c-ctrl-c): Pass prefix arg to
org-table-recalculate when cursor is in TBLFM line.
* org-list.el (org-renumber-ordered-list): Fix cursor position
when bullet length has changed.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-format-latex): Mention `org-format-latex-options' in
the docstring.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-agenda-get): New function.
* org-agenda.el (org-agenda-post-command-hook): No longer move
point away from end of line.
(org-agenda-add-entry-text, org-agenda-collect-markers)
(org-finalize-agenda, org-agenda-mark-clocking-task)
(org-agenda-dim-blocked-tasks, org-agenda-entry-text-show-here)
(org-agenda-entry-text-show, org-agenda-highlight-todo)
(org-agenda-compare-effort, org-agenda-filter-apply)
(org-agenda-later, org-agenda-change-time-span)
(org-agenda-post-command-hook, org-agenda-show-priority)
(org-agenda-show-tags, org-agenda-goto, org-agenda-kill)
(org-agenda-archive, org-agenda-archive-to-archive-sibling)
(org-remove-subtree-entries-from-agenda, org-agenda-refile)
(org-agenda-open-link, org-agenda-copy-local-variable)
(org-agenda-switch-to, org-agenda-check-no-diary)
(org-agenda-tree-to-indirect-buffer, org-agenda-todo)
(org-agenda-add-note, org-agenda-change-all-lines)
(org-agenda-priority, org-agenda-set-tags)
(org-agenda-set-property, org-agenda-set-effort)
(org-agenda-toggle-archive-tag, org-agenda-date-later)
(org-agenda-show-new-time, org-agenda-date-prompt)
(org-agenda-schedule, org-agenda-deadline, org-agenda-action)
(org-agenda-clock-in, org-agenda-bulk-mark)
(org-agenda-bulk-unmark, org-agenda-show-the-flagging-note): Use
`org-get-at-bol'.
* org-colview.el (org-columns-display-here)
(org-columns-edit-allowed, org-agenda-columns): Use
`org-get-at-bol'.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-special-ctrl-a/e): Improve documentation and
customize type.
(org-end-of-line): Don't jump to after the ellipsis.
(org-mode-map): Bind <home> and <end> as well.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-fontify-meta-lines-and-blocks): Treat lines with a
space after #+ as comments.
(org-open-at-point): Run `org-follow-link-hook' always.
* org-latex.el (org-export-latex-emph-format): Use better commands
to insert special characters in verbatim snippets.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-faces.el (org-copy-face): New function. Use it to create
various faces formerly created by using `copy-face'.
* org-agenda.el (org-prepare-agenda): Don't officially mark this
window dedicated.
(org-agenda-quit): Kill the frame containing the agenda window if
that frame was created for the agenda.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-date-prompt): Mark the changed time
stamp in the agenda.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-prepare-agenda): Reset
`org-drawers-for-agenda'.
(org-prepare-agenda): Uniquify list of drawers.
* org.el (org-complex-heading-regexp-format): New variable.
(org-set-regexps-and-options): Define
`org-complex-heading-regexp-format'.
(org-drawers-for-agenda): New variable.
(org-map-entries): Bind `org-drawers-for-agenda'.
(org-prepare-agenda-buffers): Add to `org-drawers-for-agenda'.
* org-remember.el (org-go-to-remember-target)
(org-remember-handler): Use `org-complex-heading-regexp-format'.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-highlight-todo): Fix text property
problem.
* org.el (org-on-heading-p, org-at-heading-p): Make sure these are
always with `invisible-ok'.
(org-store-link): No error when there is nothing to link to in the
agenda.
* org-list.el (org-update-checkbox-count): Insert changed cookie
before the old, to avoid problems with invisibility at the end of
the line.
(org-update-checkbox-count): Insert changed cookie before the old,
to avoid problems with invisibility at the end of the line.
* org.el (org-sort-entries-or-items): Include the final newline.
(org-fontify-meta-lines-and-blocks): Add indented dynamic block
lines for fontification.
(org-dblock-start-re, org-dblock-end-re): Allow indentation.
(org-prepare-dblock): Store the current indentation of the BEGIN
line.
(org-update-dblock): Apply the indentation of the begin line to
the rest of the block.
(org-ctrl-c-ctrl-c): Also find indented dblock lines.
(org-startup-folded): New allowed value `showeverything'.
(org-startup-options): Add STARTUP keyword `showeverything'.
(org-set-startup-visibility): Respect value `showeverything' in
org-startup-folded.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-closest-date): Fix issue with past preference.
* org-archive.el (org-archive-set-tag)
(org-archive-subtree-default): New commands.
* org-clock.el (org-clock-clocktable-default-properties): New
option.
(org-clock-report): Use
`org-clock-clocktable-default-properties'.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-iswitchb-completing-read): Fix typo.
* org-crypt.el: New file.
* org.el: Add an entry for org-crypt.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-menu): Reorganize the menu for more
consistency.
(org-batch-store-agenda-views): New function.
(org-agenda-title-append): Define variable.
(org-write-agenda): New export to Org files.
(org-agenda-get-some-entry-text): New arguments INDENT and KEEP.
(org-agenda): Allow to keep the restricted file list if a special
variable is bound to t.
(org-agenda): Define a special agenda view for working on flagged
entries.
(org-agenda-get-restriction-and-command): List the new agenda
view.
(org-agenda-show-the-flagging-note): New command.
(org-agenda-mode-map): New key `?' for looking at the flagging
note.
* org.el (org-autoload): Autoload org-mobile.el.
(org-org-menu): Add menu commands for MobileOrg in the Org menu.
* org-mobile.el: New file.
* org-id.el (org-id-get): Fix bug with forcing ID on an item.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-table.el (orgtbl-line-start-regexp): Match also TBLNAME
statements.
(org-table-get-remote-range): Match indented #+TBLNAME
statements.
* org.el (org-convert-to-odd-levels)
(org-convert-to-oddeven-levels): Work also correctly if the file
is in outline-mode.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-store-link): When in agenda buffer, link to
referenced entry.
(org-add-planning-info): Remove spaces at eol.
* org-macs.el (org-with-point-at): Add a `lisp-indent-function'
property.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-latex.el (org-export-latex-first-lines): Fix problem with
LaTeX export of first line and selected subtree.
* org.el (org-shifttab): Interpret arg differently when using only
odd levels.
2009-10-01 Bastien Guerry <bzg@altern.org>
* org.el (org-check-agenda-file): Use a more explicit message
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-exp.el (org-export-remove-special-table-lines): Don't remove
normal lines.
2009-10-01 Bastien Guerry <bzg@altern.org>
* org.el (org-offer-links-in-entry): Don't use "Select link" as a
prompt in the temporary window.
* org-agenda.el (org-agenda-bulk-mark): Use a slightly soberer
prefix for marked entries in the agenda view.
2009-10-01 Andreas Burtzlaff <andy13@gmx.net> (tiny change)
* org.el (outline-end-of-subtree): Bugfix: advise this function in
a way that prevents any trailing character from being displayed.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-menu): Fix bugs in the bulk action
menu.
* org-exp.el (org-export-remove-special-table-lines): Remove bad
slow regexp match.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-latex.el (org-export-latex-preprocess): Do not protect in
the LaTeX header.
* org-src.el (org-edit-src-save): Save window setup while saving.
(org-edit-src-code): Use new buffer name construction scheme.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-entry-text-exclude-regexps): New
variable.
(org-agenda-entry-text-cleanup-hook): New hook.
(org-agenda-get-some-entry-text): Remove matches of
`org-agenda-entry-text-exclude-regexps' and run the hook
`org-agenda-entry-text-cleanup-hook'.
* org.el (org-offer-links-in-entry): New argument ZERO to
implement a link with index zero.
(org-cycle-show-empty-lines): Not keep empty line under header
hidden.
(org-iswitchb-completing-read): Bind `switchb-use-virtual-buffers'
to nil for special completion.
(org-store-link): Don't error before the first heading.
* org-agenda.el (org-agenda-open-link): Pass the prefix to
`org-offer-links-in-entry'.
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-quit): Provide the window argument for
`window-dedicated-p', Emacs 22 needs it.
(org-format-agenda-item): If the category is a link, arrange for
invisible text to replaced with spaces.
(org-compile-prefix-format): Add the extra space.
(org-prefix-category-length): New variable.
* org-exp.el (org-export-cleanup-toc-line): Remove footnote
references from TOC lines.
* org.el (org-selected-window): New variable.
* org-table.el (org-table-edit-formulas): Remember the selected
window.
(org-table-fedit-finish, org-table-fedit-abort): Select the window
that was originally selected.
* org-exp.el (org-export-preprocess-apply-macros): Scan the
expansion of a macro for more macro definitions.
* org-agenda.el (org-agenda-dim-blocked-tasks): Make sure the
invisibility overlay starts on the newline.
author | Carsten Dominik <dominik@science.uva.nl> |
---|---|
date | Thu, 01 Oct 2009 07:59:53 +0000 |
parents | 86b7fe7d1d8f |
children | b7d8222914b4 |
rev | line source |
---|---|
94750
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
1 ;;; org-jsinfo.el --- Support for org-info.js Javascript in Org HTML export |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
2 |
101515
64ef70f990a9
2009-01-26 Carsten Dominik <dominik@science.uva.nl>
Carsten Dominik <dominik@science.uva.nl>
parents:
101458
diff
changeset
|
3 ;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009 |
64ef70f990a9
2009-01-26 Carsten Dominik <dominik@science.uva.nl>
Carsten Dominik <dominik@science.uva.nl>
parents:
101458
diff
changeset
|
4 ;; Free Software Foundation, Inc. |
94750
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
5 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
6 ;; Author: Carsten Dominik <carsten at orgmode dot org> |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
7 ;; Keywords: outlines, hypermedia, calendar, wp |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
8 ;; Homepage: http://orgmode.org |
105341
2a8a3a69c1c7
2009-10-01 Carsten Dominik <carsten.dominik@gmail.com>
Carsten Dominik <dominik@science.uva.nl>
parents:
104810
diff
changeset
|
9 ;; Version: 6.31a |
94750
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
10 ;; |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
11 ;; This file is part of GNU Emacs. |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
12 ;; |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
13 ;; GNU Emacs is free software: you can redistribute it and/or modify |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
14 ;; it under the terms of the GNU General Public License as published by |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
15 ;; the Free Software Foundation, either version 3 of the License, or |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
16 ;; (at your option) any later version. |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
17 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
18 ;; GNU Emacs is distributed in the hope that it will be useful, |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
21 ;; GNU General Public License for more details. |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
22 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
23 ;; You should have received a copy of the GNU General Public License |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
25 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
26 ;; |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
27 ;;; Commentary: |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
28 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
29 ;; This file implements the support for Sebastian Rose's Javascript |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
30 ;; org-info.js to display an org-mode file exported to HTML in an |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
31 ;; Info-like way, or using folding similar to the outline structure |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
32 ;; org org-mode itself. |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
33 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
34 ;; Documentation for using this module is in the Org manual. The script |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
35 ;; itself is documented by Sebastian Rose in a file distributed with |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
36 ;; the script. FIXME: Accurate pointers! |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
37 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
38 ;; Org-mode loads this module by default - if this is not what you want, |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
39 ;; configure the variable `org-modules'. |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
40 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
41 ;;; Code: |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
42 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
43 (require 'org-exp) |
104164
ac1a55cc2c38
2009-08-06 Carsten Dominik <carsten.dominik@gmail.com>
Carsten Dominik <dominik@science.uva.nl>
parents:
101760
diff
changeset
|
44 (require 'org-html) |
94750
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
45 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
46 (add-to-list 'org-export-inbuffer-options-extra '("INFOJS_OPT" :infojs-opt)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
47 (add-hook 'org-export-options-filters 'org-infojs-handle-options) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
48 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
49 (defgroup org-infojs nil |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
50 "Options specific for using org-info.js in HTML export of Org-mode files." |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
51 :tag "Org Export HTML INFOJS" |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
52 :group 'org-export-html) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
53 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
54 (defcustom org-export-html-use-infojs 'when-configured |
100458
ba23e35d3eaf
2008-12-17 Carsten Dominik <carsten.dominik@gmail.com>
Carsten Dominik <dominik@science.uva.nl>
parents:
100448
diff
changeset
|
55 "Should Sebastian Rose's Java Script org-info.js be linked into HTML files? |
94750
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
56 This option can be nil or t to never or always use the script. It can |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
57 also be the symbol `when-configured', meaning that the script will be |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
58 linked into the export file if and only if there is a \"#+INFOJS_OPT:\" |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
59 line in the buffer. See also the variable `org-infojs-options'." |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
60 :group 'org-export-html |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
61 :group 'org-infojs |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
62 :type '(choice |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
63 (const :tag "Never" nil) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
64 (const :tag "When configured in buffer" when-configured) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
65 (const :tag "Always" t))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
66 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
67 (defconst org-infojs-opts-table |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
68 '((path PATH "http://orgmode.org/org-info.js") |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
69 (view VIEW "info") |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
70 (toc TOC :table-of-contents) |
96044
c1ef445563bb
2008-06-17 Carsten Dominik <dominik@science.uva.nl>
Carsten Dominik <dominik@science.uva.nl>
parents:
94757
diff
changeset
|
71 (ftoc FIXED_TOC "0") |
94750
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
72 (tdepth TOC_DEPTH "max") |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
73 (sdepth SECTION_DEPTH "max") |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
74 (mouse MOUSE_HINT "underline") |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
75 (buttons VIEW_BUTTONS "0") |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
76 (ltoc LOCAL_TOC "1") |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
77 (up LINK_UP :link-up) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
78 (home LINK_HOME :link-home)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
79 "JavaScript options, long form for script, default values.") |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
80 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
81 (defvar org-infojs-options) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
82 (when (and (boundp 'org-infojs-options) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
83 (assq 'runs org-infojs-options)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
84 (setq org-infojs-options (delq (assq 'runs org-infojs-options) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
85 org-infojs-options))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
86 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
87 (defcustom org-infojs-options |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
88 (mapcar (lambda (x) (cons (car x) (nth 2 x))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
89 org-infojs-opts-table) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
90 "Options settings for the INFOJS Javascript. |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
91 Each of the options must have an entry in `org-export-html/infojs-opts-table'. |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
92 The value can either be a string that will be passed to the script, or |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
93 a property. This property is then assumed to be a property that is defined |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
94 by the Export/Publishing setup of Org. |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
95 The `sdepth' and `tdepth' parameters can also be set to \"max\", which |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
96 means to use the maximum value consistent with other options." |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
97 :group 'org-infojs |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
98 :type |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
99 `(set :greedy t :inline t |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
100 ,@(mapcar |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
101 (lambda (x) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
102 (list 'cons (list 'const (car x)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
103 '(choice |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
104 (symbol :tag "Publishing/Export property") |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
105 (string :tag "Value")))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
106 org-infojs-opts-table))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
107 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
108 (defcustom org-infojs-template |
99501
e3acb52d33e1
2008-11-12 Carsten Dominik <carsten.dominik@gmail.com>
Carsten Dominik <dominik@science.uva.nl>
parents:
99139
diff
changeset
|
109 "<script type=\"text/javascript\" src=\"%SCRIPT_PATH\"></script> |
e3acb52d33e1
2008-11-12 Carsten Dominik <carsten.dominik@gmail.com>
Carsten Dominik <dominik@science.uva.nl>
parents:
99139
diff
changeset
|
110 <script type=\"text/javascript\" > |
100267
c851df8e004e
2008-12-07 Carsten Dominik <carsten.dominik@gmail.com>
Carsten Dominik <dominik@science.uva.nl>
parents:
99866
diff
changeset
|
111 <!--/*--><![CDATA[/*><!--*/ |
94750
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
112 %MANAGER_OPTIONS |
100458
ba23e35d3eaf
2008-12-17 Carsten Dominik <carsten.dominik@gmail.com>
Carsten Dominik <dominik@science.uva.nl>
parents:
100448
diff
changeset
|
113 org_html_manager.setup(); // activate after the parameters are set |
104164
ac1a55cc2c38
2009-08-06 Carsten Dominik <carsten.dominik@gmail.com>
Carsten Dominik <dominik@science.uva.nl>
parents:
101760
diff
changeset
|
114 /*]]>*///--> |
94750
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
115 </script>" |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
116 "The template for the export style additions when org-info.js is used. |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
117 Option settings will replace the %MANAGER-OPTIONS cookie." |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
118 :group 'org-infojs |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
119 :type 'string) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
120 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
121 (defun org-infojs-handle-options (exp-plist) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
122 "Analyze JavaScript options in INFO-PLIST and modify EXP-PLIST accordingly." |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
123 (if (or (not org-export-html-use-infojs) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
124 (and (eq org-export-html-use-infojs 'when-configured) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
125 (or (not (plist-get exp-plist :infojs-opt)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
126 (string-match "\\<view:nil\\>" |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
127 (plist-get exp-plist :infojs-opt))))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
128 ;; We do not want to use the script |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
129 exp-plist |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
130 ;; We do want to use the script, set it up |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
131 (let ((template org-infojs-template) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
132 (ptoc (plist-get exp-plist :table-of-contents)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
133 (hlevels (plist-get exp-plist :headline-levels)) |
101568
f5aedb5cbd80
2009-01-27 Carsten Dominik <carsten.dominik@gmail.com>
Carsten Dominik <dominik@science.uva.nl>
parents:
101515
diff
changeset
|
134 tdepth sdepth s v e opt var val table default) |
94750
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
135 (setq sdepth hlevels |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
136 tdepth hlevels) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
137 (if (integerp ptoc) (setq tdepth (min ptoc tdepth))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
138 (setq v (plist-get exp-plist :infojs-opt) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
139 table org-infojs-opts-table) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
140 (while (setq e (pop table)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
141 (setq opt (car e) var (nth 1 e) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
142 default (cdr (assoc opt org-infojs-options))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
143 (and (symbolp default) (not (memq default '(t nil))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
144 (setq default (plist-get exp-plist default))) |
101458
36abe982e7cd
2009-01-25 Carsten Dominik <carsten.dominik@gmail.com>
Carsten Dominik <dominik@science.uva.nl>
parents:
100908
diff
changeset
|
145 (if (and v (string-match (format " %s:\\(\\S-+\\)" opt) v)) |
94750
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
146 (setq val (match-string 1 v)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
147 (setq val default)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
148 (cond |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
149 ((eq opt 'path) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
150 (and (string-match "%SCRIPT_PATH" template) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
151 (setq template (replace-match val t t template)))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
152 ((eq opt 'sdepth) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
153 (if (integerp (read val)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
154 (setq sdepth (min (read val) hlevels)))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
155 ((eq opt 'tdepth) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
156 (if (integerp (read val)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
157 (setq tdepth (min (read val) hlevels)))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
158 (t |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
159 (setq val |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
160 (cond |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
161 ((or (eq val t) (equal val "t")) "1") |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
162 ((or (eq val nil) (equal val "nil")) "0") |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
163 ((stringp val) val) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
164 (t (format "%s" val)))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
165 (push (cons var val) s)))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
166 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
167 ;; Now we set the depth of the *generated* TOC to SDEPTH, because the |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
168 ;; toc will actually determine the splitting. How much of the toc will |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
169 ;; actually be displayed is governed by the TDEPTH option. |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
170 (setq exp-plist (plist-put exp-plist :table-of-contents sdepth)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
171 |
101760
9f3e0387f078
2009-02-02 Carsten Dominik <dominik@science.uva.nl>
Carsten Dominik <dominik@science.uva.nl>
parents:
101757
diff
changeset
|
172 ;; The table of contents should not show more sections then we generate |
94750
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
173 (setq tdepth (min tdepth sdepth)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
174 (push (cons "TOC_DEPTH" tdepth) s) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
175 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
176 (setq s (mapconcat |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
177 (lambda (x) (format "org_html_manager.set(\"%s\", \"%s\");" |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
178 (car x) (cdr x))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
179 s "\n")) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
180 (when (and s (> (length s) 0)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
181 (and (string-match "%MANAGER_OPTIONS" template) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
182 (setq s (replace-match s t t template)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
183 (setq exp-plist |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
184 (plist-put |
97027
adc2dffbdfc3
2008-07-25 Carsten Dominik <dominik@science.uva.nl>
Carsten Dominik <dominik@science.uva.nl>
parents:
96975
diff
changeset
|
185 exp-plist :style-extra |
adc2dffbdfc3
2008-07-25 Carsten Dominik <dominik@science.uva.nl>
Carsten Dominik <dominik@science.uva.nl>
parents:
96975
diff
changeset
|
186 (concat (or (plist-get exp-plist :style-extra) "") "\n" s))))) |
94750
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
187 ;; This script absolutely needs the table of contents, to we change that |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
188 ;; setting |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
189 (if (not (plist-get exp-plist :table-of-contents)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
190 (setq exp-plist (plist-put exp-plist :table-of-contents t))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
191 ;; Return the modified property list |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
192 exp-plist))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
193 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
194 (defun org-infojs-options-inbuffer-template () |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
195 (format "#+INFOJS_OPT: view:%s toc:%s ltoc:%s mouse:%s buttons:%s path:%s" |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
196 (if (eq t org-export-html-use-infojs) (cdr (assoc 'view org-infojs-options)) nil) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
197 (let ((a (cdr (assoc 'toc org-infojs-options)))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
198 (cond ((memq a '(nil t)) a) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
199 (t (plist-get (org-infile-export-plist) :table-of-contents)))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
200 (if (equal (cdr (assoc 'ltoc org-infojs-options)) "1") t nil) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
201 (cdr (assoc 'mouse org-infojs-options)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
202 (cdr (assoc 'buttons org-infojs-options)) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
203 (cdr (assoc 'path org-infojs-options)))) |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
204 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
205 (provide 'org-infojs) |
96044
c1ef445563bb
2008-06-17 Carsten Dominik <dominik@science.uva.nl>
Carsten Dominik <dominik@science.uva.nl>
parents:
94757
diff
changeset
|
206 (provide 'org-jsinfo) |
94750
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
207 |
61756b574ffd
Renamed org-infojs.el to org-jsinfo.el.
Eli Zaretskii <eliz@gnu.org>
parents:
diff
changeset
|
208 ;; arch-tag: c71d1d85-3337-4817-a066-725e74ac9eac |
96044
c1ef445563bb
2008-06-17 Carsten Dominik <dominik@science.uva.nl>
Carsten Dominik <dominik@science.uva.nl>
parents:
94757
diff
changeset
|
209 |
94757
427077740277
Change file name on the last line.
Eli Zaretskii <eliz@gnu.org>
parents:
94750
diff
changeset
|
210 ;;; org-jsinfo.el ends here |