From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp11.migadu.com ([2001:41d0:403:4789::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms9.migadu.com with LMTPS id QinRCfIAKGUEgAAA9RJhRA:P1 (envelope-from ) for ; Thu, 12 Oct 2023 16:21:38 +0200 Received: from aspmx1.migadu.com ([2001:41d0:403:4789::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp11.migadu.com with LMTPS id QinRCfIAKGUEgAAA9RJhRA (envelope-from ) for ; Thu, 12 Oct 2023 16:21:38 +0200 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 8D62863DC7 for ; Thu, 12 Oct 2023 16:21:37 +0200 (CEST) Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=hotmail.com header.s=selector1 header.b=hwiAmpUz; arc=pass ("microsoft.com:s=arcselector9901:i=1"); dmarc=pass (policy=none) header.from=hotmail.com; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org" ARC-Seal: i=2; s=key1; d=yhetil.org; t=1697120497; a=rsa-sha256; cv=pass; b=K4lIv+UMEcXdUydJKc8C9m23e2av6Cejej1U1S6tKB9NLtKSF17B9IGJ+c5/pXjs0rVRrJ MMAU9EKg8BMgu2yl3NP0ZU4ZKNBRLHx1TfrZP6qIdapotDujfa4G0h5aepP4ff5pOnvocr UCn0ThRC9zUqI+Jjb8NPBa8+DR9m7c776YAoQlWAH397euuHSsIDVR9VOU9rlLIFBFjtDe YAGbxDHRZxFca/Mj0tzftCqhXqObAgkIOtYsZ7Cy6LqKDnfX7YxL2FolBqyPeKTXMNyzDR xexXpXddyDZZhw6G6bzhRwgJT7P4T0MG3l5AXf8IkSo2VT/foE3uduHHM90NAQ== ARC-Authentication-Results: i=2; aspmx1.migadu.com; dkim=pass header.d=hotmail.com header.s=selector1 header.b=hwiAmpUz; arc=pass ("microsoft.com:s=arcselector9901:i=1"); dmarc=pass (policy=none) header.from=hotmail.com; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org" ARC-Message-Signature: i=2; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1697120497; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type: content-transfer-encoding:content-transfer-encoding: in-reply-to:in-reply-to:references:references:list-id:list-help: list-unsubscribe:list-subscribe:list-post:dkim-signature; bh=5as99Qn5lqiOdvurG8lg4es/+sJfPSUQKpcEMHxaXVY=; b=gYqn0TkYek/2g9/ccYyOxQq2VcZRb5ULapsE6tFMxT4ioCe4Xv5qyOHuP/Azm0X2I5ooIW elJ9f9kOfoltEVFBdLnsZ24Fe9vf3kxjGZZy7Bp9cKiiAniYsrsRl7ww2Ggo4H+RX5iuWv Iw23y7ri0Ahwc0h1MndtK0jxcaB14w6eCr6WgyEi9QXhbexLwvHlG/bEX1gi39Wk1wFWEp 23XWmUo2hoLlIJ/5p3oRq0OSZjAj0FbBvYxy5Oodz/nls6PFqApXTBhZMW8CsbJ01HTfA4 FMiZWTlW79WrE2RE2FFOn16ad2iUbXDVZKmiENJ7OB0iyDWjKEH3Ou24qDICqw== Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1qqwYU-0001yJ-Lr; Thu, 12 Oct 2023 10:20:50 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qqwYS-0001y0-CR for emacs-orgmode@gnu.org; Thu, 12 Oct 2023 10:20:48 -0400 Received: from mail-ve1eur01olkn2098.outbound.protection.outlook.com ([40.92.66.98] helo=EUR01-VE1-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 1qqwYF-0002TQ-AF for emacs-orgmode@gnu.org; Thu, 12 Oct 2023 10:20:38 -0400 ARC-Seal: i=1; a=rsa-sha256; s=arcselector9901; d=microsoft.com; cv=none; b=oZMr6X8wLVtyAx1jbVazFOY0A5dAGrRnDPRKEkW7fjFaGFPcSySGF5cAHUB3FaPHc8iv5N92aF4WItI72LsbwPCgKLBp0I1Dt+R94FVDHUD8QgBUobYfJKwfYKOh9eSd6XRMWPRHn/EHCkuWowUOn/WF3xbrRyXUY+KcdA2NOiEYoUDoj+KDahJZDxu+GrRLkr41Kl7ZZBOu1d72olUiEWPbddWGVLue3j7xtprW53y5SVWnsweoEKqQP5ozhE9kkO9YD/ZE+H2xUEvfgFFHoBUgbnu1sAGhHY9ouqEUXiOCZ1FHsQSufVKpMI/jcb5kzzJs+Clde/frTIPsPxktcw== 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=5as99Qn5lqiOdvurG8lg4es/+sJfPSUQKpcEMHxaXVY=; b=VDnUBcj/132DwQujzGC0IeNFjzlefA7GZkmL89t2IqN42PIZZokfV2dNDK5mBiFKfKaM+RKE7I5oI30fDHniag1JMEOeU0cXUa/0kYJYxEUbT2QA60t7kcN1ieu/ME6zxowCDIlGrEdCBSsOPIb5rG7TIJ4hXS/5jIGuUZJZdRLdoupajBUhW1PpbqIesUk0je96Z84u73jBniYt23rvKVwktT06fvi9OPM35ekErIeePl9jKa65gTetQ2vdNbq2uqINBDgQiWKDcaPRaESCCGLzoD7kmj+SeBiyAwkdkPExbsQywlFDjwEOBNsnRdufAtsjH9iorW92PC+DqXndvA== 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=hotmail.com; s=selector1; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-SenderADCheck; bh=5as99Qn5lqiOdvurG8lg4es/+sJfPSUQKpcEMHxaXVY=; b=hwiAmpUzLUGhNK4SkiVBUJoEbXivQDKSMtJWx9x6EiYo3KMHmtVA1caEIDi2AHYSZumkjBmuAL8lfH84Lx6McJ1qN9GBSD+P0qsgvoP6uGOmJ6+xHQEIfQFeDwfWWygiy6n05rDzz6A/ziNs9jeno3xvZL3L7gMTpAr62Qyp38LO5cNzRUVs0+4kqj6iPzSTpZ0rF3mMvPtfhVsXWAxKs7MFqh16/e6xHZDQKdMwvsbKeHebEPvq/XtCYg8u2bKz1BU6qtzakjc5aRUp0atP5aUcil73CbhMJ/27Q/TIC0a9HZC+xqUwe43JuUlzXv1rYq3vaqzDSLbDtg6nlgMQZw== Received: from AS8P193MB2413.EURP193.PROD.OUTLOOK.COM (2603:10a6:20b:448::6) by AM9P193MB1508.EURP193.PROD.OUTLOOK.COM (2603:10a6:20b:2fd::8) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.6863.43; Thu, 12 Oct 2023 14:20:32 +0000 Received: from AS8P193MB2413.EURP193.PROD.OUTLOOK.COM ([fe80::28dc:2b00:340b:f5f0]) by AS8P193MB2413.EURP193.PROD.OUTLOOK.COM ([fe80::28dc:2b00:340b:f5f0%7]) with mapi id 15.20.6838.033; Thu, 12 Oct 2023 14:20:32 +0000 References: <87edi0c7qo.fsf@localhost> User-agent: mu4e 1.6.10; emacs 28.1 From: Andrea To: Ihor Radchenko Cc: Andrea , emacs-orgmode@gnu.org Subject: Re: [BUG] org-babel-tangle may fail due to (org-babel-tangle-collect-blocks lang-re tangle-file) [9.6.9 ( @ /home/andrea/.emacs.d/elpa/org-9.6.9/)] Date: Thu, 12 Oct 2023 15:16:58 +0100 In-reply-to: <87edi0c7qo.fsf@localhost> Message-ID: Content-Type: text/plain Content-Transfer-Encoding: quoted-printable X-TMN: [sbYl21URN2LMI6x/zWmVEHfBl9+8XRT6h4mMJHpGZnRW8Wz0F+UtwO9NBxTyf/OL] X-ClientProxiedBy: LO4P123CA0690.GBRP123.PROD.OUTLOOK.COM (2603:10a6:600:37b::7) To AS8P193MB2413.EURP193.PROD.OUTLOOK.COM (2603:10a6:20b:448::6) X-Microsoft-Original-Message-ID: <87v8bborbo.fsf@hotmail.com> MIME-Version: 1.0 X-MS-Exchange-MessageSentRepresentingType: 1 X-MS-PublicTrafficType: Email X-MS-TrafficTypeDiagnostic: AS8P193MB2413:EE_|AM9P193MB1508:EE_ X-MS-Office365-Filtering-Correlation-Id: 3f6e2a48-ab32-47cd-cf9f-08dbcb2e6415 X-Microsoft-Antispam: BCL:0; X-Microsoft-Antispam-Message-Info: armAK7mWuuHwmzWQCgI+bRzC83kSGDw0bbewnMc2BlD50K/wHBkM4pL+EJeg5j9ALMQM+TDYXezXPj+LgT7fVeDEocGM8GOa508UzBZ839NEK0ltNaTuLk+jCJtoYgdoGWgIOHZDkuUoXsalw/iaC41M6H3j6z2aJzki7/qAIV4OXcAarDbQQihf58M4xnkPmMmlEQDcLS3YK72pfKalu36IF03gGStRirtWMacSBe39P70jvcLABmKsKrxcIIQxUeAveUfmI4VP4G5KQYQr40G4qDqfM5ZDo67FnRxekIbK2zp0KT/cgZkXDUBlPMLOtWHqeFfr3H5DBVlpz6Vg9+PrndcBmCOD6J2Vm57jnXtqC9RPzu/zMbUZhbHDqzd3jjKUjZpd77aRTjmAEHqwZa4DphbmVBI7FvGPenFTal3J2OQ2jma6jkAfv2r8DobU+jw67ubstldybaiV4NU9ZspCERQHYHgvDeXAsdyHLTnGR7De+ZME8oZHTNlHpz6hXF/OC7QD1mYdKqJM3Ha3iQ+KhMVxlK4MuayDznb+weiMnpJM8rYVqJOu6TGlGo7aRh+jkTD+eYYiiJC+DGyqHRyUaLYOwDNKPCpTFaQku8E= X-MS-Exchange-AntiSpam-MessageData-ChunkCount: 1 X-MS-Exchange-AntiSpam-MessageData-0: =?us-ascii?Q?ExngZLnLwYHIyjwN1lGxTX4hYFIrfKpKn9Ia7madS3e9WKOCPExSBwlMl0lP?= =?us-ascii?Q?XmZ1mUYom00rhdkSHXkO67QH5k9/30X+UqrCFjuSF7nOPovIJOW4/MyXoCEU?= =?us-ascii?Q?qU0AOceRtUM+GXV+EYuesN/8smf0lHOcXXVOUT+GAVGRtEiB4faNN0BO0y7p?= =?us-ascii?Q?ViZfJHQMUUfzPcZtWVI7KS3lsWZSpaDoobsTvmd3oCHPzj8VEeDZ6nOSEFUS?= =?us-ascii?Q?imGVfeB+J+YXbGQhFnS6vSUd7DaFu5dULPr5IHBpKB95xRCJz+qTZmTsWx3Q?= =?us-ascii?Q?NTwiyJ9X48UDlFkC4hEzGjdWULAKtSANfR+XTSoKKtojRKeO9vqfU58/PZ45?= =?us-ascii?Q?g33w4ojCWhai1Fk3Hib5wxgCHcO7dN8iW8rZhxR+5pvU7Cs7WkQ106UGhcct?= =?us-ascii?Q?xdU6zIOIyaod0uPeFk/d5o7wS8G+r4sJxxPXAeYKfvdf7ZHcVXU9xM7RLwRX?= =?us-ascii?Q?azsqpPcARHjZ0ksAWrHRKDmIjtWbutduY5itBspNjuhW1gLiJcfiIZ4M4ehF?= =?us-ascii?Q?GY8/oec2TJBOix3SC3rneplV6R9X2aJg1Uy3WzlU4FldxJ+OpTL9YQViCf9x?= =?us-ascii?Q?Ad0m0IhlKPkqlHW9niGfnJBrdz4tc6KFb8MApIHuse5qMxNaDxVfaDmw95dT?= =?us-ascii?Q?I1cWY/qdq7NwEMO5YhufiU6+oWUWGZRe2UzdaCobjXqnv1i+t9CbPGZqFfDs?= =?us-ascii?Q?0Y2v+FqBqN13bd+Tbu4HgHftY5M4/k+N/c4UYaeeENOSLxjTNEHDX4Q1z7sn?= =?us-ascii?Q?qnKP4VtgYp9KlVKKSKJ0cnhuLpv4P0KJOeHoOV2W93kIaAcdCC95oJFUkz98?= =?us-ascii?Q?zF5ASnciF6X7XjgDpFqVFrWfzeD88ZaeuSIdg/Hs8MpYjyqt/VNKQgt15qFO?= =?us-ascii?Q?wN89YXXkP/zY4Z4zS/p+5ZU/MOUWWX44Sh6zXvXAdJCziAx2viPIYWeOtDr7?= =?us-ascii?Q?66bmQEx3Fq2BTc3cVXSkNfissiif64vwvy4K+HPltdSyqtPYWfgO5/IjUatC?= =?us-ascii?Q?JUwNRWugKBl+8AtaIHGssmt2H7kPXeGiZkTl2ChHQHXm6S2NdZLc8BKmXNJR?= =?us-ascii?Q?Bv1d/SUf5/hrRbQdP262axLW1p3Olb2J+9CfxDkmld0keq0z77W2eK6CUPl7?= =?us-ascii?Q?cK4VcuAXNQ1UqfNzxJe8QLGNW8cjdd6ndT48D2Y/TpzqgF4hm6Ij1W2stPC0?= =?us-ascii?Q?cpvyWdiAq30HNV8OQxceg3xMD7nMJBYxvEZHt43g1HK0wWPRm9MTYNaow+yF?= =?us-ascii?Q?GQrivpnxkvrCD2F1ejn1sfTB3CYe/6LKM9uL6PVsrV8MP7lME0ew5+mAoGxs?= =?us-ascii?Q?GoI=3D?= X-OriginatorOrg: sct-15-20-4755-11-msonline-outlook-80ceb.templateTenant X-MS-Exchange-CrossTenant-Network-Message-Id: 3f6e2a48-ab32-47cd-cf9f-08dbcb2e6415 X-MS-Exchange-CrossTenant-AuthSource: AS8P193MB2413.EURP193.PROD.OUTLOOK.COM X-MS-Exchange-CrossTenant-AuthAs: Internal X-MS-Exchange-CrossTenant-OriginalArrivalTime: 12 Oct 2023 14:20:32.3631 (UTC) X-MS-Exchange-CrossTenant-FromEntityHeader: Hosted X-MS-Exchange-CrossTenant-Id: 84df9e7f-e9f6-40af-b435-aaaaaaaaaaaa X-MS-Exchange-CrossTenant-RMS-PersistedConsumerOrg: 00000000-0000-0000-0000-000000000000 X-MS-Exchange-Transport-CrossTenantHeadersStamped: AM9P193MB1508 Received-SPF: pass client-ip=40.92.66.98; envelope-from=andrea-dev@hotmail.com; helo=EUR01-VE1-obe.outbound.protection.outlook.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, RCVD_IN_MSPIKE_H2=-0.001, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham 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: , Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: emacs-orgmode-bounces+larch=yhetil.org@gnu.org X-Migadu-Country: US X-Migadu-Flow: FLOW_IN X-Migadu-Scanner: mx1.migadu.com X-Migadu-Spam-Score: -6.93 X-Spam-Score: -6.93 X-Migadu-Queue-Id: 8D62863DC7 X-TUID: bluP6Y0Ny/IA Thanks Ihor for the super quick response! On Thu 12 Oct 2023 at 13:04, Ihor Radchenko wrote: > Andrea writes: > >> .... >> Sometimes I get an error on org-babel-load-file saying that >> org-babel-tangle-collect-blocks was called with target-file set to nil. > > May it be possible to provide more details about the error you are > seeing? You can set `debug-on-error' to t and post the backtrace, which > will give more details. Or, better, provide a reproducer. See > https://orgmode.org/manual/Feedback.html#Feedback > This is the full trace I get running "emacs --debug-init" (sorry I should h= ave added it in my bug report): Debugger entered--Lisp error: (wrong-type-argument stringp nil) string-match("\\`\\(?:e\\(?:\\(?:macs-\\)?lisp\\)\\)\\'" nil nil) string-match-p("\\`\\(?:e\\(?:\\(?:macs-\\)?lisp\\)\\)\\'" nil) (not (string-match-p lang-re src-lang)) (and lang-re (not (string-match-p lang-re src-lang))) (or (string=3D src-tfile "no") (and tangle-file (not (equal tangle-fil= e src-tfile))) (and lang-re (not (string-match-p lang-re src-lang)))) (if (or (string=3D src-tfile "no") (and tangle-file (not (equal tangle= -file src-tfile))) (and lang-re (not (string-match-p lang-re src-lang)))) n= il (let* ((block (org-babel-tangle-single-block counter)) (src-tfile (cdr (= assq :tangle (nth 4 block)))) (file-name (org-babel-effective-tangled-filen= ame (nth 1 block) src-lang src-tfile)) (by-fn (assoc file-name blocks))) (i= f by-fn (setcdr by-fn (cons (cons src-lang block) (cdr by-fn))) (setq block= s (cons (cons file-name (list (cons src-lang block))) blocks))))) (let* ((info (org-babel-get-src-block-info 'no-eval)) (src-lang (nth 0= info)) (src-tfile (cdr (assq :tangle (nth 2 info))))) (if (or (string=3D s= rc-tfile "no") (and tangle-file (not (equal tangle-file src-tfile))) (and l= ang-re (not (string-match-p lang-re src-lang)))) nil (let* ((block (org-bab= el-tangle-single-block counter)) (src-tfile (cdr (assq :tangle (nth 4 block= )))) (file-name (org-babel-effective-tangled-filename (nth 1 block) src-lan= g src-tfile)) (by-fn (assoc file-name blocks))) (if by-fn (setcdr by-fn (co= ns (cons src-lang block) (cdr by-fn))) (setq blocks (cons (cons file-name (= list ...)) blocks)))))) (if (or (org-in-commented-heading-p) (org-in-archived-heading-p)) nil = (let* ((info (org-babel-get-src-block-info 'no-eval)) (src-lang (nth 0 info= )) (src-tfile (cdr (assq :tangle (nth 2 info))))) (if (or (string=3D src-tf= ile "no") (and tangle-file (not (equal tangle-file src-tfile))) (and lang-r= e (not (string-match-p lang-re src-lang)))) nil (let* ((block (org-babel-ta= ngle-single-block counter)) (src-tfile (cdr (assq :tangle ...))) (file-name= (org-babel-effective-tangled-filename (nth 1 block) src-lang src-tfile)) (= by-fn (assoc file-name blocks))) (if by-fn (setcdr by-fn (cons (cons src-la= ng block) (cdr by-fn))) (setq blocks (cons (cons file-name ...) blocks)))))= )) (let ((full-block (match-string 0)) (beg-block (match-beginning 0)) (e= nd-block (match-end 0)) (lang (match-string 2)) (beg-lang (match-beginning = 2)) (end-lang (match-end 2)) (switches (match-string 3)) (beg-switches (mat= ch-beginning 3)) (end-switches (match-end 3)) (header-args (match-string 4)= ) (beg-header-args (match-beginning 4)) (end-header-args (match-end 4)) (bo= dy (match-string 5)) (beg-body (match-beginning 5)) (end-body (match-end 5)= )) (ignore full-block beg-block end-block lang beg-lang end-lang switches b= eg-switches end-switches header-args beg-header-args end-header-args body b= eg-body end-body) (let ((current-heading-pos (if (org-element--cache-active= -p) (or (org-element-property :begin (org-element-lineage ... ... t)) 1) (s= ave-excursion (save-restriction (widen) (progn ... ... ... ... ...)))))) (i= f (eq last-heading-pos current-heading-pos) (setq counter (1+ counter)) (se= tq counter 1) (setq last-heading-pos current-heading-pos))) (if (or (org-in= -commented-heading-p) (org-in-archived-heading-p)) nil (let* ((info (org-ba= bel-get-src-block-info 'no-eval)) (src-lang (nth 0 info)) (src-tfile (cdr (= assq :tangle (nth 2 info))))) (if (or (string=3D src-tfile "no") (and tangl= e-file (not (equal tangle-file src-tfile))) (and lang-re (not (string-match= -p lang-re src-lang)))) nil (let* ((block (org-babel-tangle-single-block co= unter)) (src-tfile (cdr ...)) (file-name (org-babel-effective-tangled-filen= ame ... src-lang src-tfile)) (by-fn (assoc file-name blocks))) (if by-fn (s= etcdr by-fn (cons ... ...)) (setq blocks (cons ... blocks))))))) (goto-char= end-block)) (progn (goto-char (match-beginning 0)) (let ((full-block (match-string= 0)) (beg-block (match-beginning 0)) (end-block (match-end 0)) (lang (match= -string 2)) (beg-lang (match-beginning 2)) (end-lang (match-end 2)) (switch= es (match-string 3)) (beg-switches (match-beginning 3)) (end-switches (matc= h-end 3)) (header-args (match-string 4)) (beg-header-args (match-beginning = 4)) (end-header-args (match-end 4)) (body (match-string 5)) (beg-body (matc= h-beginning 5)) (end-body (match-end 5))) (ignore full-block beg-block end-= block lang beg-lang end-lang switches beg-switches end-switches header-args= beg-header-args end-header-args body beg-body end-body) (let ((current-hea= ding-pos (if (org-element--cache-active-p) (or (org-element-property :begin= ...) 1) (save-excursion (save-restriction ... ...))))) (if (eq last-headin= g-pos current-heading-pos) (setq counter (1+ counter)) (setq counter 1) (se= tq last-heading-pos current-heading-pos))) (if (or (org-in-commented-headin= g-p) (org-in-archived-heading-p)) nil (let* ((info (org-babel-get-src-block= -info 'no-eval)) (src-lang (nth 0 info)) (src-tfile (cdr (assq :tangle ...)= ))) (if (or (string=3D src-tfile "no") (and tangle-file (not ...)) (and lan= g-re (not ...))) nil (let* ((block ...) (src-tfile ...) (file-name ...) (by= -fn ...)) (if by-fn (setcdr by-fn ...) (setq blocks ...)))))) (goto-char en= d-block))) (if (org-babel-active-location-p) (progn (goto-char (match-beginning 0= )) (let ((full-block (match-string 0)) (beg-block (match-beginning 0)) (end= -block (match-end 0)) (lang (match-string 2)) (beg-lang (match-beginning 2)= ) (end-lang (match-end 2)) (switches (match-string 3)) (beg-switches (match= -beginning 3)) (end-switches (match-end 3)) (header-args (match-string 4)) = (beg-header-args (match-beginning 4)) (end-header-args (match-end 4)) (body= (match-string 5)) (beg-body (match-beginning 5)) (end-body (match-end 5)))= (ignore full-block beg-block end-block lang beg-lang end-lang switches beg= -switches end-switches header-args beg-header-args end-header-args body beg= -body end-body) (let ((current-heading-pos (if (org-element--cache-active-p= ) (or ... 1) (save-excursion ...)))) (if (eq last-heading-pos current-headi= ng-pos) (setq counter (1+ counter)) (setq counter 1) (setq last-heading-pos= current-heading-pos))) (if (or (org-in-commented-heading-p) (org-in-archiv= ed-heading-p)) nil (let* ((info (org-babel-get-src-block-info ...)) (src-la= ng (nth 0 info)) (src-tfile (cdr ...))) (if (or (string=3D src-tfile "no") = (and tangle-file ...) (and lang-re ...)) nil (let* (... ... ... ...) (if by= -fn ... ...))))) (goto-char end-block)))) (while (re-search-forward org-babel-src-block-regexp nil t) (if (org-b= abel-active-location-p) (progn (goto-char (match-beginning 0)) (let ((full-= block (match-string 0)) (beg-block (match-beginning 0)) (end-block (match-e= nd 0)) (lang (match-string 2)) (beg-lang (match-beginning 2)) (end-lang (ma= tch-end 2)) (switches (match-string 3)) (beg-switches (match-beginning 3)) = (end-switches (match-end 3)) (header-args (match-string 4)) (beg-header-arg= s (match-beginning 4)) (end-header-args (match-end 4)) (body (match-string = 5)) (beg-body (match-beginning 5)) (end-body (match-end 5))) (ignore full-b= lock beg-block end-block lang beg-lang end-lang switches beg-switches end-s= witches header-args beg-header-args end-header-args body beg-body end-body)= (let ((current-heading-pos (if ... ... ...))) (if (eq last-heading-pos cur= rent-heading-pos) (setq counter (1+ counter)) (setq counter 1) (setq last-h= eading-pos current-heading-pos))) (if (or (org-in-commented-heading-p) (org= -in-archived-heading-p)) nil (let* ((info ...) (src-lang ...) (src-tfile ..= .)) (if (or ... ... ...) nil (let* ... ...)))) (goto-char end-block))))) (progn (if file (progn (find-file file))) (setq to-be-removed (current= -buffer)) (goto-char (point-min)) (while (re-search-forward org-babel-src-b= lock-regexp nil t) (if (org-babel-active-location-p) (progn (goto-char (mat= ch-beginning 0)) (let ((full-block (match-string 0)) (beg-block (match-begi= nning 0)) (end-block (match-end 0)) (lang (match-string 2)) (beg-lang (matc= h-beginning 2)) (end-lang (match-end 2)) (switches (match-string 3)) (beg-s= witches (match-beginning 3)) (end-switches (match-end 3)) (header-args (mat= ch-string 4)) (beg-header-args (match-beginning 4)) (end-header-args (match= -end 4)) (body (match-string 5)) (beg-body (match-beginning 5)) (end-body (= match-end 5))) (ignore full-block beg-block end-block lang beg-lang end-lan= g switches beg-switches end-switches header-args beg-header-args end-header= -args body beg-body end-body) (let ((current-heading-pos ...)) (if (eq last= -heading-pos current-heading-pos) (setq counter ...) (setq counter 1) (setq= last-heading-pos current-heading-pos))) (if (or (org-in-commented-heading-= p) (org-in-archived-heading-p)) nil (let* (... ... ...) (if ... nil ...))) = (goto-char end-block)))))) (unwind-protect (progn (if file (progn (find-file file))) (setq to-be-= removed (current-buffer)) (goto-char (point-min)) (while (re-search-forward= org-babel-src-block-regexp nil t) (if (org-babel-active-location-p) (progn= (goto-char (match-beginning 0)) (let ((full-block ...) (beg-block ...) (en= d-block ...) (lang ...) (beg-lang ...) (end-lang ...) (switches ...) (beg-s= witches ...) (end-switches ...) (header-args ...) (beg-header-args ...) (en= d-header-args ...) (body ...) (beg-body ...) (end-body ...)) (ignore full-b= lock beg-block end-block lang beg-lang end-lang switches beg-switches end-s= witches header-args beg-header-args end-header-args body beg-body end-body)= (let (...) (if ... ... ... ...)) (if (or ... ...) nil (let* ... ...)) (got= o-char end-block)))))) (set-window-configuration wconfig)) (let ((wconfig (current-window-configuration))) (unwind-protect (progn= (if file (progn (find-file file))) (setq to-be-removed (current-buffer)) (= goto-char (point-min)) (while (re-search-forward org-babel-src-block-regexp= nil t) (if (org-babel-active-location-p) (progn (goto-char (match-beginnin= g 0)) (let (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (i= gnore full-block beg-block end-block lang beg-lang end-lang switches beg-sw= itches end-switches header-args beg-header-args end-header-args body beg-bo= dy end-body) (let ... ...) (if ... nil ...) (goto-char end-block)))))) (set= -window-configuration wconfig))) (let* ((case-fold-search t) (file (buffer-file-name)) (visited-p (or (= null file) (get-file-buffer (expand-file-name file)))) (point (point)) to-b= e-removed) (let ((wconfig (current-window-configuration))) (unwind-protect = (progn (if file (progn (find-file file))) (setq to-be-removed (current-buff= er)) (goto-char (point-min)) (while (re-search-forward org-babel-src-block-= regexp nil t) (if (org-babel-active-location-p) (progn (goto-char ...) (let= ... ... ... ... ...))))) (set-window-configuration wconfig))) (if visited-= p nil (kill-buffer to-be-removed)) (goto-char point)) (let ((counter 0) last-heading-pos blocks) (let* ((case-fold-search t)= (file (buffer-file-name)) (visited-p (or (null file) (get-file-buffer (exp= and-file-name file)))) (point (point)) to-be-removed) (let ((wconfig (curre= nt-window-configuration))) (unwind-protect (progn (if file (progn (find-fil= e file))) (setq to-be-removed (current-buffer)) (goto-char (point-min)) (wh= ile (re-search-forward org-babel-src-block-regexp nil t) (if (org-babel-act= ive-location-p) (progn ... ...)))) (set-window-configuration wconfig))) (if= visited-p nil (kill-buffer to-be-removed)) (goto-char point)) (mapcar #'(l= ambda (b) (cons (car b) (nreverse (cdr b)))) (nreverse blocks))) org-babel-tangle-collect-blocks("\\`\\(?:e\\(?:\\(?:macs-\\)?lisp\\)\\= )\\'" nil) (if (equal arg '(4)) (org-babel-tangle-single-block 1 t) (org-babel-ta= ngle-collect-blocks lang-re tangle-file)) (mapc #'(lambda (by-fn) (let ((file-name (car by-fn))) (if file-name (= progn (let (... ... modes make-dir she-banged lang) (let ... ...)))))) (if = (equal arg '(4)) (org-babel-tangle-single-block 1 t) (org-babel-tangle-coll= ect-blocks lang-re tangle-file))) (let ((block-counter 0) (org-babel-default-header-args (if target-file= (org-babel-merge-params org-babel-default-header-args (list (cons :tangle = target-file))) org-babel-default-header-args)) (tangle-file (if (equal arg = '(16)) (progn (or (cdr (assq :tangle ...)) (user-error "Point is not in a s= ource code block"))))) path-collector) (mapc #'(lambda (by-fn) (let ((file-= name (car by-fn))) (if file-name (progn (let ... ...))))) (if (equal arg '(= 4)) (org-babel-tangle-single-block 1 t) (org-babel-tangle-collect-blocks la= ng-re tangle-file))) (message "Tangled %d code block%s from %s" block-count= er (if (=3D block-counter 1) "" "s") (file-name-nondirectory (buffer-file-n= ame (or (buffer-base-buffer) (current-buffer) (and (org-src-edit-buffer-p) = (org-src-source-buffer)))))) (if org-babel-post-tangle-hook (progn (mapc #'= (lambda (file) (let* (... ... temp-result temp-file) (org-babel-find-file-n= oselect-refresh temp-path) (setq temp-file ...) (save-current-buffer ... ..= .) (if visited-p nil ...) temp-result)) path-collector))) (run-hooks 'org-b= abel-tangle-finished-hook) path-collector) (save-excursion (if (equal arg '(4)) (progn (let ((head (org-babel-whe= re-is-src-block-head))) (if head (goto-char head) (user-error "Point is not= in a source code block"))))) (let ((block-counter 0) (org-babel-default-he= ader-args (if target-file (org-babel-merge-params org-babel-default-header-= args (list (cons :tangle target-file))) org-babel-default-header-args)) (ta= ngle-file (if (equal arg '(16)) (progn (or (cdr ...) (user-error "Point is = not in a source code block"))))) path-collector) (mapc #'(lambda (by-fn) (l= et ((file-name ...)) (if file-name (progn ...)))) (if (equal arg '(4)) (org= -babel-tangle-single-block 1 t) (org-babel-tangle-collect-blocks lang-re ta= ngle-file))) (message "Tangled %d code block%s from %s" block-counter (if (= =3D block-counter 1) "" "s") (file-name-nondirectory (buffer-file-name (or = (buffer-base-buffer) (current-buffer) (and (org-src-edit-buffer-p) (org-src= -source-buffer)))))) (if org-babel-post-tangle-hook (progn (mapc #'(lambda = (file) (let* ... ... ... ... ... temp-result)) path-collector))) (run-hooks= 'org-babel-tangle-finished-hook) path-collector)) (save-restriction (save-excursion (if (equal arg '(4)) (progn (let ((h= ead (org-babel-where-is-src-block-head))) (if head (goto-char head) (user-e= rror "Point is not in a source code block"))))) (let ((block-counter 0) (or= g-babel-default-header-args (if target-file (org-babel-merge-params org-bab= el-default-header-args (list ...)) org-babel-default-header-args)) (tangle-= file (if (equal arg '...) (progn (or ... ...)))) path-collector) (mapc #'(l= ambda (by-fn) (let (...) (if file-name ...))) (if (equal arg '(4)) (org-bab= el-tangle-single-block 1 t) (org-babel-tangle-collect-blocks lang-re tangle= -file))) (message "Tangled %d code block%s from %s" block-counter (if (=3D = block-counter 1) "" "s") (file-name-nondirectory (buffer-file-name (or (buf= fer-base-buffer) (current-buffer) (and ... ...))))) (if org-babel-post-tang= le-hook (progn (mapc #'(lambda ... ...) path-collector))) (run-hooks 'org-b= abel-tangle-finished-hook) path-collector))) org-babel-tangle(nil "~/workspace/agenda/config.el" "\\`\\(?:e\\(?:\\(= ?:macs-\\)?lisp\\)\\)\\'") (mapcar #'expand-file-name (org-babel-tangle nil target-file lang-re)) (save-restriction (widen) (mapcar #'expand-file-name (org-babel-tangle= nil target-file lang-re))) (save-excursion (save-restriction (widen) (mapcar #'expand-file-name (= org-babel-tangle nil target-file lang-re)))) (save-current-buffer (set-buffer buffer) (save-excursion (save-restric= tion (widen) (mapcar #'expand-file-name (org-babel-tangle nil target-file l= ang-re))))) (prog1 (save-current-buffer (set-buffer buffer) (save-excursion (save-= restriction (widen) (mapcar #'expand-file-name (org-babel-tangle nil target= -file lang-re))))) (if visited nil (kill-buffer buffer))) (let* ((visited (find-buffer-visiting file)) (buffer (or visited (find= -file-noselect file)))) (prog1 (save-current-buffer (set-buffer buffer) (sa= ve-excursion (save-restriction (widen) (mapcar #'expand-file-name (org-babe= l-tangle nil target-file lang-re))))) (if visited nil (kill-buffer buffer))= )) org-babel-tangle-file("~/workspace/agenda/config.org" "~/workspace/age= nda/config.el" "\\`\\(?:e\\(?:\\(?:macs-\\)?lisp\\)\\)\\'") org-babel-load-file("~/workspace/agenda/config.org") (let ((file-name-handler-alist nil) (gc-cons-threshold most-positive-f= ixnum) (gc-cons-percentage 0.6)) (if window-system (progn (menu-bar-mode -1= ) (tool-bar-mode -1) (scroll-bar-mode -1) (tooltip-mode -1))) (add-hook 'fo= cus-out-hook #'garbage-collect) (setq inhibit-startup-message t) (setq load= -prefer-newer t) (require 'package) '(("melpa-stable" . "https://stable.mel= pa.org/packages/") ("melpa" . "https://melpa.org/packages/") ("gnu" . "http= s://elpa.gnu.org/packages/") ("nongnu" . "https://elpa.nongnu.org/nongnu/")= ) (package-initialize) (require 'cl-lib) (if (package-installed-p 'use-pack= age) nil (package-refresh-contents) (package-install 'use-package)) (setq u= se-package-always-ensure t use-package-compute-statistics t) (if (package-i= nstalled-p 'org-contrib) nil (let* ((package--builtins 'nil) (my-packages '= (org diminish)) (missing (remove-if 'package-installed-p my-packages))) (if= missing (progn (package-refresh-contents) (mapc 'package-install missing))= )) (package-refresh-contents) (package-install 'org-contrib)) (require 'use= -package) (require 'diminish) (require 'bind-key) (progn (use-package-ensur= e-elpa 'use-package-ensure-system-package '(t) 'nil) (defvar use-package--w= arning0 #'(lambda (keyword err) (let ((msg ...)) (display-warning 'use-pack= age msg :error)))) (condition-case err (if (not (require 'use-package-ensur= e-system-package nil t)) (display-warning 'use-package (format "Cannot load= %s" 'use-package-ensure-system-package) :error) (condition-case err (progn= (setq system-packages-package-manager (if ... ... ...)) (setq system-packa= ges-use-sudo t) (defalias 'my/check-package-not-installed-already #'...) (a= dvice-add 'system-packages-install :around #'my/check-package-not-installed= -already) t) ((debug error) (funcall use-package--warning0 :config err)))) = ((debug error) (funcall use-package--warning0 :catch err)))) (progn (defvar= use-package--warning1 #'(lambda (keyword err) (let ((msg ...)) (display-wa= rning 'use-package msg :error)))) (condition-case err (if (not (require 'us= e-package-chords nil t)) (display-warning 'use-package (format "Cannot load= %s" 'use-package-chords) :error) (condition-case err (progn (key-chord-mod= e 1) t) ((debug error) (funcall use-package--warning1 :config err)))) ((deb= ug error) (funcall use-package--warning1 :catch err)))) (load "server") (if= (server-running-p) nil (server-start)) (message "--- Start loading config.= el") (setq my/init-file-time (current-time)) (org-babel-load-file "~/worksp= ace/agenda/config.org") (message "--- Finish loading config.el") (message "= Config.el took %s seconds in total" (time-to-seconds (time-subtract (curren= t-time) my/init-file-time)))) eval-buffer(# nil "/home/andrea/.emacs.d/init.el" nil = t) ; Reading at buffer position 3454 load-with-code-conversion("/home/andrea/.emacs.d/init.el" "/home/andre= a/.emacs.d/init.el" t t) load("/home/andrea/.emacs.d/init" noerror nomessage) startup--load-user-init-file(#f(compiled-function () #) #f(compiled-function () #) t) command-line() normal-top-level()