add new example w/colored d:words; describe added to library/

FossilOrigin-Name: f921df78f23ff7a699fd63595601a340e1b618af5f06d69548aef40e10ed507d

CURRENT.txt

@@ -1,6 +1,4 @@
 Currently Active:
 
-- Porting Konilo's (termina) words
-- Completing port of Konilo's block editor
 - Adding missing source data for existing vocabularies
 - Improving the D implementation of Nga

RELEASE-NOTES

@@ -56,6 +56,7 @@
   the device handlers
 - support loading extensions at runtime via `library:load`
   (searches ./library/ and ~/.config/retroforth/library/)
-- library contents: block-editor termina x11
+- library contents: block-editor describe termina x11
+- new example: colored-dwords.retro
 
 ================================================================

example/colored-dwords.retro

@@ -0,0 +1,19 @@
+This show use of the termina color words to display the contents
+of the dictionary, using colors for various word classes.
+
+~~~
+'termina library:load
+
+:d:words/c
+  [ dup d:class fetch
+    [ &class:data      [ fg:magenta ] case
+      &class:macro     [ fg:red     ] case
+      &class:primitive [ fg:yellow  ] case
+      drop fg:green
+    ] call d:name s:put sp vt:reset ] d:for-each ;
+~~~
+
+
+```
+d:words/c
+```

library/describe.retro

@@ -0,0 +1,7 @@
+This adds a `describe` word which runs retro-describe(1). It's
+a useful tool for looking up glossay data in an interactive
+session.
+
+~~~
+:describe (s-) 'retro-describe_%s s:format unix:system ;
+~~~