Update colours used

1 files changed, 17 insertions, 9 deletions

diff --git a/tkread b/tkread
index 228ae97..037befb 100755
--- a/tkread
+++ b/tkread
@@ -14,8 +14,14 @@
 # - add more markdown processing and control it using a flag
 # - use font create / configure to name a font to simplify changing its size
 
-set fontsize 20
-set colour #554422
+set fontsize 15
+set textcolour #443322
+set bgcolour #eeeeee
+set outercolour #f8f8f5
+set inverttextcolour #eeeeee
+set invertbgcolour #333030
+set invertoutercolour #222222
+
 set inverted 0
 set drag 0
 set tagnum 0
@@ -99,15 +105,17 @@ proc changeFontSize {change} {
 }
 
 proc invertColours {} {
-	global inverted colour
+	global inverted
+	global bgcolour textcolour outercolour
+	global invertbgcolour inverttextcolour invertoutercolour
 	if {$inverted} {
 		set inverted 0
-		.t configure -bg white -fg $colour
-		. configure -bg #f8f8f5
+		.t configure -bg $bgcolour -fg $textcolour
+		. configure -bg $outercolour
 	} else {
 		set inverted 1
-		.t configure -bg $colour -fg #eeeeee
-		. configure -bg #222222
+		.t configure -bg $invertbgcolour -fg $inverttextcolour
+		. configure -bg $invertoutercolour
 	}
 }
 
@@ -126,8 +134,8 @@ proc doMotion {ypos} {
 	set lasty $ypos
 }
 
-. configure -bg #f8f8f5
-text .t -font "Times $fontsize" -wrap word -width 64 -padx [expr $fontsize * 3] -bg white -fg $colour -relief flat -inactiveselectbackground {} -cursor {}
+. configure -bg $outercolour
+text .t -font "Times $fontsize" -wrap word -width 64 -padx [expr $fontsize * 3] -bg $bgcolour -fg $textcolour -relief flat -inactiveselectbackground {} -cursor {}
 pack .t -expand yes -fill y
 set text [read stdin]
 if { $::argc > 0 && [lindex $::argv 0] == "-w" } {