unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
* bug#46257: 28.0.50; use flat-button in modus-operandi theme
@ 2021-02-02 11:34 Pedro Andres Aranda Gutierrez
  2021-02-02 13:24 ` Basil L. Contovounesios
  2021-02-03 17:22 ` Juri Linkov
  0 siblings, 2 replies; 9+ messages in thread
From: Pedro Andres Aranda Gutierrez @ 2021-02-02 11:34 UTC (permalink / raw)
  To: 46257


[-- Attachment #1.1: Type: text/plain, Size: 281 bytes --]

This diff provides an example for the use of the :style flat-button in the
tab-line
of the modus-operandi theme. I've kept the original code commented.

Best, /Pedro A. Aranda


-- 
Fragen sind nicht da um beantwortet zu werden,
Fragen sind da um gestellt zu werden
Georg Kreisler

[-- Attachment #1.2: Type: text/html, Size: 513 bytes --]

[-- Attachment #2: flat-button-example.diff --]
[-- Type: text/x-patch, Size: 1535 bytes --]

diff --git a/etc/themes/modus-operandi-theme.el b/etc/themes/modus-operandi-theme.el
index c7a0f72c10..0455e6b639 100644
--- a/etc/themes/modus-operandi-theme.el
+++ b/etc/themes/modus-operandi-theme.el
@@ -4545,10 +4545,15 @@ modus-operandi-theme-scale
      `(tab-line ((,class :height 0.95 :background ,bg-tab-bar :foreground ,fg-main)))
      `(tab-line-close-highlight ((,class :foreground ,red)))
      `(tab-line-highlight ((,class :background ,blue-subtle-bg :foreground ,fg-dim)))
-     `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active)
+     ;; Use flat-button style (don't need to repeat bg colour)
+     ;; `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :color ,bg-tab-active)
+     ;;                         :background ,bg-tab-active :foreground ,fg-main)))
+     `(tab-line-tab ((,class :inherit bold :box (:line-width 2 :style flat-button)
                              :background ,bg-tab-active :foreground ,fg-main)))
      `(tab-line-tab-current ((,class :inherit tab-line-tab)))
-     `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive)
+     ;; `(tab-line-tab-inactive ((,class :box (:line-width 2 :color ,bg-tab-inactive)
+     ;;                                  :background ,bg-tab-inactive :foreground ,fg-dim)))))
+     `(tab-line-tab-inactive ((,class :box (:line-width 2 :style flat-button)
                                       :background ,bg-tab-inactive :foreground ,fg-dim)))))
 ;;;; Emacs 28+
   (when (>= emacs-major-version 28)

^ permalink raw reply related	[flat|nested] 9+ messages in thread

end of thread, other threads:[~2021-02-06 10:33 UTC | newest]

Thread overview: 9+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-02-02 11:34 bug#46257: 28.0.50; use flat-button in modus-operandi theme Pedro Andres Aranda Gutierrez
2021-02-02 13:24 ` Basil L. Contovounesios
2021-02-02 18:46   ` Protesilaos Stavrou
2021-02-02 19:21     ` Pedro Andres Aranda Gutierrez
2021-02-04  8:40     ` Lars Ingebrigtsen
2021-02-04 12:09       ` Protesilaos Stavrou
2021-02-04 16:16         ` Lars Ingebrigtsen
2021-02-06 10:33           ` Basil L. Contovounesios
2021-02-03 17:22 ` Juri Linkov

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).