From 01ed63275bc52d230d77f47afa6fc16cd91347d1 Mon Sep 17 00:00:00 2001
From: Stefan Schippers <schippes@mazinga.lan>
Date: Fri, 30 Oct 2020 01:22:25 +0100
Subject: [PATCH] do not set dircolor(...) default item colors if dircolor
 array defined in xschemrc

---
 src/xschem.tcl                           | 6 ++++--
 src/xschemrc                             | 7 ++++++-
 xschem_library/examples/cmos_example.sch | 2 +-
 3 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index b69a3276..12b707d7 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -3159,8 +3159,10 @@ set tclcmd_txt {}
 ### user preferences: set default values
 ###
 
-set_ne dircolor(/share/xschem/) red
-set_ne dircolor(/share/doc/xschem/) {#338844}
+if { ![info exists dircolor] } {
+  set_ne dircolor(/share/xschem/) red
+  set_ne dircolor(/share/doc/xschem/) {#338844}
+}
 
 set_ne globfilter {*}
 ## list of tcl procedures to load at end of xschem.tcl
diff --git a/src/xschemrc b/src/xschemrc
index 8fd6ae3f..ccd6fe3d 100644
--- a/src/xschemrc
+++ b/src/xschemrc
@@ -56,9 +56,14 @@
 # append XSCHEM_LIBRARY_PATH ${xschem_doc_dir}/gschem_import/sym
 
 # For Windows, use ; instead of :, and enclosed pathname with ""
-#append XSCHEM_LIBRARY_PATH ";."
 #append XSCHEM_LIBRARY_PATH ";${XSCHEM_SHAREDIR}/../xschem_library"
 #append XSCHEM_LIBRARY_PATH ";${XSCHEM_SHAREDIR}/../xschem_library/devices"
+#append XSCHEM_LIBRARY_PATH ";${XSCHEM_SHAREDIR}/../xschem_library/examples"
+#append XSCHEM_LIBRARY_PATH ";${XSCHEM_SHAREDIR}/../xschem_library/ngspice"
+#append XSCHEM_LIBRARY_PATH ";${XSCHEM_SHAREDIR}/../xschem_library/logic"
+#append XSCHEM_LIBRARY_PATH ";${XSCHEM_SHAREDIR}/../xschem_library/binto7seg"
+#append XSCHEM_LIBRARY_PATH ";${XSCHEM_SHAREDIR}/../xschem_library/pcb"
+#append XSCHEM_LIBRARY_PATH ";${XSCHEM_SHAREDIR}/../xschem_library/rom8k"
 
 ###########################################################################
 ## set custom colors for xschem libraries matching certain patterns
diff --git a/xschem_library/examples/cmos_example.sch b/xschem_library/examples/cmos_example.sch
index dc8a2ace..122cb370 100644
--- a/xschem_library/examples/cmos_example.sch
+++ b/xschem_library/examples/cmos_example.sch
@@ -104,7 +104,7 @@ write cmos_example.raw
 set appendwrite
 let cap = cap + 2e-12
 end
-op
+* op
 write cmos_example.raw
 
 .endc