Add format-entry-no-widths

This function is formatting entries for non-column display.
emacs-citar · Sep 6, 2021 · 24e29ea · 24e29ea
1 parent 3af0fd5
commit 24e29ea
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/bibtex-actions.el b/bibtex-actions.el
@@ -555,6 +555,14 @@ FORMAT-STRING."
             (display-value (bibtex-actions-display-value field-names entry)))
        (bibtex-actions--fit-to-width display-value display-width)))))
 
+(defun bibtex-actions--format-entry-no-widths (entry format-string)
+  "Format ENTRY for display per FORMAT-STRING."
+  (s-format
+   format-string
+   (lambda (raw-field)
+     (let ((field-names (split-string raw-field "[ ]+")))
+       (bibtex-actions-display-value field-names entry)))))
+
 ;;; At-point functions
 
 ;;; Org-cite