From: Matt Price <moptop99@gmail.com>
To: John Kitchin <jkitchin@andrew.cmu.edu>
Cc: Org Mode <emacs-orgmode@gnu.org>
Subject: Re: add a heading w/ #+print_bibliography to parse tree on export
Date: Sat, 31 Jul 2021 20:05:45 -0400 [thread overview]
Message-ID: <CAN_Dec9_gJ8xN3PWWx941e3LdHuLTwNKTqLWS9kAZGL365oDcg@mail.gmail.com> (raw)
In-Reply-To: <CAJ51ETrs7c7TLE_jiri=hdiyqQ=Yywoc_iZkTtO0Z97v0jXxMA@mail.gmail.com>
[-- Attachment #1: Type: text/plain, Size: 4255 bytes --]
thanks John,
On Fri, Jul 30, 2021 at 9:01 PM John Kitchin <jkitchin@andrew.cmu.edu>
wrote:
> I think the way to do this is to use a function in
> org-export-before-processing-hook to add it if you don't find it.
>
> you can still use org-ml to generate the string that gets inserted. I
> guess you would just go to the end of the buffer and insert it.
>
>
this is what I came up with. I don't know if it might be useful to others,
or if maybe a modified version might be worth putthing into some kind of
package.
(use-package org-cite
:config
(defcustom org-export-ensure-biblio
t
"Whether or not to create bibliography slide when missing from document"
:group 'org-export
:type 'string)
(defcustom org-export-biblio-heading-id
"bibliography"
"custom id for bibliography slide heading in org-re-reveal"
:group 'org-export
:type 'string
:package-version '(org-re-reveal . 1.5))
(defcustom org-export-biblio-heading-text
"Sources"
"Default Title to display above bibliography in org-re-reveal"
:group 'org-export
:type 'string
)
(defun mwp-add-biblio-export-hook (&optional backend)
"If there's a citation object, search for a bibliography keyword;
if that's missing, create a new headline with the keyword. Intended for use
with
org-export-before-parsing-hook"
(save-excursion
(when (and org-export-ensure-biblio
(not (re-search-forward "^[ ]?+#\\+print_bibliography:"
nil t))
(progn
(goto-char (point-min))
(re-search-forward org-element-citation-key-re
(point-max) t)))
(let* ((title (or org-export-biblio-heading-text "Sources"))
(id (or org-export-biblio-heading-id "bibliography")))
(goto-char (point-max))
(insert
(org-ml-to-trimmed-string
(org-ml-build-headline
:title `(,title)
(org-ml-build-section
(org-ml-build-property-drawer
(org-ml-build-node-property "CUSTOM_ID" id))
(org-ml-build-keyword "print_bibliography" "")))))))))
(add-hook org-export-before-parsing-hook 'mwp-add-biblio-export-hook))
Matt
> John
>
> -----------------------------------
> Professor John Kitchin (he/him/his)
> Doherty Hall A207F
> Department of Chemical Engineering
> Carnegie Mellon University
> Pittsburgh, PA 15213
> 412-268-7803
> @johnkitchin
> http://kitchingroup.cheme.cmu.edu
>
>
>
> On Fri, Jul 30, 2021 at 8:18 PM Matt Price <moptop99@gmail.com> wrote:
>
>> Goal:
>> conditionally add a headline with content to parse tree using either
>> org-export-before-parsing-hook or org-export-filter-parse-tree-functions
>>
>> Explanation:
>> I use org-re-reveal to make lecture slides from subtrees. Often I forget
>> to add a heading with #+print_bibliography: and as a result org-cite does
>> not generate the bibliography, and my citations are not wrapped in links.
>> I'd like to search *either* the parse tree *or* the temporary export
>> buffer for the #+print_bibliography keyword, and if it's not found, add a
>> headline to the end of the subtree/parse-tree with the appropriate
>> information.
>>
>> I can easily generate the proper lisp object with the org-ml package:
>>
>> (org-ml-build-headline :title '("Sources")
>> (org-ml-build-section
>> (org-ml-build-property-drawer
>> (org-ml-build-node-property "CUSTOM_ID"
>> "bibliography"))
>> (org-ml-build-keyword "print_bibliography" "" )
>> ))
>>
>> And if I want I can turn that into a string by wrapping it in
>> (org-ml-to-trimmed-string ...)
>>
>> However, I'm not sure how best to add it to the exported data. I believe
>> I can add a function to either org-export-before-parsing-hook or
>> org-export-filter-parse-tree-functions, but beyond that I'm a bit lost.
>> It's not immediately obvious how to find the last headline and append
>> another headline after that headline's section. Looking at the nesting
>> confuses me somewhat and I'm afraid I'll break the data structure.
>>
>> Has anyone done something like this before and do you have ideas?
>>
>> Thank you!
>>
>
[-- Attachment #2: Type: text/html, Size: 6090 bytes --]
prev parent reply other threads:[~2021-08-01 0:06 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2021-07-31 0:17 add a heading w/ #+print_bibliography to parse tree on export Matt Price
2021-07-31 1:01 ` John Kitchin
2021-08-01 0:05 ` Matt Price [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=CAN_Dec9_gJ8xN3PWWx941e3LdHuLTwNKTqLWS9kAZGL365oDcg@mail.gmail.com \
--to=moptop99@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=jkitchin@andrew.cmu.edu \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).