Server IP : 111.118.215.189 / Your IP : 18.117.158.174 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/org/ |
[ Home ] | [ C0mmand ] | [ Upload File ] |
---|
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:07:36 2024 ;;; 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*+,-./01//0\250\203\\ 0^\307 \310\"-2\f\211A@\211,\203/,@+,A@*\316+3\"A\2119\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#^\341B.B.\342\343.\344#\211.\203\201.G\345V\203\201\311\3461\"\203\201\347.\327\2111$\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\"