Fix border style for Emacs 30 #64

ogdenwebb · Jan 25, 2024 · 3cdb921 · 3cdb921
1 parent 8f2cd16
commit 3cdb921
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/kaolin-themes-lib.el b/kaolin-themes-lib.el
@@ -600,9 +600,9 @@
     ;; Emacs UI
     (package-name                   (:inherit 'link :underline nil))
     (button                         (:inherit 'link))
-    (custom-button                  (:background 'unspecified :foreground button-color :box (:line-width 1 :color button-color :style 'none) :height 0.9))
-    (custom-button-mouse            (:inherit 'custom-button :foreground button-hl :box (:line-width 1 :color button-hl :style 'none)))
-    (custom-button-pressed          (:inherit 'custom-button :foreground button-hl :box (:line-width 1 :color button-border :style 'none)))
+    (custom-button                  (:background 'unspecified :foreground button-color :box (:line-width 1 :color button-color :style nil) :height 0.9))
+    (custom-button-mouse            (:inherit 'custom-button :foreground button-hl :box (:line-width 1 :color button-hl :style nil)))
+    (custom-button-pressed          (:inherit 'custom-button :foreground button-hl :box (:line-width 1 :color button-border :style nil)))
     (custom-button-unraised         (:inherit 'custom-button))
     (custom-button-pressed-unraised (:inherit 'custom-button-pressed))
     (custom-group-tag               (:foreground header :height 1.2 :weight 'bold))
@@ -1639,7 +1639,7 @@
     (cider-enlightened-face                  (:background bg2 :foreground fg2 :box (:color kaolin-yellow :line-width -1)))
     (cider-enlightened-local-face            (:foreground diff-mod))
     (cider-error-highlight-face              (:foreground err :underline (:style underline-style :color err)))
-    (cider-fragile-button-face               (:background 'unspecified :foreground kaolin-yellow :box (:line-width 1 :color button-color :style 'none)))
+    (cider-fragile-button-face               (:background 'unspecified :foreground kaolin-yellow :box (:line-width 1 :color button-color :style nil)))
     (cider-fringe-good-face                  (:foreground done))
     (cider-instrumented-face                 (:background bg2 :foreground fg2 :box (:color kaolin-red :line-width -1)))
     (cider-reader-conditional-face           (:foreground fg2))
@@ -1655,8 +1655,8 @@
     (cider-stacktrace-filter-inactive-face   (:foreground num))
     (cider-stacktrace-fn-face                (:foreground fg1 :inherit 'bold))
     (cider-stacktrace-ns-face                (:foreground fg2 :inherit 'italic))
-    (cider-stacktrace-promoted-button-face   (:background 'unspecified :foreground kaolin-red :box (:line-width 1 :color comment :style 'none)))
-    (cider-stacktrace-suppressed-button-face (:background 'unspecified :foreground fg3 :box (:line-width 1 :color comment :style 'none)))
+    (cider-stacktrace-promoted-button-face   (:background 'unspecified :foreground kaolin-red :box (:line-width 1 :color comment :style nil)))
+    (cider-stacktrace-suppressed-button-face (:background 'unspecified :foreground fg3 :box (:line-width 1 :color comment :style nil)))
     (cider-test-error-face                   (:background warning :foreground bg1))
     (cider-test-failure-face                 (:background err :foreground bg1))
     (cider-test-success-face                 (:background done :foreground bg1))