(feat): add org-roam-tag-face (#1079)

`org-roam-tag-face` controls the appearance of tags in the minibuffer.
Defaults to a bold face.

CHANGELOG.md

@@ -10,6 +10,7 @@ In this release we support fuzzy links of the form `[[Title]]`, `[[*Headline]]`
 
 ### Features
 
+- [#1079](https://github.com/org-roam/org-roam/pull/1079) Add `org-roam-tag-face` to customize appearance of tags in interactive commandsg
 - [#1073](https://github.com/org-roam/org-roam/pull/1073) Rename file on title change, when `org-roam-rename-file-on-title-change` is non-nil.
 - [#1071](https://github.com/org-roam/org-roam/pull/1071) Update link descriptions on title changes, and clean-up rename file advice
 - [#1061](https://github.com/org-roam/org-roam/pull/1061) Speed up the extraction of file properties, headlines, and titles
@@ -34,9 +35,11 @@ We also added some new features that had been a long time coming:
 2. We now support nested captures, which is crucial for `org-roam-protocol` (#966)
 
 ### Breaking Changes
+
 - [#908](https://github.com/org-roam/org-roam/pull/908) Normalized titles in database. May break external packages that rely on unnormalized titles.
 
 ### Features
+
 - [#814](https://github.com/org-roam/org-roam/pull/814) Implement `org-roam-insert-immediate`
 - [#833](https://github.com/org-roam/org-roam/pull/833) Add customization of file titles with `org-roam-title-to-slug-function`.
 - [#839](https://github.com/org-roam/org-roam/pull/839) Return selected file from `org-roam-insert`
@@ -78,6 +81,7 @@ We also add `org-roam-unlinked-references`, which naively finds text that could
 - [#679](https://github.com/org-roam/org-roam/pull/679), [#683](https://github.com/org-roam/org-roam/pull/683) Building of the graph now happens in a separate process
 
 ### Bugfixes
+
 - [#714](https://github.com/org-roam/org-roam/pull/714) No longer print citelinks in backlinks buffer if there is no `ROAM_KEY` property or `org-ref` is not installed
 - [#759](https://github.com/org-roam/org-roam/pull/759), [#760](https://github.com/org-roam/org-roam/pull/760) Tags are only added to the tags table if there are actually tags present
 - [#700](https://github.com/org-roam/org-roam/pull/700), [#733](https://github.com/org-roam/org-roam/pull/733) Allow symlinks within the `org-roam` directory

org-roam-faces.el

@@ -42,6 +42,11 @@
   "Face for Org-roam links."
   :group 'org-roam-faces)
 
+(defface org-roam-tag
+  '((t :weight bold))
+  "Face for Org-roam tags in minibuffer commands."
+  :group 'org-roam-faces)
+
 (defface org-roam-link-current
   '((t :inherit org-link))
   "Face for Org-roam links pointing to the current buffer."

org-roam.el

@@ -839,6 +839,14 @@ TYPE defaults to \"file\"."
                                     target))
      description)))
 
+(defun org-roam--prepend-tag-string (str tags)
+  "Prepend TAGS to STR."
+  (concat
+   (when tags
+     (propertize (format "(%s) " (s-join org-roam-tag-separator tags))
+                 'face 'org-roam-tag))
+   str))
+
 (defun org-roam--get-title-path-completions ()
   "Return an alist for completion.
 The car is the displayed title for completion, and the cdr is the
@@ -855,10 +863,7 @@ to the file."
                  rows)
     (dolist (row rows completions)
       (pcase-let ((`(,file-path ,title ,tags) row))
-        (let ((k (concat
+        (let ((k (org-roam--prepend-tag-string title tags))
-                  (when tags
-                    (format "(%s) " (s-join org-roam-tag-separator tags)))
-                  title))
               (v (list :path file-path :title title)))
           (push (cons k v) completions))))))
 
@@ -925,9 +930,8 @@ FILTER can either be a string or a function:
                        (concat
                         (when org-roam-include-type-in-ref-path-completions
                           (format "{%s} " type))
-                        (when tags
+                        (org-roam--prepend-tag-string (format "%s (%s)" title ref)
-                          (format "(%s) " (s-join org-roam-tag-separator tags)))
+                                                      tags))
-                        (format "%s (%s)" title ref))
                      ref))
                 (v (list :path file-path :type type :ref ref)))
             (push (cons k v) completions)))))))