From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id kKREJ41Ou2GzEwEAgWs5BA (envelope-from ) for ; Thu, 16 Dec 2021 15:34:53 +0100 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1 with LMTPS id 8J4HI41Ou2EkIQAAbx9fmQ (envelope-from ) for ; Thu, 16 Dec 2021 14:34:53 +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 E39A69083 for ; Thu, 16 Dec 2021 15:34:52 +0100 (CET) Received: from localhost ([::1]:47316 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mxrqN-0003wM-3l for larch@yhetil.org; Thu, 16 Dec 2021 09:34:51 -0500 Received: from eggs.gnu.org ([209.51.188.92]:57902) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mxrpR-0003wE-Dn for emacs-orgmode@gnu.org; Thu, 16 Dec 2021 09:33:53 -0500 Received: from [2a00:1450:4864:20::42a] (port=46020 helo=mail-wr1-x42a.google.com) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1mxrpL-0003Bp-6H for emacs-orgmode@gnu.org; Thu, 16 Dec 2021 09:33:52 -0500 Received: by mail-wr1-x42a.google.com with SMTP id o13so44485443wrs.12 for ; Thu, 16 Dec 2021 06:33:46 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=mime-version:references:in-reply-to:from:date:message-id:subject:to :cc; bh=n6Re82jC47lEHGJ2u79sLv4NJNq+AaDj/AIXarGIbX4=; b=RsPf/HUbsTZkBhVmD0+NBzaKx+X1/Ib0MLaob8VgoKbpsoMD7Vgnmv074Y7XYaj3YV grijFwLSreoU2E+UpeqNsBMydO+cU0CWDH6x95xPE/KRR44uiZYNytmMoXYwPaeTFh9R 6sRU3epeYvpryRY/2BpUSnr2fvTo7cXKjuBofCj4OkWHbSO1YlWs5P+f1Sq+XUFCqbOF /AUbW97qXWMbL1mxJVNRgselum+JQqLURogYDVdwjK+32eTXzl1kpLZC/wNHIa6l+4Lm ODT7MAe9DQzb8qoE4NHhwAs+p4tmQTeEKPI2x/KiGjSvDcNRCC0DSmtNtbOHOfWwn47L tVMQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:mime-version:references:in-reply-to:from:date :message-id:subject:to:cc; bh=n6Re82jC47lEHGJ2u79sLv4NJNq+AaDj/AIXarGIbX4=; b=8LaUQwTsy9xg2/NsDbpqZoGVqP/Vrc4CUM5kKM7y/QL7n5LG3BIAEtP3uAVkvV/AAE W28TlE6XEWJhsJX5PwvzxsOdCUAkkpBhGSKiSUDabAx8gIn7wM6rC5e9YQA0Nw7DOwm0 zTs/E4USFl8Cnkp1elKQ0rY+QvEdlidGQf1xi4ms7gTu/GmukiCBCCelPnYe4ryr9uh2 PcEn1rcz6Gf+c57qBpSD/uE75YfPqcAeVrokwPlEP5MPz7XZ73XUXi2kO6k0Wa1mvaFN mE5agDDGMx2vNFXEQgCTaqN863o1OG/23GGG079Mp+juiMnvJCFnrPZ8ygKoYlaO/wJk YhIQ== X-Gm-Message-State: AOAM533lpSqwUfc3lg/LkPzqao8Og74t4YaH8p6jy0IEyZuYlrKsdLAW /Rb1n3KZLwdzj4FzcEcjYEGkJkmYp9Gz3U2730K5ySss+VA= X-Google-Smtp-Source: ABdhPJysv8jTRsjczXpokFkgo1AFmrGB7AMHsawf6zC0jkQzNY7z5olmu6nSRiNYjjnE1766R6LNSdKLLf8WdYyA4ds= X-Received: by 2002:a5d:47a8:: with SMTP id 8mr6084856wrb.233.1639665225090; Thu, 16 Dec 2021 06:33:45 -0800 (PST) MIME-Version: 1.0 References: <87y25ztcgr.fsf@localhost> <87bl1hdvuj.fsf@localhost> In-Reply-To: <87bl1hdvuj.fsf@localhost> From: Kaushal Modi Date: Thu, 16 Dec 2021 09:33:08 -0500 Message-ID: Subject: Re: [BUG] org-element--cache gives "Unregistered buffer modifications" warning [9.5 (9.5-g859984 @ /home/john/.emacs.d/straight/build/org/)] To: Ihor Radchenko Content-Type: multipart/alternative; boundary="0000000000004acb3a05d3444f0d" X-Host-Lookup-Failed: Reverse DNS lookup failed for 2a00:1450:4864:20::42a (failed) Received-SPF: pass client-ip=2a00:1450:4864:20::42a; envelope-from=kaushal.modi@gmail.com; helo=mail-wr1-x42a.google.com X-Spam_score_int: -12 X-Spam_score: -1.3 X-Spam_bar: - X-Spam_report: (-1.3 / 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, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_NONE=-0.0001, RDNS_NONE=0.793, SPF_HELO_NONE=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: , Cc: emacs-org list , John Mathena Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Migadu-Flow: FLOW_IN X-Migadu-Country: US ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1639665293; 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:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=n6Re82jC47lEHGJ2u79sLv4NJNq+AaDj/AIXarGIbX4=; b=N3eXJ8HoNOiKILKAhotgR1yYXzwBTahXwa/A8d8idrb31YntBagzMXn/gttxHgzykCgJRL rtsZdCEXWyDX7nkFMpV33MXN66LFxiugDINugmXz0uhnZi4Cd2k28iqZ6uqMFZa8nbZZMk XcDFlhTY9kMs3BmLvPc4X1Yy/vC5cI0531mMozqkl+BOo8inY6ogQjTOegjCsZOBC9Vrur iaCkQp0uXgCwj2TRPYCjFdBE3MQKmwyawrmDgcatQmP/hIKVuZuVFSwvm7TzsX1LVHAeNZ RttNVG+XCkqLY/yFKLO65elULUCgF+5gefcHUZAWtzkeX4x3wYJciRfeTAgyTg== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1639665293; a=rsa-sha256; cv=none; b=ldEBTy0TuLGVKfoyLjFH5GVtewPlf6mvsU4/aqNgkcwRQD5DVEI+kLqnAoVg9S+YikUQY7 CZTscyY20pL1lUjzZsZEejMxCbbiol0vMOKU/v/tRIifqCAIdzxTCWY84stPIW5oy7LPZJ 49H5mxvKwS8HIw/r9MZ0lQ7Qw9h0q7rdgOPsIcewyG0sthhjFnT5B9X4YISqZC8tvLtwzl hUIegZXa3m2ap5G4+6vY+SDJD0PPxdnoukL4lHmX4sxeDtAfcJR+bsCvXtcEr/ylaCyrA4 tgZQE/b6uhCNJq99njpTb4kJHofDeC3IfkNn/EwSpv2d8Ca6NydGLQ/mBdx26g== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=gmail.com header.s=20210112 header.b="RsPf/HUb"; dmarc=fail reason="SPF not aligned (relaxed)" header.from=gmail.com (policy=none); 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" X-Migadu-Spam-Score: -1.89 Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=gmail.com header.s=20210112 header.b="RsPf/HUb"; dmarc=fail reason="SPF not aligned (relaxed)" header.from=gmail.com (policy=none); 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" X-Migadu-Queue-Id: E39A69083 X-Spam-Score: -1.89 X-Migadu-Scanner: scn0.migadu.com X-TUID: 9KSsbNUfrFxx --0000000000004acb3a05d3444f0d Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable > Can you: > 1. Update Org to latest version > 2. set org-element--cache-self-verify to 'backtrace > 3. set org-element--cache-self-verify-frequency to 1.0 > 4. Try to reproduce the warning you are seeing > 5. If you still see it, post the full warning text including the > backtrace (below the warning). > Hi Ihor, I updated Org to Org mode version 9.5 (release_9.5-364-gde022e @ /home/kmodi/usr_local/apps/7/emacs/emacs-28/share/emacs/site-lisp/org/) I am using the latest build of emacs-28 branch: =3D=3D=3D=3D=3D Emacs version: GNU Emacs 28.0.90 (build 2, x86_64-pc-linux-gnu, GTK+ Version 3.22.30, cairo version 1.15.12) of 2021-12-16, built using commit 1e578267fb19208504d28253e0c892ceb9a34fb4= . ./configure options: --prefix=3D/home/kmodi/usr_local/apps/7/emacs/emacs-28 '--program-transform-name=3Ds/^ctags$/ctags_emacs/' --with-modules --with-harfbuzz --with-native-compilation --enable-checking=3Dyes,glyphs --enable-check-lisp-object-type CPPFLAGS=3D-I/home/kmodi/stowed/7/include 'CFLAGS=3D-ggdb3 -Og' 'CXXFLAGS=3D-ggdb3 -Og' 'LDFLAGS=3D-L/home/kmodi/stowed/7/lib -L/home/kmodi/stowed/7/lib64 -ggdb3' Features: ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG LIBOTF LIBSELINUX LIBXML2 MODULES NATIVE_COMP NOTIFY INOTIFY PDUMPER PNG RSVG SECCOMP SOUND THREADS TIFF TOOLKIT_SCROLL_BARS X11 XDBE XIM XPM GTK3 ZLIB =3D=3D=3D=3D=3D I also set those 2 variables and then exported the ox-hugo-manual.org[1] using ox-hugo and get those warnings[2]. Steps to reproduce this issue (after setting those variables as suggested above): 1. Install ox-hugo from MELPA and require it 2. Download the ox-hugo-manual.org[1] 3. Take point to anywhere inside a subtree with :EXPROT_FILE_NAME: property (e.g. under the * Org Special Blocks subtree around line 3038) 4. C-c C-e H A (this will export all the valid subtrees in that file using ox-hugo) 5. The exports abruptly stop around half way due to this error (this error doesn't always get thrown at the same point): =3D=3D=3D=3D=3D org-babel-exp process org at position 59086... org-babel-exp process org at position 59385... org-babel-exp process org at position 60069... org-babel-exp process org at position 60740... org-babel-exp process org at position 63055... Saving file /home/kmodi/stow/pub_dotfiles/emacs/dot-emacs.d/elisp/ox-hugo/doc/content/d= oc/image-links.md... Wrote /home/kmodi/stow/pub_dotfiles/emacs/dot-emacs.d/elisp/ox-hugo/doc/content/d= oc/image-links.md [ox-hugo] 21/ Exporting =E2=80=98Source blocks=E2=80=99 .. org-element--cache-process-request: Format specifier doesn=E2=80=99t match = argument type (I have an advice applied in between: modi/advice-org-tangle-and-export-boost. But it's unrelated to this error.) Debugger entered--Lisp error: (error "Format specifier doesn=E2=80=99t matc= h argument type") format("org-element-cache diagnostics( *temp*-467986): Rea..." # "(headline (:raw-value \"Menus\" :begin 28167 :end 14...") org-element--cache-process-request([26673 26673 25896 1 (paragraph (:begin 26634 :end 26674 :contents-begin 26634 :contents-end 26674 :post-blank 0 :post-affiliated 26634 :mode nil :granularity element :org-element--cache-sync-key (76 26672 1152921504606846975) :cached t :parent (item (:bullet "8. " :begin 26631 :end 26674 :contents-begin 26634 :contents-end 26674 :checkbox nil :counter nil :structure ((26009 0 "1. " nil nil nil 26029) (26029 0 "2. " nil nil nil 26145) (26145 0 "3. " nil nil nil 26167) (26167 0 "4. " nil nil nil 26346) (26226 3 "- " nil nil nil 26346) (26346 0 "5. " nil nil nil 26462) (26389 3 "- " nil nil nil 26462) (26462 0 "6. " nil nil nil 26564) (26564 0 "7. " nil nil nil 26631) (26631 0 "8. " nil nil nil 26674)) :pre-blank 0 :post-blank 0 :post-affiliated 26631 :tag nil :mode item :granularity element :org-element--cache-sync-key (76 26672 -1) :cached t :parent (plain-list (:type ordered :begin 26009 :end 26674 :contents-begin 26009 :contents-end 26674 :structure ... :post-blank 0 :post-affiliated 26009 :mode nil :granularity element :org-element--cache-sync-key ... :cached t :parent ...)))))) 2] nil # nil nil) org-element--cache-sync(# #) org-element-at-point(#) org-element-cache-map(#f(compiled-function (el) #) :next-re "^\\*+ " :fail-re "^\\*+ " :narrow t) org-scan-tags(#f(compiled-function () #) t nil nil) org-map-entries(#f(compiled-function () #)) org-export--prepare-file-contents("/home/kmodi/stow/pub_dotfiles/emacs/dot-= emacs.d/el..." "548-589" 0 4 1 # "/home/kmodi/stow/pub_dotfiles/emacs/dot-emacs.d/el...") org-export-expand-include-keyword() org-export-as(hugo :subtreep nil nil (:output-file "/home/kmodi/stow/pub_dotfiles/emacs/dot-emacs.d/el...")) #f(compiled-function (backend file &optional async subtreep visible-only body-only ext-plist post-process) "Call `org-export-as' with output to a specified file.\n\nBACKEND is either an export back-end, as returned by, e.g.,\n`org-export-create-backend', or a symbol referring to\na registered back-end. FILE is the name of the output file, as\na string.\n\nA non-nil optional argument ASYNC means the process should happen\nasynchronously. The resulting buffer will then be accessible\nthrough the `org-export-stack' interface.\n\nOptional arguments SUBTREEP, VISIBLE-ONLY, BODY-ONLY and\nEXT-PLIST are similar to those used in `org-export-as', which\nsee.\n\nOptional argument POST-PROCESS is called with FILE as its\nargument and happens asynchronously when ASYNC is non-nil. It\nhas to return a file name, or nil. Export back-ends can use this\nto send the output file through additional processing, e.g,\n\n (defun org-latex-export-to-latex\n (&optional async subtreep visible-only body-only ext-plist)\n (interactive)\n (let ((outfile (org-export-output-file-name \".tex\" subtreep)))\n (org-export-to-file \\=3D'latex outfile\n async subtreep visible-on= ly body-only ext-plist\n #'org-latex-compile)))\n\nWhen expressed as an anonymous function, using `lambda',\nPOST-PROCESS needs to be quoted.\n\nThe function returns either a file name returned by POST-PROCESS,\nor FILE." #)(hugo "/home/kmodi/stow/pub_dotfiles/emacs/dot-emacs.d/el..." nil :subtreep nil) apply(#f(compiled-function (backend file &optional async subtreep visible-only body-only ext-plist post-process) "Call `org-export-as' with output to a specified file.\n\nBACKEND is either an export back-end, as returned by, e.g.,\n`org-export-create-backend', or a symbol referring to\na registered back-end. FILE is the name of the output file, as\na string.\n\nA non-nil optional argument ASYNC means the process should happen\nasynchronously. The resulting buffer will then be accessible\nthrough the `org-export-stack' interface.\n\nOptional arguments SUBTREEP, VISIBLE-ONLY, BODY-ONLY and\nEXT-PLIST are similar to those used in `org-export-as', which\nsee.\n\nOptional argument POST-PROCESS is called with FILE as its\nargument and happens asynchronously when ASYNC is non-nil. It\nhas to return a file name, or nil. Export back-ends can use this\nto send the output file through additional processing, e.g,\n\n (defun org-latex-export-to-latex\n (&optional async subtreep visible-only body-only ext-plist)\n (interactive)\n (let ((outfile (org-export-output-file-name \".tex\" subtreep)))\n (org-export-to-file \\=3D'latex outfile\n async subtreep visible-on= ly body-only ext-plist\n #'org-latex-compile)))\n\nWhen expressed as an anonymous function, using `lambda',\nPOST-PROCESS needs to be quoted.\n\nThe function returns either a file name returned by POST-PROCESS,\nor FILE." #) (hugo "/home/kmodi/stow/pub_dotfiles/emacs/dot-emacs.d/el..." nil :subtreep nil)) (prog1 (apply orig-fun args) (if projectile-enabled (progn (add-hook 'find-file-hook #'projectile-find-file-hook-function) (advice-add 'delete-file :before #'delete-file-projectile-remove-from-cache))) (setq gc-cons-threshold orig-gc-thresh) (message "exec time: %S" (float-time (time-since t1)))) (let ((orig-gc-thresh gc-cons-threshold) (projectile-enabled (and (fboundp #'projectile-mode) projectile-mode)) (t1 (current-time))) (setq gc-cons-threshold (* 200 1024 1024)) (if projectile-enabled (progn (remove-hook 'find-file-hook #'projectile-find-file-hook-function) (advice-remove 'delete-file #'delete-file-projectile-remove-from-cache))) (prog1 (apply orig-fun args) (if projectile-enabled (progn (add-hook 'find-file-hook #'projectile-find-file-hook-function) (advice-add 'delete-file :before #'delete-file-projectile-remove-from-cache))) (setq gc-cons-threshold orig-gc-thresh) (message "exec time: %S" (float-time (time-since t1))))) modi/advice-org-tangle-and-export-boost(#f(compiled-function (backend file &optional async subtreep visible-only body-only ext-plist post-process) "Call `org-export-as' with output to a specified file.\n\nBACKEND is either an export back-end, as returned by, e.g.,\n`org-export-create-backend', or a symbol referring to\na registered back-end. FILE is the name of the output file, as\na string.\n\nA non-nil optional argument ASYNC means the process should happen\nasynchronously. The resulting buffer will then be accessible\nthrough the `org-export-stack' interface.\n\nOptional arguments SUBTREEP, VISIBLE-ONLY, BODY-ONLY and\nEXT-PLIST are similar to those used in `org-export-as', which\nsee.\n\nOptional argument POST-PROCESS is called with FILE as its\nargument and happens asynchronously when ASYNC is non-nil. It\nhas to return a file name, or nil. Export back-ends can use this\nto send the output file through additional processing, e.g,\n\n (defun org-latex-export-to-latex\n (&optional async subtreep visible-only body-only ext-plist)\n (interactive)\n (let ((outfile (org-export-output-file-name \".tex\" subtreep)))\n (org-export-to-file \\=3D'latex outfile\n async subtreep visible-on= ly body-only ext-plist\n #'org-latex-compile)))\n\nWhen expressed as an anonymous function, using `lambda',\nPOST-PROCESS needs to be quoted.\n\nThe function returns either a file name returned by POST-PROCESS,\nor FILE." #) hugo "/home/kmodi/stow/pub_dotfiles/emacs/dot-emacs.d/el..." nil :subtreep nil) apply(modi/advice-org-tangle-and-export-boost #f(compiled-function (backend file &optional async subtreep visible-only body-only ext-plist post-process) "Call `org-export-as' with output to a specified file.\n\nBACKEND is either an export back-end, as returned by, e.g.,\n`org-export-create-backend', or a symbol referring to\na registered back-end. FILE is the name of the output file, as\na string.\n\nA non-nil optional argument ASYNC means the process should happen\nasynchronously. The resulting buffer will then be accessible\nthrough the `org-export-stack' interface.\n\nOptional arguments SUBTREEP, VISIBLE-ONLY, BODY-ONLY and\nEXT-PLIST are similar to those used in `org-export-as', which\nsee.\n\nOptional argument POST-PROCESS is called with FILE as its\nargument and happens asynchronously when ASYNC is non-nil. It\nhas to return a file name, or nil. Export back-ends can use this\nto send the output file through additional processing, e.g,\n\n (defun org-latex-export-to-latex\n (&optional async subtreep visible-only body-only ext-plist)\n (interactive)\n (let ((outfile (org-export-output-file-name \".tex\" subtreep)))\n (org-export-to-file \\=3D'latex outfile\n async subtreep visible-on= ly body-only ext-plist\n #'org-latex-compile)))\n\nWhen expressed as an anonymous function, using `lambda',\nPOST-PROCESS needs to be quoted.\n\nThe function returns either a file name returned by POST-PROCESS,\nor FILE." #) (hugo "/home/kmodi/stow/pub_dotfiles/emacs/dot-emacs.d/el..." nil :subtreep nil)) org-export-to-file(hugo "/home/kmodi/stow/pub_dotfiles/emacs/dot-emacs.d/el..." nil :subtreep nil) (prog1 (org-export-to-file 'hugo outfile async subtreep visible-only) (org-hugo--after-export-function info outfile)) (let* ((org-use-property-inheritance (org-hugo--selective-property-inheritance)) (info (org-combine-plists (org-export--get-export-attributes 'hugo subtreep visible-only) (org-export--get-buffer-attributes) (org-export-get-environment 'hugo subtreep))) (pub-dir (org-hugo--get-pub-dir info)) (outfile (org-export-output-file-name ".md" subtreep pub-dir))) (prog1 (org-export-to-file 'hugo outfile async subtreep visible-only) (org-hugo--after-export-function info outfile))) org-hugo-export-to-md(nil :subtreep nil) (setq ret (org-hugo-export-to-md async :subtreep visible-only)) (if all-subtrees (setq ret (org-hugo-export-to-md async :subtreep visible-only)) (let ((current-outline-path (org-get-outline-path :with-self)) (buffer (org-hugo--get-pre-processed-buffer))) (save-current-buffer (set-buffer buffer) (goto-char (org-find-olp current-outline-path :this-buffer)) (setq ret (org-hugo-export-to-md async :subtreep visible-only))) (kill-buffer buffer))) (cond (is-commented (message "[ox-hugo] `%s' was not exported as that subtree is..." title)) (is-excluded (message "[ox-hugo] `%s' was not exported as it is tagged wi..." title matched-exclude-tag)) (t (if all-subtrees (progn (setq org-hugo--subtree-count (1+ org-hugo--subtree-count)) (message "[ox-hugo] %d/ Exporting `%s' .." org-hugo--subtree-count title)) (message "[ox-hugo] Exporting `%s' .." title)) (if (or (or (org-entry-get nil "EXPORT_HUGO_MENU" :inherit) (save-excursion (goto-char (point-min)) (let (...) (re-search-forward "^#\\+hugo_menu:.*:menu" nil :noerror)))) (or (let ((page-or-taxonomy-weight ...)) (and (stringp page-or-taxonomy-weight) (string-match-p "auto" page-or-taxonomy-weight))) (save-excursion (goto-char (point-min)) (let (...) (re-search-forward "^#\\+hugo_weight:.*auto" nil :noerror))))) (progn (setq org-hugo--subtree-coord (org-hugo--get-post-subtree-coordinates subtree)))) (if all-subtrees (setq ret (org-hugo-export-to-md async :subtreep visible-only)) (let ((current-outline-path (org-get-outline-path :with-self)) (buffer (org-hugo--get-pre-processed-buffer))) (save-current-buffer (set-buffer buffer) (goto-char (org-find-olp current-outline-path :this-buffer)) (setq ret (org-hugo-export-to-md async :subtreep visible-only))) (kill-buffer buffer))))) (let ((title (org-element-property :title subtree))) (cond (is-commented (message "[ox-hugo] `%s' was not exported as that subtree is..." title)) (is-excluded (message "[ox-hugo] `%s' was not exported as it is tagged wi..." title matched-exclude-tag)) (t (if all-subtrees (progn (setq org-hugo--subtree-count (1+ org-hugo--subtree-count)) (message "[ox-hugo] %d/ Exporting `%s' .." org-hugo--subtree-count title)) (message "[ox-hugo] Exporting `%s' .." title)) (if (or (or (org-entry-get nil "EXPORT_HUGO_MENU" :inherit) (save-excursion (goto-char ...) (let ... ...))) (or (let (...) (and ... ...)) (save-excursion (goto-char ...) (let ... ...)))) (progn (setq org-hugo--subtree-coord (org-hugo--get-post-subtree-coordinates subtree)))) (if all-subtrees (setq ret (org-hugo-export-to-md async :subtreep visible-only)) (let ((current-outline-path (org-get-outline-path :with-self)) (buffer (org-hugo--get-pre-processed-buffer))) (save-current-buffer (set-buffer buffer) (goto-char (org-find-olp current-outline-path :this-buffer)) (setq ret (org-hugo-export-to-md async :subtreep visible-only))) (kill-buffer buffer)))))) (let* ((info (org-combine-plists (org-export--get-export-attributes 'hugo subtree visible-only) (org-export--get-buffer-attributes) (org-export-get-environment 'hugo subtree))) (exclude-tags (plist-get info :exclude-tags)) (is-commented (org-element-property :commentedp subtree)) is-excluded matched-exclude-tag ret) (let ((all-tags (let ((org-use-tag-inheritance t)) (org-hugo--get-tags)))) (if all-tags (progn (let ((--dolist-tail-- exclude-tags)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...))))))) (let ((title (org-element-property :title subtree))) (cond (is-commented (message "[ox-hugo] `%s' was not exported as that subtree is..." title)) (is-excluded (message "[ox-hugo] `%s' was not exported as it is tagged wi..." title matched-exclude-tag)) (t (if all-subtrees (progn (setq org-hugo--subtree-count (1+ org-hugo--subtree-count)) (message "[ox-hugo] %d/ Exporting `%s' .." org-hugo--subtree-count title)) (message "[ox-hugo] Exporting `%s' .." title)) (if (or (or (org-entry-get nil "EXPORT_HUGO_MENU" :inherit) (save-excursion ... ...)) (or (let ... ...) (save-excursion ... ...))) (progn (setq org-hugo--subtree-coord (org-hugo--get-post-subtree-coordinates subtree)))) (if all-subtrees (setq ret (org-hugo-export-to-md async :subtreep visible-only)) (let ((current-outline-path ...) (buffer ...)) (save-current-buffer (set-buffer buffer) (goto-char ...) (setq ret ...)) (kill-buffer buffer)))))) ret) (if subtree (let* ((info (org-combine-plists (org-export--get-export-attributes 'hugo subtree visible-only) (org-export--get-buffer-attributes) (org-export-get-environment 'hugo subtree))) (exclude-tags (plist-get info :exclude-tags)) (is-commented (org-element-property :commentedp subtree)) is-excluded matched-exclude-tag ret) (let ((all-tags (let ((org-use-tag-inheritance t)) (org-hugo--get-tags)))) (if all-tags (progn (let ((--dolist-tail-- exclude-tags)) (while --dolist-tail-- (let ... ... ...)))))) (let ((title (org-element-property :title subtree))) (cond (is-commented (message "[ox-hugo] `%s' was not exported as that subtree is..." title)) (is-excluded (message "[ox-hugo] `%s' was not exported as it is tagged wi..." title matched-exclude-tag)) (t (if all-subtrees (progn (setq org-hugo--subtree-count ...) (message "[ox-hugo] %d/ Exporting `%s' .." org-hugo--subtree-count title)) (message "[ox-hugo] Exporting `%s' .." title)) (if (or (or ... ...) (or ... ...)) (progn (setq org-hugo--subtree-coord ...))) (if all-subtrees (setq ret (org-hugo-export-to-md async :subtreep visible-only)) (let (... ...) (save-current-buffer ... ... ...) (kill-buffer buffer)))))) ret) (let ((valid-subtree-found (catch 'break (org-map-entries #'(lambda nil ...) "EXPORT_FILE_NAME<>\"\"")))) (if valid-subtree-found (progn (message "Point is not in a valid Hugo post subtree; move to..."))) valid-subtree-found)) (let ((subtree (org-hugo--get-valid-subtree))) (if subtree (let* ((info (org-combine-plists (org-export--get-export-attributes 'hugo subtree visible-only) (org-export--get-buffer-attributes) (org-export-get-environment 'hugo subtree))) (exclude-tags (plist-get info :exclude-tags)) (is-commented (org-element-property :commentedp subtree)) is-excluded matched-exclude-tag ret) (let ((all-tags (let (...) (org-hugo--get-tags)))) (if all-tags (progn (let (...) (while --dolist-tail-- ...))))) (let ((title (org-element-property :title subtree))) (cond (is-commented (message "[ox-hugo] `%s' was not exported as that subtree is..." title)) (is-excluded (message "[ox-hugo] `%s' was not exported as it is tagged wi..." title matched-exclude-tag)) (t (if all-subtrees (progn ... ...) (message "[ox-hugo] Exporting `%s' .." title)) (if (or ... ...) (progn ...)) (if all-subtrees (setq ret ...) (let ... ... ...))))) ret) (let ((valid-subtree-found (catch 'break (org-map-entries #'... "EXPORT_FILE_NAME<>\"\"")))) (if valid-subtree-found (progn (message "Point is not in a valid Hugo post subtree; move to..."))) valid-subtree-found))) org-hugo--export-subtree-to-md(nil nil :all-subtrees) (closure ((buffer . #>) (wconfig . #) (ret) (f-or-b-name . " ox-hugo-manual.org") (noerror) (visible-only) (async) (all-subtrees . :all-subtrees) t) nil (org-hugo--export-subtree-to-md async visible-only :all-subtrees))() #f(compiled-function (el) #)((headline (:raw-value "Contributing Guide" :begin 142869 :end 143030 :pre-blank 0 :contents-begin 142892 :contents-end 143030 :robust-begin 142948 :robust-end 143028 :level 3 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 142869 :EXPORT_FILE_NAME "contributing-guide" :title "Contributing Guide" :mode nil :granularity element :cached t :parent (headline (:raw-value "Meta" :begin 140460 :end 143253 :pre-blank 0 :contents-begin 140468 :contents-end 143253 :robust-begin 140520 :robust-end 143251 :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 140460 :EXPORT_HUGO_MENU ":menu \"7.meta\"" :title "Meta" :mode nil :granularity element :cached t :parent (headline (:raw-value "Menus" :begin 28210 :end 143253 :pre-blank 0 :contents-begin 28218 :contents-end 143253 :robust-begin 28220 :robust-end 143251 :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 28210 :title "Menus" :mode nil :granularity element :cached t :parent (org-data ...)))))))) org-element-cache-map(#f(compiled-function (el) #) :next-re "^\\*+ " :fail-re "^\\*+ " :narrow t) org-scan-tags((closure ((buffer . #>) (wconfig . #) (ret) (f-or-b-name . "ox-hugo-manual.org") (noerror) (visible-only) (async) (all-subtrees . :all-subtrees) t) nil (org-hugo--export-subtree-to-md async visible-only :all-subtrees)) (lambda (todo tags-list level) (progn (setq org-cached-props nil) (or (and (org-string<> (or (org-cached-entry-get nil "EXPORT_FILE_NAME") "") ""))))) nil nil) org-map-entries((closure ((buffer . #>) (wconfig . #) (ret) (f-or-b-name . "ox-hugo-manual.org") (noerror) (visible-only) (async) (all-subtrees . :all-subtrees) t) nil (org-hugo--export-subtree-to-md async visible-only :all-subtrees)) "EXPORT_FILE_NAME<>\"\"") (setq ret (org-map-entries #'(lambda nil (org-hugo--export-subtree-to-md async visible-only :all-subtrees)) "EXPORT_FILE_NAME<>\"\"")) (save-current-buffer (set-buffer buffer) (setq ret (org-map-entries #'(lambda nil (org-hugo--export-subtree-to-md async visible-only :all-subtrees)) "EXPORT_FILE_NAME<>\"\"")) (kill-buffer buffer)) (let ((buffer (org-hugo--get-pre-processed-buffer))) (save-current-buffer (set-buffer buffer) (setq ret (org-map-entries #'(lambda nil (org-hugo--export-subtree-to-md async visible-only :all-subtrees)) "EXPORT_FILE_NAME<>\"\"")) (kill-buffer buffer))) (progn (setq org-hugo--subtree-count 0) (let ((buffer (org-hugo--get-pre-processed-buffer))) (save-current-buffer (set-buffer buffer) (setq ret (org-map-entries #'(lambda nil (org-hugo--export-subtree-to-md async visible-only :all-subtrees)) "EXPORT_FILE_NAME<>\"\"")) (kill-buffer buffer))) (if ret (message "[ox-hugo] Exported %d subtree%s from %s" org-hugo--subtree-count (if (=3D = 1 org-hugo--subtree-count) "" "s") f-or-b-name) (message "[ox-hugo] No valid Hugo post subtrees were found"))) (if all-subtrees (progn (setq org-hugo--subtree-count 0) (let ((buffer (org-hugo--get-pre-processed-buffer))) (save-current-buffer (set-buffer buffer) (setq ret (org-map-entries #'(lambda nil ...) "EXPORT_FILE_NAME<>\"\"")) (kill-buffer buffer))) (if ret (message "[ox-hugo] Exported %d subtree%s from %s" org-hugo--subtree-count (if (=3D = 1 org-hugo--subtree-count) "" "s") f-or-b-name) (message "[ox-hugo] No valid Hugo post subtrees were found"))) (setq ret (org-hugo--export-subtree-to-md async visible-only))) (save-excursion (if all-subtrees (progn (setq org-hugo--subtree-count 0) (let ((buffer (org-hugo--get-pre-processed-buffer))) (save-current-buffer (set-buffer buffer) (setq ret (org-map-entries #'... "EXPORT_FILE_NAME<>\"\"")) (kill-buffer buffer))) (if ret (message "[ox-hugo] Exported %d subtree%s from %s" org-hugo--subtree-count (if (=3D = 1 org-hugo--subtree-count) "" "s") f-or-b-name) (message "[ox-hugo] No valid Hugo post subtrees were found"))) (setq ret (org-hugo--export-subtree-to-md async visible-only))) (if ret nil (setq ret (org-hugo--export-file-to-md f-or-b-name async visible-only noerror)))) (save-restriction (widen) (save-excursion (if all-subtrees (progn (setq org-hugo--subtree-count 0) (let ((buffer (org-hugo--get-pre-processed-buffer))) (save-current-buffer (set-buffer buffer) (setq ret (org-map-entries ... "EXPORT_FILE_NAME<>\"\"")) (kill-buffer buffer))) (if ret (message "[ox-hugo] Exported %d subtree%s from %s" org-hugo--subtree-count (if (=3D 1 org-hugo--subtree-count) "" "s"= ) f-or-b-name) (message "[ox-hugo] No valid Hugo post subtrees were found"))) (setq ret (org-hugo--export-subtree-to-md async visible-only))) (if ret nil (setq ret (org-hugo--export-file-to-md f-or-b-name async visible-only noerror))))) (progn (save-restriction (widen) (save-excursion (if all-subtrees (progn (setq org-hugo--subtree-count 0) (let ((buffer ...)) (save-current-buffer (set-buffer buffer) (setq ret ...) (kill-buffer buffer))) (if ret (message "[ox-hugo] Exported %d subtree%s from %s" org-hugo--subtree-count (if ... "" "s") f-or-b-name) (message "[ox-hugo] No valid Hugo post subtrees were found"))) (setq ret (org-hugo--export-subtree-to-md async visible-only))) (if ret nil (setq ret (org-hugo--export-file-to-md f-or-b-name async visible-only noerror)))))) (unwind-protect (progn (save-restriction (widen) (save-excursion (if all-subtrees (progn (setq org-hugo--subtree-count 0) (let (...) (save-current-buffer ... ... ...)) (if ret (message "[ox-hugo] Exported %d subtree%s from %s" org-hugo--subtree-count ... f-or-b-name) (message "[ox-hugo] No valid Hugo post subtrees were found"))) (setq ret (org-hugo--export-subtree-to-md async visible-only))) (if ret nil (setq ret (org-hugo--export-file-to-md f-or-b-name async visible-only noerror)))))) (set-window-configuration wconfig)) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (save-restriction (widen) (save-excursion (if all-subtrees (progn (setq org-hugo--subtree-count 0) (let ... ...) (if ret ... ...)) (setq ret (org-hugo--export-subtree-to-md async visible-only))) (if ret nil (setq ret (org-hugo--export-file-to-md f-or-b-name async visible-only noerror)))))) (set-window-configuration wconfig))) (let ((f-or-b-name (if (buffer-file-name) (file-name-nondirectory (buffer-file-name)) (buffer-name))) ret) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (save-restriction (widen) (save-excursion (if all-subtrees (progn ... ... ...) (setq ret ...)) (if ret nil (setq ret ...))))) (set-window-configuration wconfig))) ret) org-hugo-export-wim-to-md(:all-subtrees nil nil) (lambda (a _s v _b) (org-hugo-export-wim-to-md :all-subtrees a v))(nil nil nil nil) org-export-dispatch(nil) funcall-interactively(org-export-dispatch nil) call-interactively(org-export-dispatch nil nil) command-execute(org-export-dispatch) =3D=3D=3D=3D=3D 5. But you should still see a *Warnings* buffer with content similar to [2]= . [1]: https://raw.githubusercontent.com/kaushalmodi/ox-hugo/main/doc/ox-hugo-manu= al.org [2]: http://ix.io/3IA7 --0000000000004acb3a05d3444f0d Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable

Can you:
1. Update Org to latest version
2. set org-element--cache-self-verify to 'backtrace
3. set org-element--cache-self-verify-frequency to 1.0
4. Try to reproduce the warning you are seeing
5. If you still see it, post the full warning text including the
=C2=A0 =C2=A0backtrace (below the warning).

=
Hi Ihor,

I updated Org to

=
Org mode version 9.5 (release_9.5-364-gde022e @ /home/kmodi/usr_= local/apps/7/emacs/emacs-28/share/emacs/site-lisp/org/)

I am using the latest build of emacs-28 branch:

<= div>=3D=3D=3D=3D=3D
Emacs version: GNU Emacs 28.0.90 (build 2= , x86_64-pc-linux-gnu, GTK+ Version 3.22.30, cairo version 1.15.12)
=C2= =A0of 2021-12-16, built using commit 1e578267fb19208504d28253e0c892ceb9a34f= b4.

./configure options:
=C2=A0 --prefix=3D/home/kmodi/usr_local/= apps/7/emacs/emacs-28 '--program-transform-name=3Ds/^ctags$/ctags_emacs= /' --with-modules --with-harfbuzz --with-native-compilation --enable-ch= ecking=3Dyes,glyphs --enable-check-lisp-object-type CPPFLAGS=3D-I/home/kmod= i/stowed/7/include 'CFLAGS=3D-ggdb3 -Og' 'CXXFLAGS=3D-ggdb3 -Og= ' 'LDFLAGS=3D-L/home/kmodi/stowed/7/lib -L/home/kmodi/stowed/7/lib6= 4 -ggdb3'

Features:
=C2=A0 ACL CAIRO DBUS FREETYPE GIF GLIB G= MP GNUTLS GPM GSETTINGS HARFBUZZ JPEG LIBOTF LIBSELINUX LIBXML2 MODULES NAT= IVE_COMP NOTIFY INOTIFY PDUMPER PNG RSVG SECCOMP SOUND THREADS TIFF TOOLKIT= _SCROLL_BARS X11 XDBE XIM XPM GTK3 ZLIB
=3D=3D=3D=3D=3D
=

I also set those 2 variables and then exported the ox-hugo-manual.org[1] using ox-hugo a= nd get those warnings[2].

Steps to reproduce this = issue (after setting those variables as suggested above):

1. Install ox-hugo from MELPA and require it
2. Download the=20 ox-hugo-manual.org[1]
<= div>3. Take point to anywhere inside a subtree with :EXPROT_FILE_NAME: prop= erty (e.g. under the * Org Special Blocks subtree around line 3038)
4. C-c C-e H A (this will export all the valid subtrees in that file usi= ng ox-hugo)
5. The exports abruptly stop around half way due to t= his error (this error doesn't always get thrown at the same point):

=3D=3D=3D=3D=3D
org-babel-exp process org at= position 59086...
org-babel-exp process org at position 59385...
org= -babel-exp process org at position 60069...
org-babel-exp process org at= position 60740...
org-babel-exp process org at position 63055...
Sav= ing file /home/kmodi/stow/pub_dotfiles/emacs/dot-emacs.d/elisp/ox-hugo/doc/= content/doc/image-links.md...
Wrote /home/kmodi/stow/pub_dotfiles/emacs/= dot-emacs.d/elisp/ox-hugo/doc/content/doc/image-links.md
[ox-hugo] 21/ E= xporting =E2=80=98Source blocks=E2=80=99 ..
org-element--cache-proc= ess-request: Format specifier doesn=E2=80=99t match argument type

(I have an advice applied in between:=20 modi/advice-org-tangle-and-export-boost. But it's unrelated to this err= or.)

Debugger entered--Lisp error: (error "Fo= rmat specifier doesn=E2=80=99t match argument type")
=C2=A0 format(= "org-element-cache diagnostics( *temp*-467986): Rea..." #<mark= er at 26674 in =C2=A0*temp*-467986> "(headline (:raw-value \"M= enus\" :begin 28167 :end 14...")
=C2=A0 org-element--cache-pro= cess-request([26673 26673 25896 1 (paragraph (:begin 26634 :end 26674 :cont= ents-begin 26634 :contents-end 26674 :post-blank 0 :post-affiliated 26634 := mode nil :granularity element :org-element--cache-sync-key (76 26672 115292= 1504606846975) :cached t :parent (item (:bullet "8. " :begin 2663= 1 :end 26674 :contents-begin 26634 :contents-end 26674 :checkbox nil :count= er nil :structure ((26009 0 "1. " nil nil nil 26029) (26029 0 &qu= ot;2. " nil nil nil 26145) (26145 0 "3. " nil nil nil 26167)= (26167 0 "4. " nil nil nil 26346) (26226 3 "- " nil ni= l nil 26346) (26346 0 "5. " nil nil nil 26462) (26389 3 "- &= quot; nil nil nil 26462) (26462 0 "6. " nil nil nil 26564) (26564= 0 "7. " nil nil nil 26631) (26631 0 "8. " nil nil nil = 26674)) :pre-blank 0 :post-blank 0 :post-affiliated 26631 :tag nil :mode it= em :granularity element :org-element--cache-sync-key (76 26672 -1) :cached = t :parent (plain-list (:type ordered :begin 26009 :end 26674 :contents-begi= n 26009 :contents-end 26674 :structure ... :post-blank 0 :post-affiliated 2= 6009 :mode nil :granularity element :org-element--cache-sync-key ... :cache= d t :parent ...)))))) 2] nil #<marker at 26674 in =C2=A0*temp*-467986>= ; nil nil)
=C2=A0 org-element--cache-sync(#<buffer =C2=A0*temp*-46798= 6> #<marker at 26674 in =C2=A0*temp*-467986>)
=C2=A0 org-elemen= t-at-point(#<marker at 26674 in =C2=A0*temp*-467986>)
=C2=A0 org-e= lement-cache-map(#f(compiled-function (el) #<bytecode 0x1c780ded3d2e9ca3= >) :next-re "^\\*+ " :fail-re "^\\*+ " :narrow t)=C2=A0 org-scan-tags(#f(compiled-function () #<bytecode -0x1547bc42aa40= a914>) t nil nil)
=C2=A0 org-map-entries(#f(compiled-function () #<= ;bytecode -0x1547bc42aa40a914>))
=C2=A0 org-export--prepare-file-cont= ents("/home/kmodi/stow/pub_dotfiles/emacs/dot-emacs.d/el..." &quo= t;548-589" 0 4 1 #<hash-table equal 0/65 0x192d5b1> "/home/= kmodi/stow/pub_dotfiles/emacs/dot-emacs.d/el...")
=C2=A0 org-export= -expand-include-keyword()
=C2=A0 org-export-as(hugo :subtreep nil nil (:= output-file "/home/kmodi/stow/pub_dotfiles/emacs/dot-emacs.d/el...&quo= t;))
=C2=A0 #f(compiled-function (backend file &optional async subtr= eep visible-only body-only ext-plist post-process) "Call `org-export-a= s' with output to a specified file.\n\nBACKEND is either an export back= -end, as returned by, e.g.,\n`org-export-create-backend', or a symbol r= eferring to\na registered back-end.=C2=A0 FILE is the name of the output fi= le, as\na string.\n\nA non-nil optional argument ASYNC means the process sh= ould happen\nasynchronously.=C2=A0 The resulting buffer will then be access= ible\nthrough the `org-export-stack' interface.\n\nOptional arguments S= UBTREEP, VISIBLE-ONLY, BODY-ONLY and\nEXT-PLIST are similar to those used i= n `org-export-as', which\nsee.\n\nOptional argument POST-PROCESS is cal= led with FILE as its\nargument and happens asynchronously when ASYNC is non= -nil.=C2=A0 It\nhas to return a file name, or nil.=C2=A0 Export back-ends c= an use this\nto send the output file through additional processing, e.g,\n\= n =C2=A0(defun org-latex-export-to-latex\n =C2=A0 =C2=A0(&optional asyn= c subtreep visible-only body-only ext-plist)\n =C2=A0 =C2=A0(interactive)\n= =C2=A0 =C2=A0(let ((outfile (org-export-output-file-name \".tex\"= ; subtreep)))\n =C2=A0 =C2=A0 =C2=A0(org-export-to-file \\=3D'latex out= file\n =C2=A0 =C2=A0 =C2=A0 =C2=A0async subtreep visible-only body-only ext= -plist\n =C2=A0 =C2=A0 =C2=A0 =C2=A0#'org-latex-compile)))\n\nWhen expr= essed as an anonymous function, using `lambda',\nPOST-PROCESS needs to = be quoted.\n\nThe function returns either a file name returned by POST-PROC= ESS,\nor FILE." #<bytecode 0xeed6499aa2e2203>)(hugo "/home/= kmodi/stow/pub_dotfiles/emacs/dot-emacs.d/el..." nil :subtreep nil)=C2=A0 apply(#f(compiled-function (backend file &optional async subtre= ep visible-only body-only ext-plist post-process) "Call `org-export-as= ' with output to a specified file.\n\nBACKEND is either an export back-= end, as returned by, e.g.,\n`org-export-create-backend', or a symbol re= ferring to\na registered back-end.=C2=A0 FILE is the name of the output fil= e, as\na string.\n\nA non-nil optional argument ASYNC means the process sho= uld happen\nasynchronously.=C2=A0 The resulting buffer will then be accessi= ble\nthrough the `org-export-stack' interface.\n\nOptional arguments SU= BTREEP, VISIBLE-ONLY, BODY-ONLY and\nEXT-PLIST are similar to those used in= `org-export-as', which\nsee.\n\nOptional argument POST-PROCESS is call= ed with FILE as its\nargument and happens asynchronously when ASYNC is non-= nil.=C2=A0 It\nhas to return a file name, or nil.=C2=A0 Export back-ends ca= n use this\nto send the output file through additional processing, e.g,\n\n= =C2=A0(defun org-latex-export-to-latex\n =C2=A0 =C2=A0(&optional async= subtreep visible-only body-only ext-plist)\n =C2=A0 =C2=A0(interactive)\n = =C2=A0 =C2=A0(let ((outfile (org-export-output-file-name \".tex\"= subtreep)))\n =C2=A0 =C2=A0 =C2=A0(org-export-to-file \\=3D'latex outf= ile\n =C2=A0 =C2=A0 =C2=A0 =C2=A0async subtreep visible-only body-only ext-= plist\n =C2=A0 =C2=A0 =C2=A0 =C2=A0#'org-latex-compile)))\n\nWhen expre= ssed as an anonymous function, using `lambda',\nPOST-PROCESS needs to b= e quoted.\n\nThe function returns either a file name returned by POST-PROCE= SS,\nor FILE." #<bytecode 0xeed6499aa2e2203>) (hugo "/home/= kmodi/stow/pub_dotfiles/emacs/dot-emacs.d/el..." nil :subtreep nil))=C2=A0 (prog1 (apply orig-fun args) (if projectile-enabled (progn (add-ho= ok 'find-file-hook #'projectile-find-file-hook-function) (advice-ad= d 'delete-file :before #'delete-file-projectile-remove-from-cache))= ) (setq gc-cons-threshold orig-gc-thresh) (message "exec time: %S"= ; (float-time (time-since t1))))
=C2=A0 (let ((orig-gc-thresh gc-cons-th= reshold) (projectile-enabled (and (fboundp #'projectile-mode) projectil= e-mode)) (t1 (current-time))) (setq gc-cons-threshold (* 200 1024 1024)) (i= f projectile-enabled (progn (remove-hook 'find-file-hook #'projecti= le-find-file-hook-function) (advice-remove 'delete-file #'delete-fi= le-projectile-remove-from-cache))) (prog1 (apply orig-fun args) (if project= ile-enabled (progn (add-hook 'find-file-hook #'projectile-find-file= -hook-function) (advice-add 'delete-file :before #'delete-file-proj= ectile-remove-from-cache))) (setq gc-cons-threshold orig-gc-thresh) (messag= e "exec time: %S" (float-time (time-since t1)))))
=C2=A0 modi/= advice-org-tangle-and-export-boost(#f(compiled-function (backend file &= optional async subtreep visible-only body-only ext-plist post-process) &quo= t;Call `org-export-as' with output to a specified file.\n\nBACKEND is e= ither an export back-end, as returned by, e.g.,\n`org-export-create-backend= ', or a symbol referring to\na registered back-end.=C2=A0 FILE is the n= ame of the output file, as\na string.\n\nA non-nil optional argument ASYNC = means the process should happen\nasynchronously.=C2=A0 The resulting buffer= will then be accessible\nthrough the `org-export-stack' interface.\n\n= Optional arguments SUBTREEP, VISIBLE-ONLY, BODY-ONLY and\nEXT-PLIST are sim= ilar to those used in `org-export-as', which\nsee.\n\nOptional argument= POST-PROCESS is called with FILE as its\nargument and happens asynchronous= ly when ASYNC is non-nil.=C2=A0 It\nhas to return a file name, or nil.=C2= =A0 Export back-ends can use this\nto send the output file through addition= al processing, e.g,\n\n =C2=A0(defun org-latex-export-to-latex\n =C2=A0 =C2= =A0(&optional async subtreep visible-only body-only ext-plist)\n =C2=A0= =C2=A0(interactive)\n =C2=A0 =C2=A0(let ((outfile (org-export-output-file-= name \".tex\" subtreep)))\n =C2=A0 =C2=A0 =C2=A0(org-export-to-fi= le \\=3D'latex outfile\n =C2=A0 =C2=A0 =C2=A0 =C2=A0async subtreep visi= ble-only body-only ext-plist\n =C2=A0 =C2=A0 =C2=A0 =C2=A0#'org-latex-c= ompile)))\n\nWhen expressed as an anonymous function, using `lambda',\n= POST-PROCESS needs to be quoted.\n\nThe function returns either a file name= returned by POST-PROCESS,\nor FILE." #<bytecode 0xeed6499aa2e2203&= gt;) hugo "/home/kmodi/stow/pub_dotfiles/emacs/dot-emacs.d/el..."= nil :subtreep nil)
=C2=A0 apply(modi/advice-org-tangle-and-export-boost= #f(compiled-function (backend file &optional async subtreep visible-on= ly body-only ext-plist post-process) "Call `org-export-as' with ou= tput to a specified file.\n\nBACKEND is either an export back-end, as retur= ned by, e.g.,\n`org-export-create-backend', or a symbol referring to\na= registered back-end.=C2=A0 FILE is the name of the output file, as\na stri= ng.\n\nA non-nil optional argument ASYNC means the process should happen\na= synchronously.=C2=A0 The resulting buffer will then be accessible\nthrough = the `org-export-stack' interface.\n\nOptional arguments SUBTREEP, VISIB= LE-ONLY, BODY-ONLY and\nEXT-PLIST are similar to those used in `org-export-= as', which\nsee.\n\nOptional argument POST-PROCESS is called with FILE = as its\nargument and happens asynchronously when ASYNC is non-nil.=C2=A0 It= \nhas to return a file name, or nil.=C2=A0 Export back-ends can use this\nt= o send the output file through additional processing, e.g,\n\n =C2=A0(defun= org-latex-export-to-latex\n =C2=A0 =C2=A0(&optional async subtreep vis= ible-only body-only ext-plist)\n =C2=A0 =C2=A0(interactive)\n =C2=A0 =C2=A0= (let ((outfile (org-export-output-file-name \".tex\" subtreep)))\= n =C2=A0 =C2=A0 =C2=A0(org-export-to-file \\=3D'latex outfile\n =C2=A0 = =C2=A0 =C2=A0 =C2=A0async subtreep visible-only body-only ext-plist\n =C2= =A0 =C2=A0 =C2=A0 =C2=A0#'org-latex-compile)))\n\nWhen expressed as an = anonymous function, using `lambda',\nPOST-PROCESS needs to be quoted.\n= \nThe function returns either a file name returned by POST-PROCESS,\nor FIL= E." #<bytecode 0xeed6499aa2e2203>) (hugo "/home/kmodi/stow/= pub_dotfiles/emacs/dot-emacs.d/el..." nil :subtreep nil))
=C2=A0 or= g-export-to-file(hugo "/home/kmodi/stow/pub_dotfiles/emacs/dot-emacs.d= /el..." nil :subtreep nil)
=C2=A0 (prog1 (org-export-to-file 'h= ugo outfile async subtreep visible-only) (org-hugo--after-export-function i= nfo outfile))
=C2=A0 (let* ((org-use-property-inheritance (org-hugo--sel= ective-property-inheritance)) (info (org-combine-plists (org-export--get-ex= port-attributes 'hugo subtreep visible-only) (org-export--get-buffer-at= tributes) (org-export-get-environment 'hugo subtreep))) (pub-dir (org-h= ugo--get-pub-dir info)) (outfile (org-export-output-file-name ".md&quo= t; subtreep pub-dir))) (prog1 (org-export-to-file 'hugo outfile async s= ubtreep visible-only) (org-hugo--after-export-function info outfile)))
= =C2=A0 org-hugo-export-to-md(nil :subtreep nil)
=C2=A0 (setq ret (org-hu= go-export-to-md async :subtreep visible-only))
=C2=A0 (if all-subtrees (= setq ret (org-hugo-export-to-md async :subtreep visible-only)) (let ((curre= nt-outline-path (org-get-outline-path :with-self)) (buffer (org-hugo--get-p= re-processed-buffer))) (save-current-buffer (set-buffer buffer) (goto-char = (org-find-olp current-outline-path :this-buffer)) (setq ret (org-hugo-expor= t-to-md async :subtreep visible-only))) (kill-buffer buffer)))
=C2=A0 (c= ond (is-commented (message "[ox-hugo] `%s' was not exported as tha= t subtree is..." title)) (is-excluded (message "[ox-hugo] `%s'= ; was not exported as it is tagged wi..." title matched-exclude-tag)) = (t (if all-subtrees (progn (setq org-hugo--subtree-count (1+ org-hugo--subt= ree-count)) (message "[ox-hugo] %d/ Exporting `%s' .." org-hu= go--subtree-count title)) (message "[ox-hugo] Exporting `%s' ..&qu= ot; title)) (if (or (or (org-entry-get nil "EXPORT_HUGO_MENU" :in= herit) (save-excursion (goto-char (point-min)) (let (...) (re-search-forwar= d "^#\\+hugo_menu:.*:menu" nil :noerror)))) (or (let ((page-or-ta= xonomy-weight ...)) (and (stringp page-or-taxonomy-weight) (string-match-p = "auto" page-or-taxonomy-weight))) (save-excursion (goto-char (poi= nt-min)) (let (...) (re-search-forward "^#\\+hugo_weight:.*auto" = nil :noerror))))) (progn (setq org-hugo--subtree-coord (org-hugo--get-post-= subtree-coordinates subtree)))) (if all-subtrees (setq ret (org-hugo-export= -to-md async :subtreep visible-only)) (let ((current-outline-path (org-get-= outline-path :with-self)) (buffer (org-hugo--get-pre-processed-buffer))) (s= ave-current-buffer (set-buffer buffer) (goto-char (org-find-olp current-out= line-path :this-buffer)) (setq ret (org-hugo-export-to-md async :subtreep v= isible-only))) (kill-buffer buffer)))))
=C2=A0 (let ((title (org-element= -property :title subtree))) (cond (is-commented (message "[ox-hugo] `%= s' was not exported as that subtree is..." title)) (is-excluded (m= essage "[ox-hugo] `%s' was not exported as it is tagged wi..."= ; title matched-exclude-tag)) (t (if all-subtrees (progn (setq org-hugo--su= btree-count (1+ org-hugo--subtree-count)) (message "[ox-hugo] %d/ Expo= rting `%s' .." org-hugo--subtree-count title)) (message "[ox-= hugo] Exporting `%s' .." title)) (if (or (or (org-entry-get nil &q= uot;EXPORT_HUGO_MENU" :inherit) (save-excursion (goto-char ...) (let .= .. ...))) (or (let (...) (and ... ...)) (save-excursion (goto-char ...) (le= t ... ...)))) (progn (setq org-hugo--subtree-coord (org-hugo--get-post-subt= ree-coordinates subtree)))) (if all-subtrees (setq ret (org-hugo-export-to-= md async :subtreep visible-only)) (let ((current-outline-path (org-get-outl= ine-path :with-self)) (buffer (org-hugo--get-pre-processed-buffer))) (save-= current-buffer (set-buffer buffer) (goto-char (org-find-olp current-outline= -path :this-buffer)) (setq ret (org-hugo-export-to-md async :subtreep visib= le-only))) (kill-buffer buffer))))))
=C2=A0 (let* ((info (org-combine-pl= ists (org-export--get-export-attributes 'hugo subtree visible-only) (or= g-export--get-buffer-attributes) (org-export-get-environment 'hugo subt= ree))) (exclude-tags (plist-get info :exclude-tags)) (is-commented (org-ele= ment-property :commentedp subtree)) is-excluded matched-exclude-tag ret) (l= et ((all-tags (let ((org-use-tag-inheritance t)) (org-hugo--get-tags)))) (i= f all-tags (progn (let ((--dolist-tail-- exclude-tags)) (while --dolist-tai= l-- (let (...) (if ... ...) (setq --dolist-tail-- ...))))))) (let ((title (= org-element-property :title subtree))) (cond (is-commented (message "[= ox-hugo] `%s' was not exported as that subtree is..." title)) (is-= excluded (message "[ox-hugo] `%s' was not exported as it is tagged= wi..." title matched-exclude-tag)) (t (if all-subtrees (progn (setq o= rg-hugo--subtree-count (1+ org-hugo--subtree-count)) (message "[ox-hug= o] %d/ Exporting `%s' .." org-hugo--subtree-count title)) (message= "[ox-hugo] Exporting `%s' .." title)) (if (or (or (org-entry= -get nil "EXPORT_HUGO_MENU" :inherit) (save-excursion ... ...)) (= or (let ... ...) (save-excursion ... ...))) (progn (setq org-hugo--subtree-= coord (org-hugo--get-post-subtree-coordinates subtree)))) (if all-subtrees = (setq ret (org-hugo-export-to-md async :subtreep visible-only)) (let ((curr= ent-outline-path ...) (buffer ...)) (save-current-buffer (set-buffer buffer= ) (goto-char ...) (setq ret ...)) (kill-buffer buffer)))))) ret)
=C2=A0 = (if subtree (let* ((info (org-combine-plists (org-export--get-export-attrib= utes 'hugo subtree visible-only) (org-export--get-buffer-attributes) (o= rg-export-get-environment 'hugo subtree))) (exclude-tags (plist-get inf= o :exclude-tags)) (is-commented (org-element-property :commentedp subtree))= is-excluded matched-exclude-tag ret) (let ((all-tags (let ((org-use-tag-in= heritance t)) (org-hugo--get-tags)))) (if all-tags (progn (let ((--dolist-t= ail-- exclude-tags)) (while --dolist-tail-- (let ... ... ...)))))) (let ((t= itle (org-element-property :title subtree))) (cond (is-commented (message &= quot;[ox-hugo] `%s' was not exported as that subtree is..." title)= ) (is-excluded (message "[ox-hugo] `%s' was not exported as it is = tagged wi..." title matched-exclude-tag)) (t (if all-subtrees (progn (= setq org-hugo--subtree-count ...) (message "[ox-hugo] %d/ Exporting `%= s' .." org-hugo--subtree-count title)) (message "[ox-hugo] Ex= porting `%s' .." title)) (if (or (or ... ...) (or ... ...)) (progn= (setq org-hugo--subtree-coord ...))) (if all-subtrees (setq ret (org-hugo-= export-to-md async :subtreep visible-only)) (let (... ...) (save-current-bu= ffer ... ... ...) (kill-buffer buffer)))))) ret) (let ((valid-subtree-found= (catch 'break (org-map-entries #'(lambda nil ...) "EXPORT_FIL= E_NAME<>\"\"")))) (if valid-subtree-found (progn (mess= age "Point is not in a valid Hugo post subtree; move to..."))) va= lid-subtree-found))
=C2=A0 (let ((subtree (org-hugo--get-valid-subtree))= ) (if subtree (let* ((info (org-combine-plists (org-export--get-export-attr= ibutes 'hugo subtree visible-only) (org-export--get-buffer-attributes) = (org-export-get-environment 'hugo subtree))) (exclude-tags (plist-get i= nfo :exclude-tags)) (is-commented (org-element-property :commentedp subtree= )) is-excluded matched-exclude-tag ret) (let ((all-tags (let (...) (org-hug= o--get-tags)))) (if all-tags (progn (let (...) (while --dolist-tail-- ...))= ))) (let ((title (org-element-property :title subtree))) (cond (is-commente= d (message "[ox-hugo] `%s' was not exported as that subtree is...&= quot; title)) (is-excluded (message "[ox-hugo] `%s' was not export= ed as it is tagged wi..." title matched-exclude-tag)) (t (if all-subtr= ees (progn ... ...) (message "[ox-hugo] Exporting `%s' .." ti= tle)) (if (or ... ...) (progn ...)) (if all-subtrees (setq ret ...) (let ..= . ... ...))))) ret) (let ((valid-subtree-found (catch 'break (org-map-e= ntries #'... "EXPORT_FILE_NAME<>\"\"")))) (if= valid-subtree-found (progn (message "Point is not in a valid Hugo pos= t subtree; move to..."))) valid-subtree-found)))
=C2=A0 org-hugo--e= xport-subtree-to-md(nil nil :all-subtrees)
=C2=A0 (closure ((buffer . #&= lt;buffer *Ox-hugo Pre-processed ox-h= ugo-manual.org *<2>>) (wconfig . #<window-configuration>= ) (ret) (f-or-b-name . "ox-hugo-= manual.org") (noerror) (visible-only) (async) (all-subtrees . :all= -subtrees) t) nil (org-hugo--export-subtree-to-md async visible-only :all-s= ubtrees))()
=C2=A0 #f(compiled-function (el) #<bytecode -0x14378c494a= 744d72>)((headline (:raw-value "Contributing Guide" :begin 142= 869 :end 143030 :pre-blank 0 :contents-begin 142892 :contents-end 143030 :r= obust-begin 142948 :robust-end 143028 :level 3 :priority nil :tags nil :tod= o-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :archive= dp nil :commentedp nil :post-affiliated 142869 :EXPORT_FILE_NAME "cont= ributing-guide" :title "Contributing Guide" :mode nil :granu= larity element :cached t :parent (headline (:raw-value "Meta" :be= gin 140460 :end 143253 :pre-blank 0 :contents-begin 140468 :contents-end 14= 3253 :robust-begin 140520 :robust-end 143251 :level 2 :priority nil :tags n= il :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil := archivedp nil :commentedp nil :post-affiliated 140460 :EXPORT_HUGO_MENU &qu= ot;:menu \"7.meta\"" :title "Meta" :mode nil :gran= ularity element :cached t :parent (headline (:raw-value "Menus" := begin 28210 :end 143253 :pre-blank 0 :contents-begin 28218 :contents-end 14= 3253 :robust-begin 28220 :robust-end 143251 :level 1 :priority nil :tags ni= l :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :a= rchivedp nil :commentedp nil :post-affiliated 28210 :title "Menus"= ; :mode nil :granularity element :cached t :parent (org-data ...))))))))=C2=A0 org-element-cache-map(#f(compiled-function (el) #<bytecode -0x14= 378c494a744d72>) :next-re "^\\*+ " :fail-re "^\\*+ "= :narrow t)
=C2=A0 org-scan-tags((closure ((buffer . #<buffer *Ox-hug= o Pre-processed ox-hugo-manual.org *<2>>) (wconfig . #<window-configuration>) (ret) (f-or-b-n= ame . "ox-hugo-manual.org&qu= ot;) (noerror) (visible-only) (async) (all-subtrees . :all-subtrees) t) nil= (org-hugo--export-subtree-to-md async visible-only :all-subtrees)) (lambda= (todo tags-list level) (progn (setq org-cached-props nil) (or (and (org-st= ring<> (or (org-cached-entry-get nil "EXPORT_FILE_NAME") &q= uot;") ""))))) nil nil)
=C2=A0 org-map-entries((closure (= (buffer . #<buffer *Ox-hugo Pre-processed ox-hugo-manual.org *<2>>) (wconfig . #<window-confi= guration>) (ret) (f-or-b-name . "ox-hugo-manual.org") (noerror) (visible-only) (async) (all-sub= trees . :all-subtrees) t) nil (org-hugo--export-subtree-to-md async visible= -only :all-subtrees)) "EXPORT_FILE_NAME<>\"\"")=C2=A0 (setq ret (org-map-entries #'(lambda nil (org-hugo--export-sub= tree-to-md async visible-only :all-subtrees)) "EXPORT_FILE_NAME<>= ;\"\""))
=C2=A0 (save-current-buffer (set-buffer buffer) = (setq ret (org-map-entries #'(lambda nil (org-hugo--export-subtree-to-m= d async visible-only :all-subtrees)) "EXPORT_FILE_NAME<>\"\= "")) (kill-buffer buffer))
=C2=A0 (let ((buffer (org-hugo--get= -pre-processed-buffer))) (save-current-buffer (set-buffer buffer) (setq ret= (org-map-entries #'(lambda nil (org-hugo--export-subtree-to-md async v= isible-only :all-subtrees)) "EXPORT_FILE_NAME<>\"\"&qu= ot;)) (kill-buffer buffer)))
=C2=A0 (progn (setq org-hugo--subtree-count= 0) (let ((buffer (org-hugo--get-pre-processed-buffer))) (save-current-buff= er (set-buffer buffer) (setq ret (org-map-entries #'(lambda nil (org-hu= go--export-subtree-to-md async visible-only :all-subtrees)) "EXPORT_FI= LE_NAME<>\"\"")) (kill-buffer buffer))) (if ret (messa= ge "[ox-hugo] Exported %d subtree%s from %s" org-hugo--subtree-co= unt (if (=3D 1 org-hugo--subtree-count) "" "s") f-or-b-= name) (message "[ox-hugo] No valid Hugo post subtrees were found"= )))
=C2=A0 (if all-subtrees (progn (setq org-hugo--subtree-count 0) (let= ((buffer (org-hugo--get-pre-processed-buffer))) (save-current-buffer (set-= buffer buffer) (setq ret (org-map-entries #'(lambda nil ...) "EXPO= RT_FILE_NAME<>\"\"")) (kill-buffer buffer))) (if ret (= message "[ox-hugo] Exported %d subtree%s from %s" org-hugo--subtr= ee-count (if (=3D 1 org-hugo--subtree-count) "" "s") f-= or-b-name) (message "[ox-hugo] No valid Hugo post subtrees were found&= quot;))) (setq ret (org-hugo--export-subtree-to-md async visible-only)))=C2=A0 (save-excursion (if all-subtrees (progn (setq org-hugo--subtree-cou= nt 0) (let ((buffer (org-hugo--get-pre-processed-buffer))) (save-current-bu= ffer (set-buffer buffer) (setq ret (org-map-entries #'... "EXPORT_= FILE_NAME<>\"\"")) (kill-buffer buffer))) (if ret (mes= sage "[ox-hugo] Exported %d subtree%s from %s" org-hugo--subtree-= count (if (=3D 1 org-hugo--subtree-count) "" "s") f-or-= b-name) (message "[ox-hugo] No valid Hugo post subtrees were found&quo= t;))) (setq ret (org-hugo--export-subtree-to-md async visible-only))) (if r= et nil (setq ret (org-hugo--export-file-to-md f-or-b-name async visible-onl= y noerror))))
=C2=A0 (save-restriction (widen) (save-excursion (if all-s= ubtrees (progn (setq org-hugo--subtree-count 0) (let ((buffer (org-hugo--ge= t-pre-processed-buffer))) (save-current-buffer (set-buffer buffer) (setq re= t (org-map-entries ... "EXPORT_FILE_NAME<>\"\""))= (kill-buffer buffer))) (if ret (message "[ox-hugo] Exported %d subtre= e%s from %s" org-hugo--subtree-count (if (=3D 1 org-hugo--subtree-coun= t) "" "s") f-or-b-name) (message "[ox-hugo] No val= id Hugo post subtrees were found"))) (setq ret (org-hugo--export-subtr= ee-to-md async visible-only))) (if ret nil (setq ret (org-hugo--export-file= -to-md f-or-b-name async visible-only noerror)))))
=C2=A0 (progn (save-r= estriction (widen) (save-excursion (if all-subtrees (progn (setq org-hugo--= subtree-count 0) (let ((buffer ...)) (save-current-buffer (set-buffer buffe= r) (setq ret ...) (kill-buffer buffer))) (if ret (message "[ox-hugo] E= xported %d subtree%s from %s" org-hugo--subtree-count (if ... "&q= uot; "s") f-or-b-name) (message "[ox-hugo] No valid Hugo pos= t subtrees were found"))) (setq ret (org-hugo--export-subtree-to-md as= ync visible-only))) (if ret nil (setq ret (org-hugo--export-file-to-md f-or= -b-name async visible-only noerror))))))
=C2=A0 (unwind-protect (progn (= save-restriction (widen) (save-excursion (if all-subtrees (progn (setq org-= hugo--subtree-count 0) (let (...) (save-current-buffer ... ... ...)) (if re= t (message "[ox-hugo] Exported %d subtree%s from %s" org-hugo--su= btree-count ... f-or-b-name) (message "[ox-hugo] No valid Hugo post su= btrees were found"))) (setq ret (org-hugo--export-subtree-to-md async = visible-only))) (if ret nil (setq ret (org-hugo--export-file-to-md f-or-b-n= ame async visible-only noerror)))))) (set-window-configuration wconfig))=C2=A0 (let ((wconfig (current-window-configuration))) (unwind-protect (pr= ogn (save-restriction (widen) (save-excursion (if all-subtrees (progn (setq= org-hugo--subtree-count 0) (let ... ...) (if ret ... ...)) (setq ret (org-= hugo--export-subtree-to-md async visible-only))) (if ret nil (setq ret (org= -hugo--export-file-to-md f-or-b-name async visible-only noerror)))))) (set-= window-configuration wconfig)))
=C2=A0 (let ((f-or-b-name (if (buffer-fi= le-name) (file-name-nondirectory (buffer-file-name)) (buffer-name))) ret) (= let ((wconfig (current-window-configuration))) (unwind-protect (progn (save= -restriction (widen) (save-excursion (if all-subtrees (progn ... ... ...) (= setq ret ...)) (if ret nil (setq ret ...))))) (set-window-configuration wco= nfig))) ret)
=C2=A0 org-hugo-export-wim-to-md(:all-subtrees nil nil)
= =C2=A0 (lambda (a _s v _b) (org-hugo-export-wim-to-md :all-subtrees a v))(n= il nil nil nil)
=C2=A0 org-export-dispatch(nil)
=C2=A0 funcall-intera= ctively(org-export-dispatch nil)
=C2=A0 call-interactively(org-export-di= spatch nil nil)
=C2=A0 command-execute(org-export-dispatch)
= =3D=3D=3D=3D=3D

5. But you should still see a *War= nings* buffer with content similar to [2].



--0000000000004acb3a05d3444f0d--