From 94dfc98fd9dea079f9d516c2e4ed7343a4c6cbd4 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Tue, 17 Jan 2023 17:22:52 -0500
Subject: Minor changes for Hex table -- wifi, music note, print colors

---
 virtual-programs/music.folk | 5 ++---
 virtual-programs/print.folk | 4 ++--
 2 files changed, 4 insertions(+), 5 deletions(-)

(limited to 'virtual-programs')

diff --git a/virtual-programs/music.folk b/virtual-programs/music.folk
index 664caffd..b7472ba6 100644
--- a/virtual-programs/music.folk
+++ b/virtual-programs/music.folk
@@ -118,14 +118,13 @@ proc ::Music::finishSetup {} {
 }
 
 proc ::Music::waitForDbus {} {
-    puts "waiting now"
+    puts "Waiting for D-Bus."
     if {[file exists /run/user/1000/bus]} {
-        puts "done waiting"
+        puts "Found D-Bus."
         ::Music::finishSetup
     } else {
         after 100 ::Music::waitForDbus
     }
 }
 
-puts "about to wait"
 ::Music::waitForDbus
diff --git a/virtual-programs/print.folk b/virtual-programs/print.folk
index dedb8458..f1ac7a09 100644
--- a/virtual-programs/print.folk
+++ b/virtual-programs/print.folk
@@ -119,7 +119,7 @@ proc ::programToPs {id text {format "letter"} {side "front"}} {
         %!PS
         << /PageSize \[$PageWidth $PageHeight\] >> setpagedevice
 
-        [expr { $side eq "back" ? { 0.4 setgray } : {} }]
+        /settextcolor {[expr { $side eq "back" ? { 0.4 setgray } : { 0 setgray } }]} def
 
         /Courier findfont
         $fontsize scalefont
@@ -131,7 +131,7 @@ proc ::programToPs {id text {format "letter"} {side "front"}} {
             incr lineidx
             subst {
                 $margin [expr $PageHeight-$margin-$lineidx*$lineheight] moveto
-                0.5 setgray ([format "%- 3s" $linenum]) show 0 setgray ($line) show
+                0.4 setgray ([format "%- 3s" $linenum]) show settextcolor ($line) show
             }
         }] "\n"]
 
-- 
cgit v1.2.3