;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:07:57 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-publish.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\300\303!\210\304\305!\204\306\305\307\310B\"\210\300\207" [require org org-exp format-spec fboundp declare-function defalias macro #[(fn file &optional arglist fileonly) "\300\207" [nil] 1]] 4)
#@48 The buffer `org-publish' has been called from.
(defvar org-publish-initial-buffer nil (#$ . 793))
#@42 Temporary list of files to be published.
(defvar org-publish-temp-files nil (#$ . 897))
#@109 This will cache timestamps and titles for files in publishing projects.
Blocks could hash sha1 values here.
(defvar org-publish-cache nil (#$ . 992))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\302\312\306\301\313\314&\210\310\315\316\317\306\301\313\320&\210\310\321\322\323\306\301\313\324&\210\310\325\316\326\306\301\313\320&\210\310\327\302\330\306\301\313\331&\210\310\332\302\333\306\301\313\331&\210\310\334\335\336\306\301\337\340\313\341&	\210\310\342\343\344\306\301\337\340\313\341&	\210\310\345\302\346\306\301\337\340\313\320&	\210\310\347\350\351\306\301\337\340\313\352&	\210\310\353\354\355\306\301\337\340\313\352&	\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, alternating\n   keys and values, specifying parameters for the publishing process.\n\n     (:property value :property value ... )\n\n2. A meta-project definition, specifying of a list of 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 are\ntaken to be components of the project, which group together files\nrequiring different publishing options.  When you publish such a\nproject with \\[org-publish], the components all publish.\n\nWhen a property is given a value in org-publish-project-alist, its\nsetting overrides the value of the corresponding user variable\n(if any) during publishing.  However, options set within a file\noverride everything.\n\nMost properties are optional, but some should always be set:\n\n  :base-directory        Directory containing publishing source files\n  :base-extension        Extension (without the dot!) of source files.\n                         This can be a regular expression.  If not given,\n                         \"org\" will be used as default extension.\n  :publishing-directory  Directory (possibly remote) where output\n                         files will be 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, the\nexclusion 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 set\nof output formats.\n\n  :publishing-function     Function to publish file.  The default is\n                           `org-publish-org-to-html', but other\n                           values are possible.  May also be a\n                           list of functions, in which case\n                           each function in the list is invoked\n                           in turn.\n\nAnother property allows you to insert code that prepares a\nproject for publishing.  For example, you could call GNU Make on a\ncertain makefile, to ensure published files are built up to date.\n\n  :preparation-function   Function to be called before publishing\n                          this project.  This may also be a list\n                          of functions.\n  :completion-function    Function to be called after publishing\n                          this project.  This may also be a list\n                          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.  See the documentation for those variables to\nlearn more about their use and default values.\n\n  :language              `org-export-default-language'\n  :headline-levels       `org-export-headline-levels'\n  :section-numbers       `org-export-with-section-numbers'\n  :table-of-contents     `org-export-with-toc'\n  :emphasize             `org-export-with-emphasize'\n  :sub-superscript       `org-export-with-sub-superscripts'\n  :TeX-macros            `org-export-with-TeX-macros'\n  :fixed-width           `org-export-with-fixed-width'\n  :tables                `org-export-with-tables'\n  :table-auto-headline   `org-export-highlight-first-table-line'\n  :style                 `org-export-html-style'\n  :convert-org-links     `org-export-html-link-org-files-as-html'\n  :inline-images         `org-export-html-inline-images'\n  :expand-quoted-html    `org-export-html-expand'\n  :timestamp             `org-export-html-with-timestamp'\n  :publishing-directory  `org-export-publishing-directory'\n  :html-preamble         `org-export-html-preamble'\n  :html-postamble        `org-export-html-postamble'\n  :author                `user-full-name'\n  :email                 `user-mail-address'\n\nThe following properties may be used to control publishing of a\nsitemap of files or summary page for a given project.\n\n  :auto-sitemap           Whether to publish a sitemap during\n                         `org-publish-current-project' or `org-publish-all'.\n  :sitemap-filename      Filename for output of sitemap.  Defaults\n                         to 'sitemap.org' (which becomes 'sitemap.html').\n  :sitemap-title         Title of sitemap page.  Defaults to name of file.\n  :sitemap-function      Plugin function to use for generation of sitemap.\n                         Defaults to `org-publish-org-sitemap', which\n                         generates a plain list of links to all files\n                         in the project.\n  :sitemap-style         Can be `list' (sitemap is just an itemized list\n                         of the titles of the files involved) or\n                         `tree' (the directory structure of the source\n                         files is reflected in the sitemap).  Defaults to\n                         `tree'.\n  :sitemap-sans-extension Remove extension from sitemap's\n                           filenames.  Useful to have cool\n                           URIs (see\n                           http://www.w3.org/Provider/Style/URI).\n                           Defaults to nil.\n\n  If you create a sitemap file, adjust the sorting like this:\n\n  :sitemap-sort-folders    Where folders should appear in the sitemap.\n                           Set this to `first' (default) or `last' to\n                           display folders first or last, respectively.\n                           Any other value will mix files and folders.\n  :sitemap-sort-files      The site map is normally sorted alphabetically.\n                           You can change this behaviour setting this to\n                           `chronologically', `anti-chronologically' or nil.\n  :sitemap-ignore-case     Should sorting be case-sensitive?  Default nil.\n\nThe following properties control the creation of a concept index.\n\n  :makeindex             Create a concept index.\n\nOther properties affecting publication.\n\n  :body-only              Set this to 't' to publish only the body of the\n                         documents, excluding everything outside and\n                         including the <body> tags in HTML, or\n                         egin{document}..nd{document} in LaTeX." :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-before-export-hook "Hook run before export on the Org file.\nThe hook may modify the file in arbitrary ways before publishing happens.\nThe original version of the buffer will be restored after publishing." hook org-publish-after-export-hook "Hook run after export on the exported buffer.\nAny changes made by this hook will be saved." org-publish-sitemap-sort-files 'alphabetically "How sitemaps files should be sorted by default?\nPossible values are `alphabetically', `chronologically', `anti-chronologically' and nil.\nIf `alphabetically', files will be sorted alphabetically.\nIf `chronologically', files will be sorted with older modification time first.\nIf `anti-chronologically', files will be sorted with newer modification time first.\nnil won't sort files.\n\nYou can overwrite this default per project in your\n`org-publish-project-alist', using `:sitemap-sort-files'." :version "24.1" 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 "Sort sitemaps case insensitively by default?\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 `format-time-string' which is used to print a date\nin the sitemap." string org-publish-sitemap-file-entry-format "%t" "How a sitemap file entry is formatted.\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'."] 10)
(defalias 'org-publish-sanitize-plist #[(plist) "\301\302\"\207" [plist mapcar #[(x) "\301\236A\206\207" [x ((:index-filename . :sitemap-filename) (:index-title . :sitemap-title) (:index-function . :sitemap-function) (:index-style . :sitemap-style) (:auto-index . :auto-sitemap))] 2]] 3])
#@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 (#$ . 11436)])
#@428 Return t 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) "\203
\306	\n\f$\202\307\211\203\310\311	#\210\202&\203&\310\312	\"\210
)\207" [org-publish-use-timestamps-flag filename pub-dir pub-func base-dir rtn org-publish-cache-file-needs-publishing t message "Publishing file %s using `%s'" "Skipping unmodified file %s" org-publish-list-skipped-files] 6 (#$ . 11757)])
#@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 (#$ . 12609)])
#@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 (#$ . 12962)])
(byte-code "\300\301!\203\302\303\301\"\210\202\302\303\304\"\210\300\207" [fboundp delete-dups defalias org-publish-delete-dups #[(list) "\211\203	\302	@	A\"\241\210	A\211\204)\207" [list tail delete] 5 "Destructively remove `equal' duplicates from LIST.\nStore the result in LIST and return it.  LIST must be a proper list.\nOf several `equal' occurrences of an element in LIST, the first\none is kept.\n\nThis is a compatibility function for Emacsen without `delete-dups'."]] 3)
#@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@\211\203/\306\nA\307\"\211\203(\310\311\312	\"\f\"\211\202	\nB\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] org-publish-delete-dups delq] 5 (#$ . 13801)])
#@65 Predicate for `sort', that sorts folders and files for sitemap.
(defalias 'org-publish-compare-directory-files #[(a b) "\306	\204\n\n\203\356	\203\305	\307\232\203w\310!\311\312\"\205!\f?\310!\311\312\"\2053?
\203C\313!\314!P\202D\203W\313!\314!P\202Y\203k\226\226\231?\202q\231?.\202\305	\315\232\204\203	\316\232\203\305\317!\317!\320@\321\"\211A@)\\\320@\321\"\211A@)\\	\315\232\203\276X\202\303Y,\n\203\356\310!\203\335\310!\204\335\n\322\232\202\356\310!\204\356\310!\203\356\n\323\232)\207" [retval org-sitemap-sort-files org-sitemap-sort-folders a adir aorg t alphabetically file-directory-p string-match "\\.org$" file-name-directory org-publish-find-title chronologically anti-chronologically org-publish-find-date lsh 16 first last b bdir borg A B org-sitemap-ignore-case adate bdate x] 4 (#$ . 14262)])
#@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) "\304\305\203\306\307	\310\n?\205#\311\"\202 \307	\310\n?\205#\"\207" [org-sitemap-requested base-dir recurse match 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\202nB\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] sort directory-files t org-publish-compare-directory-files] 7 (#$ . 15189)])
#@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\nB\211)\207" [base-dir f #1=#:var org-publish-temp-files expand-file-name memql] 3] org-sitemap-requested sitemap-filename org-publish-sitemap-sort-folders org-sitemap-sort-folders org-publish-sitemap-sort-files org-sitemap-sort-files org-publish-sitemap-sort-ignore-case org-sitemap-ignore-case match org-publish-temp-files #2=#:var exclude-regexp] 6 (#$ . 16301)])
#@46 Return the project that FILENAME belongs to.
(defalias 'org-publish-get-project-from-filename #[(filename &optional up) "\306!\307\310\311\215\210\n\203.\307\211\203-
@	\312\fA\313\"\235\203&\f@
A\211\204*\314	\"*\207" [filename project-name up org-publish-project-alist prj --dolist-tail-- expand-file-name nil p-found (byte-code "\306\211\203\207\n@\307	A\310\"\204\200\307	A\311\"\312\313\307	A\314\"!!\307	A\315\"\206,\316\307	A\317\"\307	A\320\"\321\f\203E\322\202F\323\324
\325\260\203]\326\327\"\235\204t\203k\330\"\204~\330\"\203~	@\331\332\"\210.\nA\211\204*\306\207" [org-publish-project-alist prj --dolist-tail-- r b x nil plist-get :components :recursive expand-file-name file-name-as-directory :base-directory :base-extension "org" :exclude :include "^" ".+" "[^/]+" "\\.\\(" "\\)$" mapcar #[(file) "\302	\"\207" [file b expand-file-name] 3] string-match throw p-found e i xm filename project-name] 7) plist-get :components assoc] 5 (#$ . 17774)])
#@177 Publish an org file to FORMAT.
PLIST is the property list for the given project.
FILENAME is the filename of the org file to be published.
PUB-DIR is the publishing directory.
(defalias 'org-publish-org-to #[(format plist filename pub-dir) "\306\307!\210\310!\204\311\312\"\210\313	!\212\314\n\206\315	!!\210\316\312BBp`\317 \320 \321\322!\210\323\324!P!\325\326\"\320\325\327\"% \330 !\203j\331 !\203j q\210\321\332!\210\333 \203e\334 \210\335 !\210\fq\210\333\f!\203\200\336 \210c\210\334 \210
b\210\n?\205\210\335\f!.\207" [pub-dir filename visiting plist init-buf init-point require org file-exists-p make-directory t find-buffer-visiting org-pop-to-buffer-same-window find-file :buffer-will-be-killed buffer-string nil run-hooks org-publish-before-export-hook intern "org-export-as-" plist-get :headline-levels :body-only bufferp buffer-live-p org-publish-after-export-hook buffer-modified-p save-buffer kill-buffer erase-buffer init-buf-string export-buf-or-file format] 7 (#$ . 18807)])
#@60 Execute BODY with a modified hook to preprocess for index.
(defalias 'org-publish-with-aux-preprocess-maybe '(macro . #[(&rest body) "\301\302BB\207" [body let ((org-export-preprocess-after-headline-targets-hook (if (plist-get project-plist :makeindex) (cons 'org-publish-aux-preprocess org-export-preprocess-after-headline-targets-hook) org-export-preprocess-after-headline-targets-hook)))] 3 (#$ . 19839)]))
(put 'org-publish-with-aux-preprocess-maybe 'edebug-form-spec '(body))
#@82 Publish an org file to LaTeX.
See `org-publish-org-to' to the list of arguments.
(defalias 'org-publish-org-to-latex #[(plist filename pub-dir) "\305\306\"\203
\307	B\202	\310\311\n\f$)\207" [project-plist org-export-preprocess-after-headline-targets-hook plist filename pub-dir plist-get :makeindex org-publish-aux-preprocess org-publish-org-to "latex"] 5 (#$ . 20327)])
#@92 Publish an org file to PDF (via LaTeX).
See `org-publish-org-to' to the list of arguments.
(defalias 'org-publish-org-to-pdf #[(plist filename pub-dir) "\305\306\"\203
\307	B\202	\310\311\n\f$)\207" [project-plist org-export-preprocess-after-headline-targets-hook plist filename pub-dir plist-get :makeindex org-publish-aux-preprocess org-publish-org-to "pdf"] 5 (#$ . 20711)])
#@81 Publish an org file to HTML.
See `org-publish-org-to' to the list of arguments.
(defalias 'org-publish-org-to-html #[(plist filename pub-dir) "\305\306\"\203
\307	B\202	\310\311\n\f$)\207" [project-plist org-export-preprocess-after-headline-targets-hook plist filename pub-dir plist-get :makeindex org-publish-aux-preprocess org-publish-org-to "html"] 5 (#$ . 21101)])
#@81 Publish an org file to HTML.
See `org-publish-org-to' to the list of arguments.
(defalias 'org-publish-org-to-org #[(plist filename pub-dir) "\303\304	\n$\207" [plist filename pub-dir org-publish-org-to "org"] 5 (#$ . 21482)])
#@82 Publish an org file to ASCII.
See `org-publish-org-to' to the list of arguments.
(defalias 'org-publish-org-to-ascii #[(plist filename pub-dir) "\305\306\"\203
\307	B\202	\310\311\n\f$)\207" [project-plist org-export-preprocess-after-headline-targets-hook plist filename pub-dir plist-get :makeindex org-publish-aux-preprocess org-publish-org-to "ascii"] 5 (#$ . 21716)])
#@84 Publish an org file to Latin-1.
See `org-publish-org-to' to the list of arguments.
(defalias 'org-publish-org-to-latin1 #[(plist filename pub-dir) "\305\306\"\203
\307	B\202	\310\311\n\f$)\207" [project-plist org-export-preprocess-after-headline-targets-hook plist filename pub-dir plist-get :makeindex org-publish-aux-preprocess org-publish-org-to "latin1"] 5 (#$ . 22100)])
#@82 Publish an org file to UTF-8.
See `org-publish-org-to' to the list of arguments.
(defalias 'org-publish-org-to-utf8 #[(plist filename pub-dir) "\305\306\"\203
\307	B\202	\310\311\n\f$)\207" [project-plist org-export-preprocess-after-headline-targets-hook plist filename pub-dir plist-get :makeindex org-publish-aux-preprocess org-publish-org-to "utf8"] 5 (#$ . 22488)])
#@103 Publish a file with no transformation of any kind.
See `org-publish-org-to' to the list of arguments.
(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 (#$ . 22871)])
#@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 \315\316\312\313\n\317\"\206/\307\320@\"!!\316\321\322\313\n\323\"!\206B\307\324@\"!! \325!\"\204S\326@!\210\327 \330\331
!\"\205d\332\225\325OP!!\f<\203u\333\334\f\"\210\202\220\335	 \f!
%\203\220\f\n	!#\210\336	 \f
$\210\"?\205\230\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 org-publish-org-to-html 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 (#$ . 23293)])
#@158 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$\203X\324\325!\210\203a
\f\"\210#\211A#@\211$\203x\326$\327#\210\202a\307	\330\"\203\222\331\307	\332\"!\210\326\333\334\307	\332\"\"\327#\210\203\233\324\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 nil run-hooks preparation-function org-publish-file t :makeindex org-publish-index-generate-theindex :base-directory expand-file-name "theindex.org" completion-function org-publish-write-cache-file org-publish-sitemap-date-format org-sitemap-date-format org-publish-sitemap-file-entry-format org-sitemap-file-entry-format files file] 6] org-publish-expand-projects] 4 (#$ . 24765)])
#@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
\"\2377\n8\206&\317P8\307	\320\"\2064\321@P9\307	\322\"\206>\323:\307	\324\";\3258!<\3268!=\327\211>?r<\206b\3308!\211?q\210\331 \210\3329\333Qc\2107\211A7@\211>\203\252
\326>!\334>\n\"@AB;\203\231\335A!A\3368!\336>!\232\204\246
:\337=\203\265\340\3419\"\210\202N
\340\3429\"\210\306\n!\311A!P\211@\230\204N
\n\230\203\331\312\313\314\"\202N
\343\344\311\334\n\"!!\345\"\346\343\334@\n\"\345\"CDE\312\313\314\"C@E@\230\203
\f\312\313\314\"PC\211AC@\210E\211AE@\210\202\370E\327F\211G\203M
G@FDF\345QD\f\347F\350Rc\210\312\fG\313\\\314\"GA\211G\204'
-\351H>	#\352IJIJ\327KLI\353M\354ILK#,\203\231
\354IJ\"\210\f\347\355\356J\"\357A\360\355\313J\"\361\355\362J\"\350\260\nc\210\202\245
\f\363A\360J\364\260c\210*+\202q\365 \210)<\206\267
\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 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 "\\(.*\\)\\[\\([^][]+\\)\\]\\(.*\\)" t 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 oldlocal link fn old-subdirs subdir subdirs d --dolist-tail-- org-sitemap-file-entry-format regexp entry start string inhibit-changing-match-data] 12 (#$ . 26106)])
(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-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$\206P\312	!\211\206\313	!\310rq\210\314\315 \316 \"\317
\307\"\206>\317
\320\"\2049\321 \206>\322\323	!!*\n\204H\324!\210\325	\307\f#\210\f+\207" [reset file visiting buffer title opt-plist org-publish-cache-get-file-property :title nil t find-buffer-visiting find-file-noselect org-combine-plists org-default-export-plist org-infile-export-plist plist-get :skip-before-1st-heading org-export-grab-title-from-buffer file-name-nondirectory file-name-sans-extension kill-buffer org-publish-cache-set-file-property] 6 (#$ . 28584)])
#@165 Find the date of FILE in project.
If FILE provides a #+date keyword use it else use the file
system's modification time.

It returns time in `current-time' format.
(defalias 'org-publish-find-date #[(file) "\304!\212\305	\206\306\307\310#!\210\311 \312\n\313\"	\204!\314p!\210\203+\315!\2026\316!\2056\317\320!8,\207" [file visiting plist date find-buffer-visiting org-pop-to-buffer-same-window find-file-noselect nil t org-infile-export-plist plist-get :date kill-buffer org-time-string-to-time file-exists-p 5 file-attributes] 5 (#$ . 29255)])
(defalias 'org-publish-project 'org-publish)
#@18 Publish PROJECT.
(defalias 'org-publish #[(project &optional force) "p\306 \307\216\n?\205
\310\f;\203\311\f
\"C\202\fC!+\207" [org-publish-initial-buffer #1=#:wconfig force org-publish-use-timestamps-flag project org-publish-project-alist current-window-configuration ((set-window-configuration #1#)) org-publish-projects assoc] 4 (#$ . 29867) (list (assoc (org-icompleting-read "Publish project: " org-publish-project-alist nil t) org-publish-project-alist) current-prefix-arg)])
#@121 Publish all projects.
With prefix argument, remove all files in the timestamp
directory and force publishing all files.
(defalias 'org-publish-all #[(&optional force) "\203\304 \210\305 \306\216?\205\n\307!+\207" [force #1=#:wconfig org-publish-use-timestamps-flag org-publish-project-alist org-publish-remove-all-timestamps current-window-configuration ((set-window-configuration #1#)) org-publish-projects] 2 (#$ . 30365) "P"])
#@73 Publish the current file.
With prefix argument, force publish the file.
(defalias 'org-publish-current-file #[(&optional force) "\303 \304\216	?\205\n\305\306 !+\207" [#1=#:wconfig force org-publish-use-timestamps-flag current-window-configuration ((set-window-configuration #1#)) org-publish-file buffer-file-name] 2 (#$ . 30810) "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) "\304 \305\216\306\307 \310\"	?\205\n\211\204\311\312\307 \"\210\313!,\207" [#1=#:wconfig force org-publish-use-timestamps-flag project current-window-configuration ((set-window-configuration #1#)) org-publish-get-project-from-filename buffer-file-name up error "File %s is not part of any known project" org-publish] 4 (#$ . 31158) "P"])
#@53 Find index entries and write them to an .orgx file.
(defalias 'org-publish-aux-preprocess #[nil "\306\307\211\211eb\210\310\311\307\306#\203Z\312\225\312\224V\203Z\313\312!\f\314=\203.\315\316\317\n\"\306\211#\210\212\307\320\321\217\210\322`\300\"\323
\"A\206O\323!\"A\206O\206O\324\nB	B)\202\325\"!\326\327\330\"!!\331R\332\333\334!!#$\335\216r#q\210	\237\307\211%\205\230%@\316\336\nA\n@#c\210%A\211%\204\201\307+r#q\210\337\307\211$\307\340%\210.\207" [target index entry case-fold-search org-export-current-backend org-export-preferred-target-alist t nil re-search-forward "^[ 	]*#\\+index:[ 	]*\\(.*?\\)[ 	]*$" 1 match-string latex replace-match format "\\index{%s}" (org-back-to-heading t) ((error)) get-text-property assoc "" file-name-directory "." file-name-sans-extension file-name-nondirectory ".orgx" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) "INDEX: (%s) %s\n" write-region 0 org-export-id-target-alist org-current-export-file #1# #2=#:temp-file --dolist-tail--] 8 (#$ . 31694)])
#@55 Generate the index from all .orgx files in DIRECTORY.
(defalias 'org-publish-index-generate-theindex #[(directory) "\306\307!\210\310\311!!\312\313\"\314	P\315\316\n\"\317\21123\317\21145\317\21167\317\21189\317\211:;\317\211<=\317\211>?\f\317<\211@\203\236@@<\320<!\321<!\322\323OP3\324<!4r4q\210eb\210\325\326\317\327#\203\217\330\322!5\330\331!\211635E2B2\202o)\3324!\210@A\211@\204N*\3332\334\"2\324\311\335\"!7r7q\210\336 \210\337c\210\317;2\317A\211@\203\202
@@\211A@6AA@<\331A8\2115;\203\362\340\3415\"\203\362\3425P?\202\365\343?6\344\322O\226\211:;\232\204
\345:\346\261\210:;\340\3476\"\203*
6\344\211\224O86\344\225\317O=\2023
\317\2118=\31798\203K
89\232\204K
\3508\346\261\21089\351<?\352\353=\206Y
6\354\260>8\203r
=\203r
\355>\346\261\210\202y
\350>\346\261\210@A\211@\204\307*\356 \210)\3327!\210\311\357\"B\360B!?\205\263
\324B!7r7q\210\336 \210\361c\210\356 \210)\3327!.\207" [directory fulldir full-files re files default-directory require find-lisp file-name-as-directory expand-file-name find-lisp-find-files "\\.orgx\\'" "\\`" mapcar #[(f) "\302	\"\203
	\303\225\304O\207	\207" [re f string-match 0 nil] 3] nil file-name-directory file-name-nondirectory 1 -1 find-file-noselect re-search-forward "^INDEX: (\\(.*?\\)) \\(.*\\)" t match-string 2 kill-buffer sort #[(a b) "@\227	@\227\231\207" [a b] 2] "theindex.inc" erase-buffer "* Index\n" string-match "\\S-" "::#" "" 0 "** " "\n" "!" "   - " "[[file:" "]" "[" "]]" "     - " save-buffer "theindex.org" file-exists-p "\n\n#+INCLUDE: \"theindex.inc\"\n\n" index origfile buf target entry ibuffer main last-main letter last-letter file sub link tgext --dolist-tail-- idx index-file] 8 (#$ . 32840)])
#@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*" ((byte-code "\301!\203\n\302!\210\301\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\f9\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 (#$ . 34635)])
#@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 (#$ . 35635)])
#@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 (#$ . 36531)])
#@243 Check the timestamp of the last publishing of FILENAME.
Return `t', if the file needs publishing.  The function also
checks 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	\n#\311\f!\312	!\313\314\211\315	!\316\232\203^\317\320	!!rq\210eb\210\321\322\314\313#\203S\320\323\324!!\325\326\327!\313#\210)\2027)\204^\330!\210
\204f\313\202\202\327	! 
 W\206\201\205\201\331\314\332\333\"\"??).\207" [org-publish-cache filename pub-dir pub-func key pstamp error "`org-publish-cache-file-needs-publishing' called, but no cache present" org-publish-timestamp-filename org-publish-cache-get find-buffer-visiting t nil file-name-extension "org" find-file expand-file-name re-search-forward "^#\\+include:[ 	]+\"\\([^	\n
\"]*\\)\"[ 	]*.*$" match-string 1 add-to-list included-files-ctime org-publish-cache-ctime-of-src kill-buffer delq mapcar #[(ct) "	W\207" [ctime ct] 2] visiting case-fold-search buf included-file ctime] 6 (#$ . 36782)])
#@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 (#$ . 37955)])
#@241 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 (#$ . 38471)])
#@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 (#$ . 39120)])
#@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 (#$ . 39443)])
#@44 Get the ctime of filename F as an integer.
(defalias 'org-publish-cache-ctime-of-src #[(file) "\303\304\305!\206	\306!\"!\307\310	8@\311\"\310	8\211A@)\\)\207" [file attr x file-attributes expand-file-name file-symlink-p file-name-directory lsh 5 16] 6 (#$ . 39729)])
(provide 'org-publish)