[sawfish] renamed frame-font-focus-color to frame-font-active-color -- updated OPTIONS
- From: Christopher Bratusek <chrisb src gnome org>
- To: svn-commits-list gnome org
- Cc:
- Subject: [sawfish] renamed frame-font-focus-color to frame-font-active-color -- updated OPTIONS
- Date: Sat, 26 Sep 2009 19:55:39 +0000 (UTC)
commit 763a1ac02eb1d7ed0675d30711db1e951719c235
Author: chrisb <zanghar freenet de>
Date: Sat Sep 26 21:54:34 2009 +0200
renamed frame-font-focus-color to frame-font-active-color -- updated OPTIONS
ChangeLog | 2 ++
OPTIONS | 9 +++++++++
lisp/sawfish/wm/extras.jl | 2 +-
lisp/sawfish/wm/frames.jl | 2 +-
4 files changed, 13 insertions(+), 2 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 6bc0cc1..7325660 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -38,6 +38,8 @@
*independently* of what frame-style is beeing used
-- [Matthew Love, Christopher Bratusek]
+ * OPTIONS: updated
+
2009-09-23 Christopher Bratusek <zanghar freenet de>
* man/news.texi: news items for 1.6.0 are partially rewritten [Teika Kazura]
diff --git a/OPTIONS b/OPTIONS
index 3fa3a56..4dbbe0f 100644
--- a/OPTIONS
+++ b/OPTIONS
@@ -127,6 +127,15 @@
;; (define-special-variable default-bevel-percent nil
;; "Bevel intensity as a percentage.")
+;; (define-special-variable use-custom-font-color '()
+;; "Use custom font colors for frames")
+
+;; (define-special-variable frame-font-active-color "black"
+;; "Font color for active frames")
+
+;; (define-special-variable frame-font-inactive-color "black"
+;; "Font color for inactive frames")
+
;; menu options
;; (define-special-variable menus-include-shortcuts nil
diff --git a/lisp/sawfish/wm/extras.jl b/lisp/sawfish/wm/extras.jl
index 0bfd4ed..1ac81d3 100644
--- a/lisp/sawfish/wm/extras.jl
+++ b/lisp/sawfish/wm/extras.jl
@@ -30,7 +30,7 @@
:group appearance
:after-set (lambda () (update-frame-font-color)))
- (defcustom frame-font-focus-color "black"
+ (defcustom frame-font-active-color "black"
"Font color for active frames"
:type color
:group appearance
diff --git a/lisp/sawfish/wm/frames.jl b/lisp/sawfish/wm/frames.jl
index 6e21d7b..9c65c2e 100644
--- a/lisp/sawfish/wm/frames.jl
+++ b/lisp/sawfish/wm/frames.jl
@@ -167,7 +167,7 @@ that overrides settings set elsewhere.")
(define (update-frame-font-color)
(if use-custom-font-color
(mapc (lambda (fc)
- (set-frame-part-value fc 'foreground (list frame-font-inactive-color frame-font-focus-color) 't)) (list 'title 'tab))
+ (set-frame-part-value fc 'foreground (list frame-font-inactive-color frame-font-active-color) 't)) (list 'title 'tab))
(mapc (lambda (fc)
(rplacd (assoc 'foreground (assoc fc override-frame-part-classes)) nil)
(rplaca (assoc 'foreground (assoc fc override-frame-part-classes)) nil)) (list 'title 'tab)))
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]