ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ox-publish.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require format-spec ox] 2)
#@42 Temporary list of files to be published.
(defvar org-publish-temp-files nil (#$ . 478))
#@109 This will cache timestamps and titles for files in publishing projects.
Blocks could hash sha1 values here.
(defvar org-publish-cache nil (#$ . 573))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\302\312\306\313\314\315&\210\310\316\317\320\306\313\314\321&\210\310\322\323\324\306\313\314\325&\210\310\326\317\327\306\313\314\321&\210\310\330\331\332\306\313\314\333&\210\310\334\335\336\306\313\314\333&\210\310\337\302\340\306\313\314\321&\210\310\341\342\343\306\313\314\344&\210\310\345\346\347\306\313\314\344&\207" [custom-declare-group org-publish nil "Options for publishing a set of Org-mode and related files." :tag "Org Publishing" :group org custom-declare-variable org-publish-project-alist "Association list to control publishing behavior.\nEach element of the alist is a publishing “project”. The CAR of\neach element is a string, uniquely identifying the project. The\nCDR of each element is in one of the following forms:\n\n1. A well-formed property list with an even number of elements,\n alternating keys and values, specifying parameters for the\n publishing process.\n\n (:property value :property value ... )\n\n2. A meta-project definition, specifying of a list of\n sub-projects:\n\n (:components (\"project-1\" \"project-2\" ...))\n\nWhen the CDR of an element of org-publish-project-alist is in\nthis second form, the elements of the list after `:components'\nare taken to be components of the project, which group together\nfiles requiring different publishing options. When you publish\nsuch a project with \\[org-publish], the components all publish.\n\nWhen a property is given a value in `org-publish-project-alist',\nits setting overrides the value of the corresponding user\nvariable (if any) during publishing. However, options set within\na file override everything.\n\nMost properties are optional, but some should always be set:\n\n `:base-directory'\n\n Directory containing publishing source files.\n\n `:base-extension'\n\n Extension (without the dot!) of source files. This can be\n a regular expression. If not given, \"org\" will be used as\n default extension.\n\n `:publishing-directory'\n\n Directory (possibly remote) where output files will be\n published.\n\nThe `:exclude' property may be used to prevent certain files from\nbeing published. Its value may be a string or regexp matching\nfile names you don't want to be published.\n\nThe `:include' property may be used to include extra files. Its\nvalue may be a list of filenames to include. The filenames are\nconsidered relative to the base directory.\n\nWhen both `:include' and `:exclude' properties are given values,\nthe exclusion step happens first.\n\nOne special property controls which back-end function to use for\npublishing files in the project. This can be used to extend the\nset of file types publishable by `org-publish', as well as the\nset of output formats.\n\n `:publishing-function'\n\n Function to publish file. Each back-end may define its\n own (i.e. `org-latex-publish-to-pdf',\n `org-html-publish-to-html'). May be a list of functions, in\n which case each function in the list is invoked in turn.\n\nAnother property allows you to insert code that prepares\na project for publishing. For example, you could call GNU Make\non a certain makefile, to ensure published files are built up to\ndate.\n\n `:preparation-function'\n\n Function to be called before publishing this project. This\n may also be a list of functions.\n\n `:completion-function'\n\n Function to be called after publishing this project. This\n may also be a list of functions.\n\nSome properties control details of the Org publishing process,\nand are equivalent to the corresponding user variables listed in\nthe right column. Back-end specific properties may also be\nincluded. See the back-end documentation for more information.\n\n :author `user-full-name'\n :creator `org-export-creator-string'\n :email `user-mail-address'\n :exclude-tags `org-export-exclude-tags'\n :headline-levels `org-export-headline-levels'\n :language `org-export-default-language'\n :preserve-breaks `org-export-preserve-breaks'\n :section-numbers `org-export-with-section-numbers'\n :select-tags `org-export-select-tags'\n :time-stamp-file `org-export-time-stamp-file'\n :with-archived-trees `org-export-with-archived-trees'\n :with-author `org-export-with-author'\n :with-creator `org-export-with-creator'\n :with-date `org-export-with-date'\n :with-drawers `org-export-with-drawers'\n :with-email `org-export-with-email'\n :with-emphasize `org-export-with-emphasize'\n :with-entities `org-export-with-entities'\n :with-fixed-width `org-export-with-fixed-width'\n :with-footnotes `org-export-with-footnotes'\n :with-inlinetasks `org-export-with-inlinetasks'\n :with-latex `org-export-with-latex'\n :with-priority `org-export-with-priority'\n :with-smart-quotes `org-export-with-smart-quotes'\n :with-special-strings `org-export-with-special-strings'\n :with-statistics-cookies' `org-export-with-statistics-cookies'\n :with-sub-superscript `org-export-with-sub-superscripts'\n :with-toc `org-export-with-toc'\n :with-tables `org-export-with-tables'\n :with-tags `org-export-with-tags'\n :with-tasks `org-export-with-tasks'\n :with-timestamps `org-export-with-timestamps'\n :with-planning `org-export-with-planning'\n :with-todo-keywords `org-export-with-todo-keywords'\n\nThe following properties may be used to control publishing of\na site-map of files or summary page for a given project.\n\n `:auto-sitemap'\n\n Whether to publish a site-map during\n `org-publish-current-project' or `org-publish-all'.\n\n `:sitemap-filename'\n\n Filename for output of sitemap. Defaults to \"sitemap.org\".\n\n `:sitemap-title'\n\n Title of site-map page. Defaults to name of file.\n\n `:sitemap-function'\n\n Plugin function to use for generation of site-map. Defaults\n to `org-publish-org-sitemap', which generates a plain list of\n links to all files in the project.\n\n `:sitemap-style'\n\n Can be `list' (site-map is just an itemized list of the\n titles of the files involved) or `tree' (the directory\n structure of the source files is reflected in the site-map).\n Defaults to `tree'.\n\n `:sitemap-sans-extension'\n\n Remove extension from site-map's file-names. Useful to have\n cool URIs (see http://www.w3.org/Provider/Style/URI).\n Defaults to nil.\n\nIf you create a site-map file, adjust the sorting like this:\n\n `:sitemap-sort-folders'\n\n Where folders should appear in the site-map. Set this to\n `first' (default) or `last' to display folders first or last,\n respectively. Any other value will mix files and folders.\n\n `:sitemap-sort-files'\n\n The site map is normally sorted alphabetically. You can\n change this behavior setting this to `anti-chronologically',\n `chronologically', or nil.\n\n `:sitemap-ignore-case'\n\n Should sorting be case-sensitive? Default nil.\n\nThe following property control the creation of a concept index.\n\n `:makeindex'\n\n Create a concept index. The file containing the index has to\n be called \"theindex.org\". If it doesn't exist in the\n project, it will be generated. Contents of the index are\n stored in the file \"theindex.inc\", which can be included in\n \"theindex.org\".\n\nOther properties affecting publication.\n\n `:body-only'\n\n Set this to t to publish only the body of the documents." org-export-publish :type alist org-publish-use-timestamps-flag t "Non-nil means use timestamp checking to publish only changed files.\nWhen nil, do no timestamp checking and always publish all files." boolean org-publish-timestamp-directory (convert-standard-filename "~/.org-timestamps/") "Name of directory in which to store publishing timestamps." directory org-publish-list-skipped-files "Non-nil means show message about files *not* published." org-publish-sitemap-sort-files 'alphabetically "Method to sort files in site-maps.\nPossible values are `alphabetically', `chronologically',\n`anti-chronologically' and nil.\n\nIf `alphabetically', files will be sorted alphabetically. If\n`chronologically', files will be sorted with older modification\ntime first. If `anti-chronologically', files will be sorted with\nnewer modification time first. nil won't sort files.\n\nYou can overwrite this default per project in your\n`org-publish-project-alist', using `:sitemap-sort-files'." symbol org-publish-sitemap-sort-folders 'first "A symbol, denoting if folders are sorted first in sitemaps.\nPossible values are `first', `last', and nil.\nIf `first', folders will be sorted before files.\nIf `last', folders are sorted to the end after the files.\nAny other value will not mix files and folders.\n\nYou can overwrite this default per project in your\n`org-publish-project-alist', using `:sitemap-sort-folders'." org-publish-sitemap-sort-ignore-case "Non-nil when site-map sorting should ignore case.\n\nYou can overwrite this default per project in your\n`org-publish-project-alist', using `:sitemap-ignore-case'." org-publish-sitemap-date-format "%Y-%m-%d" "Format for printing a date in the sitemap.\nSee `format-time-string' for allowed formatters." string org-publish-sitemap-file-entry-format "%t" "Format string for site-map file entry.\nYou could use brackets to delimit on what part the link will be.\n\n%t is the title.\n%a is the author.\n%d is the date formatted using `org-publish-sitemap-date-format'."] 8)
#@54 Return path to timestamp file for filename FILENAME.
(defalias 'org-publish-timestamp-filename #[(filename &optional pub-dir pub-func) "\303 \206 \304\303\305\306\n\206 \304\"\260\307\310\311!\203 \311!\202# \312!P\207" [filename pub-dir pub-func "::" "" format "%s" "X" fboundp sha1 md5] 7 (#$ . 10558)])
#@426 Non-nil if FILENAME should be published in PUB-DIR using PUB-FUNC.
TRUE-PUB-DIR is where the file will truly end up. Currently we
are not using this - maybe it can eventually be used to check if
the file is present at the target location, and how old it is.
Right now we cannot do this, because we do not know under what
file name the file will be stored - the publishing function can
still decide about that independently.
(defalias 'org-publish-needed-p #[(filename &optional pub-dir pub-func true-pub-dir base-dir) "\204 \306\202 \307 \n \f$\211 \203 \310\311 #\210\202& \203& \310\312 \"\210
)\207" [org-publish-use-timestamps-flag filename pub-dir pub-func base-dir rtn t org-publish-cache-file-needs-publishing message "Publishing file %s using `%s'" "Skipping unmodified file %s" org-publish-list-skipped-files] 6 (#$ . 10879)])
#@86 Update publishing timestamp for file FILENAME.
If there is no timestamp, create one.
(defalias 'org-publish-update-timestamp #[(filename &optional pub-dir pub-func base-dir) "\305 \n#\306! \307\f \"*\207" [filename pub-dir pub-func stamp key org-publish-timestamp-filename org-publish-cache-ctime-of-src org-publish-cache-set] 4 (#$ . 11729)])
#@46 Remove all files in the timestamp directory.
(defalias 'org-publish-remove-all-timestamps #[nil "\303\304\n!\205 \305\n!\205 \306\307\310\n\311\312#\"\210\313 *\207" [org-publish-timestamp-directory files dir nil file-exists-p file-directory-p mapc delete-file directory-files full "[^.]\\'" org-publish-reset-cache] 6 (#$ . 12082)])
#@83 Expand projects in PROJECTS-ALIST.
This splices all the components into the list.
(defalias 'org-publish-expand-projects #[(projects-alist) "\305\211\211 \f\211A\242\211\203/ \306\nA\307\"\211\203( \310\311\312 \"\f\"\211\202 \n B\202 \313\314\305 \"!\237,\207" [projects-alist components p rtn rest nil plist-get :components append mapcar #[(x) "\302 \"\207" [x org-publish-project-alist assoc] 3] delete-dups delq] 5 (#$ . 12427)])
#@65 Predicate for `sort', that sorts folders and files for sitemap.
(defalias 'org-publish-compare-directory-files #[(a b) "\306 \204\n \n\203\342 \203\271 \307 \310\"\203x \311 ! \312\313 \"\205\" \f? \311! \312\313\"\2054 ?
\203D \314 !\315 !P\202E \203X \314!\315!P\202Z \203l \226\226\231?\202r \231?.\202\271 \316 \317\"\203\271 \320 ! \320! \321 @\322\" A@\\ \321 @\322\" A@\\ \323=\203\262 X\202\267 Y,\n\203\342 \311 !\203\321 \311!\204\321 \n\324\232\202\342 \311 !\204\342 \311!\203\342 \n\325\232)\207" [retval org-publish-sitemap-sort-files org-publish-sitemap-sort-folders a adir aorg t eql alphabetically file-directory-p string-match "\\.org$" file-name-directory org-publish-find-title memql (anti-chronologically chronologically) org-publish-find-date lsh 16 chronologically first last b bdir borg A B org-publish-sitemap-ignore-case adate bdate] 3 (#$ . 12879)])
#@376 Set `org-publish-temp-files' with files from BASE-DIR directory.
If RECURSE is non-nil, check BASE-DIR recursively. If MATCH is
non-nil, restrict this list to the files matching the regexp
MATCH. If SKIP-FILE is non-nil, skip file matching the regexp
SKIP-FILE. If SKIP-DIR is non-nil, don't check directories
matching the regexp SKIP-DIR when recursing through BASE-DIR.
(defalias 'org-publish-get-base-files-1 #[(base-dir &optional recurse match skip-file skip-dir) "\305\306\204 \307 \310\n#\202 \311\312\307 \310\"\"\f\204 \202\" \313 \314\")\"\207" [recurse base-dir match all-files org-publish-sitemap-requested mapc #[(f) "\306!\307!\211\2032 \2032 \310\311 \"\2042 \f\203# \310\f \"?\202$ \312\2032 \313
\f%\202o \n\206Q \203C \310 \"\206Q \314\315!!?\206Q \310
\"??\205o \316\"\203f \202n B\211)*\207" [f fnd fd-p recurse skip-dir match file-directory-p file-name-nondirectory string-match "^\\.+$" t org-publish-get-base-files-1 file-exists-p file-truename memql skip-file #1=#:var org-publish-temp-files] 7] directory-files t org-remove-if-not #[(file) "\302!\206 \205 \303 \"\207" [file match file-directory-p string-match] 3] sort org-publish-compare-directory-files] 7 (#$ . 13826)])
#@118 Return a list of all files in PROJECT.
If EXCLUDE-REGEXP is set, this will be used to filter out
matching filenames.
(defalias 'org-publish-get-base-files #[(project &optional exclude-regexp) "A\306\307 \310\"!\307 \311\"\307 \312\" \307 \313\"\206 \314 \307 \315\" !\307 \316\"\206+ \317 \"\320 \321\"\203; \307 \321\"\202= # #\320 \322\"\203M \307 \322\"\202a \320 \323\"\203_ \307 \323\"\205a \324\202a $ $\320 \325\"\203q \307 \325\"\202s % &
\326=\203 \327\202\203 \330
\331Q '#\332>\204\217 \333#\333(!\203\266 \334\n\"P! )\335)(\"\203\256 (\210\202\265 )(B()\336\n\f'*\211%\210\337\340 \"\210(. \207" [project project-plist base-dir include-list recurse extension file-name-as-directory plist-get :base-directory :include :recursive :base-extension "org" :auto-sitemap :sitemap-filename "sitemap.org" plist-member :sitemap-sort-folders :sitemap-sort-files :sitemap-alphabetically alphabetically :sitemap-ignore-case any "^[^\\.]" "^[^\\.].*\\.\\(" "\\)$" (first last) nil expand-file-name memql org-publish-get-base-files-1 mapc #[(f) "\304 P!\305\n \"\203 \202 \n B\211)\207" [base-dir f #1=#:var org-publish-temp-files expand-file-name memql] 3] org-publish-sitemap-requested sitemap-filename org-publish-sitemap-sort-folders org-publish-sitemap-sort-files org-publish-sitemap-sort-ignore-case org-publish-sitemap-ignore-case match org-publish-temp-files #2=#:var exclude-regexp] 6 (#$ . 15075)])
#@46 Return the project that FILENAME belongs to.
(defalias 'org-publish-get-project-from-filename #[(filename &optional up) "\306!\307\3102\223 \n\307\211 \205\221 \f@\311 A\312\"\204\211 \311 A\313\" \306\314\311 A\315\"!! \311 A\316\"\2067 \317 \311 A\320\" \311 A\321\" \322
\203R \323\202S \324\325 \326\260 \203j \327\330 \"\235\204 \203w \331 \"\204\207 \331 \"\203\207 @\332\310 \"\210.\fA\211\204 \307*0\210!\203\271 \n\307\211 \203\270 \f@ \311 A\312\"\235\203\261 @\fA\211\204\241 *\333 \n\"*\207" [filename project-name org-publish-project-alist prj --dolist-tail-- r expand-file-name nil p-found plist-get :components :recursive file-name-as-directory :base-directory :base-extension "org" :exclude :include "^" ".+" "[^/]+" "\\.\\(" "\\)$" mapcar #[(file) "\302 \"\207" [file b expand-file-name] 3] string-match throw assoc b x e i xm up] 7 (#$ . 16516)])
#@399 Publish an Org file to a specified back-end.
BACKEND is a symbol representing the back-end used for
transcoding. FILENAME is the filename of the Org file to be
published. EXTENSION is the extension used for the output
string, with the leading dot. PLIST is the property list for the
given project.
Optional argument PUB-DIR, when non-nil is the publishing
directory.
Return output file name.
(defalias 'org-publish-org-to #[(backend filename extension plist &optional pub-dir) "\203 \306!\204 \307\310\"\210\310\311\n!\211\206 \312\n! r\fq\210\313
\314#\315\316\" \317\314\211\211\320\321\322\323\315\321\"BBD\"&+ \204S \324\f!\210+\207" [pub-dir org-inhibit-startup filename visitingp work-buffer extension file-exists-p make-directory t find-buffer-visiting find-file-noselect org-export-output-file-name nil plist-get :body-only org-export-to-file org-combine-plists :filter-final-output org-publish-collect-numbering org-publish-collect-index kill-buffer plist body-p output-file backend] 16 (#$ . 17425)])
#@226 Publish a file with no transformation of any kind.
FILENAME is the filename of the Org file to be published. PLIST
is the property list for the given project. PUB-DIR is the
publishing directory.
Return output file name.
(defalias 'org-publish-attachment #[(plist filename pub-dir) "\302!\204 \303\304\"\210\305\306 !!\307\305!!\232\206# \310 \305\311 !\"\304#\207" [pub-dir filename file-directory-p make-directory t expand-file-name file-name-directory file-name-as-directory copy-file file-name-nondirectory] 5 (#$ . 18474)])
#@253 Publish file FILENAME from PROJECT.
If NO-CACHE is not nil, do not initialize org-publish-cache and
write it to disk. This is needed, since this function is used to
publish single files, when entire projects are published.
See `org-publish-projects'.
(defalias 'org-publish-file #[(filename &optional project no-cache) "\206 \306 !\206 \307\310\311 !\"\211A\312 !\313\n\314\"\206\" \307\315! \316\312\313\n\317\"\2061 \307\320@\"!! \316\321\322\313\n\323\"!\206D \307\324@\"!! \325 !\"\204U \326@!\210\327 \330\331
! \"\205f \332\225\325OP!!\f<\203w \333\334\f\"\210\202\222 \335 \f!
%\203\222 \f\n !#\210\336 \f
$\210\"?\205\232 \337 .\207" [project filename project-plist ftname publishing-function base-dir org-publish-get-project-from-filename error "File %s not part of any known project" abbreviate-file-name expand-file-name plist-get :publishing-function "No publishing function chosen" file-name-as-directory :base-directory "Project %s does not have :base-directory defined" file-truename eval :publishing-directory "Project %s does not have :publishing-directory defined" nil org-publish-initialize-cache file-name-directory string-match regexp-quote 0 mapc #[(f) "\306 \n \f%\205 \n
#\210\307 \n\f$\207" [filename pub-dir f tmp-pub-dir base-dir project-plist org-publish-needed-p org-publish-update-timestamp] 6] org-publish-needed-p org-publish-update-timestamp org-publish-write-cache-file pub-dir tmp-pub-dir no-cache] 7 (#$ . 19019)])
#@163 Publish all files belonging to the PROJECTS alist.
If `:auto-sitemap' is set, publish the sitemap too. If
`:makeindex' is set, also produce a file theindex.org.
(defalias 'org-publish-projects #[(projects) "\301\302\303!\"\207" [projects mapc #[(project) "\306@!\210A\307 \310\"\307 \311\"\307 \312\"\206 \313 \307 \314\"\206# \315 \307 \316\"\206- \307 \317\"\2068 \307 \320\" \307 \321\" \322\n\" !\323\324\307 \325\"\" \"\203^ \326\327!\210 \203g
\f\"\210!\330 #\211 $\203\216 $@\211#\"\232\204\205 \331#\332#\210$A\211$\204r *\307 \333\"\203\245 \334\307 \325\"\"\210\331\"\332#\210 \203\256 \326\335!\210\336 . \207" [project project-plist exclude-regexp sitemap-p sitemap-filename sitemap-function org-publish-initialize-cache plist-get :exclude :auto-sitemap :sitemap-filename "sitemap.org" :sitemap-function org-publish-org-sitemap :sitemap-date-format :sitemap-file-entry-format :preparation-function :completion-function org-publish-get-base-files expand-file-name "theindex.org" :base-directory run-hooks preparation-function nil org-publish-file t :makeindex org-publish-index-generate-theindex completion-function org-publish-write-cache-file org-publish-sitemap-date-format org-publish-sitemap-file-entry-format files theindex file --dolist-tail--] 6] org-publish-expand-projects] 4 (#$ . 20505)])
#@167 Create a sitemap of pages in set defined by PROJECT.
Optionally set the filename of the sitemap with SITEMAP-FILENAME.
Default for SITEMAP-FILENAME is `sitemap.org'.
(defalias 'org-publish-org-sitemap #[(project &optional sitemap-filename) "A\306\307 \310\"!\311\n!\312\313\314\" \307 \315\" \316
\"\237 7\n8\206& \317P 8\307 \320\"\2064 \321@P 9\307 \322\"\206> \323 :\307 \324\" ;\3258! <\3268! =\327\211 > ?r\330 @<\206e \3318!\211?)q\210\332 \210\3339\334Qc\2107\211A7\242\211>\203\245\326>!\335>\n\" A B C;\203\235 \336B!B\3378!\337>!\232\204\241:\340=\203\271 \341\3429\"\210\202P\341\3439\"\210\306\n!\311B!P\211A\230\204P \n\230\203\335 \312\313\314\"\202P\344\345\311\335 \n\"!!\346\"\347\344\335A\n\"\346\" D E F\312\313\314\"D@F@\230\203 \f\312\313\314\"PD\211AD\210F\211AF\210\202\374 F\327 G\211 H\203OH@GEG\346QE\f\350G\351Rc\210\312\fG\313\\\314\"HA\211H\204)-\352I> #\353 J KJK\327\330 L\354#)\266\203\203\224\354JK\"\210\f\350\355\356K\"\357B\360\355\313K\"\361\355\362K\"\351\260\nc\210\202\240\f\363B\360K\364\260c\210*+\202u \365 \210)<\206\262\366?!.\207" [project project-plist dir localdir indent-str exclude-regexp file-name-as-directory plist-get :base-directory file-name-directory make-string 2 32 :exclude org-publish-get-base-files "sitemap.org" :sitemap-title "Sitemap for project " :sitemap-style tree :sitemap-sans-extension find-buffer-visiting file-name-nondirectory nil t find-file erase-buffer "#+TITLE: " "\n\n" file-relative-name file-name-sans-extension file-truename list message "Generating list-style sitemap for %s" "Generating tree-style sitemap for %s" split-string directory-file-name "/" "" " + " "\n" org-publish-format-file-entry "\\(.*\\)\\[\\([^][]+\\)\\]\\(.*\\)" string-match match-string 1 "[[file:" "][" "]]" 3 " + [[file:" "]]\n" save-buffer kill-buffer files sitemap-filename sitemap-title sitemap-style sitemap-sans-extension visiting ifn file sitemap-buffer org-inhibit-startup oldlocal link fn old-subdirs subdir subdirs d --dolist-tail-- org-publish-sitemap-file-entry-format regexp entry inhibit-changing-match-data] 12 (#$ . 21859)])
(defalias 'org-publish-format-file-entry #[(fmt file project-plist) "\305\306\307 \310\"B\311\312\n\313 !\"B\314\315 \316\"\206 \fBE\"\207" [fmt file org-publish-sitemap-date-format project-plist user-full-name format-spec 116 org-publish-find-title t 100 format-time-string org-publish-find-date 97 plist-get :author] 8])
#@36 Find the title of FILE in project.
(defalias 'org-publish-find-title #[(file &optional reset) "\204
\306 \307\310\311$\206\231 \311\312 !\211\206 \313 ! r\fq\210\314 \2036 \315 \316\216r
q\210eb\210\317 +\2028 \317 \307\"\211 \203 \320!\310 \321\322!\203\\ \322\323G\310$\210\202y \203o \324\323G $\210\202y \322\323G\310$\210*\202\204 \325\326 !!) \204\217 \327\f!\210\330 \307 #\210 -\207" [reset file org-inhibit-startup visiting buffer #1=#:--buf-copy org-publish-cache-get-file-property :title nil t find-buffer-visiting find-file-noselect plist-get org-export-copy-buffer #[nil "\301!\205 rq\210\302\303!\210)\304!\207" [#1# buffer-live-p restore-buffer-modified-p nil kill-buffer] 2] org-export-get-environment org-element-interpret-data fboundp set-text-properties 0 remove-text-properties file-name-nondirectory file-name-sans-extension kill-buffer org-publish-cache-set-file-property property restricted s org-rm-props title] 6 (#$ . 24367)])
#@258 Find the date of FILE in project.
This function assumes FILE is either a directory or an Org file.
If FILE is an Org file and provides a DATE keyword use it. In
any other case use the file system's modification time. Return
time in `current-time' format.
(defalias 'org-publish-find-date #[(file) "\306!\203\f \307\310!8\207\311\312!\211\206 \313\314\"\315r q\210\n\2036 \316 \317\216r\fq\210eb\210\320 +\2028 \320 )\321\" \n\204D \322 !\210
\211 :\204V ;\205` \323\202` @9\205` @)\324=\203n \325\326
!!\202\244
:\205v \324
\236\211 \205\216 \326 ! \327 !\205\215 \325 !))\206\244 \330!\203\240 \307\310!8\202\244 \331\332\",\207" [file org-inhibit-startup visiting file-buf #1=#:--buf-copy date file-directory-p 5 file-attributes t find-buffer-visiting find-file-noselect nil plist-get org-export-copy-buffer #[nil "\301!\205 rq\210\302\303!\210)\304!\207" [#1# buffer-live-p restore-buffer-modified-p nil kill-buffer] 2] org-export-get-environment :date kill-buffer plain-text timestamp org-time-string-to-time org-element-interpret-data org-string-nw-p file-exists-p error "No such file: \"%s\"" element ts value] 4 (#$ . 25365)])
(defalias 'org-publish-project 'org-publish)
#@311 Publish PROJECT.
PROJECT is either a project name, as a string, or a project
alist (see `org-publish-project-alist' variable).
When optional argument FORCE is non-nil, force publishing all
files in PROJECT. With a non-nil optional argument ASYNC,
publishing will be done asynchronously, in another process.
(defalias 'org-publish #[(project &optional force async) ";\204\n C\202 \306 \"C \203\330 \307\310 \311\216
\203& \312 \313\314
\"\210\315p!\316\317!? @ A BA\320\321\322!! C D\323\216rCq\210\324\325@\326\327\330\331\332BD\333\334\335\336\337\340\341ED\310 FDC\342\341\nDDEDD\257#c\210)rCq\210\343\310\211D\310\344%\210,\310 F\321\345! G\346\317G\347HI\"\350\351\352J\352A& K\353\354G!\310K#\210\355 L\356K\357\360\336\361\362\363\364\340\365\364\336\366\332L\367BBE\370BB\371BBB\372\373\374ADEEEEE\".\n\202\354 \375 M\376\216E?\205\346 \342\n!+)\207" [project org-publish-project-alist project-alist async #1=#:current-message #2=#:with-temp-message assoc "Initializing asynchronous export process" nil #[nil "\205 \203
\302\303 \"\207\302\304!\207" [#2# #1# message #3="%s" nil] 3] current-message message #3# org-export--generate-copy-script make-temp-file "org-export-process" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#4=#:temp-buffer buffer-name kill-buffer] 2] format ";; -*- coding: %s; -*-\n%S" with-temp-buffer (when org-export-async-debug '(setq debug-on-error t)) (setq kill-emacs-hook nil org-babel-confirm-evaluate-answer-no t) (require 'ox) funcall (restore-buffer-modified-p nil) print progn let org-publish-use-timestamps-flag if quote org-publish-projects write-region 0 "*Org Export Process*" start-process expand-file-name "-Q" "--batch" "-l" org-export-add-to-stack get-buffer #[(results) "\300\207" [nil] 1] set-process-sentinel lambda (p status) ((proc-buffer (process-buffer p))) when (eq (process-status p) 'exit) unwind-protect (zerop (process-exit-status p)) ((results (with-current-buffer proc-buffer (goto-char (point-max)) (backward-sexp) (read (current-buffer))))) (results) ((unless org-export-async-debug (and (get-buffer proc-buffer) (kill-buffer proc-buffer)))) ((org-export-add-to-stack proc-buffer nil p) (ding) (message "Process `%s' exited abnormally" p)) unless org-export-async-debug delete-file current-window-configuration #[nil "\301!\207" [#5=#:wconfig set-window-configuration] 2] buffer-file-coding-system #6=#:--coding #7=#:--temp-file #8=#:--copy-fun #4# #9=#:temp-file force process-connection-type #10=#:--proc-buffer invocation-name invocation-directory org-export-async-init-file #11=#:--process handler #5#] 17 (#$ . 26582) (list (assoc (org-icompleting-read "Publish project: " org-publish-project-alist nil t) org-publish-project-alist) current-prefix-arg)])
#@231 Publish all projects.
With prefix argument FORCE, remove all files in the timestamp
directory and force publishing all projects. With a non-nil
optional argument ASYNC, publishing will be done asynchronously,
in another process.
(defalias 'org-publish-all #[(&optional force async) "\203\312 \306\307\310\216\n\203 \311 \312\313\n\"\210\314p!\315\316! @
\317\320\321!! A B\322\216rAq\210\323\324\f\325\326\327\330\331@D\332\333\334\211\335\336CD\337BB\340\341\342\336CD\307!FDC\343\336DDDEEDD\257#c\210)rAq\210\344\307\211B\307\345%\210,\307 E\320\346! F\347\316F\350GH\"\351\352\353I\353
& J\354\355F!\307J#\210\356 K\357J\360\361\340\362\335\363\364\342\365\364\340\366\331K\367BBE\370BB\371BBB\372\373\374
DEEEEE\".\n\207C\203\322 \375 \210\376 L\377\216C?\205\340 ! !\343D!+\207" [async #1=#:current-message #2=#:with-temp-message buffer-file-coding-system #3=#:--coding #4=#:--temp-file "Initializing asynchronous export process" nil #[nil "\205 \203
\302\303 \"\207\302\304!\207" [#2# #1# message #5="%s" nil] 3] current-message message #5# org-export--generate-copy-script make-temp-file "org-export-process" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#6=#:temp-buffer buffer-name kill-buffer] 2] format ";; -*- coding: %s; -*-\n%S" with-temp-buffer (when org-export-async-debug '(setq debug-on-error t)) (setq kill-emacs-hook nil org-babel-confirm-evaluate-answer-no t) (require 'ox) funcall (restore-buffer-modified-p nil) print progn when quote ((org-publish-remove-all-timestamps)) let org-publish-use-timestamps-flag if org-publish-projects write-region 0 "*Org Export Process*" start-process expand-file-name "-Q" "--batch" "-l" org-export-add-to-stack get-buffer #[(results) "\300\207" [nil] 1] set-process-sentinel lambda (p status) ((proc-buffer (process-buffer p))) (eq (process-status p) 'exit) unwind-protect (zerop (process-exit-status p)) ((results (with-current-buffer proc-buffer (goto-char (point-max)) (backward-sexp) (read (current-buffer))))) (results) ((unless org-export-async-debug (and (get-buffer proc-buffer) (kill-buffer proc-buffer)))) ((org-export-add-to-stack proc-buffer nil p) (ding) (message "Process `%s' exited abnormally" p)) unless org-export-async-debug delete-file org-publish-remove-all-timestamps current-window-configuration #[nil "\301!\207" [#7=#:wconfig set-window-configuration] 2] #8=#:--copy-fun #6# #9=#:temp-file force org-publish-project-alist process-connection-type #10=#:--proc-buffer invocation-name invocation-directory org-export-async-init-file #11=#:--process handler #7#] 19 (#$ . 29400) "P"])
#@181 Publish the current file.
With prefix argument FORCE, force publish the file. When
optional argument ASYNC is non-nil, publishing will be done
asynchronously, in another process.
(defalias 'org-publish-current-file #[(&optional force async) "\306\307 ! \203\310 \310\311\312\216 \203 \313 \314\315 \"\210\316p!\317\320!\f @ A@\321\322\323!! B C\324\216rBq\210\325\326
\327\330\331\332\333AD\334\335\336\337\340\341\342DD\311 FDC\343DEDD\257#c\210)rBq\210\344\311\211C\311\345%\210,\311 E\322\346! F\347\320F\350GH\"\351\352\353I\353@& J\354\355F!\311J#\210\356 K\357J\360\361\337\362\363\364\365\341\366\365\337\367\333K\370BBE\371BB\372BBB\373\374\375@DEEEEE\".\n\202\334 \376 L\377\216D?\205\326 \343!+)\207" [file async #1=#:current-message #2=#:with-temp-message buffer-file-coding-system #3=#:--coding buffer-file-name buffer-base-buffer "Initializing asynchronous export process" nil #[nil "\205 \203
\302\303 \"\207\302\304!\207" [#2# #1# message #4="%s" nil] 3] current-message message #4# org-export--generate-copy-script make-temp-file "org-export-process" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#5=#:temp-buffer buffer-name kill-buffer] 2] format ";; -*- coding: %s; -*-\n%S" with-temp-buffer (when org-export-async-debug '(setq debug-on-error t)) (setq kill-emacs-hook nil org-babel-confirm-evaluate-answer-no t) (require 'ox) funcall (restore-buffer-modified-p nil) print progn let org-publish-use-timestamps-flag if quote org-publish-file write-region 0 "*Org Export Process*" start-process expand-file-name "-Q" "--batch" "-l" org-export-add-to-stack get-buffer #[(results) "\300\207" [nil] 1] set-process-sentinel lambda (p status) ((proc-buffer (process-buffer p))) when (eq (process-status p) 'exit) unwind-protect (zerop (process-exit-status p)) ((results (with-current-buffer proc-buffer (goto-char (point-max)) (backward-sexp) (read (current-buffer))))) (results) ((unless org-export-async-debug (and (get-buffer proc-buffer) (kill-buffer proc-buffer)))) ((org-export-add-to-stack proc-buffer nil p) (ding) (message "Process `%s' exited abnormally" p)) unless org-export-async-debug delete-file current-window-configuration #[nil "\301!\207" [#6=#:wconfig set-window-configuration] 2] #7=#:--temp-file #8=#:--copy-fun #5# #9=#:temp-file force process-connection-type #10=#:--proc-buffer invocation-name invocation-directory org-export-async-init-file #11=#:--process handler #6#] 17 (#$ . 32052) "P"])
#@125 Publish the project associated with the current file.
With a prefix argument, force publishing of all files in
the project.
(defalias 'org-publish-current-project #[(&optional force async) "\304 \305\216\306\307\310 !\311\"\211\203 \312 \n #\202 \313\314\307\310 !\"+\207" [#1=#:wconfig project force async current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] org-publish-get-project-from-filename buffer-file-name buffer-base-buffer up org-publish error "File %s is not part of any known project"] 5 (#$ . 34572) "P"])
#@669 Update index for a file in cache.
OUTPUT is the output from transcoding current file. BACKEND is
the back-end that was used for transcoding. INFO is a plist
containing publishing and export options.
The index relative to current file is stored as an alist. An
association has the following shape: (TERM FILE-NAME PARENT),
where TERM is the indexed term, as a string, FILE-NAME is the
original full path of the file where the term in encountered, and
PARENT is a reference to the headline, if any, containing the
original index keyword. When non-nil, this reference is a cons
cell. Its CAR is a symbol among `id', `custom-id' and `name' and
its CDR is a string.
(defalias 'org-publish-collect-index #[(output backend info) "\303\304\"\305 \306\307\310\303\311\"\312\313$!#\210)\n\207" [info file output plist-get :input-file org-publish-cache-set-file-property :index delete-dups org-element-map :parse-tree keyword #[(k) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312\232\205\252 \313!\314 ;\2032 \307\310\n #\2028 \311 A@\n\"*\f \204B \315\202\250 \316 ;\203S \307\310\n #\202Y \311 A@\n\"*\211 \205b \305
B)\206\250 \317 ;\203w \307\310\n #\202} \311 A@\n\"*\211 \205\206 \320
B)\206\250 \321\322\323\324\325 ;\203\237 \307\310\n #\202\245 \311 A@\n\"*#BE)\207" [k element property parent file id :key get-text-property 0 plist-get "INDEX" org-export-get-parent-headline :value nil :ID :CUSTOM_ID custom-id name replace-regexp-in-string "\\[[0-9]+%\\]\\|\\[[0-9]+/[0-9]+\\]" "" :raw-value] 11]] 9 (#$ . 35132)])
#@143 Retrieve full index from cache and build "theindex.org".
PROJECT is the project the index relates to. DIRECTORY is the
publishing directory.
(defalias 'org-publish-index-generate-theindex #[(project directory) "\306\307A\310\"\"\311\211\311\211 \203B \f@\312 \313\"\211 \311 2\211 \203: \f@\2112 \235\2043 2 B\fA\211\204$ +\fA\211\204 \311\314 \237\315\"*\316\3173\"\320\321\322!! 4 5\323\216r4q\210\311\211 6 7 \311 8\211 \203\212\f@8\3248@\325\"\211 9@\326\327O\226 :\3308A@\307A\331\"\":7\230\204\236 \332\333:\"c\21096\232\203\255 9GS\202\350 \326 ;9G <\334 =\311 >;<X\203\345 ;98;68\232\204\334 ;>\311\211=\203\345 ;T\211;\202\275 >,\211 ?9\233G\211 @\326 ; A;AW\203y\335?;\\\336_\337\"\340@S;U\204 ?;\\98\202l\33688 B\332\341B@ C\342C\343\"\203:\332\344 \"\202d\345C\346\"\203K\332\347BA\"\202d\345C\350\"\203]\332\351 BA#\202d\332\352 BA#)\3539!@#)\354Rc\210;T\211;\202\371 ,:796+\fA\211\204o ,\316\3553\" D\356D!?\205\276D\320\321\322!! E F\357\216rEq\210\360c)rEq\210\361\311\211F\311\326%\210,*r4q\210\361\311\2115\311\326%\210.\207" [project full-index all-files file --dolist-tail-- index org-publish-get-base-files plist-get :exclude nil org-publish-cache-get-file-property :index sort #[(a b) "@\227 @\227\231\207" [a b] 2] expand-file-name "theindex.inc" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] org-split-string "!" 0 1 file-relative-name :base-directory format "* %s\n" t make-string 2 32 " - " "[[%s][%s]]" memql 'nil "file:%s" eql id "id:%s" custom-id "file:%s::#%s" "file:%s::*%s" last "\n" "theindex.org" file-exists-p #[nil "\301!\205 \302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] "#+TITLE: Index\n\n#+INCLUDE: \"theindex.inc\"\n\n" write-region term directory #1# #3=#:temp-file last-entry current-letter idx entry letter n #4=#:--cl-var-- #5=#:--cl-var-- #6=#:--cl-var-- rank len --dotimes-limit-- target #7=#:temp index\.org #2# #8=#:temp-file] 9 (#$ . 36682)])
(defalias 'org-publish-collect-numbering #[(output backend info) "\302\303\304\"\305\306\307\303\310\"\"#\210 \207" [info output org-publish-cache-set-file-property plist-get :input-file :numbering mapcar #[(entry) "\303\304\305\306\307@ ;\203 \310\311\n #\202 \312 A@\n\"*#!AB\207" [entry element property org-split-string replace-regexp-in-string "\\[[0-9]+%\\]\\|\\[[0-9]+/[0-9]+\\]" "" :raw-value get-text-property 0 plist-get] 8] :headline-numbering] 8])
#@210 Return numbering for headline matching FUZZY search in FILE.
Return value is a list of numbers, or nil. This function allows
the resolution of external fuzzy links like:
[[file.org::*fuzzy][description]]
(defalias 'org-publish-resolve-external-fuzzy-link #[(file fuzzy) "\205! \303\304 \305H\306=\203 \307\310O\202 !\311\312\n!\313\310\314$\"A\207" [org-publish-cache fuzzy file assoc org-split-string 0 42 1 nil org-publish-cache-get-file-property expand-file-name :numbering t] 7 (#$ . 39241)])
#@68 Write `org-publish-cache' to file.
If FREE-CACHE, empty the cache.
(defalias 'org-publish-write-cache-file #[(&optional free-cache) "\204 \306\307!\210\310\311!\211\204 \306\312!\210 \313\314\315!!\316\216r\nq\210\317\211 \320c\210\321\322\"\210+r\nq\210\323\317\211 \317\324%\210,\205C \325 )\207" [org-publish-cache cache-file #1=#:temp-buffer #2=#:temp-file print-length print-level error "`org-publish-write-cache-file' called, but no cache present" org-publish-cache-get ":cache-file:" "Cannot find cache-file name in `org-publish-write-cache-file'" get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] nil "(setq org-publish-cache (make-hash-table :test 'equal :weakness nil :size 100))\n" maphash #[(k v) "\302\303<\204\f 9\203 \304\202 \305\306Q #c\207" [v k format "(puthash %S " "'" "" "%S org-publish-cache)\n"] 4] write-region 0 org-publish-reset-cache free-cache] 7 (#$ . 39754)])
#@69 Initialize the projects cache if not initialized yet and return it.
(defalias 'org-publish-initialize-cache #[(project-name) "\204 \305\306!\210\307 !\204 \310 \311\"\210\312 !\204 \305\313 \"\210\n\203* \314\315!\230\204d \316 !\317Q\307 ! \n\203< \320 \210\f\203G \321 !\210\202[ \322\323\324\325\326\327\330&\331\315\"\210\331\332 \"\210\f\204c \333\326!\210*\n\207" [project-name org-publish-timestamp-directory org-publish-cache cache-file cexists error "Cannot initialize `org-publish-cache' without projects name in `org-publish-initialize-cache'" file-exists-p make-directory t file-directory-p "Org publish timestamp: %s is not a directory" org-publish-cache-get ":project:" expand-file-name ".cache" org-publish-reset-cache load-file make-hash-table :test equal :weakness nil :size 100 org-publish-cache-set ":cache-file:" org-publish-write-cache-file] 7 (#$ . 40738)])
#@43 Empty org-publish-cache and reset it nil.
(defalias 'org-publish-reset-cache #[nil "\301\302\303\"\210\304!\203 \305!\210\306\211\207" [org-publish-cache message "%s" "Resetting org-publish-cache" hash-table-p clrhash nil] 3 (#$ . 41634)])
#@232 Check the timestamp of the last publishing of FILENAME.
Return non-nil if the file needs publishing. Also check if
any included files have been more recently published, so that
the file including them will be republished as well.
(defalias 'org-publish-cache-file-needs-publishing #[(filename &optional pub-dir pub-func base-dir) "\204 \306\307!\210\310\311\n \f# \312
! \310 \313\n! \314\211 \315\n!\316\232\203t \317\320\n!! r q\210eb\210\321\322\314\310#\203i \320\323\324!! \325 !\211 ! \235\203\\ \210\202e \326 !C\" *\202: ) \204t \327 !\210\204} \310\202\232 \325\n! \"\"W\206\231 \205\231 \330\314\331\332 \"\"??).\207" [org-publish-cache case-fold-search filename pub-dir pub-func key error "`org-publish-cache-file-needs-publishing' called, but no cache present" t org-publish-timestamp-filename org-publish-cache-get find-buffer-visiting nil file-name-extension "org" find-file expand-file-name re-search-forward "^#\\+INCLUDE:[ ]+\"\\([^ \n
\"]*\\)\"[ ]*.*$" match-string 1 org-publish-cache-ctime-of-src append kill-buffer delq mapcar #[(ct) " W\207" [ctime ct] 2] pstamp org-inhibit-startup visiting included-files-ctime buf included-file #1=#:x ctime] 6 (#$ . 41885)])
#@174 Set the VALUE for a PROPERTY of file FILENAME in publishing cache to VALUE.
Use cache file of PROJECT-NAME. If the entry does not exist, it
will be created. Return VALUE.
(defalias 'org-publish-cache-set-file-property #[(filename property value &optional project-name) "\203 \305!\210\306 !\211\203 \307\n \f#\210\f\202! \310 \f\311%)\207" [project-name filename pl property value org-publish-initialize-cache org-publish-cache-get plist-put org-publish-cache-get-file-property nil] 7 (#$ . 43110)])
#@242 Return the value for a PROPERTY of file FILENAME in publishing cache.
Use cache file of PROJECT-NAME. Return the value of that PROPERTY
or DEFAULT, if the value does not yet exist. If the entry will
be created, unless NO-CREATE is not nil.
(defalias 'org-publish-cache-get-file-property #[(filename property &optional default no-create project-name) "\203 \306!\210\307 !\310\211\203& \311 \f\"\203! \312 \f\"\2024
\2024 \f\2042 \313 \f
D\"\210
\n*\207" [project-name filename retval pl property default org-publish-initialize-cache org-publish-cache-get nil plist-member plist-get org-publish-cache-set no-create] 5 (#$ . 43626)])
#@132 Return the value stored in `org-publish-cache' for key KEY.
Returns nil, if no value or nil is found, or the cache does not
exist.
(defalias 'org-publish-cache-get #[(key) "\204 \302\303!\210\304 \"\207" [org-publish-cache key error "`org-publish-cache-get' called, but no cache present" gethash] 3 (#$ . 44276)])
#@82 Store KEY VALUE pair in `org-publish-cache'.
Returns value on success, else nil.
(defalias 'org-publish-cache-set #[(key value) "\204 \303\304!\210\305 \n#\207" [org-publish-cache key value error "`org-publish-cache-set' called, but no cache present" puthash] 4 (#$ . 44599)])
#@38 Get the ctime of FILE as an integer.
(defalias 'org-publish-cache-ctime-of-src #[(file) "\302\303\304!\206 \305!\"!\211\204 \306\307\"\202' \310\311 8@\312\"\311 8A@\\)\207" [file attr file-attributes expand-file-name file-symlink-p file-name-directory error "No such file: \"%s\"" lsh 5 16] 6 (#$ . 44885)])
(provide 'ox-publish)
Kontol Shell Bypass