From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp2 ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id yFC+HqWcjGEzDAEAgWs5BA (envelope-from ) for ; Thu, 11 Nov 2021 05:31:33 +0100 Received: from aspmx1.migadu.com ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp2 with LMTPS id 6ItxGqWcjGGHUAAAB5/wlQ (envelope-from ) for ; Thu, 11 Nov 2021 04:31:33 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id E2E14B488 for ; Thu, 11 Nov 2021 05:31:31 +0100 (CET) Received: from localhost ([::1]:52808 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ml1kH-0001hP-4w for larch@yhetil.org; Wed, 10 Nov 2021 23:31:29 -0500 Received: from eggs.gnu.org ([209.51.188.92]:60508) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ml1ji-0001g6-Sy for emacs-orgmode@gnu.org; Wed, 10 Nov 2021 23:30:54 -0500 Received: from mail-oln040092075092.outbound.protection.outlook.com ([40.92.75.92]:44704 helo=EUR04-VI1-obe.outbound.protection.outlook.com) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ml1je-0000Pp-Be for emacs-orgmode@gnu.org; Wed, 10 Nov 2021 23:30:54 -0500 ARC-Seal: i=1; a=rsa-sha256; s=arcselector9901; d=microsoft.com; cv=none; b=aD6MuuxaxFv0RsMPwcUikGDSnoNstK3yNx8DV0dOAYSfxXChK5s5AAqK2bQQPGNfIrciPEFPoxLBVtZ/spj1tinB4jRXLIHkMKxPH6RwgPaxmI18BQVDtO3kJQCrF8tIsSyWwP2eVurNMBsuj5a640bQ+pnBwWEO1JQXokv4dAdQxKPNhemf78alHDC27GtbfxZvXQUfvsetWZYdkImZQ/meawZT2kHl8zqA7FkR12uQOCbxQsru/RYH8ZMsSyoGxipv1C/eJNHx4PgsNPsDtw3apMF4E4S3caZmD/OO7DUjfrotPLfnf3wZH5vWxMwsFBFz1LeXwyWrev/nQ2fjtw== ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=microsoft.com; s=arcselector9901; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-AntiSpam-MessageData-ChunkCount:X-MS-Exchange-AntiSpam-MessageData-0:X-MS-Exchange-AntiSpam-MessageData-1; bh=Mb8Y+7bLcoPCeCCe0XBsTGeYY7mDZzJuaUEsHxPgw8w=; b=KB3fP2qk3Q6Ca1JvuTI3FFPW1D2SwyJN6JsnPWzhWF/LN9vAZqqQ2xv+915cgZlTOl+aQwuMbikOxFneHuvp+yipp6KAr1poeCaxzizZVt7j64jx82C3OC3P00FyXks/all4TWMPqEC5TEVTtStIkYIznJwBNB+dbOQK7yjtk5gaxoBvKPa7BqjBlFqU6nSshuw8H4Uoh6v29zz520vpljfx21og7WX7QDIbGl2u3C3arBdrcS8LWY2dOTR4XqiBB6327fExVUA3FF1qiRRIYnDHzTIUZd5bsmA2zuXnPESSnxwzQJXlI9xAGelci5Cspy3AgifaLfxZWDYdK8p/rA== ARC-Authentication-Results: i=1; mx.microsoft.com 1; spf=none; dmarc=none; dkim=none; arc=none DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=outlook.com; s=selector1; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-SenderADCheck; bh=Mb8Y+7bLcoPCeCCe0XBsTGeYY7mDZzJuaUEsHxPgw8w=; b=aPutlilREMr661EPhd5TiwHO5n7juxcIPJ4oPaduQQntCbH04OagVPrlec9FIMRhDlzqsVrJMG3U7e3PF6cDvi6EPAr3SZ9txEdB+C5F2uy+GWDbTqHJgltNgSnFO58qMF0dQ8WJCTi+m1Vbd34a9pE/pB7Srn0ZHx/hTH6K9By0p0tN1mp6XqZE1cvOCVi2PpFn8YYp78/teTkhHuYYkBPl4yjGGKUzCgniECfxCxU2edpa+2jMzJB6ws49W54grREzuECnhkK83y9GSYcydOrQAXbQ2+MUB2t/aJvjfp3fuxligFqCVt7hZYPkyf3iAloprDF6g79ppE/C+hAUlQ== Received: from PAXPR08MB6640.eurprd08.prod.outlook.com (2603:10a6:102:dd::5) by PR3PR08MB5609.eurprd08.prod.outlook.com (2603:10a6:102:81::21) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.4669.11; Thu, 11 Nov 2021 04:10:49 +0000 Received: from PAXPR08MB6640.eurprd08.prod.outlook.com ([fe80::90c1:4e36:aaac:49d0]) by PAXPR08MB6640.eurprd08.prod.outlook.com ([fe80::90c1:4e36:aaac:49d0%6]) with mapi id 15.20.4649.024; Thu, 11 Nov 2021 04:10:48 +0000 User-agent: mu4e 1.7.0; emacs 28.0.60 From: "Christopher M. Miles" To: Org Mode (org-mode) Subject: ob-clojure eval error when has comment at end of code line Date: Thu, 11 Nov 2021 12:08:14 +0800 Message-ID: Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" X-TMN: [ZaA0jdYUM7oa6HivOf2SgnpaGZATMmvh] X-ClientProxiedBy: HK2PR02CA0195.apcprd02.prod.outlook.com (2603:1096:201:21::31) To PAXPR08MB6640.eurprd08.prod.outlook.com (2603:10a6:102:dd::5) X-Microsoft-Original-Message-ID: MIME-Version: 1.0 X-MS-Exchange-MessageSentRepresentingType: 2 Received: from Mac-mini.local (91.240.163.131) by HK2PR02CA0195.apcprd02.prod.outlook.com (2603:1096:201:21::31) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.4690.19 via Frontend Transport; Thu, 11 Nov 2021 04:10:44 +0000 X-MS-PublicTrafficType: Email X-MS-Office365-Filtering-Correlation-Id: 3aae9206-85b1-43ab-bbfc-08d9a4c93c5a X-MS-TrafficTypeDiagnostic: PR3PR08MB5609: X-Microsoft-Antispam: BCL:0; X-Microsoft-Antispam-Message-Info: YEaurGD9VmuzArgj55jmJrUVy2sWjtdj6u796hmLdEUB8117D1UKjlvmSj0KVf70W2SQ46KizR+IqrwxRBlcUKi+B4QmcDquvI8C9N0TkiPyFSPAx+j0AFAfnbL1VZH4nQmesIcr2R4ZuNRyBN6dAHQSW/VpVtox3z/J8pY3RuazVNwXAlH7KJK/sJJzMzn8CRyAnNcNytiorhYg+5MokKlSjHrc+hgKYuijLMeA7TfOgFY7IymWELKyiuU1Ei+b8k8XkZKj7yhE9dojn+TB+yBY8cIvk9zBe6yuhkyz86DSAOPh6kwM8TPYxL+SxCgspm7CxYterEfC/Ma/DdxcqLTVw9QobLxZIgNngZPqIjOHkJQ9p0cQ/bIWpvYMMHbgcdffD3p2aaKHXUjtgVb8xezoQHnPklomwMjSigAwpqKRupOvVKv7TLYEPEz0ID7kppEHLi1nsJTfgwhRfcVIV87DBt7YA01o+zwtMlVrlzLt6etkrOYLMAH8wpl7iEr5glKI+3CcFNz5bnblouEv7cgf2EnoeFQzqw6zNax0ofTAj4+kzgMEMGf9b6y795LFyGTYOZ6XvmXhkMF4COuqpQ== X-MS-Exchange-AntiSpam-MessageData-ChunkCount: 1 X-MS-Exchange-AntiSpam-MessageData-0: tDT0s8cwcD7Ov4D8LE6mvmHxn8VM3rawRIhMYuWGevnfaW5SINMqHX6mwMwCprbKYKerm87aNTx/GftHu4uc0+mPdo54NA2ygQ5FzV3VCSz+bIxc5KadwfKodzLj+vTmyp0EMm9nXS29wK6QS/CruMwhyMCmQfXtLeiYYrk42TFQ7d2rTmOt6OSozZ9+wPU+1rzAA9QSh4Q5fyL4DaNEe96Q4hzgTi1zo7GBfUlc0LSZGu65RaNFPV2f117I5FXwqvqiJgaUi2HIWllQxwJ2QpgTf4rxvM57lIxSoICbryDSa227HUI8lJTQnAC+mdZcKpdqwy3/C9hH1De2eDtVUQNHq4agwmEPNJtusQaI1ZRi+5bRFd7nJxggZeF+DFKBFsCQhNLocZCUKtLf8FEWaMDVXCBOEZM7IeY2WUU+9s6XhzqmBAWa5TVeOcLmoaU7Yy28McKrpiaE0onz9xRam9w3/kNrCxvx5OMAVDlsxYxWLhl6iPdCUfkOlBbLo+jJRW6RBzL0b2rjoNmxPiRhHdfOHB5ICQt1UJ7e3b12rQDETWdXOhyoJttHRoEhaGScgT986I0aksmYm1fYXzXog1LGpK2LPppSMpTuIpsWMxaeInpj3vvO7EKNZP6628xPp/5kXoiyJBgU/flDBxYKq3iDC3HPkbW4bau9SgE8Rj2A8mW60gRRp6D09/glaSe33tgTw01dSaoCXKloF39LVA== X-OriginatorOrg: outlook.com X-MS-Exchange-CrossTenant-Network-Message-Id: 3aae9206-85b1-43ab-bbfc-08d9a4c93c5a X-MS-Exchange-CrossTenant-AuthSource: PAXPR08MB6640.eurprd08.prod.outlook.com X-MS-Exchange-CrossTenant-AuthAs: Internal X-MS-Exchange-CrossTenant-OriginalArrivalTime: 11 Nov 2021 04:10:48.7096 (UTC) X-MS-Exchange-CrossTenant-FromEntityHeader: Hosted X-MS-Exchange-CrossTenant-Id: 84df9e7f-e9f6-40af-b435-aaaaaaaaaaaa X-MS-Exchange-Transport-CrossTenantHeadersStamped: PR3PR08MB5609 Received-SPF: pass client-ip=40.92.75.92; envelope-from=stardiviner@outlook.com; helo=EUR04-VI1-obe.outbound.protection.outlook.com X-Spam_score_int: 4 X-Spam_score: 0.4 X-Spam_bar: / X-Spam_report: (0.4 / 5.0 requ) BAYES_00=-1.9, DKIM_ADSP_CUSTOM_MED=0.001, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_EF=-0.1, FORGED_GMAIL_RCVD=1, FREEMAIL_FORGED_FROMDOMAIN=0.249, FREEMAIL_FROM=0.001, HEADER_FROM_DIFFERENT_DOMAINS=0.249, MSGID_FROM_MTA_HEADER=0.001, NML_ADSP_CUSTOM_MED=0.9, RCVD_IN_DNSWL_NONE=-0.0001, RCVD_IN_MSPIKE_H2=-0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-To: numbchild@gmail.com Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Migadu-Flow: FLOW_IN ARC-Message-Signature: i=2; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1636605092; h=from:from:sender:sender:reply-to:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:mime-version:mime-version: content-type:content-type:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=Mb8Y+7bLcoPCeCCe0XBsTGeYY7mDZzJuaUEsHxPgw8w=; b=XzztHW4mJFtdyQQ26GvMmoMwrw+E9wmW70G1MxI4S0PXTj0iYuX95B0HSs04ri37YGJ83Q oKJ7KfMyi2wTALisllD+YuO7Ff8Vfs2E6+nwOk2Cq6pA3XPEkONgJT8vwAwnLcesc1NB4/ kLS6lmvJ+JDKrHluRwxQ9CH8ucv+oa6iWTN+0vzmCKCEUwfsj7z8xSG2YtUXEVB4cwEAtq istdoyf1hvzjiFwCUcTmx6l3wgEAVGXO3yQ3B+cVUk8dui18Vs4/CZ1Ov9n1HDLuFLIinA vBafugKBw+HVqJqe4YG13qzNbEAu/2sMoKIH02piR3EnwXcEclOvfJ6KmMW7FQ== ARC-Seal: i=2; s=key1; d=yhetil.org; t=1636605092; a=rsa-sha256; cv=pass; b=RhfaqN6vofOfIhWHIJ2qidWmXj2etSJr/5DEZ8uM8DERWT75ZPhinK77bMPDkmOhnqvZEQ V9LWBVJDpu5CMtEGBUszvzj7yJfDg2hgq5bUzKAYqXb7tEbWBQvkISu4AFVczIxHUupH1Q q7PeGbI2W6HAnQAQ2GHW34dLTlB3l/cLGPiKNFKOQiv7x1zR0ZRD4RivkMDzvicBRkM63T tqrouVr7ks0ettWG5NjNYAampA2igJTlRhh8fAMyRDVedxXRTd/t3vdQumi3Xb/J4BVzYw 17xiCagK44Qvus8h7BqK3i6CsWX7wN6OoYuj3AqAHyJgc57ZpuFKF2K6EGuvlw== ARC-Authentication-Results: i=2; aspmx1.migadu.com; dkim=pass header.d=outlook.com header.s=selector1 header.b=aPutlilR; arc=pass ("microsoft.com:s=arcselector9901:i=1"); dmarc=fail reason="SPF not aligned (relaxed), DKIM not aligned (relaxed)" header.from=gmail.com (policy=none); spf=pass (aspmx1.migadu.com: domain of emacs-orgmode-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=emacs-orgmode-bounces@gnu.org X-Migadu-Spam-Score: -3.12 Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=outlook.com header.s=selector1 header.b=aPutlilR; arc=pass ("microsoft.com:s=arcselector9901:i=1"); dmarc=fail reason="SPF not aligned (relaxed), DKIM not aligned (relaxed)" header.from=gmail.com (policy=none); spf=pass (aspmx1.migadu.com: domain of emacs-orgmode-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=emacs-orgmode-bounces@gnu.org X-Migadu-Queue-Id: E2E14B488 X-Spam-Score: -3.12 X-Migadu-Scanner: scn0.migadu.com X-TUID: mxnz9UtikdJU --=-=-= Content-Type: text/plain Content-Transfer-Encoding: quoted-printable I have following Clojure source block: #+begin_src clojure (re-find #"\d+" "I've just finished reading Fahrenheit 451");; =3D> "451" (re-find #"Bees" "Beads aren't cheap.");; =3D> nil #+end_src When I press =3D[C-c C-c]=3D to evaluate source block, got error: When there is no comments behind code lines. No this error. #+begin_example Debugger entered--Lisp error: (wrong-type-argument arrayp nil) replace-regexp-in-string("nil" "" nil) (closure ((result0 "nil" nil "nil" "\"451\"" nil "\"451\"") (result-param= s "replace") (connection . #) (params (:colname-names) (:rownam= e-names) (:result-params "replace") (:result-type . value) (:results . "rep= lace") (:exports . "") (:session . "none") (:hlines . "no") (:tangle . "no"= ) (:cache . "yes") (:mkdirp . "yes") (:show-process . "no") (:noweb . "yes"= ) (:eval . "yes")) (expanded . "(re-find #\"\\d+\" \"I've just finished rea= ding Fahren...") inf-clojure-comint-prompt-regexp inf-clojure-buffer ob-clo= jure-inf-clojure-tmp-output ob-clojure-inf-clojure-filter-out t) (r) (repla= ce-regexp-in-string "nil" "" r))(nil) mapcar((closure ((result0 "nil" nil "nil" "\"451\"" nil "\"451\"") (resul= t-params "replace") (connection . #) (params (:colname-names) (= :rowname-names) (:result-params "replace") (:result-type . value) (:results= . "replace") (:exports . "") (:session . "none") (:hlines . "no") (:tangle= . "no") (:cache . "yes") (:mkdirp . "yes") (:show-process . "no") (:noweb = . "yes") (:eval . "yes")) (expanded . "(re-find #\"\\d+\" \"I've just finis= hed reading Fahren...") inf-clojure-comint-prompt-regexp inf-clojure-buffer= ob-clojure-inf-clojure-tmp-output ob-clojure-inf-clojure-filter-out t) (r)= (replace-regexp-in-string "nil" "" r)) ("nil" nil "nil" "\"451\"" nil "\"4= 51\"")) (delete "" (mapcar #'(lambda (r) (replace-regexp-in-string "nil" "" r)) r= esult0)) (reverse (delete "" (mapcar #'(lambda (r) (replace-regexp-in-string "nil"= "" r)) result0))) (ob-clojure-string-or-list (reverse (delete "" (mapcar #'(lambda (r) (rep= lace-regexp-in-string "nil" "" r)) result0)))) (if (not connection) (setq result0 "Please reevaluate when nREPL is conne= cted") (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current= -buffer (set-buffer temp-buffer) (unwind-protect (progn (insert expanded) (= goto-char (point-min)) (while (not (looking-at "\\s-*\\'")) (let* (... ... = ...) (sit-for 0.1) (let ... ...)))) (and (buffer-name temp-buffer) (kill-bu= ffer temp-buffer))))) (ob-clojure-string-or-list (reverse (delete "" (mapca= r #'(lambda (r) (replace-regexp-in-string "nil" "" r)) result0))))) (let ((connection (cider-current-connection (cdr (assq :target params))))= (result-params (cdr (assq :result-params params))) result0) (if connection= nil (sesman-start-session 'CIDER)) (if (not connection) (setq result0 "Ple= ase reevaluate when nREPL is connected") (let ((temp-buffer (generate-new-b= uffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-= protect (progn (insert expanded) (goto-char (point-min)) (while (not ...) (= let* ... ... ...))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer= ))))) (ob-clojure-string-or-list (reverse (delete "" (mapcar #'(lambda ... = ...) result0)))))) ob-clojure-eval-with-cider("(re-find #\"\\d+\" \"I've just finished readi= ng Fahren..." ((:colname-names) (:rowname-names) (:result-params "replace")= (:result-type . value) (:results . "replace") (:exports . "") (:session . = "none") (:hlines . "no") (:tangle . "no") (:cache . "yes") (:mkdirp . "yes"= ) (:show-process . "no") (:noweb . "yes") (:eval . "yes"))) (cond ((eq org-babel-clojure-backend 'inf-clojure) (ob-clojure-eval-with-= inf-clojure expanded params)) ((eq org-babel-clojure-backend 'cider) (ob-cl= ojure-eval-with-cider expanded params)) ((eq org-babel-clojure-backend 'sli= me) (ob-clojure-eval-with-slime expanded params))) (setq result (cond ((eq org-babel-clojure-backend 'inf-clojure) (ob-cloju= re-eval-with-inf-clojure expanded params)) ((eq org-babel-clojure-backend '= cider) (ob-clojure-eval-with-cider expanded params)) ((eq org-babel-clojure= -backend 'slime) (ob-clojure-eval-with-slime expanded params)))) (let* ((expanded (org-babel-expand-body:clojure body params)) (result-par= ams (cdr (assq :result-params params))) result) (setq result (cond ((eq org= -babel-clojure-backend 'inf-clojure) (ob-clojure-eval-with-inf-clojure expa= nded params)) ((eq org-babel-clojure-backend 'cider) (ob-clojure-eval-with-= cider expanded params)) ((eq org-babel-clojure-backend 'slime) (ob-clojure-= eval-with-slime expanded params)))) (let ((--params result-params)) (if (me= mber "none" --params) nil (if (or (member "scalar" --params) (member "verba= tim" --params) (member "html" --params) (member "code" --params) (member "p= p" --params) (member "file" --params) (and (or (member "output" --params) (= member "raw" --params) (member "org" --params) (member "drawer" --params)) = (not (member "table" --params)))) result (condition-case nil (org-babel-scr= ipt-escape result) (error result)))))) org-babel-execute:clojure("(re-find #\"\\d+\" \"I've just finished readin= g Fahren..." ((:colname-names) (:rowname-names) (:result-params "replace") = (:result-type . value) (:results . "replace") (:exports . "") (:session . "= none") (:hlines . "no") (:tangle . "no") (:cache . "yes") (:mkdirp . "yes")= (:show-process . "no") (:noweb . "yes") (:eval . "yes"))) funcall(org-babel-execute:clojure "(re-find #\"\\d+\" \"I've just finishe= d reading Fahren..." ((:colname-names) (:rowname-names) (:result-params "re= place") (:result-type . value) (:results . "replace") (:exports . "") (:ses= sion . "none") (:hlines . "no") (:tangle . "no") (:cache . "yes") (:mkdirp = . "yes") (:show-process . "no") (:noweb . "yes") (:eval . "yes"))) (let ((r (funcall cmd body params))) (if (and (eq (cdr (assq :result-type= params)) 'value) (or (member "vector" result-params) (member "table" resul= t-params)) (not (listp r))) (list (list r)) r)) (setq result (let ((r (funcall cmd body params))) (if (and (eq (cdr (assq= :result-type params)) 'value) (or (member "vector" result-params) (member = "table" result-params)) (not (listp r))) (list (list r)) r))) (if (member "none" result-params) (progn (funcall cmd body params) (messa= ge "result silenced")) (setq result (let ((r (funcall cmd body params))) (i= f (and (eq (cdr (assq :result-type params)) 'value) (or (member "vector" re= sult-params) (member "table" result-params)) (not (listp r))) (list (list r= )) r))) (let ((file (and (member "file" result-params) (cdr (assq :file par= ams))))) (if file (progn (if (and result (not (or ... ...))) (progn (let (.= .. ...) (unwind-protect ... ...)) (if (assq :file-mode params) (progn ...))= )) (setq result file))) (let ((post (cdr (assq :post params)))) (if post (p= rogn (let ((*this* ...)) (setq result (org-babel-ref-resolve post)) (if fil= e (progn ...)))))) (org-babel-insert-result result result-params info new-h= ash lang))) (let* ((lang (nth 0 info)) (result-params (cdr (assq :result-params param= s))) (body (org-babel--expand-body info)) (dir (cdr (assq :dir params))) (m= kdirp (cdr (assq :mkdirp params))) (default-directory (cond ((not dir) defa= ult-directory) ((member mkdirp '("no" "nil" nil)) (file-name-as-directory (= expand-file-name dir))) (t (let ((d ...)) (make-directory d 'parents) d))))= (cmd (intern (concat "org-babel-execute:" lang))) result) (if (fboundp cmd= ) nil (error "No org-babel-execute function for %s!" lang)) (message "execu= ting %s code block%s..." (capitalize lang) (let ((name (nth 4 info))) (if n= ame (format " (%s)" name) ""))) (if (member "none" result-params) (progn (f= uncall cmd body params) (message "result silenced")) (setq result (let ((r = (funcall cmd body params))) (if (and (eq (cdr ...) 'value) (or (member "vec= tor" result-params) (member "table" result-params)) (not (listp r))) (list = (list r)) r))) (let ((file (and (member "file" result-params) (cdr (assq :f= ile params))))) (if file (progn (if (and result (not ...)) (progn (let ... = ...) (if ... ...))) (setq result file))) (let ((post (cdr (assq :post param= s)))) (if post (progn (let (...) (setq result ...) (if file ...))))) (org-b= abel-insert-result result result-params info new-hash lang))) (run-hooks 'o= rg-babel-after-execute-hook) result) (cond (current-cache (save-excursion (goto-char (org-babel-where-is-src-b= lock-result nil info)) (forward-line) (skip-chars-forward " \11") (let ((re= sult (org-babel-read-result))) (message (replace-regexp-in-string "%" "%%" = (format "%S" result))) result))) ((org-babel-confirm-evaluate info) (let* (= (lang (nth 0 info)) (result-params (cdr (assq :result-params params))) (bod= y (org-babel--expand-body info)) (dir (cdr (assq :dir params))) (mkdirp (cd= r (assq :mkdirp params))) (default-directory (cond ((not dir) default-direc= tory) ((member mkdirp ...) (file-name-as-directory ...)) (t (let ... ... d)= ))) (cmd (intern (concat "org-babel-execute:" lang))) result) (if (fboundp = cmd) nil (error "No org-babel-execute function for %s!" lang)) (message "ex= ecuting %s code block%s..." (capitalize lang) (let ((name (nth 4 info))) (i= f name (format " (%s)" name) ""))) (if (member "none" result-params) (progn= (funcall cmd body params) (message "result silenced")) (setq result (let (= (r ...)) (if (and ... ... ...) (list ...) r))) (let ((file (and ... ...))) = (if file (progn (if ... ...) (setq result file))) (let ((post ...)) (if pos= t (progn ...))) (org-babel-insert-result result result-params info new-hash= lang))) (run-hooks 'org-babel-after-execute-hook) result))) (let* ((params (nth 2 info)) (cache (let ((c (cdr (assq :cache params))))= (and (not arg) c (string=3D "yes" c)))) (new-hash (and cache (org-babel-sh= a1-hash info :eval))) (old-hash (and cache (org-babel-current-result-hash))= ) (current-cache (and new-hash (equal new-hash old-hash)))) (cond (current-= cache (save-excursion (goto-char (org-babel-where-is-src-block-result nil i= nfo)) (forward-line) (skip-chars-forward " \11") (let ((result (org-babel-r= ead-result))) (message (replace-regexp-in-string "%" "%%" (format "%S" resu= lt))) result))) ((org-babel-confirm-evaluate info) (let* ((lang (nth 0 info= )) (result-params (cdr (assq :result-params params))) (body (org-babel--exp= and-body info)) (dir (cdr (assq :dir params))) (mkdirp (cdr (assq :mkdirp p= arams))) (default-directory (cond (... default-directory) (... ...) (t ...)= )) (cmd (intern (concat "org-babel-execute:" lang))) result) (if (fboundp c= md) nil (error "No org-babel-execute function for %s!" lang)) (message "exe= cuting %s code block%s..." (capitalize lang) (let ((name ...)) (if name (fo= rmat " (%s)" name) ""))) (if (member "none" result-params) (progn (funcall = cmd body params) (message "result silenced")) (setq result (let (...) (if .= .. ... r))) (let ((file ...)) (if file (progn ... ...)) (let (...) (if post= ...)) (org-babel-insert-result result result-params info new-hash lang))) = (run-hooks 'org-babel-after-execute-hook) result)))) (progn (let* ((c (nthcdr 2 info))) (setcar c (org-babel-process-params (c= ar c)))) (let* ((params (nth 2 info)) (cache (let ((c (cdr ...))) (and (not= arg) c (string=3D "yes" c)))) (new-hash (and cache (org-babel-sha1-hash in= fo :eval))) (old-hash (and cache (org-babel-current-result-hash))) (current= -cache (and new-hash (equal new-hash old-hash)))) (cond (current-cache (sav= e-excursion (goto-char (org-babel-where-is-src-block-result nil info)) (for= ward-line) (skip-chars-forward " \11") (let ((result ...)) (message (replac= e-regexp-in-string "%" "%%" ...)) result))) ((org-babel-confirm-evaluate in= fo) (let* ((lang (nth 0 info)) (result-params (cdr ...)) (body (org-babel--= expand-body info)) (dir (cdr ...)) (mkdirp (cdr ...)) (default-directory (c= ond ... ... ...)) (cmd (intern ...)) result) (if (fboundp cmd) nil (error "= No org-babel-execute function for %s!" lang)) (message "executing %s code b= lock%s..." (capitalize lang) (let (...) (if name ... ""))) (if (member "non= e" result-params) (progn (funcall cmd body params) (message "result silence= d")) (setq result (let ... ...)) (let (...) (if file ...) (let ... ...) (or= g-babel-insert-result result result-params info new-hash lang))) (run-hooks= 'org-babel-after-execute-hook) result))))) (if (org-babel-check-evaluate info) (progn (let* ((c (nthcdr 2 info))) (s= etcar c (org-babel-process-params (car c)))) (let* ((params (nth 2 info)) (= cache (let ((c ...)) (and (not arg) c (string=3D "yes" c)))) (new-hash (and= cache (org-babel-sha1-hash info :eval))) (old-hash (and cache (org-babel-c= urrent-result-hash))) (current-cache (and new-hash (equal new-hash old-hash= )))) (cond (current-cache (save-excursion (goto-char (org-babel-where-is-sr= c-block-result nil info)) (forward-line) (skip-chars-forward " \11") (let (= ...) (message ...) result))) ((org-babel-confirm-evaluate info) (let* ((lan= g ...) (result-params ...) (body ...) (dir ...) (mkdirp ...) (default-direc= tory ...) (cmd ...) result) (if (fboundp cmd) nil (error "No org-babel-exec= ute function for %s!" lang)) (message "executing %s code block%s..." (capit= alize lang) (let ... ...)) (if (member "none" result-params) (progn ... ...= ) (setq result ...) (let ... ... ... ...)) (run-hooks 'org-babel-after-exec= ute-hook) result)))))) (let* ((org-babel-current-src-block-location (or org-babel-current-src-bl= ock-location (nth 5 info) (org-babel-where-is-src-block-head))) (info (if i= nfo (copy-tree info) (org-babel-get-src-block-info)))) (let* ((c (nthcdr 2 = info))) (setcar c (org-babel-merge-params (car c) params))) (if (org-babel-= check-evaluate info) (progn (let* ((c (nthcdr 2 info))) (setcar c (org-babe= l-process-params (car c)))) (let* ((params (nth 2 info)) (cache (let (...) = (and ... c ...))) (new-hash (and cache (org-babel-sha1-hash info :eval))) (= old-hash (and cache (org-babel-current-result-hash))) (current-cache (and n= ew-hash (equal new-hash old-hash)))) (cond (current-cache (save-excursion (= goto-char ...) (forward-line) (skip-chars-forward " \11") (let ... ... resu= lt))) ((org-babel-confirm-evaluate info) (let* (... ... ... ... ... ... ...= result) (if ... nil ...) (message "executing %s code block%s..." ... ...) = (if ... ... ... ...) (run-hooks ...) result))))))) (closure (*this* org-babel-confirm-evaluate-answer-no org-babel-tangle-un= comment-comments org-src-preserve-indentation org-src-lang-modes org-edit-s= rc-content-indentation org-babel-library-of-babel t) (&optional arg info pa= rams) "Execute the current source code block.\nInsert the ..." (interactive= ) (let* ((org-babel-current-src-block-location (or org-babel-current-src-bl= ock-location (nth 5 info) (org-babel-where-is-src-block-head))) (info (if i= nfo (copy-tree info) (org-babel-get-src-block-info)))) (let* ((c (nthcdr 2 = info))) (setcar c (org-babel-merge-params (car c) params))) (if (org-babel-= check-evaluate info) (progn (let* ((c ...)) (setcar c (org-babel-process-pa= rams ...))) (let* ((params ...) (cache ...) (new-hash ...) (old-hash ...) (= current-cache ...)) (cond (current-cache ...) (... ...)))))))(nil ("clojure= " "(re-find #\"\\d+\" \"I've just finished reading Fahren..." ((:colname-na= mes) (:rowname-names) (:result-params "replace") (:result-type . value) (:r= esults . "replace") (:exports . "") (:eval . "yes") (:noweb . "yes") (:show= -process . "no") (:mkdirp . "yes") (:cache . "yes") (:tangle . "no") (:hlin= es . "no") (:session . "none")) "" nil 100164 "(ref:%s)") nil) ob-async-org-babel-execute-src-block((closure (*this* org-babel-confirm-e= valuate-answer-no org-babel-tangle-uncomment-comments org-src-preserve-inde= ntation org-src-lang-modes org-edit-src-content-indentation org-babel-libra= ry-of-babel t) (&optional arg info params) "Execute the current source code= block.\nInsert the ..." (interactive) (let* ((org-babel-current-src-block-= location (or org-babel-current-src-block-location (nth 5 info) (org-babel-w= here-is-src-block-head))) (info (if info (copy-tree info) (org-babel-get-sr= c-block-info)))) (let* ((c (nthcdr 2 info))) (setcar c (org-babel-merge-par= ams (car c) params))) (if (org-babel-check-evaluate info) (progn (let* ((c = ...)) (setcar c (org-babel-process-params ...))) (let* ((params ...) (cache= ...) (new-hash ...) (old-hash ...) (current-cache ...)) (cond (current-cac= he ...) (... ...))))))) nil ("clojure" "(re-find #\"\\d+\" \"I've just fini= shed reading Fahren..." ((:colname-names) (:rowname-names) (:result-params = "replace") (:result-type . value) (:results . "replace") (:exports . "") (:= eval . "yes") (:noweb . "yes") (:show-process . "no") (:mkdirp . "yes") (:c= ache . "yes") (:tangle . "no") (:hlines . "no") (:session . "none")) "" nil= 100164 "(ref:%s)")) apply(ob-async-org-babel-execute-src-block (closure (*this* org-babel-con= firm-evaluate-answer-no org-babel-tangle-uncomment-comments org-src-preserv= e-indentation org-src-lang-modes org-edit-src-content-indentation org-babel= -library-of-babel t) (&optional arg info params) "Execute the current sourc= e code block.\nInsert the ..." (interactive) (let* ((org-babel-current-src-= block-location (or org-babel-current-src-block-location (nth 5 info) (org-b= abel-where-is-src-block-head))) (info (if info (copy-tree info) (org-babel-= get-src-block-info)))) (let* ((c (nthcdr 2 info))) (setcar c (org-babel-mer= ge-params (car c) params))) (if (org-babel-check-evaluate info) (progn (let= * ((c ...)) (setcar c (org-babel-process-params ...))) (let* ((params ...) = (cache ...) (new-hash ...) (old-hash ...) (current-cache ...)) (cond (curre= nt-cache ...) (... ...))))))) (nil ("clojure" "(re-find #\"\\d+\" \"I've ju= st finished reading Fahren..." ((:colname-names) (:rowname-names) (:result-= params "replace") (:result-type . value) (:results . "replace") (:exports .= "") (:eval . "yes") (:noweb . "yes") (:show-process . "no") (:mkdirp . "ye= s") (:cache . "yes") (:tangle . "no") (:hlines . "no") (:session . "none"))= "" nil 100164 "(ref:%s)"))) org-babel-execute-src-block(nil ("clojure" "(re-find #\"\\d+\" \"I've jus= t finished reading Fahren..." ((:colname-names) (:rowname-names) (:result-p= arams "replace") (:result-type . value) (:results . "replace") (:exports . = "") (:eval . "yes") (:noweb . "yes") (:show-process . "no") (:mkdirp . "yes= ") (:cache . "yes") (:tangle . "no") (:hlines . "no") (:session . "none")) = "" nil 100164 "(ref:%s)")) (if org-babel-no-eval-on-ctrl-c-ctrl-c nil (org-babel-eval-wipe-error-buf= fer) (org-babel-execute-src-block current-prefix-arg (org-babel-get-src-blo= ck-info nil context))) (let nil (if org-babel-no-eval-on-ctrl-c-ctrl-c nil (org-babel-eval-wipe-= error-buffer) (org-babel-execute-src-block current-prefix-arg (org-babel-ge= t-src-block-info nil context)))) (cond ((memq type '(src-block inline-src-block)) (let nil (if org-babel-n= o-eval-on-ctrl-c-ctrl-c nil (org-babel-eval-wipe-error-buffer) (org-babel-e= xecute-src-block current-prefix-arg (org-babel-get-src-block-info nil conte= xt))))) ((org-match-line "[ \11]*$") (let nil (or (run-hook-with-args-until= -success 'org-ctrl-c-ctrl-c-final-hook) (user-error (substitute-command-key= s "`\\[org-ctrl-c-ctrl-c]' can do nothing useful here"))))) ((memq type '(i= nline-babel-call babel-call)) (let nil (let ((info (org-babel-lob-get-info = context))) (if info (progn (org-babel-execute-src-block nil info)))))) ((eq= type 'clock) (let nil (org-clock-update-time-maybe))) ((eq type 'dynamic-b= lock) (let nil (save-excursion (goto-char (org-element-property :post-affil= iated context)) (org-update-dblock)))) ((eq type 'footnote-definition) (let= nil (goto-char (org-element-property :post-affiliated context)) (call-inte= ractively 'org-footnote-action))) ((eq type 'footnote-reference) (let nil (= call-interactively #'org-footnote-action))) ((memq type '(inlinetask headli= ne)) (let nil (save-excursion (goto-char (org-element-property :begin conte= xt)) (call-interactively #'org-set-tags-command)))) ((eq type 'item) (let n= il (if (or radio-list-p (and (boundp org-list-checkbox-radio-mode) org-list= -checkbox-radio-mode)) (org-toggle-radio-button arg) (let* ((box (org-eleme= nt-property :checkbox context)) (struct (org-element-property :structure co= ntext)) (old-struct (copy-tree struct)) (parents (org-list-parents-alist st= ruct)) (prevs (org-list-prevs-alist struct)) (orderedp (org-not-nil ...))) = (org-list-set-checkbox (org-element-property :begin context) struct (cond (= ... "[-]") (... "[ ]") (... nil) (... "[ ]") (t "[X]"))) (org-list-struct-f= ix-ind struct parents 2) (org-list-struct-fix-item-end struct) (org-list-st= ruct-fix-bul struct prevs) (org-list-struct-fix-ind struct parents) (let ((= block-item ...)) (if (and box ...) (if ... ... ...) (org-list-struct-apply-= struct struct old-struct) (org-update-checkbox-count-maybe)) (if block-item= (progn ...))))))) ((eq type 'plain-list) (let nil (if (or radio-list-p (an= d (boundp org-list-checkbox-radio-mode) org-list-checkbox-radio-mode)) (org= -toggle-radio-button arg) (let* ((begin (org-element-property :contents-beg= in context)) (struct (org-element-property :structure context)) (old-struct= (copy-tree struct)) (first-box (save-excursion ... ... ...)) (new-box (con= d ... ... ... ...))) (cond (arg (let ... ...)) ((and first-box ...) (org-li= st-set-checkbox begin struct new-box))) (if (equal (org-list-write-struct s= truct ... old-struct) old-struct) (progn (message "Cannot update this check= box"))) (org-update-checkbox-count-maybe))))) ((eq type 'keyword) (let nil = (let ((org-inhibit-startup-visibility-stuff t) (org-startup-align-all-table= s nil)) (if (boundp 'org-table-coordinate-overlays) (progn (mapc #'delete-o= verlay org-table-coordinate-overlays) (setq org-table-coordinate-overlays n= il))) (let* ((--invisible-types '...) (--markers\? 'use-markers) (--data (m= apcar ... ...))) (unwind-protect (progn (org-mode-restart)) (save-excursion= (save-restriction ... ... ...))))) (message "Local setup has been refreshe= d"))) ((memq type '(node-property property-drawer)) (let nil (call-interact= ively #'org-property-action))) ((eq type 'radio-target) (let nil (call-inte= ractively #'org-update-radio-target-regexp))) ((eq type 'statistics-cookie)= (let nil (call-interactively #'org-update-statistics-cookies))) ((memq typ= e '(table-row table-cell table)) (let nil (cond ((and (org-match-line "[ \1= 1]*#\\+plot:") (< (point) (org-element-property :post-affiliated context)))= (org-plot/gnuplot)) ((eq (org-element-property :type context) 'table\.el) = (message "%s" (substitute-command-keys "\\Use `\\[org-edit-sp= ecial]' to edit t..."))) ((or (eq type 'table) (and (eq type ...) (=3D ... = ...))) (save-excursion (if (org-at-TBLFM-p) (progn ... ...) (goto-char ...)= (org-call-with-arg ... ...) (orgtbl-send-table ...)))) (t (org-table-maybe= -eval-formula) (cond (arg (call-interactively ...)) ((org-table-maybe-recal= culate-line)) (t (org-table-align))))))) ((eq type 'timestamp) (funcall pca= se-1)) ((eq type 'planning) (cond ((org-at-timestamp-p 'lax) (funcall pcase= -1)) ((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil= ) (t (funcall pcase-0)))) ((null type) (cond ((org-at-heading-p) (let nil (= call-interactively #'org-set-tags-command))) ((run-hook-with-args-until-suc= cess 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall pcase-0)))) ((run-hoo= k-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall = pcase-0))) (let* ((pcase-1 #'(lambda nil (org-timestamp-change 0 'day))) (pcase-0 #'= (lambda nil (user-error (substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' c= an do nothing useful here"))))) (cond ((memq type '(src-block inline-src-bl= ock)) (let nil (if org-babel-no-eval-on-ctrl-c-ctrl-c nil (org-babel-eval-w= ipe-error-buffer) (org-babel-execute-src-block current-prefix-arg (org-babe= l-get-src-block-info nil context))))) ((org-match-line "[ \11]*$") (let nil= (or (run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) (user= -error (substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do nothing use= ful here"))))) ((memq type '(inline-babel-call babel-call)) (let nil (let (= (info (org-babel-lob-get-info context))) (if info (progn (org-babel-execute= -src-block nil info)))))) ((eq type 'clock) (let nil (org-clock-update-time= -maybe))) ((eq type 'dynamic-block) (let nil (save-excursion (goto-char (or= g-element-property :post-affiliated context)) (org-update-dblock)))) ((eq t= ype 'footnote-definition) (let nil (goto-char (org-element-property :post-a= ffiliated context)) (call-interactively 'org-footnote-action))) ((eq type '= footnote-reference) (let nil (call-interactively #'org-footnote-action))) (= (memq type '(inlinetask headline)) (let nil (save-excursion (goto-char (org= -element-property :begin context)) (call-interactively #'org-set-tags-comma= nd)))) ((eq type 'item) (let nil (if (or radio-list-p (and (boundp org-list= -checkbox-radio-mode) org-list-checkbox-radio-mode)) (org-toggle-radio-butt= on arg) (let* ((box ...) (struct ...) (old-struct ...) (parents ...) (prevs= ...) (orderedp ...)) (org-list-set-checkbox (org-element-property :begin c= ontext) struct (cond ... ... ... ... ...)) (org-list-struct-fix-ind struct = parents 2) (org-list-struct-fix-item-end struct) (org-list-struct-fix-bul s= truct prevs) (org-list-struct-fix-ind struct parents) (let (...) (if ... ..= . ... ...) (if block-item ...)))))) ((eq type 'plain-list) (let nil (if (or= radio-list-p (and (boundp org-list-checkbox-radio-mode) org-list-checkbox-= radio-mode)) (org-toggle-radio-button arg) (let* ((begin ...) (struct ...) = (old-struct ...) (first-box ...) (new-box ...)) (cond (arg ...) (... ...)) = (if (equal ... old-struct) (progn ...)) (org-update-checkbox-count-maybe)))= )) ((eq type 'keyword) (let nil (let ((org-inhibit-startup-visibility-stuff= t) (org-startup-align-all-tables nil)) (if (boundp 'org-table-coordinate-o= verlays) (progn (mapc ... org-table-coordinate-overlays) (setq org-table-co= ordinate-overlays nil))) (let* ((--invisible-types ...) (--markers\? ...) (= --data ...)) (unwind-protect (progn ...) (save-excursion ...)))) (message "= Local setup has been refreshed"))) ((memq type '(node-property property-dra= wer)) (let nil (call-interactively #'org-property-action))) ((eq type 'radi= o-target) (let nil (call-interactively #'org-update-radio-target-regexp))) = ((eq type 'statistics-cookie) (let nil (call-interactively #'org-update-sta= tistics-cookies))) ((memq type '(table-row table-cell table)) (let nil (con= d ((and (org-match-line "[ \11]*#\\+plot:") (< ... ...)) (org-plot/gnuplot)= ) ((eq (org-element-property :type context) 'table\.el) (message "%s" (subs= titute-command-keys "\\Use `\\[org-edit-special]' to edit t..= ."))) ((or (eq type ...) (and ... ...)) (save-excursion (if ... ... ... ...= ...))) (t (org-table-maybe-eval-formula) (cond (arg ...) (...) (t ...)))))= ) ((eq type 'timestamp) (funcall pcase-1)) ((eq type 'planning) (cond ((org= -at-timestamp-p 'lax) (funcall pcase-1)) ((run-hook-with-args-until-success= 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall pcase-0)))) ((null type) = (cond ((org-at-heading-p) (let nil (call-interactively #'org-set-tags-comma= nd))) ((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'ni= l) (t (funcall pcase-0)))) ((run-hook-with-args-until-success 'org-ctrl-c-c= trl-c-final-hook) 'nil) (t (funcall pcase-0)))) (let* ((context (org-element-lineage (org-element-context) '(babel-call c= lock dynamic-block footnote-definition footnote-reference inline-babel-call= inline-src-block inlinetask item keyword node-property paragraph plain-lis= t planning property-drawer radio-target src-block statistics-cookie table t= able-cell table-row timestamp) t)) (radio-list-p (org-at-radio-list-p)) (ty= pe (org-element-type context))) (if (eq type 'paragraph) (progn (let ((pare= nt (org-element-property :parent context))) (if (and (eq (org-element-type = parent) 'item) (=3D (line-beginning-position) (org-element-property :begin = parent))) (progn (setq context parent) (setq type 'item)))))) (let* ((pcase= -1 #'(lambda nil (org-timestamp-change 0 'day))) (pcase-0 #'(lambda nil (us= er-error (substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do nothing u= seful here"))))) (cond ((memq type '(src-block inline-src-block)) (let nil = (if org-babel-no-eval-on-ctrl-c-ctrl-c nil (org-babel-eval-wipe-error-buffe= r) (org-babel-execute-src-block current-prefix-arg (org-babel-get-src-block= -info nil context))))) ((org-match-line "[ \11]*$") (let nil (or (run-hook-= with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) (user-error (substit= ute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do nothing useful here"))))) = ((memq type '(inline-babel-call babel-call)) (let nil (let ((info ...)) (if= info (progn ...))))) ((eq type 'clock) (let nil (org-clock-update-time-may= be))) ((eq type 'dynamic-block) (let nil (save-excursion (goto-char (org-el= ement-property :post-affiliated context)) (org-update-dblock)))) ((eq type = 'footnote-definition) (let nil (goto-char (org-element-property :post-affil= iated context)) (call-interactively 'org-footnote-action))) ((eq type 'foot= note-reference) (let nil (call-interactively #'org-footnote-action))) ((mem= q type '(inlinetask headline)) (let nil (save-excursion (goto-char (org-ele= ment-property :begin context)) (call-interactively #'org-set-tags-command))= )) ((eq type 'item) (let nil (if (or radio-list-p (and ... org-list-checkbo= x-radio-mode)) (org-toggle-radio-button arg) (let* (... ... ... ... ... ...= ) (org-list-set-checkbox ... struct ...) (org-list-struct-fix-ind struct pa= rents 2) (org-list-struct-fix-item-end struct) (org-list-struct-fix-bul str= uct prevs) (org-list-struct-fix-ind struct parents) (let ... ... ...))))) (= (eq type 'plain-list) (let nil (if (or radio-list-p (and ... org-list-check= box-radio-mode)) (org-toggle-radio-button arg) (let* (... ... ... ... ...) = (cond ... ...) (if ... ...) (org-update-checkbox-count-maybe))))) ((eq type= 'keyword) (let nil (let ((org-inhibit-startup-visibility-stuff t) (org-sta= rtup-align-all-tables nil)) (if (boundp ...) (progn ... ...)) (let* (... ..= . ...) (unwind-protect ... ...))) (message "Local setup has been refreshed"= ))) ((memq type '(node-property property-drawer)) (let nil (call-interactiv= ely #'org-property-action))) ((eq type 'radio-target) (let nil (call-intera= ctively #'org-update-radio-target-regexp))) ((eq type 'statistics-cookie) (= let nil (call-interactively #'org-update-statistics-cookies))) ((memq type = '(table-row table-cell table)) (let nil (cond ((and ... ...) (org-plot/gnup= lot)) ((eq ... ...) (message "%s" ...)) ((or ... ...) (save-excursion ...))= (t (org-table-maybe-eval-formula) (cond ... ... ...))))) ((eq type 'timest= amp) (funcall pcase-1)) ((eq type 'planning) (cond ((org-at-timestamp-p 'la= x) (funcall pcase-1)) ((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c= -final-hook) 'nil) (t (funcall pcase-0)))) ((null type) (cond ((org-at-head= ing-p) (let nil (call-interactively ...))) ((run-hook-with-args-until-succe= ss 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall pcase-0)))) ((run-hook-= with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall pc= ase-0))))) (cond ((and (boundp 'org-columns-overlays) org-columns-overlays) (org-col= umns-quit)) ((or (and (boundp 'org-clock-overlays) org-clock-overlays) org-= occur-highlights) (if (boundp 'org-clock-overlays) (progn (org-clock-remove= -overlays))) (org-remove-occur-highlights) (message "Temporary highlights/o= verlays removed from current...")) ((and (local-variable-p 'org-finish-func= tion) (fboundp org-finish-function)) (funcall org-finish-function)) ((org-b= abel-hash-at-point)) ((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-= hook)) (t (let* ((context (org-element-lineage (org-element-context) '(babe= l-call clock dynamic-block footnote-definition footnote-reference inline-ba= bel-call inline-src-block inlinetask item keyword node-property paragraph p= lain-list planning property-drawer radio-target src-block statistics-cookie= table table-cell table-row timestamp) t)) (radio-list-p (org-at-radio-list= -p)) (type (org-element-type context))) (if (eq type 'paragraph) (progn (le= t ((parent ...)) (if (and ... ...) (progn ... ...))))) (let* ((pcase-1 #'(l= ambda nil ...)) (pcase-0 #'(lambda nil ...))) (cond ((memq type '...) (let = nil (if org-babel-no-eval-on-ctrl-c-ctrl-c nil ... ...))) ((org-match-line = "[ \11]*$") (let nil (or ... ...))) ((memq type '...) (let nil (let ... ...= ))) ((eq type 'clock) (let nil (org-clock-update-time-maybe))) ((eq type 'd= ynamic-block) (let nil (save-excursion ... ...))) ((eq type 'footnote-defin= ition) (let nil (goto-char ...) (call-interactively ...))) ((eq type 'footn= ote-reference) (let nil (call-interactively ...))) ((memq type '...) (let n= il (save-excursion ... ...))) ((eq type 'item) (let nil (if ... ... ...))) = ((eq type 'plain-list) (let nil (if ... ... ...))) ((eq type 'keyword) (let= nil (let ... ... ...) (message "Local setup has been refreshed"))) ((memq = type '...) (let nil (call-interactively ...))) ((eq type 'radio-target) (le= t nil (call-interactively ...))) ((eq type 'statistics-cookie) (let nil (ca= ll-interactively ...))) ((memq type '...) (let nil (cond ... ... ... ...)))= ((eq type 'timestamp) (funcall pcase-1)) ((eq type 'planning) (cond (... .= ..) (... ...) (t ...))) ((null type) (cond (... ...) (... ...) (t ...))) ((= run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (f= uncall pcase-0))))))) org-ctrl-c-ctrl-c(nil) funcall-interactively(org-ctrl-c-ctrl-c nil) call-interactively(org-ctrl-c-ctrl-c nil nil) command-execute(org-ctrl-c-ctrl-c) #+end_example =2D-=20 [ stardiviner ] I try to make every word tell the meaning that I want to express. Blog: https://stardiviner.github.io/ IRC(freenode): stardiviner, Matrix: stardiviner GPG: F09F650D7D674819892591401B5DF1C95AE89AC3 --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQEzBAEBCAAdFiEE8J9lDX1nSBmJJZFAG13xyVromsMFAmGMl7kACgkQG13xyVro msMF1ggAlEGdrCS6wZA/wvWp1ayjCVzW6lzDoQSQvIbEE0xEZnbJHQ2KlLj4JT2Z l6neB1DRgx7kUhcbFIRngi4OaDSpVsnKWpcWRXnvzNrm2zfStuJO3XXOQmRO+zXk pwdY0SvjT5b+DdYUOlg9+ploonMav0lLUAGgPOlaoUFah4jHl+us4Nt9BKIpq0cu TmV1zzKw+mor/4EzpGhS8j4sR8+LYs1MVmECp144wxTWVV7P+kdOMNGhd6pkt8S5 iECizCk8OVallOkGK/RUvTzQ+lxZ6UUU6JT5fdEtonmGY7I34LUV9M5KalibJ9V2 a3eTEaaAN8VT7638vJ1iFTjKm32bVw== =tDnQ -----END PGP SIGNATURE----- --=-=-=--