From mboxrd@z Thu Jan 1 00:00:00 1970 From: Rainer M Krug Subject: BUG in org-lint and tangle Date: Mon, 19 Oct 2015 17:36:42 +0200 Message-ID: Mime-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:51510) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZoCUh-0008Cp-BN for emacs-orgmode@gnu.org; Mon, 19 Oct 2015 11:37:15 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZoCUZ-0001mr-CJ for emacs-orgmode@gnu.org; Mon, 19 Oct 2015 11:37:03 -0400 Received: from mail-wi0-f178.google.com ([209.85.212.178]:37317) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZoCUY-0001mg-Pd for emacs-orgmode@gnu.org; Mon, 19 Oct 2015 11:36:55 -0400 Received: by wicfv8 with SMTP id fv8so11688682wic.0 for ; Mon, 19 Oct 2015 08:36:54 -0700 (PDT) Received: from Rainers-MacBook-Pro.local (arn78-1-88-186-171-7.fbx.proxad.net. [88.186.171.7]) by smtp.gmail.com with ESMTPSA id w1sm40854458wjz.37.2015.10.19.08.36.50 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Mon, 19 Oct 2015 08:36:52 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain Content-Transfer-Encoding: quoted-printable 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. =2D-8<---------------cut here---------------start------------->8--- * Test #+begin_src R :exports=20 #+end_src =2D-8<---------------cut here---------------end--------------->8--- Cheers, Rainer ,---- | Debugger entered--Lisp error: (wrong-type-argument stringp nil) | string-match("[ \f \n.=0B]+" nil 0) | split-string(nil) | (funcall e-merge exports-exclusive-groups exports (split-string (cdr pa= ir))) | (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 "^\\([^=3D \f \n.=0B]+\\)[ ]*=3D" ...) (int= ern ...))))) (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 assigne= d a default value" (cdr pair)))))) ((eql temp (quote :results)) (setq resul= ts (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 result= s (quote ("file")))) (if (or (member "both" exports) (member "none" exports= ) (member "code" exports)) nil (setq exports (funcall e-merge exports-exclu= sive-groups exports (quote ...)))) (setq params (cons pair (assq-delete-all= (car pair) params)))))) ((eql temp (quote :file-ext)) (if (cdr pair) (prog= n (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 e= xports-exclusive-groups exports (split-string (cdr pair))))) ((eql temp (qu= ote :tangle)) (setq tangle (or (list (cdr pair)) tangle))) ((eql temp (quot= e :noweb)) (setq noweb (funcall e-merge (quote (("yes" "no" "tangle" "no-ex= port" "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 (lis= t (cdr pair)) shebang))) ((eql temp (quote :comments)) (setq comments (func= all 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 (i= f (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 as= signed a default value" (cdr pair)))))) ((eql temp (quote :results)) (setq = results (funcall e-merge results-exclusive-groups results (split-string (le= t (...) (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 expor= ts ...))) (setq params (cons pair (assq-delete-all ... params)))))) ((eql t= emp (quote :file-ext)) (if (cdr pair) (progn (setq results (funcall e-merge= results-exclusive-groups results (quote ...))) (if (or (member "both" expo= rts) (member "none" exports) (member "code" exports)) nil (setq exports (fu= ncall e-merge exports-exclusive-groups exports ...))) (setq params (cons pa= ir (assq-delete-all ... params)))))) ((eql temp (quote :exports)) (setq exp= orts (funcall e-merge exports-exclusive-groups exports (split-string (cdr p= air))))) ((eql temp (quote :tangle)) (setq tangle (or (list (cdr pair)) tan= gle))) ((eql temp (quote :noweb)) (setq noweb (funcall e-merge (quote (("ye= s" "no" "tangle" "no-export" "strip-export" "eval"))) noweb (split-string (= or (cdr pair) ""))))) ((eql temp (quote :cache)) (setq cache (funcall e-mer= ge (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-s= tring (or (cdr pair) ""))))) (t (setq params (cons pair (assq-delete-all (c= ar 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-mer= ge results-exclusive-groups results ...)) (if (or ... ... ...) nil (setq ex= ports ...)) (setq params (cons pair ...))))) ((eql temp (quote :file-ext)) = (if (cdr pair) (progn (setq results (funcall e-merge results-exclusive-grou= ps results ...)) (if (or ... ... ...) nil (setq exports ...)) (setq params = (cons pair ...))))) ((eql temp (quote :exports)) (setq exports (funcall e-m= erge exports-exclusive-groups exports (split-string (cdr pair))))) ((eql te= mp (quote :tangle)) (setq tangle (or (list (cdr pair)) tangle))) ((eql temp= (quote :noweb)) (setq noweb (funcall e-merge (quote (...)) noweb (split-st= ring (or ... ""))))) ((eql temp (quote :cache)) (setq cache (funcall e-merg= e (quote (...)) cache (split-string (or ... ""))))) ((eql temp (quote :padl= ine)) (setq padline (funcall e-merge (quote (...)) padline (split-string (o= r ... ""))))) ((eql temp (quote :shebang)) (setq shebang (or (list (cdr pai= r)) shebang))) ((eql temp (quote :comments)) (setq comments (funcall e-merg= e (quote (...)) comments (split-string (or ... ""))))) (t (setq params (con= s 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 assign= ed a default value" ...))))) ((eql temp (quote :results)) (setq results (fu= ncall 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 (se= tq exports ...)) (setq params (cons pair ...))))) ((eql temp (quote :file-e= xt)) (if (cdr pair) (progn (setq results (funcall e-merge results-exclusive= -groups results ...)) (if (or ... ... ...) nil (setq exports ...)) (setq pa= rams (cons pair ...))))) ((eql temp (quote :exports)) (setq exports (funcal= l e-merge exports-exclusive-groups exports (split-string (cdr pair))))) ((e= ql temp (quote :tangle)) (setq tangle (or (list (cdr pair)) tangle))) ((eql= temp (quote :noweb)) (setq noweb (funcall e-merge (quote (...)) noweb (spl= it-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-stri= ng (or ... ""))))) ((eql temp (quote :shebang)) (setq shebang (or (list (cd= r 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 ...) (se= tq noweb ...)) ((eql temp ...) (setq cache ...)) ((eql temp ...) (setq padl= ine ...)) ((eql temp ...) (setq shebang ...)) ((eql temp ...) (setq comment= s ...)) (t (setq params ...)))))) plist))(((:exports))) | mapc((lambda (plist) (mapc (function (lambda (pair) (let* ((temp (car p= air))) (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 co= mments ...)) (t (setq params ...)))))) plist)) (((:noweb . "no") (:session = . "none") (:results . "replace") (:exports . "code") (:cache . "no") (:hlin= es . "no") (:tangle . "no")) nil nil nil nil nil ((:exports)))) | (let* ((results-exclusive-groups (mapcar (function (lambda (group) (map= car (function symbol-name) group))) (cdr (assoc (quote results) org-babel-c= ommon-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-me= rge (function (lambda (exclusive-groups &rest result-params) (let (output) = (mapc (function ...) result-params) output)))) params results exports tangl= e noweb cache vars shebang comments padline clearnames) (mapc (function (la= mbda (plist) (mapc (function (lambda (pair) (let* ... ...))) plist))) plist= s) (setq vars (reverse vars)) (while vars (setq params (cons (cons :var (cd= r (cdr (car-safe ...)))) params))) (mapc (function (lambda (name) (mapc (fu= nction (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 ex= ports 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") (:res= ults . "replace") (:exports . "code") (:cache . "no") (:hlines . "no") (:ta= ngle . "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)))) (ap= pend (list (and (memq type (quote (babel-call inline-babel-call))) org-babe= l-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-value= s)) (datum-header-values (org-babel-process-params (apply (function org-bab= el-merge-params) org-babel-default-header-args (and language (let (...) (an= d ... ...))) (append (list (and ... org-babel-default-lob-header-args)) (pr= ogn (goto-char ...) (org-babel-params-from-properties language)) (list (org= -babel-parse-header-arguments ...))))))) (let ((--dolist-tail-- datum-heade= r-values)) (while --dolist-tail-- (let ((header (car --dolist-tail--))) (le= t ((allowed-values (cdr ...))) (if (memq allowed-values (quote ...)) nil (l= et (... groups-alist) (let ... ...)))) (setq --dolist-tail-- (cdr --dolist-= tail--)))))) | (closure ((reports) (ast org-data nil (headline (:raw-value "Test" :beg= in 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :prio= rity 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 :en= d 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :p= arent #3) (src-block (:language "R" :switches nil :parameters ":exports" :b= egin 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-eleme= nt-type datum)) (language (org-element-property :language datum)) (allowed-= header-values (append (and language (let (...) (and ... ...))) org-babel-co= mmon-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 allow= ed-values ...) nil (let ... ...))) (setq --dolist-tail-- (cdr --dolist-tail= --)))))))((src-block (:language "R" :switches nil :parameters ":exports" :b= egin 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 :tag= s nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p ni= l :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 ..= .)) :parent (org-data nil #4)) #2)) #0)))) | #[(--data) "\211.:\204.=00 ;\205.=00\306\202.=00 @9\205.=00 @).?\206\= 337.=0B\203,.\307=0B\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=3D\20= 3\\.\311\f\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\20= 2.=0E.!\211.=15\203\201.=0E.\203z.\314\315.=15\"\210\202\201.=0E.=0E.B.=17= ).=18\316=3D\203\312.;\204\312.\n.=19\236A\313.=1A\211.=1B\203\311.=0E.@.= =1A\f.=1A.=1E. ;\203\266.\317\320.=1C #\202\275.\307 A@.=1C\"*!\210.=1BA\2= 11.=1B\204\234.*.=1D\203\202.=0E.\316=3D\203\202.\n.=1E>\203\202.=0E=1F\313= . \211.=1B\203\201.=0E.@\211. @. A.=1E. ;\203.=01\317\320.=1C #\202=0B.\30= 7 A@.=1C\"*.!.\".!\203w.=0E\".#\235\203_.=0E\".$\235\203P.\321.!!\313.%\211= .=1B\203L.=0E.@.%\f.%A!\210\f.%@!\210.=1BA\211.=1B\2042.*\202w.\f.!A!\210\f= .!@!\210\202w.=0E\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.=1BA\211= .=1B\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241. @9\203\240. AA\20= 2\241. )?\206\337.=0E.\322=3D\203\265.\n.'>?\206\337.=0E.\323=3D\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-prop= erty 0 reverse greater-elements elements fun result first-match --acc --cat= egory org-element-secondary-value-alist p --dolist-tail-- property with-aff= iliated org-element-all-elements org-element--parsed-properties-alist kwd-p= air 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 :labe= l-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent (section (:beg= in 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affilia= ted 9 :parent (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :c= ontents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-key= word nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp ni= l :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 ...)) :parent (or= g-data nil #4)) #2)) #0)))) | mapc(#[(--data) "\211.:\204.=00 ;\205.=00\306\202.=00 @9\205.=00 @).?= \206\337.=0B\203,.\307=0B\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312= =3D\203\\.\311\f\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\= 203\202.=0E.!\211.=15\203\201.=0E.\203z.\314\315.=15\"\210\202\201.=0E.=0E= .B.=17).=18\316=3D\203\312.;\204\312.\n.=19\236A\313.=1A\211.=1B\203\311.= =0E.@.=1A\f.=1A.=1E. ;\203\266.\317\320.=1C #\202\275.\307 A@.=1C\"*!\210.= =1BA\211.=1B\204\234.*.=1D\203\202.=0E.\316=3D\203\202.\n.=1E>\203\202.=0E= =1F\313. \211.=1B\203\201.=0E.@\211. @. A.=1E. ;\203.=01\317\320.=1C #\202= =0B.\307 A@.=1C\"*.!.\".!\203w.=0E\".#\235\203_.=0E\".$\235\203P.\321.!!\31= 3.%\211.=1B\203L.=0E.@.%\f.%A!\210\f.%@!\210.=1BA\211.=1B\2042.*\202w.\f.!A= !\210\f.!@!\210\202w.=0E\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.= =1BA\211.=1B\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241. @9\203\24= 0. AA\202\241. )?\206\337.=0E.\322=3D\203\265.\n.'>?\206\337.=0E.\323=3D\20= 3\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 pli= st-get :ignore-list mapc org-data nil throw --map-first-match objects get-t= ext-property 0 reverse greater-elements elements fun result first-match --a= cc --category org-element-secondary-value-alist p --dolist-tail-- property = with-affiliated org-element-all-elements org-element--parsed-properties-ali= st kwd-pair value kwd org-element-dual-keywords org-element-multiple-keywor= ds 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-label= s t :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent (sect= ion (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :pos= t-affiliated 9 :parent (headline (:raw-value "Test" :begin 1 :end 44 :pre-b= lank 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 :arc= hivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 ...)) :p= arent (org-data nil #5)) #3)) #1))))) | #[(--data) "\211.:\204.=00 ;\205.=00\306\202.=00 @9\205.=00 @).?\206\= 337.=0B\203,.\307=0B\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=3D\20= 3\\.\311\f\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\20= 2.=0E.!\211.=15\203\201.=0E.\203z.\314\315.=15\"\210\202\201.=0E.=0E.B.=17= ).=18\316=3D\203\312.;\204\312.\n.=19\236A\313.=1A\211.=1B\203\311.=0E.@.= =1A\f.=1A.=1E. ;\203\266.\317\320.=1C #\202\275.\307 A@.=1C\"*!\210.=1BA\2= 11.=1B\204\234.*.=1D\203\202.=0E.\316=3D\203\202.\n.=1E>\203\202.=0E=1F\313= . \211.=1B\203\201.=0E.@\211. @. A.=1E. ;\203.=01\317\320.=1C #\202=0B.\30= 7 A@.=1C\"*.!.\".!\203w.=0E\".#\235\203_.=0E\".$\235\203P.\321.!!\313.%\211= .=1B\203L.=0E.@.%\f.%A!\210\f.%@!\210.=1BA\211.=1B\2042.*\202w.\f.!A!\210\f= .!@!\210\202w.=0E\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.=1BA\211= .=1B\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241. @9\203\240. AA\20= 2\241. )?\206\337.=0E.\322=3D\203\265.\n.'>?\206\337.=0E.\323=3D\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-prop= erty 0 reverse greater-elements elements fun result first-match --acc --cat= egory org-element-secondary-value-alist p --dolist-tail-- property with-aff= iliated org-element-all-elements org-element--parsed-properties-alist kwd-p= air value kwd org-element-dual-keywords org-element-multiple-keywords line = no-recursion org-element-greater-elements org-element-all-objects] 6]((sect= ion (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-blank 0 :pos= t-affiliated 9 :parent (headline (:raw-value "Test" :begin 1 :end 44 :pre-b= lank 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 :arc= hivedp 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-ind= ent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank= 0 :post-affiliated 9 :parent #0)))) | mapc(#[(--data) "\211.:\204.=00 ;\205.=00\306\202.=00 @9\205.=00 @).?= \206\337.=0B\203,.\307=0B\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312= =3D\203\\.\311\f\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\= 203\202.=0E.!\211.=15\203\201.=0E.\203z.\314\315.=15\"\210\202\201.=0E.=0E= .B.=17).=18\316=3D\203\312.;\204\312.\n.=19\236A\313.=1A\211.=1B\203\311.= =0E.@.=1A\f.=1A.=1E. ;\203\266.\317\320.=1C #\202\275.\307 A@.=1C\"*!\210.= =1BA\211.=1B\204\234.*.=1D\203\202.=0E.\316=3D\203\202.\n.=1E>\203\202.=0E= =1F\313. \211.=1B\203\201.=0E.@\211. @. A.=1E. ;\203.=01\317\320.=1C #\202= =0B.\307 A@.=1C\"*.!.\".!\203w.=0E\".#\235\203_.=0E\".$\235\203P.\321.!!\31= 3.%\211.=1B\203L.=0E.@.%\f.%A!\210\f.%@!\210.=1BA\211.=1B\2042.*\202w.\f.!A= !\210\f.!@!\210\202w.=0E\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.= =1BA\211.=1B\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241. @9\203\24= 0. AA\202\241. )?\206\337.=0E.\322=3D\203\265.\n.'>?\206\337.=0E.\323=3D\20= 3\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 pli= st-get :ignore-list mapc org-data nil throw --map-first-match objects get-t= ext-property 0 reverse greater-elements elements fun result first-match --a= cc --category org-element-secondary-value-alist p --dolist-tail-- property = with-affiliated org-element-all-elements org-element--parsed-properties-ali= st kwd-pair value kwd org-element-dual-keywords org-element-multiple-keywor= ds line no-recursion org-element-greater-elements org-element-all-objects] = 6] ((section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-bla= nk 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 :pre= serve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :p= ost-blank 0 :post-affiliated 9 :parent #1))))) | #[(--data) "\211.:\204.=00 ;\205.=00\306\202.=00 @9\205.=00 @).?\206\= 337.=0B\203,.\307=0B\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=3D\20= 3\\.\311\f\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\20= 2.=0E.!\211.=15\203\201.=0E.\203z.\314\315.=15\"\210\202\201.=0E.=0E.B.=17= ).=18\316=3D\203\312.;\204\312.\n.=19\236A\313.=1A\211.=1B\203\311.=0E.@.= =1A\f.=1A.=1E. ;\203\266.\317\320.=1C #\202\275.\307 A@.=1C\"*!\210.=1BA\2= 11.=1B\204\234.*.=1D\203\202.=0E.\316=3D\203\202.\n.=1E>\203\202.=0E=1F\313= . \211.=1B\203\201.=0E.@\211. @. A.=1E. ;\203.=01\317\320.=1C #\202=0B.\30= 7 A@.=1C\"*.!.\".!\203w.=0E\".#\235\203_.=0E\".$\235\203P.\321.!!\313.%\211= .=1B\203L.=0E.@.%\f.%A!\210\f.%@!\210.=1BA\211.=1B\2042.*\202w.\f.!A!\210\f= .!@!\210\202w.=0E\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.=1BA\211= .=1B\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241. @9\203\240. AA\20= 2\241. )?\206\337.=0E.\322=3D\203\265.\n.'>?\206\337.=0E.\323=3D\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-prop= erty 0 reverse greater-elements elements fun result first-match --acc --cat= egory org-element-secondary-value-alist p --dolist-tail-- property with-aff= iliated org-element-all-elements org-element--parsed-properties-alist kwd-p= air value kwd org-element-dual-keywords org-element-multiple-keywords line = no-recursion org-element-greater-elements org-element-all-objects] 6]((head= line (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :co= ntents-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-b= lank 0 :post-affiliated 9 :parent #0) (src-block (:language "R" :switches n= il :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-inde= nt nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank = 0 :post-affiliated 9 :parent #1))))) | mapc(#[(--data) "\211.:\204.=00 ;\205.=00\306\202.=00 @9\205.=00 @).?= \206\337.=0B\203,.\307=0B\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312= =3D\203\\.\311\f\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\= 203\202.=0E.!\211.=15\203\201.=0E.\203z.\314\315.=15\"\210\202\201.=0E.=0E= .B.=17).=18\316=3D\203\312.;\204\312.\n.=19\236A\313.=1A\211.=1B\203\311.= =0E.@.=1A\f.=1A.=1E. ;\203\266.\317\320.=1C #\202\275.\307 A@.=1C\"*!\210.= =1BA\211.=1B\204\234.*.=1D\203\202.=0E.\316=3D\203\202.\n.=1E>\203\202.=0E= =1F\313. \211.=1B\203\201.=0E.@\211. @. A.=1E. ;\203.=01\317\320.=1C #\202= =0B.\307 A@.=1C\"*.!.\".!\203w.=0E\".#\235\203_.=0E\".$\235\203P.\321.!!\31= 3.%\211.=1B\203L.=0E.@.%\f.%A!\210\f.%@!\210.=1BA\211.=1B\2042.*\202w.\f.!A= !\210\f.!@!\210\202w.=0E\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.= =1BA\211.=1B\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241. @9\203\24= 0. AA\202\241. )?\206\337.=0E.\322=3D\203\265.\n.'>?\206\337.=0E.\323=3D\20= 3\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 pli= st-get :ignore-list mapc org-data nil throw --map-first-match objects get-t= ext-property 0 reverse greater-elements elements fun result first-match --a= cc --category org-element-secondary-value-alist p --dolist-tail-- property = with-affiliated org-element-all-elements org-element--parsed-properties-ali= st kwd-pair value kwd org-element-dual-keywords org-element-multiple-keywor= ds line no-recursion org-element-greater-elements org-element-all-objects] = 6] ((headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-be= gin 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 :comment= edp 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 4= 4 :post-blank 0 :post-affiliated 9 :parent #1) (src-block (:language "R" :s= witches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :pres= erve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :po= st-blank 0 :post-affiliated 9 :parent #2)))))) | #[(--data) "\211.:\204.=00 ;\205.=00\306\202.=00 @9\205.=00 @).?\206\= 337.=0B\203,.\307=0B\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=3D\20= 3\\.\311\f\211.:\204J.\313\202W. @9\203V. AA\202W. )\"\202\337.\n.>\203\20= 2.=0E.!\211.=15\203\201.=0E.\203z.\314\315.=15\"\210\202\201.=0E.=0E.B.=17= ).=18\316=3D\203\312.;\204\312.\n.=19\236A\313.=1A\211.=1B\203\311.=0E.@.= =1A\f.=1A.=1E. ;\203\266.\317\320.=1C #\202\275.\307 A@.=1C\"*!\210.=1BA\2= 11.=1B\204\234.*.=1D\203\202.=0E.\316=3D\203\202.\n.=1E>\203\202.=0E=1F\313= . \211.=1B\203\201.=0E.@\211. @. A.=1E. ;\203.=01\317\320.=1C #\202=0B.\30= 7 A@.=1C\"*.!.\".!\203w.=0E\".#\235\203_.=0E\".$\235\203P.\321.!!\313.%\211= .=1B\203L.=0E.@.%\f.%A!\210\f.%@!\210.=1BA\211.=1B\2042.*\202w.\f.!A!\210\f= .!@!\210\202w.=0E\".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*.=1BA\211= .=1B\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241. @9\203\240. AA\20= 2\241. )?\206\337.=0E.\322=3D\203\265.\n.'>?\206\337.=0E.\323=3D\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-prop= erty 0 reverse greater-elements elements fun result first-match --acc --cat= egory org-element-secondary-value-alist p --dolist-tail-- property with-aff= iliated org-element-all-elements org-element--parsed-properties-alist kwd-p= air 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 :conten= ts-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 :co= mmentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #1))) :parent= #0) (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44 :post-bl= ank 0 :post-affiliated 9 :parent #1) (src-block (:language "R" :switches ni= l :parameters ":exports" :begin 9 :end 44 :number-lines nil :preserve-inden= t 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 :en= d 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 ni= l :value "" :post-blank 0 :post-affiliated 9 :parent #2))))) (babel-call in= line-babel-call inline-src-block src-block) (closure ((reports) (ast org-da= ta 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 ni= l :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :comm= entedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent (= org-data nil #3)) (section (:begin 9 :end 44 :contents-begin 9 :contents-en= d 44 :post-blank 0 :post-affiliated 9 :parent #3) (src-block (:language "R"= :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :p= reserve-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-elem= ent-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-pa= rams) org-babel-default-header-args (and language (let ... ...)) (append (l= ist ...) (progn ... ...) (list ...)))))) (let ((--dolist-tail-- datum-heade= r-values)) (while --dolist-tail-- (let ((header (car --dolist-tail--))) (le= t ((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-cal= l inline-src-block src-block)) (function (lambda (datum) (let* ((type (org-= element-type datum)) (language (org-element-property :language datum)) (all= owed-header-values (append ... org-babel-common-header-args-w-values)) (dat= um-header-values (org-babel-process-params ...))) (let ((--dolist-tail-- da= tum-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 :foot= note-section-p nil :archivedp nil :commentedp nil :post-affiliated 1 :title= (#("Test" 0 4 (:parent #1))) :parent #0) (section (:begin 9 :end 44 :conte= nts-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 :l= evel 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 4= 4 :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :pare= nt #1) (src-block (:language "R" :switches nil :parameters ":exports" :begi= n 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t :use-la= bels 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 repo= rt) 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))) (s= ave-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 (he= adline (: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-ty= pe nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil= :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent (org-data n= il #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-in= dent nil :retain-labels t :use-labels t :label-fmt nil :value "" :post-blan= k 0 :post-affiliated 9 :parent #4))))) (checkers [cl-struct-org-lint-checke= r 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 dup= licate targets" (link) high] [cl-struct-org-lint-checker duplicate-footnote= -definition "Report duplicate footnote definitions" (footnote) high] [cl-st= ruct-org-lint-checker orphaned-affiliated-keywords "Report orphaned affilia= ted keywords" (default) low] [cl-struct-org-lint-checker obsolete-affiliate= d-keywords "Report obsolete affiliated keywords" (obsolete) high] [cl-struc= t-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-str= uct-org-lint-checker invalid-babel-call-block "Report invalid Babel call bl= ocks" (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-ch= ecker wrong-header-value "Report invalid value in babel headers" (babel) lo= w] [cl-struct-org-lint-checker deprecated-category-setup "Report misuse of = CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker invalid-code= ref-link "Report \"coderef\" links with unknown destination" (link) high] [= cl-struct-org-lint-checker invalid-custom-id-link "Report \"custom-id\" lin= ks with unknown destination" (link) high] [cl-struct-org-lint-checker inval= id-fuzzy-link "Report \"fuzzy\" links with unknown destination" (link) high= ] [cl-struct-org-lint-checker invalid-id-link "Report \"id\" links with unk= nown destination" (link) high] [cl-struct-org-lint-checker link-to-local-fi= le "Report links to non-existent local files" (link) low] [cl-struct-org-li= nt-checker non-existent-setupfile-parameter "Report SETUPFILE keywords with= non-existent file parameter" (default) low] [cl-struct-org-lint-checker wr= ong-include-link-parameter "Report INCLUDE keywords with misleading link pa= rameter" (export) low] [cl-struct-org-lint-checker unknown-options-item "Re= port unknown items in OPTIONS keyword" (export) low] [cl-struct-org-lint-ch= ecker invalid-macro-argument-and-template "Report spurious macro arguments = or invalid macro templates" (export) low] [cl-struct-org-lint-checker speci= al-property-in-properties-drawer "Report special properties in properties d= rawers" (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 mi= ssing definition for footnote references" (footnote) high] [cl-struct-org-l= int-checker unreferenced-footnote-definition "Report missing reference for = footnote definitions" (footnote) high] [cl-struct-org-lint-checker extraneo= us-element-in-footnote-section "Report non-footnote definitions in footnote= section" (footnote) high] [cl-struct-org-lint-checker invalid-keyword-synt= ax "Report probable invalid keywords" (default) low] [cl-struct-org-lint-ch= ecker invalid-block "Report invalid blocks" (default) low] [cl-struct-org-l= int-checker misplaced-planning-info "Report misplaced planning info line" (= default) low] [cl-struct-org-lint-checker incomplete-drawer "Report probabl= e incomplete drawers" (default) low] [cl-struct-org-lint-checker indented-d= iary-sexp "Report probable indented diary-sexps" (default) low] [cl-struct-= org-lint-checker quote-section "Report obsolete QUOTE section" (obsolete) l= ow]) (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-valu= e "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-be= gin 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 :comment= edp 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 4= 4 :post-blank 0 :post-affiliated 9 :parent #3) (src-block (:language "R" :s= witches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :pres= erve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" :po= st-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 v= alues" (babel link) high] [cl-struct-org-lint-checker duplicate-target "Rep= ort duplicate targets" (link) high] [cl-struct-org-lint-checker duplicate-f= ootnote-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-af= filiated-keywords "Report obsolete affiliated keywords" (obsolete) high] [c= l-struct-org-lint-checker deprecated-header-syntax "Report deprecated Babel= header syntax" (babel obsolete) low] [cl-struct-org-lint-checker missing-l= anguage-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 "Repor= t 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" (ba= bel) low] [cl-struct-org-lint-checker deprecated-category-setup "Report mis= use of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker inval= id-coderef-link "Report \"coderef\" links with unknown destination" (link) = high] [cl-struct-org-lint-checker invalid-custom-id-link "Report \"custom-i= d\" links with unknown destination" (link) high] [cl-struct-org-lint-checke= r invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (lin= k) high] [cl-struct-org-lint-checker invalid-id-link "Report \"id\" links w= ith unknown destination" (link) high] [cl-struct-org-lint-checker link-to-l= ocal-file "Report links to non-existent local files" (link) low] [cl-struct= -org-lint-checker non-existent-setupfile-parameter "Report SETUPFILE keywor= ds with non-existent file parameter" (default) low] [cl-struct-org-lint-che= cker wrong-include-link-parameter "Report INCLUDE keywords with misleading = link parameter" (export) low] [cl-struct-org-lint-checker unknown-options-i= tem "Report unknown items in OPTIONS keyword" (export) low] [cl-struct-org-= lint-checker invalid-macro-argument-and-template "Report spurious macro arg= uments or invalid macro templates" (export) low] [cl-struct-org-lint-checke= r special-property-in-properties-drawer "Report special properties in prope= rties drawers" (properties) high] [cl-struct-org-lint-checker obsolete-prop= erties-drawer "Report obsolete syntax for properties drawers" (obsolete pro= perties) high] [cl-struct-org-lint-checker undefined-footnote-reference "Re= port missing definition for footnote references" (footnote) high] [cl-struc= t-org-lint-checker unreferenced-footnote-definition "Report missing referen= ce for footnote definitions" (footnote) high] [cl-struct-org-lint-checker e= xtraneous-element-in-footnote-section "Report non-footnote definitions in f= ootnote section" (footnote) high] [cl-struct-org-lint-checker invalid-keywo= rd-syntax "Report probable invalid keywords" (default) low] [cl-struct-org-= lint-checker invalid-block "Report invalid blocks" (default) low] [cl-struc= t-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 ind= ented-diary-sexp "Report probable indented diary-sexps" (default) low] [cl-= struct-org-lint-checker quote-section "Report obsolete QUOTE section" (obso= lete) 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-lin= t-%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 targ= ets" (link) high] [cl-struct-org-lint-checker duplicate-footnote-definition= "Report duplicate footnote definitions" (footnote) high] [cl-struct-org-li= nt-checker orphaned-affiliated-keywords "Report orphaned affiliated keyword= s" (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" (b= abel obsolete) low] [cl-struct-org-lint-checker missing-language-in-src-blo= ck "Report missing language in src blocks" (babel) high] [cl-struct-org-lin= t-checker invalid-babel-call-block "Report invalid Babel call blocks" (babe= l) 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-stru= ct-org-lint-checker deprecated-category-setup "Report misuse of CATEGORY ke= yword" (obsolete) high] [cl-struct-org-lint-checker invalid-coderef-link "R= eport \"coderef\" links with unknown destination" (link) high] [cl-struct-o= rg-lint-checker invalid-custom-id-link "Report \"custom-id\" links with unk= nown destination" (link) high] [cl-struct-org-lint-checker invalid-fuzzy-li= nk "Report \"fuzzy\" links with unknown destination" (link) high] [cl-struc= t-org-lint-checker invalid-id-link "Report \"id\" links with unknown destin= ation" (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-existe= nt file parameter" (default) low] [cl-struct-org-lint-checker wrong-include= -link-parameter "Report INCLUDE keywords with misleading link parameter" (e= xport) low] [cl-struct-org-lint-checker unknown-options-item "Report unknow= n items in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker inval= id-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" (pr= operties) high] [cl-struct-org-lint-checker obsolete-properties-drawer "Rep= ort obsolete syntax for properties drawers" (obsolete properties) high] [cl= -struct-org-lint-checker undefined-footnote-reference "Report missing defin= ition for footnote references" (footnote) high] [cl-struct-org-lint-checker= unreferenced-footnote-definition "Report missing reference for footnote de= finitions" (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 inval= id-block "Report invalid blocks" (default) low] [cl-struct-org-lint-checker= misplaced-planning-info "Report misplaced planning info line" (default) lo= w] [cl-struct-org-lint-checker incomplete-drawer "Report probable incomplet= e drawers" (default) low] [cl-struct-org-lint-checker indented-diary-sexp "= Report probable indented diary-sexps" (default) low] [cl-struct-org-lint-ch= ecker quote-section "Report obsolete QUOTE section" (obsolete) low])) | cl-mapcar((closure ((last-pos . 1) (last-line . 1) (id . 0) (ast org-da= ta 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 ni= l :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :comm= entedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent (= org-data nil #3)) (section (:begin 9 :end 44 :contents-begin 9 :contents-en= d 44 :post-blank 0 :post-affiliated 9 :parent #3) (src-block (:language "R"= :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :p= reserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" = :post-blank 0 :post-affiliated 9 :parent #4))))) (checkers [cl-struct-org-l= int-checker duplicate-custom-id "Report duplicates CUSTOM_ID properties" (l= ink) high] [cl-struct-org-lint-checker duplicate-name "Report duplicate NAM= E values" (babel link) high] [cl-struct-org-lint-checker duplicate-target "= Report duplicate targets" (link) high] [cl-struct-org-lint-checker duplicat= e-footnote-definition "Report duplicate footnote definitions" (footnote) hi= gh] [cl-struct-org-lint-checker orphaned-affiliated-keywords "Report orphan= ed 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 Ba= bel header syntax" (babel obsolete) low] [cl-struct-org-lint-checker missin= g-language-in-src-block "Report missing language in src blocks" (babel) hig= h] [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Bab= el call blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Re= port NAME values with a colon" (babel) high] [cl-struct-org-lint-checker wr= ong-header-argument "Report wrong babel headers" (babel) high] [cl-struct-o= rg-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 in= valid-coderef-link "Report \"coderef\" links with unknown destination" (lin= k) high] [cl-struct-org-lint-checker invalid-custom-id-link "Report \"custo= m-id\" links with unknown destination" (link) high] [cl-struct-org-lint-che= cker invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (= link) high] [cl-struct-org-lint-checker invalid-id-link "Report \"id\" link= s with unknown destination" (link) high] [cl-struct-org-lint-checker link-t= o-local-file "Report links to non-existent local files" (link) low] [cl-str= uct-org-lint-checker non-existent-setupfile-parameter "Report SETUPFILE key= words with non-existent file parameter" (default) low] [cl-struct-org-lint-= checker wrong-include-link-parameter "Report INCLUDE keywords with misleadi= ng link parameter" (export) low] [cl-struct-org-lint-checker unknown-option= s-item "Report unknown items in OPTIONS keyword" (export) low] [cl-struct-o= rg-lint-checker invalid-macro-argument-and-template "Report spurious macro = arguments or invalid macro templates" (export) low] [cl-struct-org-lint-che= cker special-property-in-properties-drawer "Report special properties in pr= operties drawers" (properties) high] [cl-struct-org-lint-checker obsolete-p= roperties-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-st= ruct-org-lint-checker unreferenced-footnote-definition "Report missing refe= rence for footnote definitions" (footnote) high] [cl-struct-org-lint-checke= r extraneous-element-in-footnote-section "Report non-footnote definitions i= n footnote section" (footnote) high] [cl-struct-org-lint-checker invalid-ke= yword-syntax "Report probable invalid keywords" (default) low] [cl-struct-o= rg-lint-checker invalid-block "Report invalid blocks" (default) low] [cl-st= ruct-org-lint-checker misplaced-planning-info "Report misplaced planning in= fo line" (default) low] [cl-struct-org-lint-checker incomplete-drawer "Repo= rt 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" (o= bsolete) low]) (buffer . #) cl-struct-org-lint-checker-tag= s t) (c) (let ((trust (symbol-name (progn nil (or (progn nil ...) (signal .= .. ...)) (aref c 4))))) (mapcar (function (lambda (report) (list (car repor= t) trust (nth 1 report) c))) (save-excursion (funcall (intern (format "org-= lint-%s" (progn nil ... ...))) ast))))) ([cl-struct-org-lint-checker duplic= ate-custom-id "Report duplicates CUSTOM_ID properties" (link) high] [cl-str= uct-org-lint-checker duplicate-name "Report duplicate NAME values" (babel l= ink) high] [cl-struct-org-lint-checker duplicate-target "Report duplicate t= argets" (link) high] [cl-struct-org-lint-checker duplicate-footnote-definit= ion "Report duplicate footnote definitions" (footnote) high] [cl-struct-org= -lint-checker orphaned-affiliated-keywords "Report orphaned affiliated keyw= ords" (default) low] [cl-struct-org-lint-checker obsolete-affiliated-keywor= ds "Report obsolete affiliated keywords" (obsolete) high] [cl-struct-org-li= nt-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" (b= abel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME values w= ith a colon" (babel) high] [cl-struct-org-lint-checker wrong-header-argumen= t "Report wrong babel headers" (babel) high] [cl-struct-org-lint-checker wr= ong-header-value "Report invalid value in babel headers" (babel) low] [cl-s= truct-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-struc= t-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-st= ruct-org-lint-checker invalid-id-link "Report \"id\" links with unknown des= tination" (link) high] [cl-struct-org-lint-checker link-to-local-file "Repo= rt links to non-existent local files" (link) low] [cl-struct-org-lint-check= er non-existent-setupfile-parameter "Report SETUPFILE keywords with non-exi= stent file parameter" (default) low] [cl-struct-org-lint-checker wrong-incl= ude-link-parameter "Report INCLUDE keywords with misleading link parameter"= (export) low] [cl-struct-org-lint-checker unknown-options-item "Report unk= nown items in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker in= valid-macro-argument-and-template "Report spurious macro arguments or inval= id macro templates" (export) low] [cl-struct-org-lint-checker special-prope= rty-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 de= finition for footnote references" (footnote) high] [cl-struct-org-lint-chec= ker unreferenced-footnote-definition "Report missing reference for footnote= definitions" (footnote) high] [cl-struct-org-lint-checker extraneous-eleme= nt-in-footnote-section "Report non-footnote definitions in footnote section= " (footnote) high] [cl-struct-org-lint-checker invalid-keyword-syntax "Repo= rt probable invalid keywords" (default) low] [cl-struct-org-lint-checker in= valid-block "Report invalid blocks" (default) low] [cl-struct-org-lint-chec= ker misplaced-planning-info "Report misplaced planning info line" (default)= low] [cl-struct-org-lint-checker incomplete-drawer "Report probable incomp= lete drawers" (default) low] [cl-struct-org-lint-checker indented-diary-sex= p "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 :co= ntents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil :todo-keyw= ord nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil= :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :pa= rent (org-data nil #3)) (section (:begin 9 :end 44 :contents-begin 9 :conte= nts-end 44 :post-blank 0 :post-affiliated 9 :parent #3) (src-block (:langua= ge "R" :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines = nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :val= ue "" :post-blank 0 :post-affiliated 9 :parent #4))))) (checkers [cl-struct= -org-lint-checker duplicate-custom-id "Report duplicates CUSTOM_ID properti= es" (link) high] [cl-struct-org-lint-checker duplicate-name "Report duplica= te NAME values" (babel link) high] [cl-struct-org-lint-checker duplicate-ta= rget "Report duplicate targets" (link) high] [cl-struct-org-lint-checker du= plicate-footnote-definition "Report duplicate footnote definitions" (footno= te) high] [cl-struct-org-lint-checker orphaned-affiliated-keywords "Report = orphaned affiliated keywords" (default) low] [cl-struct-org-lint-checker ob= solete-affiliated-keywords "Report obsolete affiliated keywords" (obsolete)= high] [cl-struct-org-lint-checker deprecated-header-syntax "Report depreca= ted Babel header syntax" (babel obsolete) low] [cl-struct-org-lint-checker = missing-language-in-src-block "Report missing language in src blocks" (babe= l) high] [cl-struct-org-lint-checker invalid-babel-call-block "Report inval= id Babel call blocks" (babel) high] [cl-struct-org-lint-checker colon-in-na= me "Report NAME values with a colon" (babel) high] [cl-struct-org-lint-chec= ker wrong-header-argument "Report wrong babel headers" (babel) high] [cl-st= ruct-org-lint-checker wrong-header-value "Report invalid value in babel hea= ders" (babel) low] [cl-struct-org-lint-checker deprecated-category-setup "R= eport misuse of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-chec= ker 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-li= nt-checker invalid-fuzzy-link "Report \"fuzzy\" links with unknown destinat= ion" (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 SETUPFI= LE keywords with non-existent file parameter" (default) low] [cl-struct-org= -lint-checker wrong-include-link-parameter "Report INCLUDE keywords with mi= sleading link parameter" (export) low] [cl-struct-org-lint-checker unknown-= options-item "Report unknown items in OPTIONS keyword" (export) low] [cl-st= ruct-org-lint-checker invalid-macro-argument-and-template "Report spurious = macro arguments or invalid macro templates" (export) low] [cl-struct-org-li= nt-checker special-property-in-properties-drawer "Report special properties= in properties drawers" (properties) high] [cl-struct-org-lint-checker obso= lete-properties-drawer "Report obsolete syntax for properties drawers" (obs= olete properties) high] [cl-struct-org-lint-checker undefined-footnote-refe= rence "Report missing definition for footnote references" (footnote) high] = [cl-struct-org-lint-checker unreferenced-footnote-definition "Report missin= g reference for footnote definitions" (footnote) high] [cl-struct-org-lint-= checker extraneous-element-in-footnote-section "Report non-footnote definit= ions in footnote section" (footnote) high] [cl-struct-org-lint-checker inva= lid-keyword-syntax "Report probable invalid keywords" (default) low] [cl-st= ruct-org-lint-checker invalid-block "Report invalid blocks" (default) low] = [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced plann= ing info line" (default) low] [cl-struct-org-lint-checker incomplete-drawer= "Report probable incomplete drawers" (default) low] [cl-struct-org-lint-ch= ecker indented-diary-sexp "Report probable indented diary-sexps" (default) = low] [cl-struct-org-lint-checker quote-section "Report obsolete QUOTE secti= on" (obsolete) low]) (buffer . #) cl-struct-org-lint-check= er-tags t) (c) (let ((trust (symbol-name (progn nil (or (progn nil ...) (si= gnal ... ...)) (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" (b= abel link) high] [cl-struct-org-lint-checker duplicate-target "Report dupli= cate targets" (link) high] [cl-struct-org-lint-checker duplicate-footnote-d= efinition "Report duplicate footnote definitions" (footnote) high] [cl-stru= ct-org-lint-checker orphaned-affiliated-keywords "Report orphaned affiliate= d 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 s= yntax" (babel obsolete) low] [cl-struct-org-lint-checker missing-language-i= n-src-block "Report missing language in src blocks" (babel) high] [cl-struc= t-org-lint-checker invalid-babel-call-block "Report invalid Babel call bloc= ks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME va= lues with a colon" (babel) high] [cl-struct-org-lint-checker wrong-header-a= rgument "Report wrong babel headers" (babel) high] [cl-struct-org-lint-chec= ker wrong-header-value "Report invalid value in babel headers" (babel) low]= [cl-struct-org-lint-checker deprecated-category-setup "Report misuse of CA= TEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker invalid-codere= f-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 unkno= wn 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 n= on-existent file parameter" (default) low] [cl-struct-org-lint-checker wron= g-include-link-parameter "Report INCLUDE keywords with misleading link para= meter" (export) low] [cl-struct-org-lint-checker unknown-options-item "Repo= rt unknown items in OPTIONS keyword" (export) low] [cl-struct-org-lint-chec= ker 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 dra= wers" (properties) high] [cl-struct-org-lint-checker obsolete-properties-dr= awer "Report obsolete syntax for properties drawers" (obsolete properties) = high] [cl-struct-org-lint-checker undefined-footnote-reference "Report miss= ing definition for footnote references" (footnote) high] [cl-struct-org-lin= t-checker unreferenced-footnote-definition "Report missing reference for fo= otnote definitions" (footnote) high] [cl-struct-org-lint-checker extraneous= -element-in-footnote-section "Report non-footnote definitions in footnote s= ection" (footnote) high] [cl-struct-org-lint-checker invalid-keyword-syntax= "Report probable invalid keywords" (default) low] [cl-struct-org-lint-chec= ker invalid-block "Report invalid blocks" (default) low] [cl-struct-org-lin= t-checker misplaced-planning-info "Report misplaced planning info line" (de= fault) low] [cl-struct-org-lint-checker incomplete-drawer "Report probable = incomplete drawers" (default) low] [cl-struct-org-lint-checker indented-dia= ry-sexp "Report probable indented diary-sexps" (default) low] [cl-struct-or= g-lint-checker quote-section "Report obsolete QUOTE section" (obsolete) low= ]) nil) | cl-mapcan((closure ((last-pos . 1) (last-line . 1) (id . 0) (ast org-da= ta 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 ni= l :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :comm= entedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent (= org-data nil #3)) (section (:begin 9 :end 44 :contents-begin 9 :contents-en= d 44 :post-blank 0 :post-affiliated 9 :parent #3) (src-block (:language "R"= :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines nil :p= reserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "" = :post-blank 0 :post-affiliated 9 :parent #4))))) (checkers [cl-struct-org-l= int-checker duplicate-custom-id "Report duplicates CUSTOM_ID properties" (l= ink) high] [cl-struct-org-lint-checker duplicate-name "Report duplicate NAM= E values" (babel link) high] [cl-struct-org-lint-checker duplicate-target "= Report duplicate targets" (link) high] [cl-struct-org-lint-checker duplicat= e-footnote-definition "Report duplicate footnote definitions" (footnote) hi= gh] [cl-struct-org-lint-checker orphaned-affiliated-keywords "Report orphan= ed 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 Ba= bel header syntax" (babel obsolete) low] [cl-struct-org-lint-checker missin= g-language-in-src-block "Report missing language in src blocks" (babel) hig= h] [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid Bab= el call blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Re= port NAME values with a colon" (babel) high] [cl-struct-org-lint-checker wr= ong-header-argument "Report wrong babel headers" (babel) high] [cl-struct-o= rg-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 in= valid-coderef-link "Report \"coderef\" links with unknown destination" (lin= k) high] [cl-struct-org-lint-checker invalid-custom-id-link "Report \"custo= m-id\" links with unknown destination" (link) high] [cl-struct-org-lint-che= cker invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (= link) high] [cl-struct-org-lint-checker invalid-id-link "Report \"id\" link= s with unknown destination" (link) high] [cl-struct-org-lint-checker link-t= o-local-file "Report links to non-existent local files" (link) low] [cl-str= uct-org-lint-checker non-existent-setupfile-parameter "Report SETUPFILE key= words with non-existent file parameter" (default) low] [cl-struct-org-lint-= checker wrong-include-link-parameter "Report INCLUDE keywords with misleadi= ng link parameter" (export) low] [cl-struct-org-lint-checker unknown-option= s-item "Report unknown items in OPTIONS keyword" (export) low] [cl-struct-o= rg-lint-checker invalid-macro-argument-and-template "Report spurious macro = arguments or invalid macro templates" (export) low] [cl-struct-org-lint-che= cker special-property-in-properties-drawer "Report special properties in pr= operties drawers" (properties) high] [cl-struct-org-lint-checker obsolete-p= roperties-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-st= ruct-org-lint-checker unreferenced-footnote-definition "Report missing refe= rence for footnote definitions" (footnote) high] [cl-struct-org-lint-checke= r extraneous-element-in-footnote-section "Report non-footnote definitions i= n footnote section" (footnote) high] [cl-struct-org-lint-checker invalid-ke= yword-syntax "Report probable invalid keywords" (default) low] [cl-struct-o= rg-lint-checker invalid-block "Report invalid blocks" (default) low] [cl-st= ruct-org-lint-checker misplaced-planning-info "Report misplaced planning in= fo line" (default) low] [cl-struct-org-lint-checker incomplete-drawer "Repo= rt 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" (o= bsolete) low]) (buffer . #) cl-struct-org-lint-checker-tag= s t) (c) (let ((trust (symbol-name (progn nil (or (progn nil ...) (signal .= .. ...)) (aref c 4))))) (mapcar (function (lambda (report) (list (car repor= t) trust (nth 1 report) c))) (save-excursion (funcall (intern (format "org-= lint-%s" (progn nil ... ...))) ast))))) ([cl-struct-org-lint-checker duplic= ate-custom-id "Report duplicates CUSTOM_ID properties" (link) high] [cl-str= uct-org-lint-checker duplicate-name "Report duplicate NAME values" (babel l= ink) high] [cl-struct-org-lint-checker duplicate-target "Report duplicate t= argets" (link) high] [cl-struct-org-lint-checker duplicate-footnote-definit= ion "Report duplicate footnote definitions" (footnote) high] [cl-struct-org= -lint-checker orphaned-affiliated-keywords "Report orphaned affiliated keyw= ords" (default) low] [cl-struct-org-lint-checker obsolete-affiliated-keywor= ds "Report obsolete affiliated keywords" (obsolete) high] [cl-struct-org-li= nt-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" (b= abel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME values w= ith a colon" (babel) high] [cl-struct-org-lint-checker wrong-header-argumen= t "Report wrong babel headers" (babel) high] [cl-struct-org-lint-checker wr= ong-header-value "Report invalid value in babel headers" (babel) low] [cl-s= truct-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-struc= t-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-st= ruct-org-lint-checker invalid-id-link "Report \"id\" links with unknown des= tination" (link) high] [cl-struct-org-lint-checker link-to-local-file "Repo= rt links to non-existent local files" (link) low] [cl-struct-org-lint-check= er non-existent-setupfile-parameter "Report SETUPFILE keywords with non-exi= stent file parameter" (default) low] [cl-struct-org-lint-checker wrong-incl= ude-link-parameter "Report INCLUDE keywords with misleading link parameter"= (export) low] [cl-struct-org-lint-checker unknown-options-item "Report unk= nown items in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker in= valid-macro-argument-and-template "Report spurious macro arguments or inval= id macro templates" (export) low] [cl-struct-org-lint-checker special-prope= rty-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 de= finition for footnote references" (footnote) high] [cl-struct-org-lint-chec= ker unreferenced-footnote-definition "Report missing reference for footnote= definitions" (footnote) high] [cl-struct-org-lint-checker extraneous-eleme= nt-in-footnote-section "Report non-footnote definitions in footnote section= " (footnote) high] [cl-struct-org-lint-checker invalid-keyword-syntax "Repo= rt probable invalid keywords" (default) low] [cl-struct-org-lint-checker in= valid-block "Report invalid blocks" (default) low] [cl-struct-org-lint-chec= ker misplaced-planning-info "Report misplaced planning info line" (default)= low] [cl-struct-org-lint-checker incomplete-drawer "Report probable incomp= lete drawers" (default) low] [cl-struct-org-lint-checker indented-diary-sex= p "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 (func= tion 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 ca= r-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 (funct= ion vector) (cons (progn ... ... ...) (cdr report)))))) (sort (cl-mapcan (f= unction (lambda (c) (let (...) (mapcar ... ...)))) checkers) (function car-= less-than-car)))) | (save-excursion (goto-char (point-min)) (let ((ast (org-element-parse-b= uffer)) (id 0) (last-line 1) (last-pos 1)) (mapcar (function (lambda (repor= t) (list (setq id (1+ id)) (apply (function vector) (cons ... ...))))) (sor= t (cl-mapcan (function (lambda (c) (let ... ...))) checkers) (function car-= less-than-car))))) | (save-current-buffer (set-buffer buffer) (save-excursion (goto-char (po= int-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 ca= r-less-than-car)))))) | org-lint--generate-reports(# ([cl-struct-org-lint-chec= ker duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link) hig= h] [cl-struct-org-lint-checker duplicate-name "Report duplicate NAME values= " (babel link) high] [cl-struct-org-lint-checker duplicate-target "Report d= uplicate targets" (link) high] [cl-struct-org-lint-checker duplicate-footno= te-definition "Report duplicate footnote definitions" (footnote) high] [cl-= struct-org-lint-checker orphaned-affiliated-keywords "Report orphaned affil= iated keywords" (default) low] [cl-struct-org-lint-checker obsolete-affilia= ted-keywords "Report obsolete affiliated keywords" (obsolete) high] [cl-str= uct-org-lint-checker deprecated-header-syntax "Report deprecated Babel head= er syntax" (babel obsolete) low] [cl-struct-org-lint-checker missing-langua= ge-in-src-block "Report missing language in src blocks" (babel) high] [cl-s= truct-org-lint-checker invalid-babel-call-block "Report invalid Babel call = blocks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAM= E values with a colon" (babel) high] [cl-struct-org-lint-checker wrong-head= er-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 o= f CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker invalid-co= deref-link "Report \"coderef\" links with unknown destination" (link) high]= [cl-struct-org-lint-checker invalid-custom-id-link "Report \"custom-id\" l= inks with unknown destination" (link) high] [cl-struct-org-lint-checker inv= alid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (link) hi= gh] [cl-struct-org-lint-checker invalid-id-link "Report \"id\" links with u= nknown 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 wi= th 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 argument= s or invalid macro templates" (export) low] [cl-struct-org-lint-checker spe= cial-property-in-properties-drawer "Report special properties in properties= drawers" (properties) high] [cl-struct-org-lint-checker obsolete-propertie= s-drawer "Report obsolete syntax for properties drawers" (obsolete properti= es) 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 fo= r footnote definitions" (footnote) high] [cl-struct-org-lint-checker extran= eous-element-in-footnote-section "Report non-footnote definitions in footno= te section" (footnote) high] [cl-struct-org-lint-checker invalid-keyword-sy= ntax "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 proba= ble incomplete drawers" (default) low] [cl-struct-org-lint-checker indented= -diary-sexp "Report probable indented diary-sexps" (default) low] [cl-struc= t-org-lint-checker quote-section "Report obsolete QUOTE section" (obsolete)= low])) | (setq tabulated-list-entries (org-lint--generate-reports org-lint--sour= ce-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) (o= rg-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 so= urce) (setq org-lint--local-checkers checkers) (org-lint--refresh-reports) = (tabulated-list-print) (add-hook (quote tabulated-list-revert-hook) (functi= on org-lint--refresh-reports) nil t)) (pop-to-buffer buffer)) | org-lint--display-reports(# ([cl-struct-org-lint-check= er 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 du= plicate targets" (link) high] [cl-struct-org-lint-checker duplicate-footnot= e-definition "Report duplicate footnote definitions" (footnote) high] [cl-s= truct-org-lint-checker orphaned-affiliated-keywords "Report orphaned affili= ated keywords" (default) low] [cl-struct-org-lint-checker obsolete-affiliat= ed-keywords "Report obsolete affiliated keywords" (obsolete) high] [cl-stru= ct-org-lint-checker deprecated-header-syntax "Report deprecated Babel heade= r syntax" (babel obsolete) low] [cl-struct-org-lint-checker missing-languag= e-in-src-block "Report missing language in src blocks" (babel) high] [cl-st= ruct-org-lint-checker invalid-babel-call-block "Report invalid Babel call b= locks" (babel) high] [cl-struct-org-lint-checker colon-in-name "Report NAME= values with a colon" (babel) high] [cl-struct-org-lint-checker wrong-heade= r-argument "Report wrong babel headers" (babel) high] [cl-struct-org-lint-c= hecker wrong-header-value "Report invalid value in babel headers" (babel) l= ow] [cl-struct-org-lint-checker deprecated-category-setup "Report misuse of= CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker invalid-cod= eref-link "Report \"coderef\" links with unknown destination" (link) high] = [cl-struct-org-lint-checker invalid-custom-id-link "Report \"custom-id\" li= nks with unknown destination" (link) high] [cl-struct-org-lint-checker inva= lid-fuzzy-link "Report \"fuzzy\" links with unknown destination" (link) hig= h] [cl-struct-org-lint-checker invalid-id-link "Report \"id\" links with un= known destination" (link) high] [cl-struct-org-lint-checker link-to-local-f= ile "Report links to non-existent local files" (link) low] [cl-struct-org-l= int-checker non-existent-setupfile-parameter "Report SETUPFILE keywords wit= h non-existent file parameter" (default) low] [cl-struct-org-lint-checker w= rong-include-link-parameter "Report INCLUDE keywords with misleading link p= arameter" (export) low] [cl-struct-org-lint-checker unknown-options-item "R= eport unknown items in OPTIONS keyword" (export) low] [cl-struct-org-lint-c= hecker invalid-macro-argument-and-template "Report spurious macro arguments= or invalid macro templates" (export) low] [cl-struct-org-lint-checker spec= ial-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 propertie= s) high] [cl-struct-org-lint-checker undefined-footnote-reference "Report m= issing 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 extrane= ous-element-in-footnote-section "Report non-footnote definitions in footnot= e section" (footnote) high] [cl-struct-org-lint-checker invalid-keyword-syn= tax "Report probable invalid keywords" (default) low] [cl-struct-org-lint-c= hecker 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 probab= le 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--ge= nerate-reports (current-buffer) checkers) (org-lint--display-reports (curre= nt-buffer) checkers) (message "Org linting process completed")) | (let ((checkers (let* ((pcase-0 (function (lambda nil ...)))) (cond ((n= ull arg) (let nil org-lint--checkers)) ((consp arg) (let* (...) (cond ... .= .. ...))) (t (let nil (user-error "Invalid argument `%S' for `org-lint'" ar= g))))))) (if (not (with-no-warnings (called-interactively-p nil))) (org-lin= t--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" "pac= kage-list-packages" "magit-status" "recover-this-file" "desktop-read" "list= -packages" "gnus" "revert-buffer" "load-theme" "notmuch-search" "shell" "rm= k/org-edit-src-code-plus-name" "org-reload" "org-toggle-latex-fragment" "go= ogle-contacts" "sr-speedbar-toggle" "R" "org-babel-execute-subtree" "org-in= fo" "ess-debug-command-next" "notmuch" "org2blog/wp-post-subtree" "google-t= his" "load-library" "emacs-version" "grep" "org-version" "apropos" "eval-la= st-sexp" "hs-hide-all" "org-mobile-push" "org2blog/wp-login" "pdf-tools-ins= tall" "speedbar" "projectile-find-file" "org-agenda" "server-start" "projec= tile-find-tag" "package-install" "beginning-of-buffer" "rmk/mac-switch-meta= " "tabbar-backward-tab" "imenu-add-to-menubar" "add-file-local-variable" "e= ss-rdired" "search-forward" "org-mobile-pull" "sr-speedbar-open" ...)) | smex() | funcall-interactively(smex) | call-interactively(smex nil nil) | command-execute(smex) `---- =2D-=20 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 --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQEcBAEBCAAGBQJWJQ4RAAoJENvXNx4PUvmCfqwH/0pc6jwKT29jXGUsQd44M43c dMkkVMIeh4gXoMD6FnUsHDORsZU1dvyafjUNzOAb04HxnZEdS8dYGEDJIbcdAXHT FGVNkusTCO2JBCGZgBrs00QTmBm4mqNXsyH37T+RpeJNKW/szKwaXtz6/qGOPEz2 I3LaE0SA1PcMpZHdkKlzr7sv7ib+IhHye25FqhiRutgrQbVhp2dVqYf3pEOeKXEb c5eWPmiKrqQV0sFT+/U+sMfn5HG4QLTTFDdwhpU3EnOiKPhwtmEQ0UtmoK6S4t2Q 0k9YsU4nkltdGthp6GtqemEoqhc2k0vgTmv+QtlhQKz7cJwzlO+4Z88TmJ6tD/Q= =cy2F -----END PGP SIGNATURE----- --=-=-=--