remove bibtex-actions-embark-* functions

Author: ilupin

bibtex-actions.el

@@ -432,10 +432,10 @@ TEMPLATE."
 ;;; Embark
 
 (defun bibtex-actions-citation-key-at-point ()
-  "Return citation keys at point as string for `embark'."
+  "Return citation keys at point as a list for `embark'."
   (when-let ((key (or (bibtex-actions-get-key-org-cite)
                       (bibtex-completion-key-at-point))))
-    (cons 'citation-key (if (listp key) (string-join key ";") key))))
+    (cons 'citation-key (if (listp key) key (list key)))))
 
 (with-eval-after-load 'embark
   (add-to-list 'embark-target-finders 'bibtex-actions-citation-key-at-point)
@@ -444,45 +444,17 @@ TEMPLATE."
 
 (defvar bibtex-actions-embark-map
   (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "t") 'bibtex-actions-embark-add-pdf-attachment)
-    (define-key map (kbd "a") 'bibtex-actions-embark-add-pdf-to-library)
-    (define-key map (kbd "o") 'bibtex-actions-embark-open)
-    (define-key map (kbd "e") 'bibtex-actions-embark-open-entry)
-    (define-key map (kbd "l") 'bibtex-actions-embark-open-link)
-    (define-key map (kbd "n") 'bibtex-actions-embark-open-notes)
-    (define-key map (kbd "p") 'bibtex-actions-embark-open-pdf)
-    (define-key map (kbd "RET") 'bibtex-actions-embark-open)
+    (define-key map (kbd "t") 'bibtex-completion-add-PDF-attachment)
+    (define-key map (kbd "a") 'bibtex-completion-add-pdf-to-library)
+    (define-key map (kbd "o") 'bibtex-completion-open-any)
+    (define-key map (kbd "e") 'bibtex-completion-show-entry)
+    (define-key map (kbd "l") 'bibtex-completion-open-url-or-doi)
+    (define-key map (kbd "n") 'bibtex-completion-edit-notes)
+    (define-key map (kbd "p") 'bibtex-completion-open-pdf)
+    (define-key map (kbd "RET") 'bibtex-completion-open-any)
     map)
   "Keymap for Embark citation-key actions.")
 
-(defun bibtex-actions-embark-open (keys)
-  "Open PDF, or URL or DOI link associated with KEYS."
-  (bibtex-completion-open-any (split-string keys ";")))
-
-(defun bibtex-actions-embark-open-pdf (keys)
-  "Open PDF associated with the KEYS."
-  (bibtex-completion-open-pdf (split-string keys ";")))
-
-(defun bibtex-actions-embark-open-link (keys)
-  "Open URL or DOI link associated with the KEYS in a browser."
-  (bibtex-completion-open-url-or-doi (split-string keys ";")))
-
-(defun bibtex-actions-embark-add-pdf-attachment (keys)
-  "Attach PDF(s) associated with the KEYS to email."
-  (bibtex-completion-add-PDF-attachment (split-string keys ";")))
-
-(defun bibtex-actions-embark-open-notes (keys)
-  "Open notes associated with the KEYS."
-  (bibtex-completion-edit-notes (split-string keys ";")))
-
-(defun bibtex-actions-embark-open-entry (keys)
-  "Open BibTeX entry associated with the KEYS."
-  (bibtex-completion-show-entry (split-string keys ";")))
-
-(defun bibtex-actions-embark-add-pdf-to-library (keys)
-  "Add PDF associated with the KEYS to library."
-  (bibtex-completion-add-pdf-to-library (split-string keys ";")))
-
 ;;; Command wrappers for bibtex-completion functions
 
 ;;;###autoload