From: "Bruce D'Arcus" <firstname.lastname@example.org> To: org-mode-email <email@example.com> Subject: Re: [org-cite] request for coding help on a capf to insert citation key Date: Sun, 6 Jun 2021 12:21:28 -0400 [thread overview] Message-ID: <CAF-FPGO7OMBRikpLoo6TwG-DdcEiaPV5N-mKETP=FbB6EUqhjA@mail.gmail.com> (raw) In-Reply-To: <CAF-FPGMA+pX=bC4dsM93bFYqrbS=SxvT4Xu8POVuJOOL0A52nA@mail.gmail.com> One other idea, Nicolas: Is there room to include a org-cite somehow, so that one had a defcustom like: (setq org-cite-complete-key-candidates my-candidates) ;; here override default with results from my package (setq my-candidates (bibtex-actions--get-candidates)) ... and default could be some simple thing in oc-basic? If not, totally fine of course, but I thought I'd mention it as I'm trying to figure this out. Bruce On Sat, Jun 5, 2021 at 5:14 PM Bruce D'Arcus <firstname.lastname@example.org> wrote: > > Round 2, which should address the "regex" todo. > > --8<---------------cut here---------------start------------->8--- > (defun bibtex-actions-complete-key-at-point-oc () > "Complete org-cite citation key at point. > > When inserting '@' in a buffer the capf UI will present user with > a list of entries, from which they can narrow against a string > which includes title, author, etc., and then select one. This > function will then return the key 'key', resulting in '@key' at > point." > ;; FIX exit-function is wrong; results in "no match" > (when (and (eq major-mode 'org-mode) > (eq (car (org-element-context)) 'citation)) > (let* ((candidates (bibtex-actions--get-candidates)) > (begin (save-excursion (backward-word) (point))) > (end (point))) > (list begin end candidates :exclusive 'no > :exit-function > (lambda (chosen status) > (when (eq status 'finished) > (cdr (assoc chosen candidates)))))))) > --8<---------------cut here---------------end--------------->8---
next prev parent reply other threads:[~2021-06-06 16:22 UTC|newest] Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top 2021-06-05 16:13 Bruce D'Arcus 2021-06-05 21:14 ` Bruce D'Arcus 2021-06-06 16:21 ` Bruce D'Arcus [this message] 2021-06-21 14:16 ` Bruce D'Arcus
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='CAF-FPGO7OMBRikpLoo6TwG-DdcEiaPV5N-mKETP=FbB6EUqhjA@mail.gmail.com' \ --email@example.com \ --firstname.lastname@example.org \ --subject='Re: [org-cite] request for coding help on a capf to insert citation key' \ /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
Code repositories for project(s) associated with this 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).