| 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=\203m X\202p Y\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!\205 r\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\201B BBE\201C BB\201D BBB\201E \201F \201G DEEEEE\"\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\201B BB\201C BBB\201D \201E \201F DEEEEE\"\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\201A BBE\201B BB\201C BBB\201D \201E \201F DEEEEE\"\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\214 GS\202\266 \314G\332\301X\203\264 8 8\232\204\255 \262\301\211\262\203\264 T\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) | |
