WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/org
Viewing File: /usr/share/emacs/24.3/lisp/org/org-jsinfo.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:49:59 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-jsinfo.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\303\304\305\"\210\306\307\310\"\210\311\312\313\314\315\316\317\320&\210\321\322\323\324\317\320\317\312\325\326&	\207" [require org-exp org-html add-to-list org-export-inbuffer-options-extra ("INFOJS_OPT" :infojs-opt) add-hook org-export-options-filters org-infojs-handle-options custom-declare-group org-infojs nil "Options specific for using org-info.js in HTML export of Org-mode files." :tag "Org Export HTML INFOJS" :group org-export-html custom-declare-variable org-export-html-use-infojs 'when-configured "Should Sebastian Rose's Java Script org-info.js be linked into HTML files?\nThis option can be nil or t to never or always use the script.  It can\nalso be the symbol `when-configured', meaning that the script will be\nlinked into the export file if and only if there is a \"#+INFOJS_OPT:\"\nline in the buffer.  See also the variable `org-infojs-options'." :type (choice (const :tag "Never" nil) (const :tag "When configured in buffer" when-configured) (const :tag "Always" t))] 10)
#@59 JavaScript options, long form for script, default values.
(defconst org-infojs-opts-table '((path PATH "http://orgmode.org/org-info.js") (view VIEW "info") (toc TOC :table-of-contents) (ftoc FIXED_TOC "0") (tdepth TOC_DEPTH "max") (sdepth SECTION_DEPTH "max") (mouse MOUSE_HINT "underline") (buttons VIEW_BUTTONS "0") (ltoc LOCAL_TOC "1") (up LINK_UP :link-up) (home LINK_HOME :link-home)) (#$ . 1595))
(byte-code "\302\300!\203\303\236\203\304\303\236\"\305\300\306\307\310\311\312\313\314\315\316\315\317\320	\"BBBBB&\210\305\321\322\323\310\311\312\324&\207" [org-infojs-options org-infojs-opts-table boundp runs delq custom-declare-variable (mapcar (lambda (x) (cons (car x) (nth 2 x))) org-infojs-opts-table) "Options settings for the INFOJS JavaScript.\nEach of the options must have an entry in `org-export-html/infojs-opts-table'.\nThe value can either be a string that will be passed to the script, or\na property.  This property is then assumed to be a property that is defined\nby the Export/Publishing setup of Org.\nThe `sdepth' and `tdepth' parameters can also be set to \"max\", which\nmeans to use the maximum value consistent with other options." :group org-infojs :type set :greedy t :inline mapcar #[(x) "\301\302@D\303E\207" [x cons const (choice (symbol :tag "Publishing/Export property") (string :tag "Value"))] 3] org-infojs-template "<script type=\"text/javascript\" src=\"%SCRIPT_PATH\">\n/**\n *\n * @source: %SCRIPT_PATH\n *\n * @licstart  The following is the entire license notice for the\n *  JavaScript code in %SCRIPT_PATH.\n *\n * Copyright (C) 2012-2013  Sebastian Rose\n *\n *\n * The JavaScript code in this tag is free software: you can\n * redistribute it and/or modify it under the terms of the GNU\n * General Public License (GNU GPL) as published by the Free Software\n * Foundation, either version 3 of the License, or (at your option)\n * any later version.  The code is distributed WITHOUT ANY WARRANTY;\n * without even the implied warranty of MERCHANTABILITY or FITNESS\n * FOR A PARTICULAR PURPOSE.  See the GNU GPL for more details.\n *\n * As additional permission under GNU GPL version 3 section 7, you\n * may distribute non-source (e.g., minimized or compacted) forms of\n * that code without the copy of the GNU GPL normally required by\n * section 4, provided you include this license notice and a URL\n * through which recipients can access the Corresponding Source.\n *\n * @licend  The above is the entire license notice\n * for the JavaScript code in %SCRIPT_PATH.\n *\n */\n</script>\n\n<script type=\"text/javascript\">\n\n/*\n@licstart  The following is the entire license notice for the\nJavaScript code in this tag.\n\nCopyright (C) 2012-2013 Free Software Foundation, Inc.\n\nThe JavaScript code in this tag is free software: you can\nredistribute it and/or modify it under the terms of the GNU\nGeneral Public License (GNU GPL) as published by the Free Software\nFoundation, either version 3 of the License, or (at your option)\nany later version.  The code is distributed WITHOUT ANY WARRANTY;\nwithout even the implied warranty of MERCHANTABILITY or FITNESS\nFOR A PARTICULAR PURPOSE.  See the GNU GPL for more details.\n\nAs additional permission under GNU GPL version 3 section 7, you\nmay distribute non-source (e.g., minimized or compacted) forms of\nthat code without the copy of the GNU GPL normally required by\nsection 4, provided you include this license notice and a URL\nthrough which recipients can access the Corresponding Source.\n\n\n@licend  The above is the entire license notice\nfor the JavaScript code in this tag.\n*/\n\n<!--/*--><![CDATA[/*><!--*/\n%MANAGER_OPTIONS\norg_html_manager.setup();  // activate after the parameters are set\n/*]]>*///-->\n</script>" "The template for the export style additions when org-info.js is used.\nOption settings will replace the %MANAGER-OPTIONS cookie." string] 15)
#@76 Analyze JavaScript options in INFO-PLIST and modify EXP-PLIST accordingly.
(defalias 'org-infojs-handle-options #[(exp-plist) "\203\306=\203\307	\310\"\203\311\312\307	\310\"\"\203	\207\n\307	\313\"\307	\314\"\315\211\211\211\211\211\211\211\211\211*+,-./01//0\250\203\\0^\307	\310\"-2\f\211A@\211,\203/,@+,A@*\316+3\"A\2119\203\223\317>\204\223\307	\"-\203\255\311\320\321+\"-\"\203\255\322\323-\"\202\257+\324=\203\303\325\326
1\327\211%1\202e+\330=\203\334\331
!\250\203e\331
!/^\202e+\332=\203\365\331
!\250\203e\331
!/^\202e
\327=\204
\333\232\203\334\202\"
\315=\204
\335\232\203\336\202\"
;\203
\202\"\320\337
\"*
B.B.\202e\340	\313#^\341B.B.\342\343.\344#\211.\203\201.G\345V\203\201\311\3461\"\203\201\347.\327\2111$\211.\203\201\340	\350\307	\350\"\206{\351\344.Q#\307	\313\"\204\216\340	\313\327#	.
\207" [org-export-html-use-infojs exp-plist org-infojs-template default table val when-configured plist-get :infojs-opt string-match "\\<view:nil\\>" :table-of-contents :headline-levels nil assoc (t nil) format " %s:\\(\\S-+\\)" match-string 1 path replace-regexp-in-string "%SCRIPT_PATH" t sdepth read tdepth "t" "1" "nil" "0" "%s" plist-put "TOC_DEPTH" mapconcat #[(x) "\301\302@A#\207" [x format "org_html_manager.set(\"%s\", \"%s\");"] 4] "\n" 0 "%MANAGER_OPTIONS" replace-match :style-extra "" var opt e v s hlevels ptoc template org-infojs-opts-table org-infojs-options] 14 (#$ . 5505)])
(defalias 'org-infojs-options-inbuffer-template #[nil "\303\304\305=\205
\306\307	\"A\306\310	\"A\211\311>\203\n\202\"\312\313 \314\")\306\315	\"A\316\232\205.\305\306\317	\"A\306\320	\"A\306\321	\"A&\207" [org-export-html-use-infojs org-infojs-options a format "#+INFOJS_OPT: view:%s toc:%s ltoc:%s mouse:%s buttons:%s path:%s" t assoc view toc (nil t) plist-get org-infile-export-plist :table-of-contents ltoc "1" mouse buttons path] 11])
(byte-code "\300\301!\210\300\302!\207" [provide org-infojs org-jsinfo] 2)
F1l3 Manager
