The following R file causes an crash of the org-lint function and of tangling - backtrace attached. The problem seems to be the missing specification of :exports. --8<---------------cut here---------------start------------->8--- * Test #+begin_src R :exports #+end_src --8<---------------cut here---------------end--------------->8--- Cheers, Rainer ,---- | Debugger entered--Lisp error: (wrong-type-argument stringp nil) | string-match("[ \f \n. ]+" nil 0) | split-string(nil) | (funcall e-merge exports-exclusive-groups exports (split-string (cdr pair))) | (setq exports (funcall e-merge exports-exclusive-groups exports (split-string (cdr pair)))) | (cond ((eql temp (quote :var)) (let ((name (if (listp (cdr pair)) (car (cdr pair)) (and (string-match "^\\([^= \f \n. ]+\\)[ ]*=" ...) (intern ...))))) (if name (setq vars (append (if (member name ...) (progn ... ...) vars) (list (cons name pair)))) (if (and vars (nth variable-index vars)) (let ((name ...)) (setq clearnames (cons name clearnames)) (prog1 (let* ... ...) (setq variable-index ...))) (error "Variable \"%s\" must be assigned a default value" (cdr pair)))))) ((eql temp (quote :results)) (setq results (funcall e-merge results-exclusive-groups results (split-string (let ((r ...)) (if (stringp r) r (eval r))))))) ((eql temp (quote :file)) (if (cdr pair) (progn (setq results (funcall e-merge results-exclusive-groups results (quote ("file")))) (if (or (member "both" exports) (member "none" exports) (member "code" exports)) nil (setq exports (funcall e-merge exports-exclusive-groups exports (quote ...)))) (setq params (cons pair (assq-delete-all (car pair) params)))))) ((eql temp (quote :file-ext)) (if (cdr pair) (progn (setq results (funcall e-merge results-exclusive-groups results (quote ("file")))) (if (or (member "both" exports) (member "none" exports) (member "code" exports)) nil (setq exports (funcall e-merge exports-exclusive-groups exports (quote ...)))) (setq params (cons pair (assq-delete-all (car pair) params)))))) ((eql temp (quote :exports)) (setq exports (funcall e-merge exports-exclusive-groups exports (split-string (cdr pair))))) ((eql temp (quote :tangle)) (setq tangle (or (list (cdr pair)) tangle))) ((eql temp (quote :noweb)) (setq noweb (funcall e-merge (quote (("yes" "no" "tangle" "no-export" "strip-export" "eval"))) noweb (split-string (or (cdr pair) ""))))) ((eql temp (quote :cache)) (setq cache (funcall e-merge (quote (("yes" "no"))) cache (split-string (or (cdr pair) ""))))) ((eql temp (quote :padline)) (setq padline (funcall e-merge (quote (("yes" "no"))) padline (split-string (or (cdr pair) ""))))) ((eql temp (quote :shebang)) (setq shebang (or (list (cdr pair)) shebang))) ((eql temp (quote :comments)) (setq comments (funcall e-merge (quote (("yes" "no"))) comments (split-string (or (cdr pair) ""))))) (t (setq params (cons pair (assq-delete-all (car pair) params))))) | (let* ((temp (car pair))) (cond ((eql temp (quote :var)) (let ((name (if (listp ...) (car ...) (and ... ...)))) (if name (setq vars (append (if ... ... vars) (list ...))) (if (and vars (nth variable-index vars)) (let (...) (setq clearnames ...) (prog1 ... ...)) (error "Variable \"%s\" must be assigned a default value" (cdr pair)))))) ((eql temp (quote :results)) (setq results (funcall e-merge results-exclusive-groups results (split-string (let (...) (if ... r ...)))))) ((eql temp (quote :file)) (if (cdr pair) (progn (setq results (funcall e-merge results-exclusive-groups results (quote ...))) (if (or (member "both" exports) (member "none" exports) (member "code" exports)) nil (setq exports (funcall e-merge exports-exclusive-groups exports ...))) (setq params (cons pair (assq-delete-all ... params)))))) ((eql temp (quote :file-ext)) (if (cdr pair) (progn (setq results (funcall e-merge results-exclusive-groups results (quote ...))) (if (or (member "both" exports) (member "none" exports) (member "code" exports)) nil (setq exports (funcall e-merge exports-exclusive-groups exports ...))) (setq params (cons pair (assq-delete-all ... params)))))) ((eql temp (quote :exports)) (setq exports (funcall e-merge exports-exclusive-groups exports (split-string (cdr pair))))) ((eql temp (quote :tangle)) (setq tangle (or (list (cdr pair)) tangle))) ((eql temp (quote :noweb)) (setq noweb (funcall e-merge (quote (("yes" "no" "tangle" "no-export" "strip-export" "eval"))) noweb (split-string (or (cdr pair) ""))))) ((eql temp (quote :cache)) (setq cache (funcall e-merge (quote (("yes" "no"))) cache (split-string (or (cdr pair) ""))))) ((eql temp (quote :padline)) (setq padline (funcall e-merge (quote (("yes" "no"))) padline (split-string (or (cdr pair) ""))))) ((eql temp (quote :shebang)) (setq shebang (or (list (cdr pair)) shebang))) ((eql temp (quote :comments)) (setq comments (funcall e-merge (quote (("yes" "no"))) comments (split-string (or (cdr pair) ""))))) (t (setq params (cons pair (assq-delete-all (car pair) params)))))) | (lambda (pair) (let* ((temp (car pair))) (cond ((eql temp (quote :var)) (let ((name (if ... ... ...))) (if name (setq vars (append ... ...)) (if (and vars ...) (let ... ... ...) (error "Variable \"%s\" must be assigned a default value" ...))))) ((eql temp (quote :results)) (setq results (funcall e-merge results-exclusive-groups results (split-string (let ... ...))))) ((eql temp (quote :file)) (if (cdr pair) (progn (setq results (funcall e-merge results-exclusive-groups results ...)) (if (or ... ... ...) nil (setq exports ...)) (setq params (cons pair ...))))) ((eql temp (quote :file-ext)) (if (cdr pair) (progn (setq results (funcall e-merge results-exclusive-groups results ...)) (if (or ... ... ...) nil (setq exports ...)) (setq params (cons pair ...))))) ((eql temp (quote :exports)) (setq exports (funcall e-merge exports-exclusive-groups exports (split-string (cdr pair))))) ((eql temp (quote :tangle)) (setq tangle (or (list (cdr pair)) tangle))) ((eql temp (quote :noweb)) (setq noweb (funcall e-merge (quote (...)) noweb (split-string (or ... ""))))) ((eql temp (quote :cache)) (setq cache (funcall e-merge (quote (...)) cache (split-string (or ... ""))))) ((eql temp (quote :padline)) (setq padline (funcall e-merge (quote (...)) padline (split-string (or ... ""))))) ((eql temp (quote :shebang)) (setq shebang (or (list (cdr pair)) shebang))) ((eql temp (quote :comments)) (setq comments (funcall e-merge (quote (...)) comments (split-string (or ... ""))))) (t (setq params (cons pair (assq-delete-all (car pair) params)))))))((:exports)) | mapc((lambda (pair) (let* ((temp (car pair))) (cond ((eql temp (quote :var)) (let ((name (if ... ... ...))) (if name (setq vars (append ... ...)) (if (and vars ...) (let ... ... ...) (error "Variable \"%s\" must be assigned a default value" ...))))) ((eql temp (quote :results)) (setq results (funcall e-merge results-exclusive-groups results (split-string (let ... ...))))) ((eql temp (quote :file)) (if (cdr pair) (progn (setq results (funcall e-merge results-exclusive-groups results ...)) (if (or ... ... ...) nil (setq exports ...)) (setq params (cons pair ...))))) ((eql temp (quote :file-ext)) (if (cdr pair) (progn (setq results (funcall e-merge results-exclusive-groups results ...)) (if (or ... ... ...) nil (setq exports ...)) (setq params (cons pair ...))))) ((eql temp (quote :exports)) (setq exports (funcall e-merge exports-exclusive-groups exports (split-string (cdr pair))))) ((eql temp (quote :tangle)) (setq tangle (or (list (cdr pair)) tangle))) ((eql temp (quote :noweb)) (setq noweb (funcall e-merge (quote (...)) noweb (split-string (or ... ""))))) ((eql temp (quote :cache)) (setq cache (funcall e-merge (quote (...)) cache (split-string (or ... ""))))) ((eql temp (quote :padline)) (setq padline (funcall e-merge (quote (...)) padline (split-string (or ... ""))))) ((eql temp (quote :shebang)) (setq shebang (or (list (cdr pair)) shebang))) ((eql temp (quote :comments)) (setq comments (funcall e-merge (quote (...)) comments (split-string (or ... ""))))) (t (setq params (cons pair (assq-delete-all (car pair) params))))))) ((:exports))) | (lambda (plist) (mapc (function (lambda (pair) (let* ((temp (car pair))) (cond ((eql temp ...) (let ... ...)) ((eql temp ...) (setq results ...)) ((eql temp ...) (if ... ...)) ((eql temp ...) (if ... ...)) ((eql temp ...) (setq exports ...)) ((eql temp ...) (setq tangle ...)) ((eql temp ...) (setq noweb ...)) ((eql temp ...) (setq cache ...)) ((eql temp ...) (setq padline ...)) ((eql temp ...) (setq shebang ...)) ((eql temp ...) (setq comments ...)) (t (setq params ...)))))) plist))(((:exports))) | mapc((lambda (plist) (mapc (function (lambda (pair) (let* ((temp (car pair))) (cond ((eql temp ...) (let ... ...)) ((eql temp ...) (setq results ...)) ((eql temp ...) (if ... ...)) ((eql temp ...) (if ... ...)) ((eql temp ...) (setq exports ...)) ((eql temp ...) (setq tangle ...)) ((eql temp ...) (setq noweb ...)) ((eql temp ...) (setq cache ...)) ((eql temp ...) (setq padline ...)) ((eql temp ...) (setq shebang ...)) ((eql temp ...) (setq comments ...)) (t (setq params ...)))))) plist)) (((:noweb . "no") (:session . "none") (:results . "replace") (:exports . "code") (:cache . "no") (:hlines . "no") (:tangle . "no")) nil nil nil nil nil ((:exports)))) | (let* ((results-exclusive-groups (mapcar (function (lambda (group) (mapcar (function symbol-name) group))) (cdr (assoc (quote results) org-babel-common-header-args-w-values)))) (exports-exclusive-groups (mapcar (function (lambda (group) (mapcar (function symbol-name) group))) (cdr (assoc (quote exports) org-babel-common-header-args-w-values)))) (variable-index 0) (e-merge (function (lambda (exclusive-groups &rest result-params) (let (output) (mapc (function ...) result-params) output)))) params results exports tangle noweb cache vars shebang comments padline clearnames) (mapc (function (lambda (plist) (mapc (function (lambda (pair) (let* ... ...))) plist))) plists) (setq vars (reverse vars)) (while vars (setq params (cons (cons :var (cdr (cdr (car-safe ...)))) params))) (mapc (function (lambda (name) (mapc (function (lambda (param) (if ... ...))) (list :colname-names :rowname-names)))) clearnames) (mapc (function (lambda (hd) (let ((key (intern ...)) (val (eval hd))) (setq params (cons (cons key ...) params))))) (quote (results exports tangle noweb padline cache shebang comments))) params) | org-babel-merge-params(((:noweb . "no") (:session . "none") (:results . "replace") (:exports . "code") (:cache . "no") (:hlines . "no") (:tangle . "no")) nil nil nil nil nil ((:exports))) | apply(org-babel-merge-params ((:noweb . "no") (:session . "none") (:results . "replace") (:exports . "code") (:cache . "no") (:hlines . "no") (:tangle . "no")) nil (nil nil nil nil ((:exports)))) | (org-babel-process-params (apply (function org-babel-merge-params) org-babel-default-header-args (and language (let ((v (intern (concat "org-babel-default-header-args:" language)))) (and (boundp v) (symbol-value v)))) (append (list (and (memq type (quote (babel-call inline-babel-call))) org-babel-default-lob-header-args)) (progn (goto-char (org-element-property :begin datum)) (org-babel-params-from-properties language)) (list (org-babel-parse-header-arguments (org-trim (cond (... ...) (... ...) (t ...)))))))) | (let* ((type (org-element-type datum)) (language (org-element-property :language datum)) (allowed-header-values (append (and language (let ((v ...)) (and (boundp v) (symbol-value v)))) org-babel-common-header-args-w-values)) (datum-header-values (org-babel-process-params (apply (function org-babel-merge-params) org-babel-default-header-args (and language (let (...) (and ... ...))) (append (list (and ... org-babel-default-lob-header-args)) (progn (goto-char ...) (org-babel-params-from-properties language)) (list (org-babel-parse-header-arguments ...))))))) (let ((--dolist-tail-- datum-header-values)) (while --dolist-tail-- (let ((header (car --dolist-tail--))) (let ((allowed-values (cdr ...))) (if (memq allowed-values (quote ...)) nil (let (... groups-alist) (let ... ...)))) (setq --dolist-tail-- (cdr --dolist-tail--)))))) | (closure ((reports) (ast org-data nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent (org-data nil #3)) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #3) (src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #4))))) cl-struct-org-lint-checker-tags t) (datum) (let* ((type (org-element-type datum)) (language (org-element-property :language datum)) (allowed-header-values (append (and language (let (...) (and ... ...))) org-babel-common-header-args-w-values)) (datum-header-values (org-babel-process-params (apply (function org-babel-merge-params) org-babel-default-header-args (and language (let ... ...)) (append (list ...) (progn ... ...) (list ...)))))) (let ((--dolist-tail-- datum-header-values)) (while --dolist-tail-- (let ((header (car --dolist-tail--))) (let ((allowed-values ...)) (if (memq allowed-values ...) nil (let ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))((src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 ...)) :parent (org-data nil #4)) #2)) #0)))) | #[(--data) "\211.:\204. ;\205.\306\202. @9\205. @).?\206\337. \203,.\307 \310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202..!\211.\203\201..\203z.\314\315.\"\210\202\201...B.).\316=\203\312.;\204\312.\n.\236A\313.\211.\203\311..@.\f... ;\203\266.\317\320. #\202\275.\307 A@.\"*!\210.A\211.\204\234.*.\203\202..\316=\203\202.\n.>\203\202.\313. \211.\203\201..@\211. @. A.. ;\203.\317\320. #\202 .\307 A@.\"*.!.\".!\203w.\".#\235\203_.\".$\235\203P.\321.!!\313.%\211.\203L..@.%\f.%A!\210\f.%@!\210.A\211.\2042.*\202w.\f.!A!\210\f.!@!\210\202w.\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.A\211.\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241. @9\203\240. AA\202\241. )?\206\337..\322=\203\265.\n.'>?\206\337..\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335. @9\203\334. AA\202\335. )\")\207" [--data element --type info --walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw --map-first-match objects get-text-property 0 reverse greater-elements elements fun result first-match --acc --category org-element-secondary-value-alist p --dolist-tail-- property with-affiliated org-element-all-elements org-element--parsed-properties-alist kwd-pair value kwd org-element-dual-keywords org-element-multiple-keywords line no-recursion org-element-greater-elements org-element-all-objects] 6]((src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 ...)) :parent (org-data nil #4)) #2)) #0)))) | mapc(#[(--data) "\211.:\204. ;\205.\306\202. @9\205. @).?\206\337. \203,.\307 \310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202..!\211.\203\201..\203z.\314\315.\"\210\202\201...B.).\316=\203\312.;\204\312.\n.\236A\313.\211.\203\311..@.\f... ;\203\266.\317\320. #\202\275.\307 A@.\"*!\210.A\211.\204\234.*.\203\202..\316=\203\202.\n.>\203\202.\313. \211.\203\201..@\211. @. A.. ;\203.\317\320. #\202 .\307 A@.\"*.!.\".!\203w.\".#\235\203_.\".$\235\203P.\321.!!\313.%\211.\203L..@.%\f.%A!\210\f.%@!\210.A\211.\2042.*\202w.\f.!A!\210\f.!@!\210\202w.\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.A\211.\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241. @9\203\240. AA\202\241. )?\206\337..\322=\203\265.\n.'>?\206\337..\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335. @9\203\334. AA\202\335. )\")\207" [--data element --type info --walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw --map-first-match objects get-text-property 0 reverse greater-elements elements fun result first-match --acc --category org-element-secondary-value-alist p --dolist-tail-- property with-affiliated org-element-all-elements org-element--parsed-properties-alist kwd-pair value kwd org-element-dual-keywords org-element-multiple-keywords line no-recursion org-element-greater-elements org-element-all-objects] 6] ((src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 ...)) :parent (org-data nil #5)) #3)) #1))))) | #[(--data) "\211.:\204. ;\205.\306\202. @9\205. @).?\206\337. \203,.\307 \310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202..!\211.\203\201..\203z.\314\315.\"\210\202\201...B.).\316=\203\312.;\204\312.\n.\236A\313.\211.\203\311..@.\f... ;\203\266.\317\320. #\202\275.\307 A@.\"*!\210.A\211.\204\234.*.\203\202..\316=\203\202.\n.>\203\202.\313. \211.\203\201..@\211. @. A.. ;\203.\317\320. #\202 .\307 A@.\"*.!.\".!\203w.\".#\235\203_.\".$\235\203P.\321.!!\313.%\211.\203L..@.%\f.%A!\210\f.%@!\210.A\211.\2042.*\202w.\f.!A!\210\f.!@!\210\202w.\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.A\211.\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241. @9\203\240. AA\202\241. )?\206\337..\322=\203\265.\n.'>?\206\337..\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335. @9\203\334. AA\202\335. )\")\207" [--data element --type info --walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw --map-first-match objects get-text-property 0 reverse greater-elements elements fun result first-match --acc --category org-element-secondary-value-alist p --dolist-tail-- property with-affiliated org-element-all-elements org-element--parsed-properties-alist kwd-pair value kwd org-element-dual-keywords org-element-multiple-keywords line no-recursion org-element-greater-elements org-element-all-objects] 6]((section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #2))) :parent (org-data nil #2)) #0)) (src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #0)))) | mapc(#[(--data) "\211.:\204. ;\205.\306\202. @9\205. @).?\206\337. \203,.\307 \310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202..!\211.\203\201..\203z.\314\315.\"\210\202\201...B.).\316=\203\312.;\204\312.\n.\236A\313.\211.\203\311..@.\f... ;\203\266.\317\320. #\202\275.\307 A@.\"*!\210.A\211.\204\234.*.\203\202..\316=\203\202.\n.>\203\202.\313. \211.\203\201..@\211. @. A.. ;\203.\317\320. #\202 .\307 A@.\"*.!.\".!\203w.\".#\235\203_.\".$\235\203P.\321.!!\313.%\211.\203L..@.%\f.%A!\210\f.%@!\210.A\211.\2042.*\202w.\f.!A!\210\f.!@!\210\202w.\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.A\211.\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241. @9\203\240. AA\202\241. )?\206\337..\322=\203\265.\n.'>?\206\337..\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335. @9\203\334. AA\202\335. )\")\207" [--data element --type info --walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw --map-first-match objects get-text-property 0 reverse greater-elements elements fun result first-match --acc --category org-element-secondary-value-alist p --dolist-tail-- property with-affiliated org-element-all-elements org-element--parsed-properties-alist kwd-pair value kwd org-element-dual-keywords org-element-multiple-keywords line no-recursion org-element-greater-elements org-element-all-objects] 6] ((section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent (org-data nil #3)) #1)) (src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #1))))) | #[(--data) "\211.:\204. ;\205.\306\202. @9\205. @).?\206\337. \203,.\307 \310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202..!\211.\203\201..\203z.\314\315.\"\210\202\201...B.).\316=\203\312.;\204\312.\n.\236A\313.\211.\203\311..@.\f... ;\203\266.\317\320. #\202\275.\307 A@.\"*!\210.A\211.\204\234.*.\203\202..\316=\203\202.\n.>\203\202.\313. \211.\203\201..@\211. @. A.. ;\203.\317\320. #\202 .\307 A@.\"*.!.\".!\203w.\".#\235\203_.\".$\235\203P.\321.!!\313.%\211.\203L..@.%\f.%A!\210\f.%@!\210.A\211.\2042.*\202w.\f.!A!\210\f.!@!\210\202w.\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.A\211.\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241. @9\203\240. AA\202\241. )?\206\337..\322=\203\265.\n.'>?\206\337..\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335. @9\203\334. AA\202\335. )\")\207" [--data element --type info --walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw --map-first-match objects get-text-property 0 reverse greater-elements elements fun result first-match --acc --category org-element-secondary-value-alist p --dolist-tail-- property with-affiliated org-element-all-elements org-element--parsed-properties-alist kwd-pair value kwd org-element-dual-keywords org-element-multiple-keywords line no-recursion org-element-greater-elements org-element-all-objects] 6]((headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #0))) :parent (org-data nil #0)) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #0) (src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #1))))) | mapc(#[(--data) "\211.:\204. ;\205.\306\202. @9\205. @).?\206\337. \203,.\307 \310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202..!\211.\203\201..\203z.\314\315.\"\210\202\201...B.).\316=\203\312.;\204\312.\n.\236A\313.\211.\203\311..@.\f... ;\203\266.\317\320. #\202\275.\307 A@.\"*!\210.A\211.\204\234.*.\203\202..\316=\203\202.\n.>\203\202.\313. \211.\203\201..@\211. @. A.. ;\203.\317\320. #\202 .\307 A@.\"*.!.\".!\203w.\".#\235\203_.\".$\235\203P.\321.!!\313.%\211.\203L..@.%\f.%A!\210\f.%@!\210.A\211.\2042.*\202w.\f.!A!\210\f.!@!\210\202w.\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.A\211.\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241. @9\203\240. AA\202\241. )?\206\337..\322=\203\265.\n.'>?\206\337..\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335. @9\203\334. AA\202\335. )\")\207" [--data element --type info --walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw --map-first-match objects get-text-property 0 reverse greater-elements elements fun result first-match --acc --category org-element-secondary-value-alist p --dolist-tail-- property with-affiliated org-element-all-elements org-element--parsed-properties-alist kwd-pair value kwd org-element-dual-keywords org-element-multiple-keywords line no-recursion org-element-greater-elements org-element-all-objects] 6] ((headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #1))) :parent (org-data nil #1)) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #1) (src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #2)))))) | #[(--data) "\211.:\204. ;\205.\306\202. @9\205. @).?\206\337. \203,.\307 \310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\202..!\211.\203\201..\203z.\314\315.\"\210\202\201...B.).\316=\203\312.;\204\312.\n.\236A\313.\211.\203\311..@.\f... ;\203\266.\317\320. #\202\275.\307 A@.\"*!\210.A\211.\204\234.*.\203\202..\316=\203\202.\n.>\203\202.\313. \211.\203\201..@\211. @. A.. ;\203.\317\320. #\202 .\307 A@.\"*.!.\".!\203w.\".#\235\203_.\".$\235\203P.\321.!!\313.%\211.\203L..@.%\f.%A!\210\f.%@!\210.A\211.\2042.*\202w.\f.!A!\210\f.!@!\210\202w.\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.A\211.\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241. @9\203\240. AA\202\241. )?\206\337..\322=\203\265.\n.'>?\206\337..\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335. @9\203\334. AA\202\335. )\")\207" [--data element --type info --walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw --map-first-match objects get-text-property 0 reverse greater-elements elements fun result first-match --acc --category org-element-secondary-value-alist p --dolist-tail-- property with-affiliated org-element-all-elements org-element--parsed-properties-alist kwd-pair value kwd org-element-dual-keywords org-element-multiple-keywords line no-recursion org-element-greater-elements org-element-all-objects] 6]((org-data nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #1))) :parent #0) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #1) (src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #2)))))) | org-element-map((org-data nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #1))) :parent #0) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #1) (src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #2))))) (babel-call inline-babel-call inline-src-block src-block) (closure ((reports) (ast org-data nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent (org-data nil #3)) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #3) (src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #4))))) cl-struct-org-lint-checker-tags t) (datum) (let* ((type (org-element-type datum)) (language (org-element-property :language datum)) (allowed-header-values (append (and language (let (...) (and ... ...))) org-babel-common-header-args-w-values)) (datum-header-values (org-babel-process-params (apply (function org-babel-merge-params) org-babel-default-header-args (and language (let ... ...)) (append (list ...) (progn ... ...) (list ...)))))) (let ((--dolist-tail-- datum-header-values)) (while --dolist-tail-- (let ((header (car --dolist-tail--))) (let ((allowed-values ...)) (if (memq allowed-values ...) nil (let ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))))))) | (let (reports) (org-element-map ast (quote (babel-call inline-babel-call inline-src-block src-block)) (function (lambda (datum) (let* ((type (org-element-type datum)) (language (org-element-property :language datum)) (allowed-header-values (append ... org-babel-common-header-args-w-values)) (datum-header-values (org-babel-process-params ...))) (let ((--dolist-tail-- datum-header-values)) (while --dolist-tail-- (let ... ... ...))))))) reports) | org-lint-wrong-header-value((org-data nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #1))) :parent #0) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #1) (src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #2)))))) | funcall(org-lint-wrong-header-value (org-data nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #1))) :parent #0) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #1) (src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #2)))))) | (save-excursion (funcall (intern (format "org-lint-%s" (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-type-argument) (list ... c))) (aref c 1)))) ast)) | (mapcar (function (lambda (report) (list (car report) trust (nth 1 report) c))) (save-excursion (funcall (intern (format "org-lint-%s" (progn nil (or (progn nil ...) (signal ... ...)) (aref c 1)))) ast))) | (let ((trust (symbol-name (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-type-argument) (list ... c))) (aref c 4))))) (mapcar (function (lambda (report) (list (car report) trust (nth 1 report) c))) (save-excursion (funcall (intern (format "org-lint-%s" (progn nil (or ... ...) (aref c 1)))) ast)))) | (closure ((last-pos . 1) (last-line . 1) (id . 0) (ast org-data nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent (org-data nil #3)) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #3) (src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #4))))) (checkers [cl-struct-org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker duplicate-name "Report duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker duplicate-target "Report duplicate targets" (link) high] [cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate footnote definitions" (footnote) high] [cl-struct-org-lint-checker orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax "Report deprecated Babel header syntax" (babel obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block "Report missing language in src blocks" (babel) high] [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME values with a colon" (babel) high] [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup "Report misuse of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-custom-id-link "Report \"custom-id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-id-link "Report \"id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker link-to-local-file "Report links to non-existent local files" (link) low] [cl-struct-org-lint-checker non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent file parameter" (default) low] [cl-struct-org-lint-checker wrong-include-link-parameter "Report INCLUDE keywords with misleading link parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item "Report unknown items in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker invalid-macro-argument-and-template "Report spurious macro arguments or invalid macro templates" (export) low] [cl-struct-org-lint-checker special-property-in-properties-drawer "Report special properties in properties drawers" (properties) high] [cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker undefined-footnote-reference "Report missing definition for footnote references" (footnote) high] [cl-struct-org-lint-checker unreferenced-footnote-definition "Report missing reference for footnote definitions" (footnote) high] [cl-struct-org-lint-checker extraneous-element-in-footnote-section "Report non-footnote definitions in footnote section" (footnote) high] [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable invalid keywords" (default) low] [cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced planning info line" (default) low] [cl-struct-org-lint-checker incomplete-drawer "Report probable incomplete drawers" (default) low] [cl-struct-org-lint-checker indented-diary-sexp "Report probable indented diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report obsolete QUOTE section" (obsolete) low]) (buffer . #) cl-struct-org-lint-checker-tags t) (c) (let ((trust (symbol-name (progn nil (or (progn nil ...) (signal ... ...)) (aref c 4))))) (mapcar (function (lambda (report) (list (car report) trust (nth 1 report) c))) (save-excursion (funcall (intern (format "org-lint-%s" (progn nil ... ...))) ast)))))([cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel headers" (babel) low]) | mapcar((closure ((last-pos . 1) (last-line . 1) (id . 0) (ast org-data nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent (org-data nil #3)) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #3) (src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #4))))) (checkers [cl-struct-org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker duplicate-name "Report duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker duplicate-target "Report duplicate targets" (link) high] [cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate footnote definitions" (footnote) high] [cl-struct-org-lint-checker orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax "Report deprecated Babel header syntax" (babel obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block "Report missing language in src blocks" (babel) high] [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME values with a colon" (babel) high] [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup "Report misuse of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-custom-id-link "Report \"custom-id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-id-link "Report \"id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker link-to-local-file "Report links to non-existent local files" (link) low] [cl-struct-org-lint-checker non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent file parameter" (default) low] [cl-struct-org-lint-checker wrong-include-link-parameter "Report INCLUDE keywords with misleading link parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item "Report unknown items in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker invalid-macro-argument-and-template "Report spurious macro arguments or invalid macro templates" (export) low] [cl-struct-org-lint-checker special-property-in-properties-drawer "Report special properties in properties drawers" (properties) high] [cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker undefined-footnote-reference "Report missing definition for footnote references" (footnote) high] [cl-struct-org-lint-checker unreferenced-footnote-definition "Report missing reference for footnote definitions" (footnote) high] [cl-struct-org-lint-checker extraneous-element-in-footnote-section "Report non-footnote definitions in footnote section" (footnote) high] [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable invalid keywords" (default) low] [cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced planning info line" (default) low] [cl-struct-org-lint-checker incomplete-drawer "Report probable incomplete drawers" (default) low] [cl-struct-org-lint-checker indented-diary-sexp "Report probable indented diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report obsolete QUOTE section" (obsolete) low]) (buffer . #) cl-struct-org-lint-checker-tags t) (c) (let ((trust (symbol-name (progn nil (or (progn nil ...) (signal ... ...)) (aref c 4))))) (mapcar (function (lambda (report) (list (car report) trust (nth 1 report) c))) (save-excursion (funcall (intern (format "org-lint-%s" (progn nil ... ...))) ast))))) ([cl-struct-org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker duplicate-name "Report duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker duplicate-target "Report duplicate targets" (link) high] [cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate footnote definitions" (footnote) high] [cl-struct-org-lint-checker orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax "Report deprecated Babel header syntax" (babel obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block "Report missing language in src blocks" (babel) high] [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME values with a colon" (babel) high] [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup "Report misuse of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-custom-id-link "Report \"custom-id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-id-link "Report \"id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker link-to-local-file "Report links to non-existent local files" (link) low] [cl-struct-org-lint-checker non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent file parameter" (default) low] [cl-struct-org-lint-checker wrong-include-link-parameter "Report INCLUDE keywords with misleading link parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item "Report unknown items in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker invalid-macro-argument-and-template "Report spurious macro arguments or invalid macro templates" (export) low] [cl-struct-org-lint-checker special-property-in-properties-drawer "Report special properties in properties drawers" (properties) high] [cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker undefined-footnote-reference "Report missing definition for footnote references" (footnote) high] [cl-struct-org-lint-checker unreferenced-footnote-definition "Report missing reference for footnote definitions" (footnote) high] [cl-struct-org-lint-checker extraneous-element-in-footnote-section "Report non-footnote definitions in footnote section" (footnote) high] [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable invalid keywords" (default) low] [cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced planning info line" (default) low] [cl-struct-org-lint-checker incomplete-drawer "Report probable incomplete drawers" (default) low] [cl-struct-org-lint-checker indented-diary-sexp "Report probable indented diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report obsolete QUOTE section" (obsolete) low])) | cl-mapcar((closure ((last-pos . 1) (last-line . 1) (id . 0) (ast org-data nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent (org-data nil #3)) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #3) (src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #4))))) (checkers [cl-struct-org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker duplicate-name "Report duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker duplicate-target "Report duplicate targets" (link) high] [cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate footnote definitions" (footnote) high] [cl-struct-org-lint-checker orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax "Report deprecated Babel header syntax" (babel obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block "Report missing language in src blocks" (babel) high] [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME values with a colon" (babel) high] [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup "Report misuse of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-custom-id-link "Report \"custom-id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-id-link "Report \"id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker link-to-local-file "Report links to non-existent local files" (link) low] [cl-struct-org-lint-checker non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent file parameter" (default) low] [cl-struct-org-lint-checker wrong-include-link-parameter "Report INCLUDE keywords with misleading link parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item "Report unknown items in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker invalid-macro-argument-and-template "Report spurious macro arguments or invalid macro templates" (export) low] [cl-struct-org-lint-checker special-property-in-properties-drawer "Report special properties in properties drawers" (properties) high] [cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker undefined-footnote-reference "Report missing definition for footnote references" (footnote) high] [cl-struct-org-lint-checker unreferenced-footnote-definition "Report missing reference for footnote definitions" (footnote) high] [cl-struct-org-lint-checker extraneous-element-in-footnote-section "Report non-footnote definitions in footnote section" (footnote) high] [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable invalid keywords" (default) low] [cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced planning info line" (default) low] [cl-struct-org-lint-checker incomplete-drawer "Report probable incomplete drawers" (default) low] [cl-struct-org-lint-checker indented-diary-sexp "Report probable indented diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report obsolete QUOTE section" (obsolete) low]) (buffer . #) cl-struct-org-lint-checker-tags t) (c) (let ((trust (symbol-name (progn nil (or (progn nil ...) (signal ... ...)) (aref c 4))))) (mapcar (function (lambda (report) (list (car report) trust (nth 1 report) c))) (save-excursion (funcall (intern (format "org-lint-%s" (progn nil ... ...))) ast))))) ([cl-struct-org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker duplicate-name "Report duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker duplicate-target "Report duplicate targets" (link) high] [cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate footnote definitions" (footnote) high] [cl-struct-org-lint-checker orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax "Report deprecated Babel header syntax" (babel obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block "Report missing language in src blocks" (babel) high] [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME values with a colon" (babel) high] [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup "Report misuse of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-custom-id-link "Report \"custom-id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-id-link "Report \"id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker link-to-local-file "Report links to non-existent local files" (link) low] [cl-struct-org-lint-checker non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent file parameter" (default) low] [cl-struct-org-lint-checker wrong-include-link-parameter "Report INCLUDE keywords with misleading link parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item "Report unknown items in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker invalid-macro-argument-and-template "Report spurious macro arguments or invalid macro templates" (export) low] [cl-struct-org-lint-checker special-property-in-properties-drawer "Report special properties in properties drawers" (properties) high] [cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker undefined-footnote-reference "Report missing definition for footnote references" (footnote) high] [cl-struct-org-lint-checker unreferenced-footnote-definition "Report missing reference for footnote definitions" (footnote) high] [cl-struct-org-lint-checker extraneous-element-in-footnote-section "Report non-footnote definitions in footnote section" (footnote) high] [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable invalid keywords" (default) low] [cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced planning info line" (default) low] [cl-struct-org-lint-checker incomplete-drawer "Report probable incomplete drawers" (default) low] [cl-struct-org-lint-checker indented-diary-sexp "Report probable indented diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report obsolete QUOTE section" (obsolete) low])) | apply(cl-mapcar (closure ((last-pos . 1) (last-line . 1) (id . 0) (ast org-data nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent (org-data nil #3)) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #3) (src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #4))))) (checkers [cl-struct-org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker duplicate-name "Report duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker duplicate-target "Report duplicate targets" (link) high] [cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate footnote definitions" (footnote) high] [cl-struct-org-lint-checker orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax "Report deprecated Babel header syntax" (babel obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block "Report missing language in src blocks" (babel) high] [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME values with a colon" (babel) high] [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup "Report misuse of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-custom-id-link "Report \"custom-id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-id-link "Report \"id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker link-to-local-file "Report links to non-existent local files" (link) low] [cl-struct-org-lint-checker non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent file parameter" (default) low] [cl-struct-org-lint-checker wrong-include-link-parameter "Report INCLUDE keywords with misleading link parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item "Report unknown items in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker invalid-macro-argument-and-template "Report spurious macro arguments or invalid macro templates" (export) low] [cl-struct-org-lint-checker special-property-in-properties-drawer "Report special properties in properties drawers" (properties) high] [cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker undefined-footnote-reference "Report missing definition for footnote references" (footnote) high] [cl-struct-org-lint-checker unreferenced-footnote-definition "Report missing reference for footnote definitions" (footnote) high] [cl-struct-org-lint-checker extraneous-element-in-footnote-section "Report non-footnote definitions in footnote section" (footnote) high] [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable invalid keywords" (default) low] [cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced planning info line" (default) low] [cl-struct-org-lint-checker incomplete-drawer "Report probable incomplete drawers" (default) low] [cl-struct-org-lint-checker indented-diary-sexp "Report probable indented diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report obsolete QUOTE section" (obsolete) low]) (buffer . #) cl-struct-org-lint-checker-tags t) (c) (let ((trust (symbol-name (progn nil (or (progn nil ...) (signal ... ...)) (aref c 4))))) (mapcar (function (lambda (report) (list (car report) trust (nth 1 report) c))) (save-excursion (funcall (intern (format "org-lint-%s" (progn nil ... ...))) ast))))) ([cl-struct-org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker duplicate-name "Report duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker duplicate-target "Report duplicate targets" (link) high] [cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate footnote definitions" (footnote) high] [cl-struct-org-lint-checker orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax "Report deprecated Babel header syntax" (babel obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block "Report missing language in src blocks" (babel) high] [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME values with a colon" (babel) high] [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup "Report misuse of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-custom-id-link "Report \"custom-id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-id-link "Report \"id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker link-to-local-file "Report links to non-existent local files" (link) low] [cl-struct-org-lint-checker non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent file parameter" (default) low] [cl-struct-org-lint-checker wrong-include-link-parameter "Report INCLUDE keywords with misleading link parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item "Report unknown items in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker invalid-macro-argument-and-template "Report spurious macro arguments or invalid macro templates" (export) low] [cl-struct-org-lint-checker special-property-in-properties-drawer "Report special properties in properties drawers" (properties) high] [cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker undefined-footnote-reference "Report missing definition for footnote references" (footnote) high] [cl-struct-org-lint-checker unreferenced-footnote-definition "Report missing reference for footnote definitions" (footnote) high] [cl-struct-org-lint-checker extraneous-element-in-footnote-section "Report non-footnote definitions in footnote section" (footnote) high] [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable invalid keywords" (default) low] [cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced planning info line" (default) low] [cl-struct-org-lint-checker incomplete-drawer "Report probable incomplete drawers" (default) low] [cl-struct-org-lint-checker indented-diary-sexp "Report probable indented diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report obsolete QUOTE section" (obsolete) low]) nil) | cl-mapcan((closure ((last-pos . 1) (last-line . 1) (id . 0) (ast org-data nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent (org-data nil #3)) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #3) (src-block (:language "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent #4))))) (checkers [cl-struct-org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker duplicate-name "Report duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker duplicate-target "Report duplicate targets" (link) high] [cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate footnote definitions" (footnote) high] [cl-struct-org-lint-checker orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax "Report deprecated Babel header syntax" (babel obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block "Report missing language in src blocks" (babel) high] [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME values with a colon" (babel) high] [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup "Report misuse of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-custom-id-link "Report \"custom-id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-id-link "Report \"id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker link-to-local-file "Report links to non-existent local files" (link) low] [cl-struct-org-lint-checker non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent file parameter" (default) low] [cl-struct-org-lint-checker wrong-include-link-parameter "Report INCLUDE keywords with misleading link parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item "Report unknown items in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker invalid-macro-argument-and-template "Report spurious macro arguments or invalid macro templates" (export) low] [cl-struct-org-lint-checker special-property-in-properties-drawer "Report special properties in properties drawers" (properties) high] [cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker undefined-footnote-reference "Report missing definition for footnote references" (footnote) high] [cl-struct-org-lint-checker unreferenced-footnote-definition "Report missing reference for footnote definitions" (footnote) high] [cl-struct-org-lint-checker extraneous-element-in-footnote-section "Report non-footnote definitions in footnote section" (footnote) high] [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable invalid keywords" (default) low] [cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced planning info line" (default) low] [cl-struct-org-lint-checker incomplete-drawer "Report probable incomplete drawers" (default) low] [cl-struct-org-lint-checker indented-diary-sexp "Report probable indented diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report obsolete QUOTE section" (obsolete) low]) (buffer . #) cl-struct-org-lint-checker-tags t) (c) (let ((trust (symbol-name (progn nil (or (progn nil ...) (signal ... ...)) (aref c 4))))) (mapcar (function (lambda (report) (list (car report) trust (nth 1 report) c))) (save-excursion (funcall (intern (format "org-lint-%s" (progn nil ... ...))) ast))))) ([cl-struct-org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker duplicate-name "Report duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker duplicate-target "Report duplicate targets" (link) high] [cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate footnote definitions" (footnote) high] [cl-struct-org-lint-checker orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax "Report deprecated Babel header syntax" (babel obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block "Report missing language in src blocks" (babel) high] [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME values with a colon" (babel) high] [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup "Report misuse of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-custom-id-link "Report \"custom-id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-id-link "Report \"id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker link-to-local-file "Report links to non-existent local files" (link) low] [cl-struct-org-lint-checker non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent file parameter" (default) low] [cl-struct-org-lint-checker wrong-include-link-parameter "Report INCLUDE keywords with misleading link parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item "Report unknown items in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker invalid-macro-argument-and-template "Report spurious macro arguments or invalid macro templates" (export) low] [cl-struct-org-lint-checker special-property-in-properties-drawer "Report special properties in properties drawers" (properties) high] [cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker undefined-footnote-reference "Report missing definition for footnote references" (footnote) high] [cl-struct-org-lint-checker unreferenced-footnote-definition "Report missing reference for footnote definitions" (footnote) high] [cl-struct-org-lint-checker extraneous-element-in-footnote-section "Report non-footnote definitions in footnote section" (footnote) high] [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable invalid keywords" (default) low] [cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced planning info line" (default) low] [cl-struct-org-lint-checker incomplete-drawer "Report probable incomplete drawers" (default) low] [cl-struct-org-lint-checker indented-diary-sexp "Report probable indented diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report obsolete QUOTE section" (obsolete) low])) | (sort (cl-mapcan (function (lambda (c) (let ((trust (symbol-name ...))) (mapcar (function (lambda ... ...)) (save-excursion (funcall ... ast)))))) checkers) (function car-less-than-car)) | (mapcar (function (lambda (report) (list (setq id (1+ id)) (apply (function vector) (cons (progn (goto-char ...) (beginning-of-line) (prog1 ... ...)) (cdr report)))))) (sort (cl-mapcan (function (lambda (c) (let ((trust ...)) (mapcar (function ...) (save-excursion ...))))) checkers) (function car-less-than-car))) | (let ((ast (org-element-parse-buffer)) (id 0) (last-line 1) (last-pos 1)) (mapcar (function (lambda (report) (list (setq id (1+ id)) (apply (function vector) (cons (progn ... ... ...) (cdr report)))))) (sort (cl-mapcan (function (lambda (c) (let (...) (mapcar ... ...)))) checkers) (function car-less-than-car)))) | (save-excursion (goto-char (point-min)) (let ((ast (org-element-parse-buffer)) (id 0) (last-line 1) (last-pos 1)) (mapcar (function (lambda (report) (list (setq id (1+ id)) (apply (function vector) (cons ... ...))))) (sort (cl-mapcan (function (lambda (c) (let ... ...))) checkers) (function car-less-than-car))))) | (save-current-buffer (set-buffer buffer) (save-excursion (goto-char (point-min)) (let ((ast (org-element-parse-buffer)) (id 0) (last-line 1) (last-pos 1)) (mapcar (function (lambda (report) (list (setq id ...) (apply ... ...)))) (sort (cl-mapcan (function (lambda ... ...)) checkers) (function car-less-than-car)))))) | org-lint--generate-reports(# ([cl-struct-org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker duplicate-name "Report duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker duplicate-target "Report duplicate targets" (link) high] [cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate footnote definitions" (footnote) high] [cl-struct-org-lint-checker orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax "Report deprecated Babel header syntax" (babel obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block "Report missing language in src blocks" (babel) high] [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME values with a colon" (babel) high] [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup "Report misuse of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-custom-id-link "Report \"custom-id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-id-link "Report \"id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker link-to-local-file "Report links to non-existent local files" (link) low] [cl-struct-org-lint-checker non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent file parameter" (default) low] [cl-struct-org-lint-checker wrong-include-link-parameter "Report INCLUDE keywords with misleading link parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item "Report unknown items in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker invalid-macro-argument-and-template "Report spurious macro arguments or invalid macro templates" (export) low] [cl-struct-org-lint-checker special-property-in-properties-drawer "Report special properties in properties drawers" (properties) high] [cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker undefined-footnote-reference "Report missing definition for footnote references" (footnote) high] [cl-struct-org-lint-checker unreferenced-footnote-definition "Report missing reference for footnote definitions" (footnote) high] [cl-struct-org-lint-checker extraneous-element-in-footnote-section "Report non-footnote definitions in footnote section" (footnote) high] [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable invalid keywords" (default) low] [cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced planning info line" (default) low] [cl-struct-org-lint-checker incomplete-drawer "Report probable incomplete drawers" (default) low] [cl-struct-org-lint-checker indented-diary-sexp "Report probable indented diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report obsolete QUOTE section" (obsolete) low])) | (setq tabulated-list-entries (org-lint--generate-reports org-lint--source-buffer org-lint--local-checkers)) | org-lint--refresh-reports() | (save-current-buffer (set-buffer buffer) (org-lint--report-mode) (setq org-lint--source-buffer source) (setq org-lint--local-checkers checkers) (org-lint--refresh-reports) (tabulated-list-print) (add-hook (quote tabulated-list-revert-hook) (function org-lint--refresh-reports) nil t)) | (let ((buffer (get-buffer-create "*Org Lint*"))) (save-current-buffer (set-buffer buffer) (org-lint--report-mode) (setq org-lint--source-buffer source) (setq org-lint--local-checkers checkers) (org-lint--refresh-reports) (tabulated-list-print) (add-hook (quote tabulated-list-revert-hook) (function org-lint--refresh-reports) nil t)) (pop-to-buffer buffer)) | org-lint--display-reports(# ([cl-struct-org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker duplicate-name "Report duplicate NAME values" (babel link) high] [cl-struct-org-lint-checker duplicate-target "Report duplicate targets" (link) high] [cl-struct-org-lint-checker duplicate-footnote-definition "Report duplicate footnote definitions" (footnote) high] [cl-struct-org-lint-checker orphaned-affiliated-keywords "Report orphaned affiliated keywords" (default) low] [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report obsolete affiliated keywords" (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax "Report deprecated Babel header syntax" (babel obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-block "Report missing language in src blocks" (babel) high] [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Babel call blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME values with a colon" (babel) high] [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value "Report invalid value in babel headers" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup "Report misuse of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker invalid-coderef-link "Report \"coderef\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-custom-id-link "Report \"custom-id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (link) high] [cl-struct-org-lint-checker invalid-id-link "Report \"id\" links with unknown destination" (link) high] [cl-struct-org-lint-checker link-to-local-file "Report links to non-existent local files" (link) low] [cl-struct-org-lint-checker non-existent-setupfile-parameter "Report SETUPFILE keywords with non-existent file parameter" (default) low] [cl-struct-org-lint-checker wrong-include-link-parameter "Report INCLUDE keywords with misleading link parameter" (export) low] [cl-struct-org-lint-checker unknown-options-item "Report unknown items in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker invalid-macro-argument-and-template "Report spurious macro arguments or invalid macro templates" (export) low] [cl-struct-org-lint-checker special-property-in-properties-drawer "Report special properties in properties drawers" (properties) high] [cl-struct-org-lint-checker obsolete-properties-drawer "Report obsolete syntax for properties drawers" (obsolete properties) high] [cl-struct-org-lint-checker undefined-footnote-reference "Report missing definition for footnote references" (footnote) high] [cl-struct-org-lint-checker unreferenced-footnote-definition "Report missing reference for footnote definitions" (footnote) high] [cl-struct-org-lint-checker extraneous-element-in-footnote-section "Report non-footnote definitions in footnote section" (footnote) high] [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable invalid keywords" (default) low] [cl-struct-org-lint-checker invalid-block "Report invalid blocks" (default) low] [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced planning info line" (default) low] [cl-struct-org-lint-checker incomplete-drawer "Report probable incomplete drawers" (default) low] [cl-struct-org-lint-checker indented-diary-sexp "Report probable indented diary-sexps" (default) low] [cl-struct-org-lint-checker quote-section "Report obsolete QUOTE section" (obsolete) low])) | (if (not (with-no-warnings (called-interactively-p nil))) (org-lint--generate-reports (current-buffer) checkers) (org-lint--display-reports (current-buffer) checkers) (message "Org linting process completed")) | (let ((checkers (let* ((pcase-0 (function (lambda nil ...)))) (cond ((null arg) (let nil org-lint--checkers)) ((consp arg) (let* (...) (cond ... ... ...))) (t (let nil (user-error "Invalid argument `%S' for `org-lint'" arg))))))) (if (not (with-no-warnings (called-interactively-p nil))) (org-lint--generate-reports (current-buffer) checkers) (org-lint--display-reports (current-buffer) checkers) (message "Org linting process completed"))) | org-lint(nil) | funcall-interactively(org-lint nil) | call-interactively(org-lint record nil) | command-execute(org-lint record) | execute-extended-command(nil "org-lint") | smex-read-and-run(("org-lint" "rename-buffer" "package-autoremove" "package-list-packages" "magit-status" "recover-this-file" "desktop-read" "list-packages" "gnus" "revert-buffer" "load-theme" "notmuch-search" "shell" "rmk/org-edit-src-code-plus-name" "org-reload" "org-toggle-latex-fragment" "google-contacts" "sr-speedbar-toggle" "R" "org-babel-execute-subtree" "org-info" "ess-debug-command-next" "notmuch" "org2blog/wp-post-subtree" "google-this" "load-library" "emacs-version" "grep" "org-version" "apropos" "eval-last-sexp" "hs-hide-all" "org-mobile-push" "org2blog/wp-login" "pdf-tools-install" "speedbar" "projectile-find-file" "org-agenda" "server-start" "projectile-find-tag" "package-install" "beginning-of-buffer" "rmk/mac-switch-meta" "tabbar-backward-tab" "imenu-add-to-menubar" "add-file-local-variable" "ess-rdired" "search-forward" "org-mobile-pull" "sr-speedbar-open" ...)) | smex() | funcall-interactively(smex) | call-interactively(smex nil nil) | command-execute(smex) `---- -- Rainer M. Krug, PhD (Conservation Ecology, SUN), MSc (Conservation Biology, UCT), Dipl. Phys. (Germany) Centre of Excellence for Invasion Biology Stellenbosch University South Africa Tel : +33 - (0)9 53 10 27 44 Cell: +33 - (0)6 85 62 59 98 Fax : +33 - (0)9 58 10 27 44 Fax (D): +49 - (0)3 21 21 25 22 44 email: Rainer@krugs.de Skype: RMkrug PGP: 0x0F52F982