Mercurial > emacs
annotate lisp/org/org-jsinfo.el @ 110682:ba6a1c230532
gnus-html.el (gnus-html-prefetch-images): Adjust regexp to avoid regexp backtrace overflows.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Fri, 01 Oct 2010 13:33:03 +0000 |
parents | a150e8a14679 |
children | 5cb272c831e8 |
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 |
106815 | 3 ;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010 |
101515
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 |
109462
a150e8a14679
Install version 7.01 of Org-mode
Carsten Dominik <carsten.dominik@gmail.com>
parents:
107863
diff
changeset
|
9 ;; Version: 7.01 |
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 |
109462
a150e8a14679
Install version 7.01 of Org-mode
Carsten Dominik <carsten.dominik@gmail.com>
parents:
107863
diff
changeset
|
29 ;; This file implements the support for Sebastian Rose's JavaScript |
94750
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 |
109462
a150e8a14679
Install version 7.01 of Org-mode
Carsten Dominik <carsten.dominik@gmail.com>
parents:
107863
diff
changeset
|
34 ;; Documentation for using this module is in the Org manual. The script |
94750
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) |
109462
a150e8a14679
Install version 7.01 of Org-mode
Carsten Dominik <carsten.dominik@gmail.com>
parents:
107863
diff
changeset
|
90 "Options settings for the INFOJS JavaScript. |
94750
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 |