1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
;;; citar-capf.el --- citar completion-at-point -*- lexical-binding: t; -*-
;;
;; SPDX-FileCopyrightText: 2022 Bruce D'Arcus, Colin McLear
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
;; This file is not part of GNU Emacs.
;;
;;; Commentary:
;;
;; Citation key 'completion-at-point' for org, markdown, or latex.
;;
;; Supports org-cite in org, and pandoc in markdown.
;;
;;; Code:
(require 'citar)
;;;; Utility Vars & Functions
;; Declare org-element related vars & functions
(defvar org-element-citation-key-re)
(defvar org-element-citation-prefix-re)
(declare-function org-element-at-point "ext:org-element")
(declare-function org-element-property "ext:org-element")
(declare-function org-element-type "ext:org-element")
(declare-function org-element-context "ext:org-element")
;; Declare function from citar
(declare-function citar--completion-table "citar") ;; pending cache revisions
;;;; Citar-Capf
;;;###autoload
(defun citar-capf ()
"Complete citation key at point for org, markdown, or latex."
(let ((citar-capf-latex-regexp
"\\(?:cite\\(?:\\(?:[pt]\\*\\|[pt]\\)?{\\)\\)\\([[:alnum:]_-]*,\\)*\\([[:alnum:]_-]*\\)")
(citar-capf-markdown-regexp
(concat "-?@" ; @ preceded by optional -
"\\(?:"
"{\\(?1:.*?\\)}" ; brace-delimited key
"\\|"
"\\(?1:[[:alnum:]_][[:alnum:]]*\\(?:[:.#$%&+?<>~/-][[:alnum:]]+\\)*\\)"
"\\)")))
;; only list candidates in certain contexts
(when
;; conditional recognition of citation key by mode
(cond
;; latex-mode
((derived-mode-p 'latex-mode)
(looking-back citar-capf-latex-regexp 2))
;; org-mode
((and (derived-mode-p 'org-mode)
(let ((element (org-element-at-point)))
(or (eq 'citation (org-element-type (org-element-context element)))
(and (or (eq ?@ (char-before))
(looking-back org-element-citation-key-re
(line-beginning-position)))
(let ((origin (point)))
(save-excursion
(and (re-search-backward org-element-citation-prefix-re
(org-element-property
:begin element)
t)
(not (search-forward "]" origin t))))))))))
;; markdown-mode
((and (derived-mode-p 'markdown-mode)
(or (eq ?@ (char-before))
(looking-back citar-capf-markdown-regexp
(line-beginning-position))))))
;; Get and insert candidate
(let* ((candidates (citar-get-entries))
(bounds (bounds-of-thing-at-point 'word)))
(when bounds
(list (car bounds)
(cdr bounds)
candidates
:annotation-function #'citar-capf-annotate
:exit-function
(lambda (_str _status)
(insert))))))))
(defun citar-capf-annotate (citekey)
"Annotate a CITEKEY."
(let* ((author (citar-get-value "author" citekey))
(editor (citar-get-value "editor" citekey))
(title (citar-get-value "title" citekey)))
(concat
" "
(truncate-string-to-width
(citar--shorten-names
(or author editor "")) 20 nil 32 t)
" "
(truncate-string-to-width (or title "") 40 nil 32))))
(provide 'citar-capf)
;;; citar-capf.el ends here
|
