prompt-buffer.lisp: Tweak font sizes.

atlas-engineer · Jan 21, 2024 · 78e9ff3 · 78e9ff3
1 parent d154d69
commit 78e9ff3
Showing 1 changed file with 10 additions and 4 deletions.
diff --git a/source/prompt-buffer.lisp b/source/prompt-buffer.lisp
@@ -98,6 +98,7 @@ See `nyxt::attribute-widths'.")
           :margin "0"
           :padding "0")
         `("#prompt-area"
+          :font-size "14px"
           :background-color ,theme:primary
           :color ,theme:on-primary
           :border-top "2px solid"
@@ -180,6 +181,7 @@ See `nyxt::attribute-widths'.")
           :margin-left "10px"
           :margin-top "15px")
         `(".source-name"
+          :font-size "14px"
           :padding-left "4px"
           :background-color ,theme:secondary
           :color ,theme:on-secondary
@@ -206,7 +208,10 @@ See `nyxt::attribute-widths'.")
           :overflow-x "hidden"
           :height "100%"
           :margin-right "3px")
+        `(".suggestion-and-mark-count"
+          :font-family ,theme:monospace-font-family)
         `(".source-content"
+          :font-size "14px"
           :margin-left "16px"
           :width "100%"
           :table-layout "fixed"
@@ -559,10 +564,11 @@ This does not redraw the whole prompt buffer, use `prompt-render' for that."
                   (prompter:name source)
                   (if (prompter:hide-suggestion-count-p source)
                       ""
-                      (suggestion-and-mark-count prompt-buffer
-                                                 (prompter:suggestions source)
-                                                 (prompter:marks source)
-                                                 :enable-marks-p (prompter:enable-marks-p source)))
+                      (:span :class "suggestion-and-mark-count"
+                             (suggestion-and-mark-count prompt-buffer
+                                                        (prompter:suggestions source)
+                                                        (prompter:marks source)
+                                                        :enable-marks-p (prompter:enable-marks-p source))))
                   (if (prompter:ready-p source) "" "(In progress...)"))
                  (:div
                   (:nbutton