mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 5ddac8bd2392ec5b64392e8750d725029bf5aa79
commit | author | age
76bbd0 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cl-lib format-spec ox] 2)
16 #@109 This will cache timestamps and titles for files in publishing projects.
17 Blocks could hash sha1 values here.
18 (defvar org-publish-cache nil (#$ . 497))
19 #@169 Hook run each time a file is published.
20 Every function in this hook will be called with two arguments:
21 the name of the original file and the name of the file
22 produced.
23 (defvar org-publish-after-publishing-hook nil (#$ . 654))
24 (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\306\301\316\317&\210\310\320\312\313\321DD\322\306\301\316\323&\210\310\324\312\313\325DD\326\306\301\316\327&\210\310\330\312\313\331DD\332\306\301\316\323&\210\310\333\312\313\334DD\335\306\301\316\336&\210\310\337\312\313\340DD\341\306\301\316\342\343\344\345\346\347\350& \210\310\351\312\313\352DD\353\306\301\316\323&\207" [custom-declare-group org-export-publish nil "Options for publishing a set of files." :tag "Org Publishing" :group org-export custom-declare-variable org-publish-project-alist funcall function #[0 "\300\207" [nil] 1] "Association list to control publishing behavior.\n\\<org-mode-map>\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.  If it is `any', include all the files,\n    even without extension.\n\n  `:publishing-directory'\n\n    Directory (possibly remote) where output files will be\n    published.\n\nIf `:recursive' is non-nil files in sub-directories of\n`:base-directory' are considered.\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.  Preparation functions are\n    called with the project properties list as their sole\n    argument.\n\n  `:completion-function'\n\n    Function to be called after publishing this project.  This\n    may also be a list of functions.  Completion functions are\n    called with the project properties list as their sole\n    argument.\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-planning            `org-export-with-planning'\n  :with-priority            `org-export-with-priority'\n  :with-properties          `org-export-with-properties'\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-title               `org-export-with-title'\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 site-map.  Defaults to \"sitemap.org\".\n\n  `:sitemap-title'\n\n    Title of site-map page.  Defaults to name of file.\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-format-entry'\n\n    Plugin function used to format entries in the site-map.  It\n    is called with three arguments: the file or directory name\n    relative to base directory, the site map style and the\n    current project.  It has to return a string.\n\n    Defaults to `org-publish-sitemap-default-entry', which turns\n    file names into links and use document titles as\n    descriptions.  For specific formatting needs, one can use\n    `org-publish-find-date', `org-publish-find-title' and\n    `org-publish-find-property', to retrieve additional\n    information about published documents.\n\n  `:sitemap-function'\n\n    Plugin function to use for generation of site-map.  It is\n    called with two arguments: the title of the site-map, as\n    a string, and a representation of the files involved in the\n    project, as returned by `org-list-to-lisp'.  The latter can\n    further be transformed using `org-list-to-generic',\n    `org-list-to-subtree' and alike.  It has to return a string.\n\n    Defaults to `org-publish-sitemap-default', which generates\n    a plain list of links to all files in the project.\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' or `last' to display folders first or last,\n    respectively.  When set to `ignore' (default), folders are\n    ignored altogether.  Any other value will mix files and\n    folders.  This variable has no effect when site-map style is\n    `tree'.\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." :type alist org-publish-use-timestamps-flag #[0 "\300\207" [t] 1] "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 #[0 "\300\301!\207" [convert-standard-filename "~/.org-timestamps/"] 2] "Name of directory in which to store publishing timestamps." directory org-publish-list-skipped-files #[0 "\300\207" [t] 1] "Non-nil means show message about files *not* published." org-publish-sitemap-sort-files #[0 "\300\207" [alphabetically] 1] "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 #[0 "\300\207" [ignore] 1] "A symbol, denoting if folders are sorted first in site-maps.\n\nPossible values are `first', `last', `ignore' and nil.\nIf `first', folders will be sorted before files.\nIf `last', folders are sorted to the end after the files.\nIf `ignore', folders do not appear in the site-map.\nAny other value will mix files and folders.\n\nYou can overwrite this default per project in your\n`org-publish-project-alist', using `:sitemap-sort-folders'.\n\nThis variable is ignored when site-map style is `tree'." (choice (const :tag "Folders before files" first) (const :tag "Folders after files" last) (const :tag "No folder in site-map" ignore) (const :tag "Mix folders and files" nil)) :version "26.1" :package-version (Org . "9.1") :safe symbolp org-publish-sitemap-sort-ignore-case #[0 "\300\207" [nil] 1] "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'."] 14)
25 #@96 Return path to timestamp file for filename FILENAME.
26
27 (fn FILENAME &optional PUB-DIR PUB-FUNC)
28 (defalias 'org-publish-timestamp-filename #[769 "\300\206\301\300\302\303\206\301\"\260\262\304\305\306!\203\"\306!\202%\307!P\207" ["::" "" format "%s" "X" fboundp sha1 md5] 10 (#$ . 12214)])
29 #@490 Non-nil if FILENAME should be published in PUB-DIR using PUB-FUNC.
30 TRUE-PUB-DIR is where the file will truly end up.  Currently we
31 are not using this - maybe it can eventually be used to check if
32 the file is present at the target location, and how old it is.
33 Right now we cannot do this, because we do not know under what
34 file name the file will be stored - the publishing function can
35 still decide about that independently.
36
37 (fn FILENAME &optional PUB-DIR PUB-FUNC TRUE-PUB-DIR BASE-DIR)
38 (defalias 'org-publish-needed-p #[1281 "\204\302\202\303$\211\203\304\305#\210\202'    \203'\304\306\"\210\211\207" [org-publish-use-timestamps-flag org-publish-list-skipped-files t org-publish-cache-file-needs-publishing message "Publishing file %s using `%s'" "Skipping unmodified file %s"] 10 (#$ . 12523)])
39 #@137 Update publishing timestamp for file FILENAME.
40 If there is no timestamp, create one.
41
42 (fn FILENAME &optional PUB-DIR PUB-FUNC BASE-DIR)
43 (defalias 'org-publish-update-timestamp #[1025 "\300#\301!\302\"\207" [org-publish-timestamp-filename org-publish-cache-ctime-of-src org-publish-cache-set] 9 (#$ . 13346)])
44 #@46 Remove all files in the timestamp directory.
45 (defalias 'org-publish-remove-all-timestamps #[0 "\301!\205\302!\205\303\304\305\306\307#\"\210\310 \207" [org-publish-timestamp-directory file-exists-p file-directory-p mapc delete-file directory-files full "[^.]\\'" org-publish-reset-cache] 7 (#$ . 13667)])
46 #@167 Return value PROPERTY, as a symbol, in PROJECT.
47 DEFAULT is returned when PROPERTY is not actually set in PROJECT
48 definition.
49
50 (fn PROPERTY PROJECT &optional DEFAULT)
51 (defalias 'org-publish-property #[770 "A\300\"\203\301\"\202\207" [plist-member plist-get] 7 (#$ . 13987)])
52 #@150 Return full file name for FILE in PROJECT.
53 When FILE is a relative file name, it is expanded according to
54 project base directory.
55
56 (fn FILE PROJECT)
57 (defalias 'org-publish--expand-file-name #[514 "\300!\203\207\301\302\303\"\"\207" [file-name-absolute-p expand-file-name org-publish-property :base-directory] 7 (#$ . 14278)])
58 #@104 Expand projects in PROJECTS-ALIST.
59 This splices all the components into the list.
60
61 (fn PROJECTS-ALIST)
62 (defalias 'org-publish-expand-projects #[257 "\211\300\211C\300\211A\262\242\240\203=\301\242A\302\"\211\262\2034\303\304\305\306\307\310\311!\312\"\313\314%\"\"\262\202\242B\262\202\315\316\300\"!\237\207" [nil plist-get :components append mapcar make-byte-code 257 "\302    \"\206\303\304\300\242@#\207" vconcat vector [org-publish-project-alist assoc user-error "Unknown component %S in project %S"] 5 "\n\n(fn X)" delete-dups delq] 13 (#$ . 14617)])
63 #@54 Return a list of all files in PROJECT.
64
65 (fn PROJECT)
66 (defalias 'org-publish-get-base-files #[257 "\300\301\302\"!\301\303\"\206\304\211\305=\203\306\202\307\310\"\311!\204&\312\202^\301\313\"\2049\314\315\316\317\317$\"\202^\312C\312C\312\240\210\211\320\321\322\323\324\n            $\325\"\326\327%\240\210\211\242\330\"\266\202\331\301\332\"\211\203}\314\320\333\334\323\324 \"\335\"\336\337%\"\202~\262\301\340\"\205\226\341\301\342    \"\206\222\343\"C\344\320\333\345\323\324\f!\346\"\347\337%\301\350 \"\"#\351!\352!\266\202\207" [file-name-as-directory org-publish-property :base-directory :base-extension "org" any #1="" format "^[^\\.].*\\.\\(%s\\)$" file-exists-p nil :recursive cl-remove-if file-directory-p directory-files t make-byte-code 514 "\211\304V\203 \305\306\300\"\210\307\310\"\211\203H\211@\211\311\235\204A\312!\203/\303\242\313\"T\"\210\202A\314\301\"\203A\302\313\"\302\242B\240\210A\266\202\202\210\302\242\207" vconcat vector [100 error "Apparent cycle of symbolic links for %S" file-name-all-completions #1# ("../" "./") directory-name-p expand-file-name string-match] 8 "\n\n(fn DIR DEPTH)" 0 append :exclude 257 "\302\301\303\300\"\"\207" [string-match file-relative-name] 6 "\n\n(fn F)" :auto-sitemap expand-file-name :sitemap-filename "sitemap.org" mapcar "\301\300\"\207" [expand-file-name] 4 :include copy-sequence delete-dups] 16 (#$ . 15201)])
67 #@167 Return a project that FILENAME belongs to.
68 When UP is non-nil, return a meta-project (i.e., with a :components part)
69 publishing FILENAME.
70
71 (fn FILENAME &optional UP)
72 (defalias 'org-publish-get-project-from-filename #[513 "\301!\302\303\304\305\306\307!\310\"\311\312%\"\211\204\313\202;\204#\211\202;\313C\211\303\304\314\306\307!\315\"\316\317%\240\210\211\242!\262\207" [org-publish-project-alist expand-file-name cl-some make-byte-code 257 "\302\303\"?\205\204\304\302\305\"!\306\307\310\311\312\313\300!\314\"\315\316%\317\307\310\311\312\313!\320\"\315\316%\302\321\"\"\"\2037\202\202\302\322\"\211\205O\211\323\300\"\324\325\326#)\266\203\262\203X\324\202\202\302\327\"\211\330=\206k\211\206g\331\332\300!\230?\262\203u\324\202\202\300\333!\235\203\201\202\202\324\262\207" vconcat vector [inhibit-changing-match-data org-publish-property :components expand-file-name :base-directory cl-some make-byte-code 257 "\301\300\"\207" vconcat vector [file-equal-p] 4 "\n\n(fn F)" mapcar [expand-file-name] :include :exclude file-relative-name nil t string-match :base-extension any "org" file-name-extension org-publish-get-base-files] 11 "\n\n(fn P)" nil "\302\303\304\305\306\307\300\"\310\"\311\312%    \"\206\211\207" [org-publish-project-alist cl-some make-byte-code 257 "\301@\302\303\"\235\205\300\242!\207" vconcat vector [org-publish-property :components] 5 "\n\n(fn P)"] 9 "\n\n(fn PROJECT)"] 12 (#$ . 16643)])
73 #@456 Publish an Org file to a specified back-end.
74
75 BACKEND is a symbol representing the back-end used for
76 transcoding.  FILENAME is the filename of the Org file to be
77 published.  EXTENSION is the extension used for the output
78 string, with the leading dot.  PLIST is the property list for the
79 given project.
80
81 Optional argument PUB-DIR, when non-nil is the publishing
82 directory.
83
84 Return output file name.
85
86 (fn BACKEND FILENAME EXTENSION PLIST &optional PUB-DIR)
87 (defalias 'org-publish-org-to #[1284 "\211\203\301!\204\302\303\"\210\303\304!\211\206\305!\306\307\310\311\312\"\313\"\314$\216r\211q\210\315\316#\317\316\211\211\320 \321\"\322\f\323\324\325!\323\316\303$\326\327\330\320\326\"BBF\"&\262+\207" [org-inhibit-startup file-exists-p make-directory t find-buffer-visiting find-file-noselect make-byte-code 0 "\300?\205\302\301!\207" vconcat vector [kill-buffer] 2 org-export-output-file-name nil org-export-to-file plist-get :body-only org-combine-plists :crossrefs org-publish-cache-get-file-property file-truename :filter-final-output org-publish--store-crossrefs org-publish-collect-index] 25 (#$ . 18121)])
88 #@255 Publish a file with no transformation of any kind.
89
90 FILENAME is the filename of the Org file to be published.  PLIST
91 is the property list for the given project.  PUB-DIR is the
92 publishing directory.
93
94 Return output file name.
95
96 (fn PLIST FILENAME PUB-DIR)
97 (defalias 'org-publish-attachment #[771 "\300!\204 \301\302\"\210\303\304!\"\305\303\306!!\307\303!!\"\204&\310\302#\210\211\207" [file-directory-p make-directory t expand-file-name file-name-nondirectory file-equal-p file-name-directory file-name-as-directory copy-file] 9 (#$ . 19270)])
98 #@276 Publish file FILENAME from PROJECT.
99 If NO-CACHE is not nil, do not initialize `org-publish-cache'.
100 This is needed, since this function is used to publish single
101 files, when entire projects are published (see
102 `org-publish-projects').
103
104 (fn FILENAME &optional PROJECT NO-CACHE)
105 (defalias 'org-publish-file #[769 "\206\300!\206\301\302\303!\"\211A\304\305\"\211\204 \301\306!\2021\211<\203,\211\211\262\2021\211\211C\262\262\307\304\310\"\206@\301\311@\"!\307\304\312\"\206P\301\313@\"!\314\315\316\n\"\"!\204f\317@!\210\211\203\232\211@\320     %\203\223\211\f#\321\f    $\210\322\323 #\266A\266\202\202g\210\324 \207" [org-publish-get-project-from-filename user-error "File %S is not part of any known project" abbreviate-file-name org-publish-property :publishing-function "No publishing function chosen" file-name-as-directory :base-directory "Project %S does not have :base-directory defined" :publishing-directory "Project %S does not have :publishing-directory defined" file-name-directory expand-file-name file-relative-name org-publish-initialize-cache org-publish-needed-p org-publish-update-timestamp run-hook-with-args org-publish-after-publishing-hook org-publish-write-cache-file] 17 (#$ . 19830)])
106 #@180 Publish all files belonging to the PROJECTS alist.
107 If `:auto-sitemap' is set, publish the sitemap too.  If
108 `:makeindex' is set, also produce a file "theindex.org".
109
110 (fn PROJECTS)
111 (defalias 'org-publish-projects #[257 "\300!\211\205\301\211@\211A\301\302\"\211:\203*\211\211\203&\211@\211!\210A\266\202\202\210\2024\303!\2034\211!\210\210\304@!\210\301\305\"\203O\301\306\"\206I\307\310\"\266\311\312\301\313\"\"\314!\211\203t\211@\315\"\204m\316\317#\210A\266\202\202Y\210\301\320\"\203\213\321\301\313\"\"\210\316\317#\210\210\301\322\"\211:\203\253\211\211\203\247\211@\211!\210A\266\202\202\226\210\202\265\303!\203\265\211!\210\266\323 \210A\266\202\202\207" [org-publish-expand-projects org-publish-property :preparation-function functionp org-publish-initialize-cache :auto-sitemap :sitemap-filename "sitemap.org" org-publish-sitemap expand-file-name "theindex.org" :base-directory org-publish-get-base-files file-equal-p org-publish-file t :makeindex org-publish-index-generate-theindex :completion-function org-publish-write-cache-file] 11 (#$ . 21094)])
112 #@339 Represent FILES as a parsed plain list.
113 FILES is the list of files in the site map.  PROJECT is the
114 current project.  STYLE determines is either `list' or `tree'.
115 FORMAT-ENTRY is a function called on each file which should
116 return a string.  Return value is a list as returned by
117 `org-list-to-lisp'.
118
119 (fn FILES PROJECT STYLE FORMAT-ENTRY)
120 (defalias 'org-publish--sitemap-files-to-lisp #[1028 "\300\301\302\303\"!!\304\267\202g\305\306\307\310\311\312\313\n\n\n\n$\314\"\315\316%\"B\202k\317C\317C\317C\320\321\n\"\240\210\322\321\n\"\240\210\211\307\310\323\312\313\f\f\f\f\f\f\f&\324\"\325\326%\240\210\211\242!\266\203\202k\327\330\"\207" [expand-file-name file-name-as-directory org-publish-property :base-directory #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (list 15 tree 43)) unordered mapcar make-byte-code 257 "\302\304\303\"\301\300#C\207" vconcat vector [file-relative-name] 5 "\n\n(fn F)" nil cl-remove-if directory-name-p cl-remove-if-not "\307\310\311\312\313\314\315\300\301\302\303$\316\"\317\320%\321\311\312\322\314\315    !\323\"\324\320%\304\242\"\"\310\311\312\325\314\315\300\301\302\303\306%\326\"\317\327%\321\311\312\330\314\315\n!\331\"\317\320%\305\242\"\"\244B\207" [unordered mapcar make-byte-code 257 "\302\304\303\"\301\300#C\207" vconcat vector [file-relative-name] 5 "\n\n(fn F)" cl-remove-if-not "\300\301!\230\207" [file-name-directory] 4 "\302\305\303\"\301\300#\304\242!D\207" [file-relative-name] "\n\n(fn SUB)" "\300\301\302!!\230\207" [file-name-directory directory-file-name]] 14 "\n\n(fn DIR)" user-error "Unknown site-map style: `%s'"] 21 (#$ . 22217)])
121 #@208 Create a sitemap of pages in set defined by PROJECT.
122 Optionally set the filename of the sitemap with SITEMAP-FILENAME.
123 Default for SITEMAP-FILENAME is `sitemap.org'.
124
125 (fn PROJECT &optional SITEMAP-FILENAME)
126 (defalias 'org-publish-sitemap #[513 "\303\304\305\306\"!!\211\206\307P\305\310\"\206\311@P\305\312\"\206#\313\305\314\"\206,\315\305\316\"\2065\317\305\320    #\305\321\n    #\305\322 \n#\323\324\325\326\327\330                %\331\"\332\333%\334\335\n\"\210    \336\337\340!!\324\341\342\327\330!\343\"\344$\216r\211q\210\345\f\346!\"\n\347=\203\220\350=\204\244\345\351\352\"\353!\354!\266\202\"\244\262\204\260\350>\204\266\355\"\262    \f\356$\"\262c)rq\210\357\360\211\360\341%\210*\266\202\207" [org-publish-sitemap-sort-folders org-publish-sitemap-sort-files org-publish-sitemap-sort-ignore-case expand-file-name file-name-as-directory org-publish-property :base-directory "sitemap.org" :sitemap-title "Sitemap for project " :sitemap-style tree :sitemap-function org-publish-sitemap-default :sitemap-format-entry org-publish-sitemap-default-entry :sitemap-sort-folders :sitemap-sort-files :sitemap-ignore-case #[257 "\300!\301\232\207" [file-name-extension "org"] 3 "\n\n(fn F)"] make-byte-code 514 "\305\302\306=\203A\304!\203\307!\310\300\"P\202\304!\203*\307!\310\300\"P\202+\303\2038\211\226\226\231?\202<\211\231?\266\203\202~\302\311>\203u\312\300\"\312\300\"\313@\314\"A@\\\313@\314\"A@\\\302\315=\203mX\202pY\266\205\202~\302\203~\316\317\302\"\210\301\320>\203\251\321!\203\230\321!\204\230\301\322=\262\202\251\321!\204\251\321!\203\251\301\323=\262\211\207" vconcat vector [t alphabetically file-name-directory org-publish-find-title (chronologically anti-chronologically) org-publish-find-date lsh 16 chronologically user-error "Invalid sort value %s" (first last) file-directory-p first last] 9 "\n\n(fn A B)" message "Generating sitemap for %s" get-buffer-create generate-new-buffer-name " *temp file*" 0 "\301\300!\205    \302\300!\207" [buffer-name kill-buffer] 2 remove org-publish-get-base-files list ignore mapcar file-name-directory copy-sequence delete-dups sort org-publish--sitemap-files-to-lisp write-region nil] 23 (#$ . 23891)])
127 #@504 Find the PROPERTY of FILE in project.
128
129 PROPERTY is a keyword referring to an export option, as defined
130 in `org-export-options-alist' or in export back-ends.  In the
131 latter case, optional argument BACKEND has to be set to the
132 back-end where the option is defined, e.g.,
133
134   (org-publish-find-property file :subtitle 'latex)
135
136 Return value may be a string or a list, depending on the type of
137 PROPERTY, i.e. "behavior" parameter from `org-export-options-alist'.
138
139 (fn FILE PROPERTY PROJECT &optional BACKEND)
140 (defalias 'org-publish-find-property #[1027 "\301\"\302!\205^\303!?\205^\304\305!\211\206\306!\307\310\311\312\313\"\314\"\315$\216\316rq\210\204;\317!\202W\320 \307\310\321\312\313!\322\"\315$\216r\211q\210eb\210\317!*\262)\"*\266\202\207" [org-inhibit-startup org-publish--expand-file-name file-readable-p directory-name-p t find-buffer-visiting find-file-noselect make-byte-code 0 "\300?\205\302\301!\207" vconcat vector [kill-buffer] 2 plist-get org-export-get-environment org-export-copy-buffer "\301\300!\205r\300q\210\302\303!\210)\304\300!\207" [buffer-live-p restore-buffer-modified-p nil kill-buffer]] 15 (#$ . 26157)])
141 #@55 Find the title of FILE in PROJECT.
142
143 (fn FILE PROJECT)
144 (defalias 'org-publish-find-title #[514 "\301\"\302\303\304\305$\206D\306\303#\211\2037\307!\304\211\203)\310\311G$\210\2021\312\311G\304$\210\266\202\202<\313\314!!\315\303#\210\262\207" [org-rm-props org-publish--expand-file-name org-publish-cache-get-file-property :title nil t org-publish-find-property org-element-interpret-data remove-text-properties 0 set-text-properties file-name-nondirectory file-name-sans-extension org-publish-cache-set-file-property] 11 (#$ . 27326)])
145 #@277 Find the date of FILE in PROJECT.
146 This function assumes FILE is either a directory or an Org file.
147 If FILE is an Org file and provides a DATE keyword use it.  In
148 any other case use the file system's modification time.  Return
149 time in `current-time' format.
150
151 (fn FILE PROJECT)
152 (defalias 'org-publish-find-date #[514 "\300\"\301!\203\302\303!8\202J\304\305#\211:\205\306\236\211\2051\307!\310!\205/\311!\262\262\206H\312!\203D\302\303!8\202H\313\314\"\262\207" [org-publish--expand-file-name file-directory-p 5 file-attributes org-publish-find-property :date timestamp org-element-interpret-data org-string-nw-p org-time-string-to-time file-exists-p error "No such file: \"%s\""] 8 (#$ . 27890)])
153 #@165 Default format for site map ENTRY, as a string.
154 ENTRY is a file name.  STYLE is the style of the sitemap.
155 PROJECT is the current project.
156
157 (fn ENTRY STYLE PROJECT)
158 (defalias 'org-publish-sitemap-default-entry #[771 "\300!\204\301\302\303\"#\207\304=\203\305\306!!\207\207" [directory-name-p format "[[file:%s][%s]]" org-publish-find-title tree file-name-nondirectory directory-file-name] 9 (#$ . 28618)])
159 #@219 Default site map, as a string.
160 TITLE is the the title of the site map.  LIST is an internal
161 representation for the files to include, as returned by
162 `org-list-to-lisp'.  PROJECT is the current project.
163
164 (fn TITLE LIST)
165 (defalias 'org-publish-sitemap-default #[514 "\300\301\302!R\207" ["#+TITLE: " "\n\n" org-list-to-org] 7 (#$ . 29042)])
166 (defalias 'org-publish-project 'org-publish)
167 #@347 Publish PROJECT.
168
169 PROJECT is either a project name, as a string, or a project
170 alist (see `org-publish-project-alist' variable).
171
172 When optional argument FORCE is non-nil, force publishing all
173 files in PROJECT.  With a non-nil optional argument ASYNC,
174 publishing will be done asynchronously, in another process.
175
176 (fn PROJECT &optional FORCE ASYNC)
177 (defalias 'org-publish #[769 ";\204    \202 \306\"\211?\206 \203\376\307\310C\311\312\313\314\315\"\316\"\317$\216\2036\211\320 \240\210\321\322\"\210\323p!\324\325!    \326\327\330!!\311\312\331\314\315!\332\"\333$\216r\211q\210\334\335\336\337\340\341\342\fD\343\344\345\346\302?\205j\nDC\347\350\351C!DDEDD\257#c\210)r\211q\210\352\310\211\310\312%\210*\266\310\327\353!\354\355\356\325\357\f \"\360F@\203\252\361\362@E\202\256\362AD\362D#\"\363\364!\310#\210\365\366\367\370\346\371\372\373\374\375\376\374\346\377\342\201BBBE\201CBB\201DBBB\201E\201F\201GDEEEEE\"\262)\266\202\266\203)\266\202\202 \201H \311\312\201I\314\315!\201J\"\333$\216?\205\n\347C!*\262\207" [org-publish-project-alist buffer-file-coding-system org-publish-use-timestamps-flag process-connection-type invocation-name invocation-directory assoc "Initializing asynchronous export process" nil make-byte-code 0 "\300\205\301\242\203\302\303\301\242\"\207\302\304!\207" vconcat vector [message #1="%s" nil] 3 current-message message #1# org-export--generate-copy-script make-temp-file "org-export-process" get-buffer-create generate-new-buffer-name " *temp file*" "\301\300!\205    \302\300!\207" [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-projects quote org-publish-expand-projects write-region "*Org Export Process*" apply start-process append expand-file-name "--batch" "-Q" "-l" org-export-add-to-stack get-buffer #[257 "\300\207" [nil] 2 "\n\n(fn _)"] set-process-sentinel lambda (p status) ((proc-buffer (process-buffer p))) when (eq (process-status p) 'exit) unwind-protect if (zerop (process-exit-status p)) ((results (with-current-buffer proc-buffer (goto-char (point-max)) (backward-sexp) (read (current-buffer))))) org-export-async-init-file user-init-file (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 "\301\300!\207" [set-window-configuration]] 29 (#$ . 29434) (byte-code "\302\303\304\305\306$\"    D\207" [org-publish-project-alist current-prefix-arg assoc completing-read "Publish project: " nil t] 6)])
178 #@259 Publish all projects.
179 With prefix argument FORCE, remove all files in the timestamp
180 directory and force publishing all projects.  With a non-nil
181 optional argument ASYNC, publishing will be done asynchronously,
182 in another process.
183
184 (fn &optional FORCE ASYNC)
185 (defalias 'org-publish-all #[512 "\211\203\355\306\307C\310\311\312\313\314\"\315\"\316$\216\203$\211\317 \240\210\320\321\"\210\322p!\323\324!\325\326\327!!\310\311\330\313\314!\331\"\332$\216r\211q\210\333\334\335\336\337\340\341\fD\342\343\344\211\345\346D\347BB\350\301\351\346D\307    FDC\352\346\nDDEEDD\257#c\210)r\211q\210\353\307\211\307\311%\210*\266\307\326\354!\355\356\357\324\360\f \"\361F@\203\237\362\363@E\202\243\363AD\363D#\"\364\365!\307#\210\366\367\370\371\350\372\345\373\374\351\375\374\350\376\341\377BBE\201BBB\201CBBB\201D\201E\201FDEEEEE\"\262)\266\202\266\203)\207\203\366\201G \210\201H \310\311\201I\313\314!\201J\"\332$\216?\205    \352\n!*\207" [buffer-file-coding-system org-publish-use-timestamps-flag org-publish-project-alist process-connection-type invocation-name invocation-directory "Initializing asynchronous export process" nil make-byte-code 0 "\300\205\301\242\203\302\303\301\242\"\207\302\304!\207" vconcat vector [message #1="%s" nil] 3 current-message message #1# org-export--generate-copy-script make-temp-file "org-export-process" get-buffer-create generate-new-buffer-name " *temp file*" "\301\300!\205    \302\300!\207" [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 if org-publish-projects write-region "*Org Export Process*" apply start-process append expand-file-name "--batch" "-Q" "-l" org-export-add-to-stack get-buffer #[257 "\300\207" [nil] 2 "\n\n(fn _)"] 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) org-export-async-init-file user-init-file ((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 "\301\300!\207" [set-window-configuration]] 28 (#$ . 32304) "P"])
186 #@209 Publish the current file.
187 With prefix argument FORCE, force publish the file.  When
188 optional argument ASYNC is non-nil, publishing will be done
189 asynchronously, in another process.
190
191 (fn &optional FORCE ASYNC)
192 (defalias 'org-publish-current-file #[512 "\306\307 !\203\352\310\311C\312\313\314\315\316\"\317\"\320$\216\203(\211\321 \240\210\322\323\"\210\324p!\325\326!\327\330\331!!\312\313\332\315\316!\333\"\334$\216r\211q\210\335\336\337\340\341\342\343\fD\344\345\346\347\301\350\351D\311    FDC\352DEDD\257#c\210)r\211q\210\353\311\211\311\313%\210*\266\311\330\354!\355\356\357\326\360 \f\"\361F \203\226\362\363 E\202\232\363@D\363D#\"\364\365!\311#\210\366\367\370\371\347\372\373\374\375\350\376\375\347\377\343\201ABBE\201BBB\201CBBB\201D\201E\201FDEEEEE\"\262)\266\202\266\203)\266\202\202 \201G \312\313\201H\315\316!\201I\"\334$\216?\205    \352!*\262\207" [buffer-file-coding-system org-publish-use-timestamps-flag process-connection-type invocation-name invocation-directory org-export-async-init-file buffer-file-name buffer-base-buffer "Initializing asynchronous export process" nil make-byte-code 0 "\300\205\301\242\203\302\303\301\242\"\207\302\304!\207" vconcat vector [message #1="%s" nil] 3 current-message message #1# org-export--generate-copy-script make-temp-file "org-export-process" get-buffer-create generate-new-buffer-name " *temp file*" "\301\300!\205    \302\300!\207" [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 if quote org-publish-file write-region "*Org Export Process*" apply start-process append expand-file-name "--batch" "-Q" "-l" org-export-add-to-stack get-buffer #[257 "\300\207" [nil] 2 "\n\n(fn _)"] 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))))) user-init-file (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 "\301\300!\207" [set-window-configuration]] 28 (#$ . 34983) "P"])
193 #@153 Publish the project associated with the current file.
194 With a prefix argument, force publishing of all files in
195 the project.
196
197 (fn &optional FORCE ASYNC)
198 (defalias 'org-publish-current-project #[512 "\300 \301\302\303\304\305!\306\"\307$\216\310\311\312 !\313\"\211\203!\314#\202(\315\316\311\312 !\"\262)\207" [current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [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"] 9 (#$ . 37528) "P"])
199 #@695 Update index for a file in cache.
200
201 OUTPUT is the output from transcoding current file.  BACKEND is
202 the back-end that was used for transcoding.  INFO is a plist
203 containing publishing and export options.
204
205 The index relative to current file is stored as an alist.  An
206 association has the following shape: (TERM FILE-NAME PARENT),
207 where TERM is the indexed term, as a string, FILE-NAME is the
208 original full path of the file where the term in encountered, and
209 PARENT is a reference to the headline, if any, containing the
210 original index keyword.  When non-nil, this reference is a cons
211 cell.  Its CAR is a symbol among `id', `custom-id' and `name' and
212 its CDR is a string.
213
214 (fn OUTPUT BACKEND INFO)
215 (defalias 'org-publish-collect-index #[771 "\300\301\302\"!\303\304\305\306\301\307\"\310\311\312\313\314\315\f!\316\"\317\320%    $!#\266\207" [file-truename plist-get :input-file org-publish-cache-set-file-property :index delete-dups org-element-map :parse-tree keyword make-byte-code 257 "\301\211;\203\302\303#\202\304A@\"\266\202\305\232\205\246\306!\307\211;\203.\302\303#\2024\304A@\"\266\202\300\204?\310\202\243\311\211;\203N\302\303#\202T\304A@\"\266\202\211\205]\312B\262\206\243\313\211;\203q\302\303#\202w\304A@\"\266\202\211\205\200\314B\262\206\243\315\316\317\320\321\211;\203\231\302\303#\202\237\304A@\"\266\202#BE\262\207" vconcat vector [:key get-text-property 0 plist-get "INDEX" org-export-get-parent-headline :value nil :ID id :CUSTOM_ID custom-id name replace-regexp-in-string "\\[[0-9]+%\\]\\|\\[[0-9]+/[0-9]+\\]" "" :raw-value] 14 "\n\n(fn K)"] 17 (#$ . 38118)])
216 #@167 Retrieve full index from cache and build "theindex.org".
217 PROJECT is the project the index relates to.  DIRECTORY is the
218 publishing directory.
219
220 (fn PROJECT DIRECTORY)
221 (defalias 'org-publish-index-generate-theindex #[514 "\300!\301\211\2033\211@\302\303\"\211\211\203*\211@\211\235\204#\211B\262A\266\202\202\266A\266\202\202\304\237\305\"\266\202\306\307\"\310\311\312!!\313\314\315\316\317!\320\"\321$\216r\211q\210\301\211\211\203?\211@\322@\323\"\211@\314\324O\226\325A@\326A\327\"\"\230\204\330\331\"c\210\232\203\214GS\202\266\314G\332\301X\203\2648 8\232\204\255\262\301\211\262\203\264T\262\202\221\266\203\211\233G\211\314\211W\203.\211\333\\\321_\334\"\335SU\204\335\\\n8\202\"\321 8\330\336@\211\204\361\330\337 \"\202\211\340=\203\377\330\341A\"\202\211\342=\203\330\343 A#\202\330\344 A#\262\345!@#\262\346Rc\266\211T\262\202\274\266\262\262\266A\266\202\202V\266\306\347\"\350!?\205u\211\310\311\312!!\313\314\315\316\317!\351\"\321$\216r\211q\210\352c)rq\210\353\301\211\301\314%\210*\266\202\262)rq\210\353\301\211\301\314%\210*\266\202\207" [org-publish-get-base-files nil org-publish-cache-get-file-property :index sort #[514 "@\227@\227\231\207" [] 4 "\n\n(fn A B)"] expand-file-name "theindex.inc" get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-split-string "!" 1 file-relative-name plist-get :base-directory format "* %s\n" t make-string 32 "  - " "[[%s][%s]]" "file:%s" id "id:%s" custom-id "file:%s::#%s" "file:%s::*%s" last "\n" "theindex.org" file-exists-p [buffer-name kill-buffer] "#+TITLE: Index\n\n#+INCLUDE: \"theindex.inc\"\n\n" write-region] 28 (#$ . 39765)])
222 #@307 Store cross-references for current published file.
223
224 OUTPUT is the produced output, as a string.  BACKEND is the export
225 back-end used, as a symbol.  INFO is the final export state, as
226 a plist.
227
228 This function is meant to be used as a final output filter.  See
229 `org-publish-org-to'.
230
231 (fn OUTPUT BACKEND INFO)
232 (defalias 'org-publish--store-crossrefs #[771 "\300\301\302\303\"!\304\305\306\302\307\"\"#\210\207" [org-publish-cache-set-file-property file-truename plist-get :input-file :crossrefs cl-remove-if #[257 "\211@;\207" [] 2 "\n\n(fn PAIR)"] :internal-references] 11 (#$ . 41585)])
233 #@425 Return reference for element matching string SEARCH in FILE.
234
235 Return value is an internal reference, as a string.
236
237 This function allows resolving external links with a search
238 option, e.g.,
239
240   [[file.org::*heading][description]]
241   [[file.org::#custom-id][description]]
242   [[file.org::fuzzy][description]]
243
244 It only makes sense to use this if export back-end builds
245 references with `org-export-get-reference'.
246
247 (fn SEARCH FILE)
248 (defalias 'org-publish-resolve-external-link #[514 "\204\f\301\302#\210\303\207\304!\305\306\307\310$C\311\312!!\313\314\315\316\317\320!\321\"\322\323%\"A\211\2053\324!\262\206a\325\242!\211\203T\211@B\242B\240\210A\266\202\202=\210\326\306\242#\210\324!\262\207" [org-publish-cache message "Reference %S in file %S cannot be resolved without publishing" "MissingReference" file-truename org-publish-cache-get-file-property :crossrefs nil t org-export-string-to-search-cell org-link-unescape cl-some make-byte-code 257 "\301\300\242\"\207" vconcat vector [assoc] 4 "\n\n(fn C)" org-export-format-reference org-export-new-reference org-publish-cache-set-file-property] 12 (#$ . 42181)])
249 #@196 Convert FILENAME to be relative to current project's base directory.
250 INFO is the plist containing the current export state.  The
251 function does not change relative file names.
252
253 (fn FILENAME INFO)
254 (defalias 'org-publish-file-relative-name #[514 "\300\301\"\211\203\302!\203\303\"\203\304\"\202\207" [plist-get :base-directory file-name-absolute-p file-in-directory-p file-relative-name] 6 (#$ . 43328)])
255 #@95 Write `org-publish-cache' to file.
256 If FREE-CACHE, empty the cache.
257
258 (fn &optional FREE-CACHE)
259 (defalias 'org-publish-write-cache-file #[256 "\204\303\304!\210\305\306!\211\204\303\307!\210\211\310\311\312!!\313\314\315\316\317!\320\"\321$\216r\211q\210\322\211\323c\210\324\325\"\210+r\211q\210\326\322\211\322\314%\210*\266\205K\327 \207" [org-publish-cache 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*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil "(setq org-publish-cache (make-hash-table :test 'equal :weakness nil :size 100))\n" maphash #[514 "\300\301<\204 9\203\302\202\303$c\207" [format "(puthash %S %s%S org-publish-cache)\n" "'" ""] 7 "\n\n(fn K V)"] write-region org-publish-reset-cache] 10 (#$ . 43751)])
260 #@88 Initialize the projects cache if not initialized yet and return it.
261
262 (fn PROJECT-NAME)
263 (defalias 'org-publish-initialize-cache #[257 "\211\204\302\303!\210\304!\204\305\306\"\210\307!\204\302\310\"\210    \203*\311\312!\230\204c\313!\314Q\304!    \203:\315 \210\211\203E\316!\210\202Y\317\320\321\322\323\324\325&\326\312\"\210\326\327\"\210\211\204a\330\323!\210\266    \207" [org-publish-timestamp-directory org-publish-cache 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] 10 (#$ . 44753)])
264 #@43 Empty org-publish-cache and reset it nil.
265 (defalias 'org-publish-reset-cache #[0 "\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 (#$ . 45632)])
266 #@283 Check the timestamp of the last publishing of FILENAME.
267 Return non-nil if the file needs publishing.  Also check if
268 any included files have been more recently published, so that
269 the file including them will be republished as well.
270
271 (fn FILENAME &optional PUB-DIR PUB-FUNC BASE-DIR)
272 (defalias 'org-publish-cache-file-needs-publishing #[1025 "\204\303\304!\210\305#\306!\307\310\311!\312\232\203\263\313!\314!\307\315\316\317\320\321\"\322\"\323$\216r\211q\210eb\210\324\325\310\307#\203\260\326 \211\211:\204U\211;\205]\327\202]\211@9\205]\211@\262\330=\203\254\331\211;\203s\332\316#\202y\333A@\"\266\202\334\335\"\205\234\336\337\211\340\341\"#\334\342\"\203\231\211\316\211\224O\202\232\211\262\211\203\252\343\344!!B\262\266\210\202<+\266?\206\324\343!W\206\322\345\315\346\347\320\321!\350\"\351\352%\"\262)\207" [org-publish-cache org-inhibit-startup case-fold-search error "`org-publish-cache-file-needs-publishing' called, but no cache present" org-publish-timestamp-filename org-publish-cache-get t nil file-name-extension "org" find-buffer-visiting find-file-noselect make-byte-code 0 "\300?\205\302\301!\207" vconcat vector [kill-buffer] 2 re-search-forward "^[     ]*#\\+INCLUDE:" org-element-at-point plain-text keyword :value get-text-property plist-get string-match "\\`\\(\".+?\"\\|\\S-+\\)" org-unbracket-string "\"" match-string 1 "::.*?\\'" org-publish-cache-ctime-of-src expand-file-name cl-some 257 "\300W\207" [] 3 "\n\n(fn CT)"] 17 (#$ . 45881)])
273 #@227 Set the VALUE for a PROPERTY of file FILENAME in publishing cache to VALUE.
274 Use cache file of PROJECT-NAME.  If the entry does not exist, it
275 will be created.  Return VALUE.
276
277 (fn FILENAME PROPERTY VALUE &optional PROJECT-NAME)
278 (defalias 'org-publish-cache-set-file-property #[1027 "\211\203\300!\210\301!\211\203\302#\210\202!\303\304%\207" [org-publish-initialize-cache org-publish-cache-get plist-put org-publish-cache-get-file-property nil] 11 (#$ . 47417)])
279 #@311 Return the value for a PROPERTY of file FILENAME in publishing cache.
280 Use cache file of PROJECT-NAME.  Return the value of that PROPERTY,
281 or DEFAULT, if the value does not yet exist.  Create the entry,
282 if necessary, unless NO-CREATE is non-nil.
283
284 (fn FILENAME PROPERTY &optional DEFAULT NO-CREATE PROJECT-NAME)
285 (defalias 'org-publish-cache-get-file-property #[1282 "\211\203\300!\210\301!\211\204!\204\302D\"\210\2022\303\"\2031\304\"\2022\207" [org-publish-initialize-cache org-publish-cache-get org-publish-cache-set plist-member plist-get] 10 (#$ . 47901)])
286 #@157 Return the value stored in `org-publish-cache' for key KEY.
287 Return nil, if no value or nil is found.  Raise an error if the
288 cache does not exist.
289
290 (fn KEY)
291 (defalias 'org-publish-cache-get #[257 "\204\301\302!\210\303\"\207" [org-publish-cache error "`org-publish-cache-get' called, but no cache present" gethash] 4 (#$ . 48493)])
292 #@143 Store KEY VALUE pair in `org-publish-cache'.
293 Returns value on success, else nil.  Raise an error if the cache
294 does not exist.
295
296 (fn KEY VALUE)
297 (defalias 'org-publish-cache-set #[514 "\204\301\302!\210\303#\207" [org-publish-cache error "`org-publish-cache-set' called, but no cache present" puthash] 6 (#$ . 48836)])
298 #@49 Get the ctime of FILE as an integer.
299
300 (fn FILE)
301 (defalias 'org-publish-cache-ctime-of-src #[257 "\300\301\302!\206    \303!\"!\211\204\304\305\"\202&\306\3078@\310\"\3078A@\\\207" [file-attributes expand-file-name file-symlink-p file-name-directory error "No such file: \"%s\"" lsh 5 16] 6 (#$ . 49164)])
302 (provide 'ox-publish)