From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 20 Mar 2021 21:10:29 +0000 (-0500)
Subject: vocabs.metadata: Show vocab root in listener vocab info row
X-Git-Tag: 0.99~2400
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=3bd8e04afa67e963e194ef23e8c84b5d7cf26a1c

vocabs.metadata: Show vocab root in listener vocab info row
---

diff --git a/basis/vocabs/metadata/metadata.factor b/basis/vocabs/metadata/metadata.factor
index 044447878c..ea085d2852 100644
--- a/basis/vocabs/metadata/metadata.factor
+++ b/basis/vocabs/metadata/metadata.factor
@@ -1,10 +1,10 @@
 ! Copyright (C) 2009, 2010 Slava Pestov, Joe Groff.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors assocs classes.algebra
+USING: accessors assocs classes.algebra combinators
 combinators.short-circuit continuations io.directories
 io.encodings.utf8 io.files io.pathnames kernel make math.parser
-memoize namespaces sequences summary system vocabs vocabs.loader
-words ;
+memoize namespaces sequences splitting summary system vocabs
+vocabs.loader words ;
 IN: vocabs.metadata
 
 : check-vocab ( vocab -- vocab )
@@ -37,12 +37,15 @@ MEMO: vocab-file-lines ( vocab name -- lines/f )
 : vocab-summary-path ( vocab -- path/f )
     "summary.txt" vocab-file-path ;
 
+: vocab-in-root-summary ( vocab -- string )
+    vocab-name dup
+    ".private" ?tail drop find-vocab-root
+    [ "`" "'" surround " in " glue ] when* ;
+
 : vocab-summary ( vocab -- summary )
-    dup "summary.txt" vocab-file-lines [
-        vocab-name " vocabulary" append
-    ] [
-        nip first
-    ] if-empty ;
+    [ "summary.txt" vocab-file-lines [ first ] [ f ] if* ]
+    [ vocab-in-root-summary ] bi
+    over [ ", " glue ] [ nip ] if ;
 
 M: vocab summary
     [