diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2024-03-05 12:38:20 -0800 |
|---|---|---|
| committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2024-03-05 12:38:20 -0800 |
| commit | ccfc4c11b38a034604fc01682bcab3535202cbc1 (patch) | |
| tree | 21096aac84fa0db4026d2073545c9a75e674a22f | |
| parent | b9dea6e063b22ab28d58eca4101b4239db7fe0d6 (diff) | |
Fix compiler warnings in ebdb-roam.elexternals/ebdb
All the declare-functions, and a suppressed warning about the NAME
symbol argument to `magit-insert-section`.
| -rw-r--r-- | ebdb-roam.el | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/ebdb-roam.el b/ebdb-roam.el index 4dc35dc..f88f28d 100644 --- a/ebdb-roam.el +++ b/ebdb-roam.el @@ -23,8 +23,15 @@ ;;; Code: (require 'ebdb) +(require 'ebdb-com) (require 'ebdb-format) -(require 'org-roam-node nil t) ;It's normal if this package is missing! +(require 'org-roam-node nil t) ; It's normal if this package is missing! +(declare-function org-roam-db-query "org-roam") +(declare-function org-roam-node-id "org-node") +(declare-function org-roam-node-from-id "org-node") +(declare-function org-roam-node-p "org-node") +(declare-function magit-insert-section "magit-section") +(declare-function magit-insert-heading "magit-section") ;; org-roam-buffer Section @@ -74,12 +81,13 @@ inserted (defaults to \"Address Book Entries\"). The latter should be an instance of `ebdb-formatter', with a default of `ebdb-default-multiline-formatter'." (when-let ((uuid-list (ebdb-roam--get-links node))) - (magit-insert-section (org-roam-ebdb-section) - (magit-insert-heading heading) - (dolist (uuid uuid-list) - (when-let ((entry (ebdb-gethash uuid 'uuid))) - (insert (ebdb-fmt-record record-formatter entry)))) - (insert "\n")))) + (with-suppressed-warnings ((free-vars org-roam-ebdb-section)) + (magit-insert-section org-roam-ebdb-section + (magit-insert-heading heading) + (dolist (uuid uuid-list) + (when-let ((entry (ebdb-gethash uuid 'uuid))) + (insert (ebdb-fmt-record record-formatter entry)))) + (insert "\n"))))) (provide 'ebdb-roam) ;;; ebdb-roam.el ends here |
