| 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!\210\300\304!\210\300\305!\207" [require cl-lib org-element org-macro ox ob] 2) | |
| 16 | #@75 compiler-macro for inlining `org-lint-checker-p'. | |
| 17 | ||
| 18 | (fn CL-WHOLE-ARG CL-X) | |
| 19 | (defalias 'org-lint-checker-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-lint-checker-p (and (memq (type-of cl-x) cl-struct-org-lint-checker-tags) t)) nil] 9 (#$ . 535)]) | |
| 20 | (put 'org-lint-checker-p 'compiler-macro 'org-lint-checker-p--cmacro) | |
| 21 | #@13 | |
| 22 | ||
| 23 | (fn CL-X) | |
| 24 | (defalias 'org-lint-checker-p #[257 "\301!>\205 \302\207" [cl-struct-org-lint-checker-tags type-of t] 3 (#$ . 904)]) | |
| 25 | (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put org-lint-checker-p side-effect-free error-free put org-lint-checker cl-deftype-satisfies] 5) | |
| 26 | #@78 compiler-macro for inlining `org-lint-checker-name'. | |
| 27 | ||
| 28 | (fn CL-WHOLE-ARG CL-X) | |
| 29 | (defalias 'org-lint-checker-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-lint-checker-name (or (org-lint-checker-p cl-x) (signal 'wrong-type-argument (list 'org-lint-checker cl-x))) (aref cl-x 1)) nil] 9 (#$ . 1201)]) | |
| 30 | (put 'org-lint-checker-name 'compiler-macro 'org-lint-checker-name--cmacro) | |
| 31 | #@82 Access slot "name" of `(org-lint-checker (:copier nil))' struct CL-X. | |
| 32 | ||
| 33 | (fn CL-X) | |
| 34 | (defalias 'org-lint-checker-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-org-lint-checker-tags type-of signal wrong-type-argument org-lint-checker 1] 5 (#$ . 1629)]) | |
| 35 | (byte-code "\300\301\302\303#\300\207" [function-put org-lint-checker-name side-effect-free t] 4) | |
| 36 | #@85 compiler-macro for inlining `org-lint-checker-description'. | |
| 37 | ||
| 38 | (fn CL-WHOLE-ARG CL-X) | |
| 39 | (defalias 'org-lint-checker-description--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-lint-checker-description (or (org-lint-checker-p cl-x) (signal 'wrong-type-argument (list 'org-lint-checker cl-x))) (aref cl-x 2)) nil] 9 (#$ . 2007)]) | |
| 40 | (put 'org-lint-checker-description 'compiler-macro 'org-lint-checker-description--cmacro) | |
| 41 | #@89 Access slot "description" of `(org-lint-checker (:copier nil))' struct CL-X. | |
| 42 | ||
| 43 | (fn CL-X) | |
| 44 | (defalias 'org-lint-checker-description #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-org-lint-checker-tags type-of signal wrong-type-argument org-lint-checker 2] 5 (#$ . 2470)]) | |
| 45 | (byte-code "\300\301\302\303#\300\207" [function-put org-lint-checker-description side-effect-free t] 4) | |
| 46 | #@84 compiler-macro for inlining `org-lint-checker-categories'. | |
| 47 | ||
| 48 | (fn CL-WHOLE-ARG CL-X) | |
| 49 | (defalias 'org-lint-checker-categories--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-lint-checker-categories (or (org-lint-checker-p cl-x) (signal 'wrong-type-argument (list 'org-lint-checker cl-x))) (aref cl-x 3)) nil] 9 (#$ . 2869)]) | |
| 50 | (put 'org-lint-checker-categories 'compiler-macro 'org-lint-checker-categories--cmacro) | |
| 51 | #@88 Access slot "categories" of `(org-lint-checker (:copier nil))' struct CL-X. | |
| 52 | ||
| 53 | (fn CL-X) | |
| 54 | (defalias 'org-lint-checker-categories #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-org-lint-checker-tags type-of signal wrong-type-argument org-lint-checker 3] 5 (#$ . 3327)]) | |
| 55 | (byte-code "\300\301\302\303#\300\207" [function-put org-lint-checker-categories side-effect-free t] 4) | |
| 56 | #@79 compiler-macro for inlining `org-lint-checker-trust'. | |
| 57 | ||
| 58 | (fn CL-WHOLE-ARG CL-X) | |
| 59 | (defalias 'org-lint-checker-trust--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-lint-checker-trust (or (org-lint-checker-p cl-x) (signal 'wrong-type-argument (list 'org-lint-checker cl-x))) (aref cl-x 4)) nil] 9 (#$ . 3723)]) | |
| 60 | (put 'org-lint-checker-trust 'compiler-macro 'org-lint-checker-trust--cmacro) | |
| 61 | #@83 Access slot "trust" of `(org-lint-checker (:copier nil))' struct CL-X. | |
| 62 | ||
| 63 | (fn CL-X) | |
| 64 | (defalias 'org-lint-checker-trust #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-org-lint-checker-tags type-of signal wrong-type-argument org-lint-checker 4] 5 (#$ . 4156)]) | |
| 65 | (byte-code "\300\301\302\303#\300\207" [function-put org-lint-checker-trust side-effect-free t] 4) | |
| 66 | #@118 compiler-macro for inlining `make-org-lint-checker'. | |
| 67 | ||
| 68 | (fn CL-WHOLE &cl-quote &key NAME DESCRIPTION CATEGORIES TRUST) | |
| 69 | (defalias 'make-org-lint-checker--cmacro #[385 "\300\301\"\206 \302A@\300\303\"\206 \304A@\300\305\"\206 \306A@\300\307\"\206& \310A@\211\203T \211@\311>\203< \211AA\262\202) \312>A@\203K \313\262\202) \314\315@\"\210\202) \210\316\317\320\313 \313 & \207" [plist-member :name (nil 'missing-checker-name) :description (nil "") :categories (nil '(default)) :trust (nil 'high) (:name :description :categories :trust :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :description :categories :trust)" cl--defsubst-expand (name description categories trust) (cl-block make-org-lint-checker (record 'org-lint-checker name description categories trust))] 16 (#$ . 4538)]) | |
| 70 | (put 'make-org-lint-checker 'compiler-macro 'make-org-lint-checker--cmacro) | |
| 71 | #@98 Constructor for objects of type `org-lint-checker'. | |
| 72 | ||
| 73 | (fn &key NAME DESCRIPTION CATEGORIES TRUST) | |
| 74 | (defalias 'make-org-lint-checker #[128 "\300\301\"\206 \302A@\300\303\"\206 \304A@\300\305\"\206 \306A@\300\307\"\206& \310A@\211\203T \211@\311>\203< \211AA\262\202) \312>A@\203K \313\262\202) \314\315@\"\210\202) \210\316\317%\207" [plist-member :name (nil missing-checker-name) :description (nil "") :categories (nil (default)) :trust (nil high) (:name :description :categories :trust :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :description :categories :trust)" record org-lint-checker] 11 (#$ . 5460)]) | |
| 75 | (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-org-lint-checker side-effect-free t cl-struct-define org-lint-checker nil cl-structure-object record ((cl-tag-slot) (name 'missing-checker-name) (description "") (categories '(default)) (trust 'high)) cl-struct-org-lint-checker-tags] 11) | |
| 76 | #@10 | |
| 77 | ||
| 78 | (fn _) | |
| 79 | (defalias 'org-lint-missing-checker-name #[257 "\300\301!\207" [error "`A checker has no `:name' property. Please verify `org-lint--checkers'"] 3 (#$ . 6464)]) | |
| 80 | #@33 List of all available checkers. | |
| 81 | (defconst org-lint--checkers (byte-code "\300\301\302\303\304\305%\300\301\306\307\310\305%\300\301\311\312\313\305%\300\301\314\315\316\305%\300\301\317\320\321\322%\300\301\323\324\325\305%\300\301\326\327\330\322%\300\301\331\332\333\322%\300\301\334\335\336\305%\300\301\337\340\341\305%\300\301\342\343\344\305%\300\301\345\346\347\305%\300\301\350\351\352\305%\300\301\353\354\355\322%\300\301\356\357\360\305%\300\301\361\362\363\305%\300\301\364\365\366\305%\300\301\367\370\371\305%\300\301\372\373\374\305%\300\301\375\376\377\322%\300\301\201@ \201A \321\322%\300\301\201B \201C \201D \322%\300\301\201E \201F \201G \322%\300\301\201H \201I \201J \322%\300\301\201K \201L \201M \322%\300\301\201N \201O \201P \305%\300\301\201Q \201R \201S \305%\300\301\201T \201U \201V \305%\300\301\201W \201X \201Y \305%\300\301\201Z \201[ \201\\ \305%\300\301\201] \201^ \201_ \305%\300\301\201` \201a \321\322%\300\301\201b \201c \321\322%\300\301\201d \201e \321\322%\300\301\201f \201g \321\322%\300\301\201h \201i \321\322%\300\301\201j \201k \201l \322%\300\301\201m \201n \201o \305%\300\301\201p \201q \201r \322%\257'\207" [record org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) high duplicate-name "Report duplicate NAME values" (babel link) duplicate-target "Report duplicate targets" (link) duplicate-footnote-definition "Report duplicate footnote definitions" (footnote) orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) low obsolete-affiliated-keywords "Report obsolete affiliated keywords" (obsolete) deprecated-export-blocks "Report deprecated export block syntax" (obsolete export) deprecated-header-syntax "Report deprecated Babel header syntax" (obsolete babel) missing-language-in-src-block "Report missing language in src blocks" (babel) missing-backend-in-export-block "Report missing back-end in export blocks" (export) invalid-babel-call-block "Report invalid Babel call blocks" (babel) colon-in-name "Report NAME values with a colon" (babel) wrong-header-argument "Report wrong babel headers" (babel) wrong-header-value "Report invalid value in babel headers" (babel) deprecated-category-setup "Report misuse of CATEGORY keyword" (obsolete) invalid-coderef-link "Report \"coderef\" links with unknown destination" (link) invalid-custom-id-link "Report \"custom-id\" links with unknown destination" (link) invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (link) invalid-id-link "Report \"id\" links with unknown destination" (link) link-to-local-file "Report links to non-existent local files" (link) non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent file parameter" wrong-include-link-parameter "Report INCLUDE keywords with misleading link parameter" (export) obsolete-include-markup "Report obsolete markup in INCLUDE keyword" (obsolete export) unknown-options-item "Report unknown items in OPTIONS keyword" (export) invalid-macro-argument-and-template "Report spurious macro arguments or invalid macro templates" (export) special-property-in-properties-drawer "Report special properties in properties drawers" (properties) obsolete-properties-drawer "Report obsolete syntax for properties drawers" (obsolete properties) invalid-effort-property "Report invalid duration in EFFORT property" (properties) undefined-footnote-reference "Report missing definition for footnote references" (footnote) unreferenced-footnote-definition "Report missing reference for footnote definitions" (footnote) extraneous-element-in-footnote-section "Report non-footnote definitions in footnote section" (footnote) invalid-keyword-syntax "Report probable invalid keywords" invalid-block "Report invalid blocks" misplaced-planning-info "Report misplaced planning info line" incomplete-drawer "Report probable incomplete drawers" indented-diary-sexp "Report probable indented diary-sexps" quote-section "Report obsolete QUOTE section" (obsolete) file-application "Report obsolete \"file+application\" link" (link obsolete) empty-headline-with-tags "Report ambiguous empty headlines with tags" (headline)] 44) (#$ . 6640)) | |
| 82 | #@510 Helper function to collect duplicates in parse tree AST. | |
| 83 | ||
| 84 | EXTRACT-KEY is a function extracting key. It is called with | |
| 85 | a single argument: the element or object. Comparison is done | |
| 86 | with `equal'. | |
| 87 | ||
| 88 | EXTRACT-POSITION is a function returning position for the report. | |
| 89 | It is called with two arguments, the object or element, and the | |
| 90 | key. | |
| 91 | ||
| 92 | BUILD-MESSAGE is a function creating the report message. It is | |
| 93 | called with one argument, the key used for comparison. | |
| 94 | ||
| 95 | (fn AST TYPE EXTRACT-KEY EXTRACT-POSITION BUILD-MESSAGE) | |
| 96 | (defalias 'org-lint--collect-duplicates #[1285 "\300C\300C\300C\301\302\303\304\305\"\306\"\307\310%\311 \301\312\313\304\305 \f%\314\"\315\316%#\210\242\211\203G \211@A@\"\210A\266\202\2023 \242\262\207" [nil make-byte-code 514 "\301\300!D\301\242B\240\207" vconcat vector [] 6 "\n\n(fn POSITION VALUE)" org-element-map 257 "\300!\211?\206: \305\302\242\"\203/ \305\302\242\"\306\303\242\"\204$ \303\303\242B\240\210\210\304\301\"\"\202: \302\301\"B\302\242B\240\207" [assoc memql] 7 "\n\n(fn DATUM)"] 22 (#$ . 10816)]) | |
| 97 | #@12 | |
| 98 | ||
| 99 | (fn AST) | |
| 100 | (defalias 'org-lint-duplicate-custom-id #[257 "\300\301\302\303\304%\207" [org-lint--collect-duplicates node-property #[257 "\300\301\302\211\303\211;\203 \304\305#\202 \306A@\"\266\202\302\211\307&\307=\205< \310\211;\2034 \304\305#\202: \306A@\"\266\202\207" [compare-strings "CUSTOM_ID" nil :key get-text-property 0 plist-get t :value] 11 "\n\n(fn PROPERTY)"] #[514 "\300\211;\203 \301\302#\202 \303A@\"\207" [:begin get-text-property 0 plist-get] 8 "\n\n(fn PROPERTY _)"] #[257 "\300\301\"\207" [format "Duplicate CUSTOM_ID property \"%s\""] 4 "\n\n(fn KEY)"]] 7 (#$ . 11887)]) | |
| 101 | #@12 | |
| 102 | ||
| 103 | (fn AST) | |
| 104 | (defalias 'org-lint-duplicate-name #[257 "\301\302\303\304%\207" [org-element-all-elements org-lint--collect-duplicates #[257 "\300\211;\203 \301\302#\202 \303A@\"\207" [:name get-text-property 0 plist-get] 7 "\n\n(fn DATUM)"] #[514 "\300\211;\203 \301\302#\202 \303A@\"\266\202b\210\304\305\306\307!\"!\210\302\224\207" [:begin get-text-property 0 plist-get re-search-forward format "^[ ]*#\\+[A-Za-z]+: +%s *$" regexp-quote] 8 "\n\n(fn DATUM NAME)"] #[257 "\300\301\"\207" [format "Duplicate NAME \"%s\""] 4 "\n\n(fn KEY)"]] 7 (#$ . 12508)]) | |
| 105 | #@12 | |
| 106 | ||
| 107 | (fn AST) | |
| 108 | (defalias 'org-lint-duplicate-target #[257 "\300\301\302\303\304%\207" [org-lint--collect-duplicates target #[257 "\300\301\211;\203 \302\303#\202 \304A@\"\266\202!\207" [split-string :value get-text-property 0 plist-get] 8 "\n\n(fn TARGET)"] #[514 "\300\211;\203 \301\302#\202 \303A@\"\207" [:begin get-text-property 0 plist-get] 8 "\n\n(fn TARGET _)"] #[257 "\300\301\302\303\304#\"\207" [format "Duplicate target <<%s>>" mapconcat identity " "] 7 "\n\n(fn KEY)"]] 7 (#$ . 13088)]) | |
| 109 | #@12 | |
| 110 | ||
| 111 | (fn AST) | |
| 112 | (defalias 'org-lint-duplicate-footnote-definition #[257 "\300\301\302\303\304%\207" [org-lint--collect-duplicates footnote-definition #[257 "\300\211;\203 \301\302#\202 \303A@\"\207" [:label get-text-property 0 plist-get] 7 "\n\n(fn DEFINITION)"] #[514 "\300\211;\203 \301\302#\202 \303A@\"\207" [:post-affiliated get-text-property 0 plist-get] 8 "\n\n(fn DEFINITION _)"] #[257 "\300\301\"\207" [format "Duplicate footnote definition \"%s\""] 4 "\n\n(fn KEY)"]] 7 (#$ . 13605)]) | |
| 113 | #@12 | |
| 114 | ||
| 115 | (fn AST) | |
| 116 | (defalias 'org-lint-orphaned-affiliated-keywords #[257 "\301\302\303\304$\305\306\307\310\311\312\313!\314\"\315\316%#\207" [org-element-affiliated-keywords cl-set-difference ("RESULT" "RESULTS") :test equal org-element-map keyword make-byte-code 257 "\303\211;\203 \304\305#\202 \306A@\"\266\202\307\310\311\307\312#)\266\203)\2040 \211\300\235\205L \313\211;\203? \304\305#\202E \306A@\"\266\202\314\315\"D\207" vconcat vector [case-fold-search inhibit-changing-match-data :key get-text-property 0 plist-get t "\\`ATTR_[-_A-Za-z0-9]+\\'" nil string-match :post-affiliated format "Orphaned affiliated keyword: \"%s\""] 9 "\n\n(fn K)"] 11 (#$ . 14117)]) | |
| 117 | #@10 | |
| 118 | ||
| 119 | (fn _) | |
| 120 | (defalias 'org-lint-obsolete-affiliated-keywords #[257 "\300\301\302\"\303\304\303\305#\203L \306\307!\226`\310\311 \211;\203\" \312\313#\202( \314A@\"\266\202W\203H \315 \300\316\211\317\267\202A \320\202B \321\202B \322#DB\262\210\202 \207" [format "^[ ]*#\\+%s:" "\\(DATA\\|HEADERS\\|LABEL\\|RES\\(?:NAME\\|ULT\\)\\|\\(?:S\\(?:OURC\\|RCNAM\\)\\|TBLNAM\\)E\\)" nil re-search-forward t match-string-no-properties 1 :post-affiliated org-element-at-point get-text-property 0 plist-get line-beginning-position "Obsolete affiliated keyword: \"%s\". Use \"%s\" instead" #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("HEADERS" 57 "RESULT" 61)) "HEADER" "RESULTS" "NAME"] 11 (#$ . 14811)]) | |
| 121 | #@12 | |
| 122 | ||
| 123 | (fn AST) | |
| 124 | (defalias 'org-lint-deprecated-export-blocks #[257 "\300\301\302\303\304\305\306\307!\310\"\311\312%#\207" [("ASCII" "BEAMER" "HTML" "LATEX" "MAN" "MARKDOWN" "MD" "ODT" "ORG" "TEXINFO") org-element-map special-block make-byte-code 257 "\301\211;\203 \302\303#\202 \304A@\"\266\202\305\300\"\205: \306\211;\203- \302\303#\2023 \304A@\"\266\202\307\310\"D\207" vconcat vector [:type get-text-property 0 plist-get member-ignore-case :post-affiliated format "Deprecated syntax for export block. Use \"BEGIN_EXPORT %s\" instead"] 8 "\n\n(fn B)"] 11 (#$ . 15564)]) | |
| 125 | #@12 | |
| 126 | ||
| 127 | (fn AST) | |
| 128 | (defalias 'org-lint-deprecated-header-syntax #[257 "\301\302\"\303\304\305\306\"\"\307\310\311\312\313\314\315 \"\316\"\317\320%#\207" [org-babel-common-header-args-w-values mapcar #[257 "\300@!\207" [symbol-name] 3 "\n\n(fn ARG)"] format "\\`%s[ ]" regexp-opt t org-element-map (keyword node-property) make-byte-code 257 "\302\211;\203 \303\304#\202 \305A@\"\266\202\211:\204& \211;\205. \306\202. \211@9\205. \211@\262\211\307\267\202\244 \310\211;\203E \303\304#\202K \305A@\"\266\202\311\230\205y \312\301\"\205y \313\211;\203i \303\304#\202o \305A@\"\266\202\314\315\316\317\"\"D\262\202\245 \320\300\"\205\245 \313\211;\203\224 \303\304#\202\232 \305A@\"\266\202\314\321\"D\202\245 \322\262\207" vconcat vector [:key get-text-property 0 plist-get plain-text #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (keyword 54 node-property 126)) :value "PROPERTY" string-match :begin format "Deprecated syntax for \"%s\". Use header-args instead" match-string-no-properties 1 member-ignore-case "Deprecated syntax for \"%s\". Use :header-args: instead" nil] 10 "\n\n(fn DATUM)"] 13 (#$ . 16158)]) | |
| 129 | #@12 | |
| 130 | ||
| 131 | (fn AST) | |
| 132 | (defalias 'org-lint-missing-language-in-src-block #[257 "\300\301\302#\207" [org-element-map src-block #[257 "\300\211;\203 \301\302#\202 \303A@\"\266\202?\2054 \304\211;\203* \301\302#\2020 \303A@\"\266\202\305D\207" [:language get-text-property 0 plist-get :post-affiliated "Missing language in source block"] 7 "\n\n(fn B)"]] 5 (#$ . 17348)]) | |
| 133 | #@12 | |
| 134 | ||
| 135 | (fn AST) | |
| 136 | (defalias 'org-lint-missing-backend-in-export-block #[257 "\300\301\302#\207" [org-element-map export-block #[257 "\300\211;\203 \301\302#\202 \303A@\"\266\202?\2054 \304\211;\203* \301\302#\2020 \303A@\"\266\202\305D\207" [:type get-text-property 0 plist-get :post-affiliated "Missing back-end in export block"] 7 "\n\n(fn B)"]] 5 (#$ . 17724)]) | |
| 137 | #@12 | |
| 138 | ||
| 139 | (fn AST) | |
| 140 | (defalias 'org-lint-invalid-babel-call-block #[257 "\300\301\302#\207" [org-element-map babel-call #[257 "\301\211;\203 \302\303#\202 \304A@\"\266\202\2044 \305\211;\203) \302\303#\202/ \304A@\"\266\202\306D\207\307\211;\203C \302\303#\202I \304A@\"\266\202\211\205\\ \310\311\312\313#)\266\203\262\205z \305\211;\203p \302\303#\202v \304A@\"\266\202\314D\207" [inhibit-changing-match-data :call get-text-property 0 plist-get :post-affiliated "Invalid syntax in babel call block" :end-header "\\`\\[.*\\]\\'" nil t string-match "Babel call's end header must not be wrapped within brackets"] 9 "\n\n(fn B)"]] 5 (#$ . 18101)]) | |
| 141 | #@12 | |
| 142 | ||
| 143 | (fn AST) | |
| 144 | (defalias 'org-lint-deprecated-category-setup #[257 "\300\301\302C\303\304\305\306\307!\310\"\311\312%\262#\207" [org-element-map keyword nil make-byte-code 257 "\301\211;\203 \302\303#\202 \304A@\"\266\202\305\230\204 \306\207\300\242\203= \307\211;\2032 \302\303#\2028 \304A@\"\266\202\310D\207\300\311\240\210\306\207" vconcat vector [:key get-text-property 0 plist-get "CATEGORY" nil :post-affiliated "Spurious CATEGORY keyword. Set :CATEGORY: property instead" t] 7 "\n\n(fn K)"] 11 (#$ . 18772)]) | |
| 145 | #@12 | |
| 146 | ||
| 147 | (fn AST) | |
| 148 | (defalias 'org-lint-invalid-coderef-link #[257 "\300D\301\302\303\304\305\306\307!\310\"\311\312%#\207" [:parse-tree org-element-map link make-byte-code 257 "\301\211;\203 \302\303#\202 \304A@\"\266\202\305\211;\203& \302\303#\202, \304A@\"\266\202\306\232\205a \3071? \310\300\"0\202A \210\311?\205a \312\211;\203T \302\303#\202Z \304A@\"\266\202\313\314\"D\207" vconcat vector [:path get-text-property 0 plist-get :type "coderef" (error) org-export-resolve-coderef nil :begin format "Unknown coderef \"%s\""] 8 "\n\n(fn LINK)"] 11 (#$ . 19309)]) | |
| 149 | #@12 | |
| 150 | ||
| 151 | (fn AST) | |
| 152 | (defalias 'org-lint-invalid-custom-id-link #[257 "\300D\301\302\303\304\305\306\307!\310\"\311\312%#\207" [:parse-tree org-element-map link make-byte-code 257 "\301\211;\203 \302\303#\202 \304A@\"\266\202\305\232\205` \3061( \307\300\"0\202* \210\310?\205` \311\211;\203= \302\303#\202C \304A@\"\266\202\312\313\314\211;\203V \302\303#\202\\ \304A@\"\266\202\"D\207" vconcat vector [:type get-text-property 0 plist-get "custom-id" (error) org-export-resolve-id-link nil :begin format "Unknown custom ID \"%s\"" :path] 10 "\n\n(fn LINK)"] 11 (#$ . 19897)]) | |
| 153 | #@12 | |
| 154 | ||
| 155 | (fn AST) | |
| 156 | (defalias 'org-lint-invalid-fuzzy-link #[257 "\300D\301\302\303\304\305\306\307!\310\"\311\312%#\207" [:parse-tree org-element-map link make-byte-code 257 "\301\211;\203 \302\303#\202 \304A@\"\266\202\305\232\205q \3061( \307\300\"0\202* \210\310?\205q \311\211;\203= \302\303#\202C \304A@\"\266\202\312\313\314\211;\203V \302\303#\202\\ \304A@\"\266\202\315\316\"\203l \211\317\310O\202m \211\262\"D\207" vconcat vector [:type get-text-property 0 plist-get "fuzzy" (error) org-export-resolve-fuzzy-link nil :begin format "Unknown fuzzy location \"%s\"" :path string-prefix-p "*" 1] 10 "\n\n(fn LINK)"] 11 (#$ . 20492)]) | |
| 157 | #@12 | |
| 158 | ||
| 159 | (fn AST) | |
| 160 | (defalias 'org-lint-invalid-id-link #[257 "\300\301\302#\207" [org-element-map link #[257 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304\211;\203& \301\302#\202, \303A@\"\266\202\305\232\205V \306!?\205V \307\211;\203I \301\302#\202O \303A@\"\266\202\310\311\"D\207" [:path get-text-property 0 plist-get :type "id" org-id-find :begin format "Unknown ID \"%s\""] 8 "\n\n(fn LINK)"]] 5 (#$ . 21154)]) | |
| 161 | #@12 | |
| 162 | ||
| 163 | (fn AST) | |
| 164 | (defalias 'org-lint-special-property-in-properties-drawer #[257 "\300\301\302#\207" [org-element-map node-property #[257 "\301\211;\203 \302\303#\202 \304A@\"\266\202\305\"\205: \306\211;\203- \302\303#\2023 \304A@\"\266\202\307\310\"D\207" [org-special-properties :key get-text-property 0 plist-get member-ignore-case :begin format "Special property \"%s\" found in a properties drawer"] 8 "\n\n(fn P)"]] 5 (#$ . 21593)]) | |
| 165 | #@12 | |
| 166 | ||
| 167 | (fn AST) | |
| 168 | (defalias 'org-lint-obsolete-properties-drawer #[257 "\300\301\302#\207" [org-element-map drawer #[257 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304\232\205r \305\306\"\307\310\311\312\313%?\205p \314\211;\203: \301\302#\202@ \303A@\"\266\202\212\314\211;\203R \301\302#\202X \303A@\"\266\202b\210\315y\210\316 \206f \317 )\203n \320\202o \321D\262\207" [:drawer-name get-text-property 0 plist-get "PROPERTIES" org-element-lineage (section) org-element-map property-drawer identity nil t :post-affiliated -1 org-at-heading-p org-at-planning-p "Incorrect contents for PROPERTIES drawer" "Incorrect location for PROPERTIES drawer"] 9 "\n\n(fn D)"]] 5 (#$ . 22049)]) | |
| 169 | #@12 | |
| 170 | ||
| 171 | (fn AST) | |
| 172 | (defalias 'org-lint-invalid-effort-property #[257 "\300\301\302#\207" [org-element-map node-property #[257 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304\232\205^ \305\211;\203+ \301\302#\2021 \303A@\"\266\202\306!\205\\ \307!?\205\\ \310\211;\203O \301\302#\202U \303A@\"\266\202\311\312\"D\262\207" [:key get-text-property 0 plist-get "EFFORT" :value org-string-nw-p org-duration-p :begin format "Invalid effort duration format: %S"] 8 "\n\n(fn P)"]] 5 (#$ . 22755)]) | |
| 173 | #@12 | |
| 174 | ||
| 175 | (fn AST) | |
| 176 | (defalias 'org-lint-link-to-local-file #[257 "\300\301\302#\207" [org-element-map link #[257 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304\232\205l \305\306\211;\203, \301\302#\2022 \303A@\"\266\202!\307!?\205j \310!?\205j \311\211;\203R \301\302#\202X \303A@\"\266\202\312\313\314\"\203f \315\202g \316\"D\262\207" [:type get-text-property 0 plist-get "file" org-link-unescape :path file-remote-p file-exists-p :begin format org-element-lineage (link) "Link to non-existent image file \"%s\" in link description" "Link to non-existent local file \"%s\""] 8 "\n\n(fn L)"]] 5 (#$ . 23267)]) | |
| 177 | #@12 | |
| 178 | ||
| 179 | (fn AST) | |
| 180 | (defalias 'org-lint-non-existent-setupfile-parameter #[257 "\300\301\302#\207" [org-element-map keyword #[257 "\300\211;\203 \301\302#\202 \303A@\"\266\202\304\232\205c \305\306\211\307\211;\203. \301\302#\2024 \303A@\"\266\202#\310!?\205a \311!?\205a \312\211;\203T \301\302#\202Z \303A@\"\266\202\313\314\"D\262\207" [:key get-text-property 0 plist-get "SETUPFILE" org-unbracket-string "\"" :value file-remote-p file-exists-p :begin format "Non-existent setup file \"%s\""] 10 "\n\n(fn K)"]] 5 (#$ . 23901)]) | |
| 181 | #@12 | |
| 182 | ||
| 183 | (fn AST) | |
| 184 | (defalias 'org-lint-wrong-include-link-parameter #[257 "\300\301\302#\207" [org-element-map keyword #[257 "\301\211;\203 \302\303#\202 \304A@\"\266\202\305\232\205\"\306\211;\203+ \302\303#\2021 \304A@\"\266\202\307\310\"\205T \311 \312\303\313\314\315!\316\"\317$\216\320\321\211\322\323\"#)\262\211\204t \324\211;\203g \302\303#\202m \304A@\"\266\202\325D\202 \326\307\327\"\203\204 \303\211\224O\202\205 !\211\232?\205\223 \326\322\323\"!\203\277 \330!\204\277 \331!\204\277 \324\211;\203\262 \302\303#\202\270 \304A@\"\266\202\332D\202 \203\311 \333!\202\312 p\211\206\321 \334!\312\303\335\314\315\"\336\"\337$\216r\211q\210\205\3401\370 \341\342\343\341#)0\202\372 \210\343?\205\324\211;\203\302\303#\202\304A@\"\266\202\344\345\"D*\266\202\266\202\266\202\207" [org-link-search-inhibit-query :key get-text-property 0 plist-get "INCLUDE" :value string-match "^\\(\".+\"\\|\\S-+\\)[ ]*" match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-unbracket-string "\"" match-string 1 :post-affiliated "Missing location argument in INCLUDE keyword" org-string-nw-p "::\\(.*\\)\\'" file-remote-p file-exists-p "Non-existent file argument in INCLUDE keyword" find-buffer-visiting find-file-noselect "\300?\205 \302\301!\207" [kill-buffer] 2 (error) t org-link-search nil format "Invalid search part \"%s\" in INCLUDE keyword"] 14 "\n\n(fn K)"]] 5 (#$ . 24451)]) | |
| 185 | #@12 | |
| 186 | ||
| 187 | (fn AST) | |
| 188 | (defalias 'org-lint-obsolete-include-markup #[257 "\300\301\302\"\303\304\305\306\307\310\311!\312\"\313\314%#\207" [format "\\`\\(?:\".+\"\\|\\S-+\\)[ ]+%s" "\\(ASCII\\|BEAMER\\|HTML\\|LATEX\\|M\\(?:A\\(?:\\(?:RKDOW\\)?N\\)\\|D\\)\\|O\\(?:DT\\|RG\\)\\|TEXINFO\\)" org-element-map keyword make-byte-code 257 "\302\211;\203 \303\304#\202 \305A@\"\266\202\306\232\205c \307\310\211;\203, \303\304#\2022 \305A@\"\266\202\311\300\"\205` \312\313\"\314\211;\203P \303\304#\202V \305A@\"\266\202\315\316\211#D\262)\266\202\207" vconcat vector [case-fold-search :key get-text-property 0 plist-get "INCLUDE" t :value string-match match-string-no-properties 1 :post-affiliated format "Obsolete markup \"%s\" in INCLUDE keyword. Use \"export %s\" instead"] 10 "\n\n(fn K)"] 11 (#$ . 25933)]) | |
| 189 | #@12 | |
| 190 | ||
| 191 | (fn AST) | |
| 192 | (defalias 'org-lint-unknown-options-item #[257 "\302\303\304\305\306\"\307\310 \"\"\"\303C\311\312\313\314\315\316\317 \"\320\"\321\322%#\210\211\242\207" [org-export-options-alist org-export-registered-backends delq nil append mapcar #[257 "\3008\207" [2] 3 "\n\n(fn O)"] cl-mapcan #[257 "\301\302\303!>\204 \304\305\306D\"\210\307H\"\207" [cl-struct-org-export-backend-tags mapcar #[257 "\3008\207" [2] 3 "\n\n(fn O)"] type-of signal wrong-type-argument org-export-backend 4] 7 "\n\n(fn B)"] org-element-map keyword make-byte-code 257 "\302\211;\203 \303\304#\202 \305A@\"\266\202\306\230\205r \307\211;\203+ \303\304#\2021 \305A@\"\266\202\304\310\311#\205p \304\225\262\312\313\"\211\300\235\204l \301\314\211;\203Z \303\304#\202` \305A@\"\266\202\315\316\"D\301\242B\240\210\210\2024 \266\202\207" vconcat vector [:key get-text-property 0 plist-get "OPTIONS" :value string-match "\\(.+?\\):\\((.*?)\\|\\S-*\\)[ ]*" match-string 1 :post-affiliated format "Unknown OPTIONS item \"%s\""] 11 "\n\n(fn K)"] 13 (#$ . 26760)]) | |
| 193 | #@12 | |
| 194 | ||
| 195 | (fn AST) | |
| 196 | (defalias 'org-lint-invalid-macro-argument-and-template #[257 "\301\302C\303\304\305\306\307\310\311 \"\312\"\313\314%#\210\315 \210\316\317\320\321\"\"\303\322\305\306\323\310\311\n\n\n#\324\"\325\326%#\266\211\242\207" [org-macro-templates #[257 "\300\301\302\303#\203 \300\225\262\304\305\306\"!B\262\202 \307\310!\311!\266\202\312\"\207" [0 nil string-match "\\$\\([1-9][0-9]*\\)" string-to-number match-string 1 sort copy-sequence delete-dups <] 8 "\n\n(fn TEMPLATE)"] nil org-element-map keyword make-byte-code 257 "\302\211;\203 \303\304#\202 \305A@\"\266\202\306\230\205\345 \307\211;\203+ \303\304#\2021 \305A@\"\266\202\310\311\"\205> \312\304\"\211\205\\ \304\225\313O\313\314\203Q \315\202R \316\317\314\320\317##\266\202\204\201 \301\321\211;\203p \303\304#\202v \305A@\"\266\202\322D\301\242B\240\202\343 \323!\204\251 \301\321\211;\203\227 \303\304#\202\235 \305A@\"\266\202\324E\301\242B\240\202\343 \300!\325\326\327!@\262\206\271 \304\"\232\262?\205\343 \301\321\211;\203\322 \303\304#\202\330 \305A@\"\266\202\330\331\"D\301\242B\240\266\203\207" vconcat vector [:key get-text-property 0 plist-get "MACRO" :value string-match "^\\S-+" match-string nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" #1="" "[ \n ]+\\'" :post-affiliated "Missing name in MACRO keyword" org-string-nw-p "Missing template in macro \"%s\"" number-sequence 1 last format "Unused placeholders in macro \"%s\""] 12 "\n\n(fn K)" org-macro-initialize-templates append mapcar #[257 "\211\300B\207" ["$1"] 3 "\n\n(fn M)"] ("author" "date" "email" "title" "results") macro "\303\211;\203 \304\305#\202 \306A@\"\266\202\307\302\310#A\211\204E \301\311\211;\2031 \304\305#\2027 \306A@\"\266\202\312\313\"D\301\242B\240\202\245 \300!\211\205\243 \314\315\"\316\211;\203_ \304\305#\202e \306A@\"\266\202\233\211\205\241 \301\311\211;\203} \304\305#\202\203 \306A@\"\266\202\312\317G\320V\203\222 \321\202\223 \322\323\324\325#$D\301\242B\240\262\262\207" [:key get-text-property 0 plist-get assoc-string t :begin format "Undefined macro \"%s\"" apply max :args "Unused argument%s in macro \"%s\": %s" 1 "s" #1# mapconcat #[257 "\300\301\"\207" [format "\"%s\""] 4 "\n\n(fn A)"] ", "] 15 "\n\n(fn MACRO)"] 15 (#$ . 27837)]) | |
| 197 | #@12 | |
| 198 | ||
| 199 | (fn AST) | |
| 200 | (defalias 'org-lint-undefined-footnote-reference #[257 "\300\301\302#\300\303\304\305\306\307\310!\311\"\312\313%#\207" [org-element-map footnote-definition #[257 "\300\211;\203 \301\302#\202 \303A@\"\207" [:label get-text-property 0 plist-get] 7 "\n\n(fn F)"] footnote-reference make-byte-code 257 "\301\211;\203 \302\303#\202 \304A@\"\266\202\305\211;\203& \302\303#\202, \304A@\"\266\202\306=\205V \211\300\235?\205V \307\211;\203I \302\303#\202O \304A@\"\266\202\310\311\"D\207" vconcat vector [:label get-text-property 0 plist-get :type standard :begin format "Missing definition for footnote [%s]"] 8 "\n\n(fn F)"] 11 (#$ . 30174)]) | |
| 201 | #@12 | |
| 202 | ||
| 203 | (fn AST) | |
| 204 | (defalias 'org-lint-unreferenced-footnote-definition #[257 "\300\301\302#\300\303\304\305\306\307\310!\311\"\312\313%#\207" [org-element-map footnote-reference #[257 "\300\211;\203 \301\302#\202 \303A@\"\207" [:label get-text-property 0 plist-get] 7 "\n\n(fn F)"] footnote-definition make-byte-code 257 "\301\211;\203 \302\303#\202 \304A@\"\266\202\211\205> \211\300\235?\205> \305\211;\2031 \302\303#\2027 \304A@\"\266\202\306\307\"D\207" vconcat vector [:label get-text-property 0 plist-get :post-affiliated format "No reference for footnote definition [%s]"] 8 "\n\n(fn F)"] 11 (#$ . 30859)]) | |
| 205 | #@12 | |
| 206 | ||
| 207 | (fn AST) | |
| 208 | (defalias 'org-lint-colon-in-name #[257 "\301\302#\207" [org-element-all-elements org-element-map #[257 "\301\211;\203 \302\303#\202 \304A@\"\266\202\211\205T \305\306\307\310#)\266\203\205T \311\211;\203: \302\303#\202@ \304A@\"\266\202b\210\312\313\314\315!\"!\210\303\224\313\316\"D\207" [inhibit-changing-match-data :name get-text-property 0 plist-get ":" nil t string-match :begin re-search-forward format "^[ ]*#\\+\\w+: +%s *$" regexp-quote "Name \"%s\" contains a colon; Babel cannot use it as input"] 9 "\n\n(fn E)"]] 5 (#$ . 31496)]) | |
| 209 | #@10 | |
| 210 | ||
| 211 | (fn _) | |
| 212 | (defalias 'org-lint-misplaced-planning-info #[257 "\302\303\304 \303\302#\2036 \305 \211:\204 \211;\205$ \306\202$ \211@9\205$ \211@\262\307>\204 \310 \311DB\262\202 )\207" [case-fold-search org-planning-line-re t nil re-search-forward org-element-at-point plain-text (comment-block example-block export-block planning src-block verse-block) line-beginning-position "Misplaced planning info line"] 7 (#$ . 32079)]) | |
| 213 | #@10 | |
| 214 | ||
| 215 | (fn _) | |
| 216 | (defalias 'org-lint-incomplete-drawer #[257 "\301\302\301\303#\203t \304\305!\301\306\203 \307\202 \310\311\306\312\311##\266\202\313 \211\211:\2042 \211;\205: \314\202: \211@9\205: \211@\262\211\315>\203^ \316\211;\203Q \317\305#\202W \320A@\"\266\202b\210\202o \211\321>\204o \322 \323\324\"DB\262\266\202 \211\207" [org-drawer-regexp nil re-search-forward t match-string-no-properties 0 replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" org-element-at-point plain-text (property-drawer drawer) :end get-text-property plist-get (verse-block src-block export-block example-block comment-block) line-beginning-position format "Possible incomplete drawer \"%s\""] 11 (#$ . 32517)]) | |
| 217 | #@10 | |
| 218 | ||
| 219 | (fn _) | |
| 220 | (defalias 'org-lint-indented-diary-sexp #[257 "\300\301\302\300\303#\2033 \304 \211:\204 \211;\205! \305\202! \211@9\205! \211@\262\306>\204 \307 \310DB\262\202 \211\207" [nil re-search-forward "^[ ]+%%(" t org-element-at-point plain-text (comment-block diary-sexp example-block export-block src-block verse-block) line-beginning-position "Possible indented diary-sexp"] 6 (#$ . 33256)]) | |
| 221 | #@10 | |
| 222 | ||
| 223 | (fn _) | |
| 224 | (defalias 'org-lint-invalid-block #[257 "\301\302\303\304\303\301#\203r \305\306 \307 \"\303\310\203 \311\202 \312\313\310\314\313##\266\202\315\316\317\320!\301#\203D l\204D \306 \321\322\"DB\262\202n \323 \211:\204T \211;\205\\ \324\202\\ \211@9\205\\ \211@\262\325>\204n \306 \321\326\"DB\262\210\202 )\207" [case-fold-search t "^[ ]*#\\+\\(BEGIN\\|END\\)\\(?::\\|_[^[:space:]]*\\)?[ ]*" nil re-search-forward buffer-substring-no-properties line-beginning-position line-end-position replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" string-prefix-p "END" match-string 1 format "Invalid block closing line \"%s\"" org-element-at-point plain-text (center-block comment-block dynamic-block example-block export-block quote-block special-block src-block verse-block) "Possible incomplete block \"%s\""] 13 (#$ . 33666)]) | |
| 225 | #@10 | |
| 226 | ||
| 227 | (fn _) | |
| 228 | (defalias 'org-lint-invalid-keyword-syntax #[257 "\302\303\304\305!\"\306\307\306\310#\203? \311\312!\313\314\310#\204; \313\315\310#\204; \212\316 \210\310\317!*\204; \320\224\303\321\"DB\262\210\202 \207" [org-element-dual-keywords case-fold-search "^[ ]*#\\+\\([^[:space:]:]*\\)\\(?: \\|$\\)" format "[ ]*#\\+%s\\(\\[.*\\]\\)?:\\(?: \\|$\\)" regexp-opt nil re-search-forward t match-string-no-properties 1 string-prefix-p "BEGIN" "END" beginning-of-line looking-at 0 "Possible missing colon in keyword \"%s\""] 9 (#$ . 34545)]) | |
| 229 | #@12 | |
| 230 | ||
| 231 | (fn AST) | |
| 232 | (defalias 'org-lint-extraneous-element-in-footnote-section #[257 "\300\301\302#\207" [org-element-map headline #[257 "\301\211;\203 \302\303#\202 \304A@\"\266\202\205Z \305\211:\204% \306\2022 \211@9\2031 \211AA\2022 \211\262\307\310\"\311\306\312\313&\205Z \314\211;\203P \302\303#\202V \304A@\"\266\202\315D\207" [org-element-all-elements :footnote-section-p get-text-property 0 plist-get org-element-map nil cl-remove-if #[257 "\211\300>\207" [(comment comment-block footnote-definition property-drawer section)] 3 "\n\n(fn E)"] #[257 "\211\211:\204 \211;\205 \300\202 \211@9\205 \211@\262\301=\2055 \302\211;\203- \303\304#\2023 \305A@\"\266\202?\207" [plain-text headline :commentedp get-text-property 0 plist-get] 7 "\n\n(fn E)"] t (footnote-definition property-drawer) :begin "Extraneous elements in footnote section are not exported"] 8 "\n\n(fn H)"]] 5 (#$ . 35103)]) | |
| 233 | #@12 | |
| 234 | ||
| 235 | (fn AST) | |
| 236 | (defalias 'org-lint-quote-section #[257 "\300\301\302#\207" [org-element-map (headline inlinetask) #[257 "\301\211;\203 \302\303#\202 \304A@\"\266\202\305\306\"\204' \305\307P\"\205@ \310\211;\2036 \302\303#\202< \304A@\"\266\202\311D\207" [org-comment-string :raw-value get-text-property 0 plist-get string-prefix-p "QUOTE " " QUOTE " :begin "Deprecated QUOTE section"] 8 "\n\n(fn H)"]] 5 (#$ . 36024)]) | |
| 237 | #@12 | |
| 238 | ||
| 239 | (fn AST) | |
| 240 | (defalias 'org-lint-file-application #[257 "\300\301\302#\207" [org-element-map link #[257 "\300\211;\203 \301\302#\202 \303A@\"\266\202\211\2057 \304\211;\203* \301\302#\2020 \303A@\"\266\202\305\306\"D\207" [:application get-text-property 0 plist-get :begin format "Deprecated \"file+%s\" link type"] 8 "\n\n(fn L)"]] 5 (#$ . 36462)]) | |
| 241 | #@12 | |
| 242 | ||
| 243 | (fn AST) | |
| 244 | (defalias 'org-lint-wrong-header-argument #[257 "\300C\301\302\303\304\305!\306\"\307\310%\311\312\301\313\314\304\305!\315\"\316\317%#\210\242\207" [nil make-byte-code 771 "\303 \304\305\203 C\202 \306\307\n\"\"\"\211\205\207 \211@\310@!\311\211;\203. \312\313#\2024 \314A@\"\266\202\206Q \315\211;\203I \312\313#\202O \314A@\"\266\202\316\317\"\204g \300\320\321\"D\300\242B\240\210\202~ \322\323\324O\"\204~ \300\320\325\"D\300\242B\240\210\266A\266\202\202 \262\207" vconcat vector [org-babel-header-arg-names org-babel-load-languages append cl-mapcan #[257 "\300\301\302\"!\303!\205 \304\305J\"\207" [intern format "org-babel-header-args:%s" boundp mapcar car] 5 "\n\n(fn L)"] mapcar car symbol-name :post-affiliated get-text-property 0 plist-get :begin string-prefix-p ":" format "Missing colon in header argument \"%s\"" assoc-string 1 nil "Unknown header argument \"%s\""] 13 "\n\n(fn DATUM LANGUAGE HEADERS)" org-element-map (babel-call inline-babel-call inline-src-block keyword node-property src-block) 257 "\211\211:\204 \211;\205 \302\202 \211@9\205 \211@\262\211\303>\203Z \300\304\305\306\307\211;\2034 \310\311#\202: \312A@\"\266\202\313\211;\203L \310\311#\202R \312A@\"\266\202D\"#\202\217\211\314=\203\227 \300\315\211;\203q \310\311#\202w \312A@\"\266\202\306\316\211;\203\212 \310\311#\202\220 \312A@\"\266\202!#\202\217\211\317=\203\352 \320\211;\203\254 \310\311#\202\262 \312A@\"\266\202\321\230\205\217\322\211;\203\310 \310\311#\202\316 \312A@\"\266\202\323\324\"\205\345 \300\325\326\"\306\311\225\304O!#\262\202\217\211\327=\2037\320\211;\203\377 \310\311#\202\312A@\"\266\202\330\323\331\")\2052\300\325\326\"\306\322\211;\203(\310\311#\202.\312A@\"\266\202!#\262\202\217\211\332=\203\216\300\315\211;\203N\310\311#\202T\312A@\"\266\202\305\306\316\211;\203h\310\311#\202n\312A@\"\266\202\333\211;\203\200\310\311#\202\206\312A@\"\266\202B\"#\202\217\304\207" [case-fold-search plain-text (inline-babel-call babel-call) nil cl-mapcan org-babel-parse-header-arguments :inside-header get-text-property 0 plist-get :end-header inline-src-block :language :parameters keyword :key "PROPERTY" :value string-match "\\`header-args\\(?::\\(\\S-+\\)\\)?\\+? *" match-string 1 node-property t "\\`HEADER-ARGS\\(?::\\(\\S-+\\)\\)?\\+?" src-block :header] 14 "\n\n(fn DATUM)"] 12 (#$ . 36830)]) | |
| 245 | #@12 | |
| 246 | ||
| 247 | (fn AST) | |
| 248 | (defalias 'org-lint-wrong-header-value #[257 "\300C\301\302\303\304\305\306\307!\310\"\311\312%#\210\211\242\207" [nil org-element-map (babel-call inline-babel-call inline-src-block src-block) make-byte-code 257 "\211\211:\204 \211;\205 \302\202 \211@9\205 \211@\262\303\211;\203( \304\305#\202. \306A@\"\266\202\307\205D \310\311P!\312!\205B \211J\262 \"\313\314\267\202\243 \315\316\317\211;\203_ \304\305#\202e \306A@\"\266\202\320\211;\203w \304\305#\202} \306A@\"\266\202B\321#\202\324 \317\211;\203\224 \304\305#\202\232 \306A@\"\266\202\206\324 \322\202\324 \323\211;\203\262 \304\305#\202\270 \306A@\"\266\202\321\324\211;\203\313 \304\305#\202\321 \306A@\"\266\202Q\325\326\203\336 \327\202\337 \330\322\326\331\322##\266\202!\211\211\205\n\211@\332\333@!\334\325O\"A\211\335>\204A\325;\203\336!\202C\211\203 \211@\325\3372\367\211\203\260\211@;\203-\332\202.\340\"\204H\341>\203\251\342\262\211BB\262\202\251\211\236\203\236\300\343\211;\203`\304\305#\202f\306A@\"\266\202\206\203\344\211;\203{\304\305#\202\201\306A@\"\266\202\345\346\f@ \236A $D\300\242B\240\210\347\337\325\"\210\202\251\211BB\262\342\262A\266\202\202 \210\211?\205\366\300\343\211;\203\307\304\305#\202\315\306A@\"\266\202\206\352\344\211;\203\342\304\305#\202\350\306A@\"\266\202\345\350 @#D\300\242B\2400\266A\266\202\202\266\210A\266\202\202\353 \262\207" vconcat vector [org-babel-common-header-args-w-values plain-text :language get-text-property 0 plist-get append intern "org-babel-header-args:" boundp org-babel-parse-header-arguments #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (src-block 77 inline-src-block 133)) mapconcat identity :parameters :header " " "" :inside-header :end-header nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "[ \n ]+\\'" assoc-string symbol-name 1 (:any nil) split-string exit assoc :any t :post-affiliated :begin format "Forbidden combination in header \"%s\": %s, %s" throw "Unknown value \"%s\" for header \"%s\""] 22 "\n\n(fn DATUM)"] 11 (#$ . 39295)]) | |
| 249 | #@12 | |
| 250 | ||
| 251 | (fn AST) | |
| 252 | (defalias 'org-lint-empty-headline-with-tags #[257 "\300\301\302#\207" [org-element-map (headline inlinetask) #[257 "\301\211;\203 \302\303#\202 \304A@\"\266\202\305\306\307\310#)\266\203\205C \311\211;\2036 \302\303#\202< \304A@\"\266\202\312\313\"D\207" [inhibit-changing-match-data :raw-value get-text-property 0 plist-get "\\`:[[:alnum:]_@#%:]+:\\'" nil t string-match :begin format "Headline containing only tags is ambiguous: %S"] 9 "\n\n(fn H)"]] 5 (#$ . 41483)]) | |
| 253 | #@51 Local keymap for `org-lint--report-mode' buffers. | |
| 254 | (defvar org-lint--report-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\307#\210\303\311\312#\210\303\313\314#\210\211\207" [tabulated-list-mode-map make-sparse-keymap set-keymap-parent define-key " " org-lint--jump-to-source " " org-lint--show-source "\n" "h" org-lint--hide-checker "i" org-lint--ignore-checker] 5) (#$ . 41990)) | |
| 255 | (defvar org-lint--report-mode-hook nil) | |
| 256 | (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [org-lint--report-mode-hook variable-documentation put "Hook run after entering OrgLint mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp org-lint--report-mode-map definition-name org-lint--report-mode] 4) | |
| 257 | (defvar org-lint--report-mode-map (make-sparse-keymap)) | |
| 258 | (byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [org-lint--report-mode-abbrev-table org-lint--report-mode-map variable-documentation put purecopy "Keymap for `org-lint--report-mode'." boundp org-lint--report-mode-syntax-table definition-name org-lint--report-mode (lambda (#1=#:def-tmp-var) (defvar org-lint--report-mode-syntax-table #1#)) make-syntax-table "Syntax table for `org-lint--report-mode'." (lambda (#1#) (defvar org-lint--report-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `org-lint--report-mode'." derived-mode-parent tabulated-list-mode] 5) | |
| 259 | #@279 Major mode used to display reports emitted during linting. | |
| 260 | \{org-lint--report-mode-map} | |
| 261 | ||
| 262 | In addition to any hooks its parent mode `tabulated-list-mode' might have run, | |
| 263 | this mode runs the hook `org-lint--report-mode-hook', as the final or penultimate step | |
| 264 | during initialization. | |
| 265 | (defalias 'org-lint--report-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R =\204R \326 \325 C#\210\327 !\210\330\f!\210 \331 \332 \210)\333\334!\207" [delay-mode-hooks major-mode mode-name org-lint--report-mode-map org-lint--report-mode-syntax-table org-lint--report-mode-abbrev-table make-local-variable t tabulated-list-mode org-lint--report-mode "OrgLint" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table [("Line" 6 (lambda (a b) (< (string-to-number (aref (cadr a) 0)) (string-to-number (aref (cadr b) 0)))) :right-align t) ("Trust" 5 t) ("Warning" 0 t)] tabulated-list-init-header run-mode-hooks org-lint--report-mode-hook local-abbrev-table tabulated-list-format] 5 (#$ . 43706) nil]) | |
| 266 | #@194 Generate linting report for BUFFER. | |
| 267 | ||
| 268 | CHECKERS is the list of checkers used. | |
| 269 | ||
| 270 | Return an alist (ID [LINE TRUST DESCRIPTION CHECKER]), suitable | |
| 271 | for `tabulated-list-printer'. | |
| 272 | ||
| 273 | (fn BUFFER CHECKERS) | |
| 274 | (defalias 'org-lint--generate-reports #[514 "rq\210\212eb\210\300 \301C\302C\302C\303\304\305\306\307\310#\311\"\312\313%\314\315\304\305\316\307\310\f!\317\"\320\321% \"\322\"\"\266\204*\207" [org-element-parse-buffer 0 1 mapcar make-byte-code 257 "\300\211\242T\240\303\304@b\210\305 \210\306\301\211\242\307\302\242`\"\\\240!\302`\240\210AB\"D\207" vconcat vector [apply vector beginning-of-line number-to-string count-lines] 10 "\n\n(fn REPORT)" sort cl-mapcan "\302\303! >\204 \304\305\306D\"\210\307H!\310\311\312\313\314\315\"\316\"\317\320%\212\321\322\323\303! >\2049 \304\305\306 D\"\210\324H\"!\300!)\"\207" [cl-struct-org-lint-checker-tags symbol-name type-of signal wrong-type-argument org-lint-checker 4 mapcar make-byte-code 257 "\211@\301A@\300F\207" vconcat vector [] 5 "\n\n(fn REPORT)" intern format "org-lint-%s" 1] 11 "\n\n(fn C)" car-less-than-car] 16 (#$ . 44994)]) | |
| 275 | #@52 Source buffer associated to current report buffer. | |
| 276 | (defvar org-lint--source-buffer nil (#$ . 46107)) | |
| 277 | (make-variable-buffer-local 'org-lint--source-buffer) | |
| 278 | #@48 List of checkers used to build current report. | |
| 279 | (defvar org-lint--local-checkers nil (#$ . 46268)) | |
| 280 | (make-variable-buffer-local 'org-lint--local-checkers) | |
| 281 | (defalias 'org-lint--refresh-reports #[0 "\303 \"\304 \207" [org-lint--source-buffer org-lint--local-checkers tabulated-list-entries org-lint--generate-reports tabulated-list-print] 3]) | |
| 282 | #@42 Return current report line, as a number. | |
| 283 | (defalias 'org-lint--current-line #[0 "\300\301\302\206 `\303\"\262\304H!\207" [string-to-number nil get-text-property tabulated-list-entry 0] 5 (#$ . 46615)]) | |
| 284 | #@134 Return current report checker. | |
| 285 | When optional argument ENTRY is non-nil, use this entry instead | |
| 286 | of current one. | |
| 287 | ||
| 288 | (fn &optional ENTRY) | |
| 289 | (defalias 'org-lint--current-checker #[256 "\211\203\n \211A@\202 \300\301\206 `\302\"\262\303H\207" [nil get-text-property tabulated-list-entry 3] 5 (#$ . 46826)]) | |
| 290 | #@105 Display linting reports for buffer SOURCE. | |
| 291 | CHECKERS is the list of checkers used. | |
| 292 | ||
| 293 | (fn SOURCE CHECKERS) | |
| 294 | (defalias 'org-lint--display-reports #[514 "\302\303!r\211q\210\304 \210\305 \210\306 \210\307\310\305\311\312$\210)\313!\207" [org-lint--source-buffer org-lint--local-checkers get-buffer-create "*Org Lint*" org-lint--report-mode org-lint--refresh-reports tabulated-list-print add-hook tabulated-list-revert-hook nil t pop-to-buffer] 8 (#$ . 47135)]) | |
| 295 | #@57 Move to source line that generated the report at point. | |
| 296 | (defalias 'org-lint--jump-to-source #[0 "\301 \302!\210\211\214~\210eb\210\211Sy)\266\303\304!\210\305 \207" [org-lint--source-buffer org-lint--current-line switch-to-buffer-other-window org-show-set-visibility local recenter] 3 (#$ . 47601) nil]) | |
| 297 | #@54 Show source line that generated the report at point. | |
| 298 | (defalias 'org-lint--show-source #[0 "p\300 \210\301!\207" [org-lint--jump-to-source switch-to-buffer-other-window] 3 (#$ . 47913) nil]) | |
| 299 | #@67 Hide all reports from checker that generated the report at point. | |
| 300 | (defalias 'org-lint--hide-checker #[0 "\301 \302\303\304\305\306\307!\310\"\311\312%\"\313 \207" [tabulated-list-entries org-lint--current-checker cl-remove-if make-byte-code 257 "\300\301!\232\207" vconcat vector [org-lint--current-checker] 4 "\n\n(fn E)" tabulated-list-print] 8 (#$ . 48110) nil]) | |
| 301 | #@125 Ignore all reports from checker that generated the report at point. | |
| 302 | Checker will also be ignored in all subsequent reports. | |
| 303 | (defalias 'org-lint--ignore-checker #[0 "\301\302 \"\303 \207" [org-lint--local-checkers remove org-lint--current-checker org-lint--hide-checker] 3 (#$ . 48488) nil]) | |
| 304 | #@341 Check current Org buffer for syntax mistakes. | |
| 305 | ||
| 306 | By default, run all checkers. With a `\[universal-argument]' prefix ARG, select one | |
| 307 | category of checkers only. With a `\[universal-argument] \[universal-argument]' prefix, run one precise | |
| 308 | checker by its name. | |
| 309 | ||
| 310 | ARG can also be a list of checker names, as symbols, to run. | |
| 311 | ||
| 312 | (fn &optional ARG) | |
| 313 | (defalias 'org-lint #[256 "\302\303!\204\n \304\305!\210\306\307!\203 \310\311!\210\312\204 \202\275 :\203\271 @\211\313\267\202\261 A\211\204N \314\315\316\317\"\320\321$\322\323\324\325\326\327!\330\"\331\332%\"\262\202^ \322\323\324\333\326\327 !\334\"\335\332%\"\262\202\264 A\211\204\251 \314\336\316\337\"\320\321$\3402\243 \211\205\240 \211@\341! >\204\214 \342\343\344D\"\210\211\345H\230\203\231 \346\340\"\210A\266\202\202w \2620\262C\202\254 !\262\202\264 !\262\202\275 \304\347\"\262\306\307!\204\314 \350p\"\202\324 \351p\"\210\310\352!\207" [org-lint--checkers cl-struct-org-lint-checker-tags derived-mode-p org-mode user-error "Not in an Org buffer" called-interactively-p any message "Org linting process starting..." #[257 "\301\302\303\304\305\306!\307\"\310\311%\"\207" [org-lint--checkers cl-remove-if-not make-byte-code 257 "\302! >\204 \303\304\305D\"\210\211\306H\300>\207" vconcat vector [cl-struct-org-lint-checker-tags type-of signal wrong-type-argument org-lint-checker 1] 5 "\n\n(fn C)"] 8 "\n\n(fn ARG)"] #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (4 42 16 99)) completing-read "Checker category: " mapcar org-lint-checker-categories nil t cl-remove-if-not make-byte-code 257 "\302\303! >\204 \304\305\306D\"\210\307H\300\"\207" vconcat vector [cl-struct-org-lint-checker-tags assoc-string type-of signal wrong-type-argument org-lint-checker 3] 6 "\n\n(fn C)" "\302! >\204 \303\304\305D\"\210\211\306H\300>\207" [cl-struct-org-lint-checker-tags type-of signal wrong-type-argument org-lint-checker 1] 5 "Checker name: " org-lint-checker-name exit type-of signal wrong-type-argument org-lint-checker 1 throw "Invalid argument `%S' for `org-lint'" org-lint--generate-reports org-lint--display-reports "Org linting process completed"] 12 (#$ . 48788) "P"]) | |
| 314 | (provide 'org-lint) | |
