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

Chizi123
2018-11-21 7074318d7ab58aca124f590c42fd820e8eb258a5
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
 
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
 
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [require cl-lib org-element org-macro ox ob] 2)
#@75 compiler-macro for inlining `org-lint-checker-p'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'org-lint-checker-p 'compiler-macro 'org-lint-checker-p--cmacro)
#@13 
 
(fn CL-X)
(defalias 'org-lint-checker-p #[257 "\301!>\205    \302\207" [cl-struct-org-lint-checker-tags type-of t] 3 (#$ . 904)])
(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)
#@78 compiler-macro for inlining `org-lint-checker-name'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'org-lint-checker-name 'compiler-macro 'org-lint-checker-name--cmacro)
#@82 Access slot "name" of `(org-lint-checker (:copier nil))' struct CL-X.
 
(fn CL-X)
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put org-lint-checker-name side-effect-free t] 4)
#@85 compiler-macro for inlining `org-lint-checker-description'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'org-lint-checker-description 'compiler-macro 'org-lint-checker-description--cmacro)
#@89 Access slot "description" of `(org-lint-checker (:copier nil))' struct CL-X.
 
(fn CL-X)
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put org-lint-checker-description side-effect-free t] 4)
#@84 compiler-macro for inlining `org-lint-checker-categories'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'org-lint-checker-categories 'compiler-macro 'org-lint-checker-categories--cmacro)
#@88 Access slot "categories" of `(org-lint-checker (:copier nil))' struct CL-X.
 
(fn CL-X)
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put org-lint-checker-categories side-effect-free t] 4)
#@79 compiler-macro for inlining `org-lint-checker-trust'.
 
(fn CL-WHOLE-ARG CL-X)
(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)])
(put 'org-lint-checker-trust 'compiler-macro 'org-lint-checker-trust--cmacro)
#@83 Access slot "trust" of `(org-lint-checker (:copier nil))' struct CL-X.
 
(fn CL-X)
(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)])
(byte-code "\300\301\302\303#\300\207" [function-put org-lint-checker-trust side-effect-free t] 4)
#@118 compiler-macro for inlining `make-org-lint-checker'.
 
(fn CL-WHOLE &cl-quote &key NAME DESCRIPTION CATEGORIES TRUST)
(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)])
(put 'make-org-lint-checker 'compiler-macro 'make-org-lint-checker--cmacro)
#@98 Constructor for objects of type `org-lint-checker'.
 
(fn &key NAME DESCRIPTION CATEGORIES TRUST)
(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)])
(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)
#@10 
 
(fn _)
(defalias 'org-lint-missing-checker-name #[257 "\300\301!\207" [error "`A checker has no `:name' property.  Please verify `org-lint--checkers'"] 3 (#$ . 6464)])
#@33 List of all available checkers.
(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))
#@510 Helper function to collect duplicates in parse tree AST.
 
EXTRACT-KEY is a function extracting key.  It is called with
a single argument: the element or object.  Comparison is done
with `equal'.
 
EXTRACT-POSITION is a function returning position for the report.
It is called with two arguments, the object or element, and the
key.
 
BUILD-MESSAGE is a function creating the report message.  It is
called with one argument, the key used for comparison.
 
(fn AST TYPE EXTRACT-KEY EXTRACT-POSITION BUILD-MESSAGE)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@10 
 
(fn _)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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\312p\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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@10 
 
(fn _)
(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)])
#@10 
 
(fn _)
(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)])
#@10 
 
(fn _)
(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)])
#@10 
 
(fn _)
(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#\203Dl\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)])
#@10 
 
(fn _)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@12 
 
(fn AST)
(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)])
#@51 Local keymap for `org-lint--report-mode' buffers.
(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))
(defvar org-lint--report-mode-hook nil)
(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)
(defvar org-lint--report-mode-map (make-sparse-keymap))
(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)
#@279 Major mode used to display reports emitted during linting.
\{org-lint--report-mode-map}
 
In addition to any hooks its parent mode `tabulated-list-mode' might have run,
this mode runs the hook `org-lint--report-mode-hook', as the final or penultimate step
during initialization.
(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 \325C#\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])
#@194 Generate linting report for BUFFER.
 
CHECKERS is the list of checkers used.
 
Return an alist (ID [LINE TRUST DESCRIPTION CHECKER]), suitable
for `tabulated-list-printer'.
 
(fn BUFFER CHECKERS)
(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)])
#@52 Source buffer associated to current report buffer.
(defvar org-lint--source-buffer nil (#$ . 46107))
(make-variable-buffer-local 'org-lint--source-buffer)
#@48 List of checkers used to build current report.
(defvar org-lint--local-checkers nil (#$ . 46268))
(make-variable-buffer-local 'org-lint--local-checkers)
(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])
#@42 Return current report line, as a number.
(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)])
#@134 Return current report checker.
When optional argument ENTRY is non-nil, use this entry instead
of current one.
 
(fn &optional ENTRY)
(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)])
#@105 Display linting reports for buffer SOURCE.
CHECKERS is the list of checkers used.
 
(fn SOURCE CHECKERS)
(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)])
#@57 Move to source line that generated the report at point.
(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])
#@54 Show source line that generated the report at point.
(defalias 'org-lint--show-source #[0 "p\300 \210\301!\207" [org-lint--jump-to-source switch-to-buffer-other-window] 3 (#$ . 47913) nil])
#@67 Hide all reports from checker that generated the report at point.
(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])
#@125 Ignore all reports from checker that generated the report at point.
Checker will also be ignored in all subsequent reports.
(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])
#@341 Check current Org buffer for syntax mistakes.
 
By default, run all checkers.  With a `\[universal-argument]' prefix ARG, select one
category of checkers only.  With a `\[universal-argument] \[universal-argument]' prefix, run one precise
checker by its name.
 
ARG can also be a list of checker names, as symbols, to run.
 
(fn &optional ARG)
(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\261A\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\264A\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"])
(provide 'org-lint)