Index: src/db.c
==================================================================
--- src/db.c
+++ src/db.c
@@ -4400,10 +4400,50 @@
 ** Fossil considers any file whose size is greater than this value
 ** to be a "large file".  Fossil might issue warnings if you try to
 ** "add" or "commit" a "large file".  Set this value to 0 or less 
 ** to disable all such warnings.
 */
+/*
+** SETTING: wiki-classes     width=40 block-text
+** Defines classes for wiki pages that are recognized by the list
+** of available wiki pages (displayed by /wcontent web page).
+**
+** Each line defines a single rule for a class using a triplet:
+** Visibility   Label   Pattern
+**
+** Visibility is one of the following letters:
+**
+**     s  show on load, may be toggled afterwards
+**     h  hide on load, may be toggled afterwards
+**     d  hide permanently, checkbox disabled
+**     x  exclude completely, no control in the submenu
+**
+** Label is a spaces-free name of the class shown in the submenu.
+** This very same string is used as a value for HTML's class=""
+** atributes on the corresponding rows (thus beware of mangling).
+**
+** Pattern is a GLOB pattern against which wiki page names are
+** matched to distinguish a class. Case-sensitive pattern matching
+** is performed if the Visibility is specified by a lowercase letter,
+** otherwise pattern matching is case-insensitive (in which case
+** the syntax of SQLite's LIKE operator applies).
+** Pattern that consists of just a single * is a special case for
+** catching all wiki pages that do not fall into any other class
+** (this fallback does not depend on the case of the Visibility letter).
+**
+** If several consequtive lines share the same Label then this defines
+** a single class that spans accross several patterns. In that case
+** all Visibilities must also be equal (modulus upper/lower cases).
+**
+** Patterns are matched in the order of their appearance in the list.
+** If a repository manages thousands of wiki pages and the /wcontent
+** page is requested very frequently then server's CPU load may become
+** a concern. In that case an administrator is advised to rearrange
+** classes in the list in such a way that more patterns are matched
+** earlier. In all cases it is advised to keep a special "catch-all"
+** class in the bottom of the list.
+*/
 
 /*
 ** Look up a control setting by its name.  Return a pointer to the Setting
 ** object, or NULL if there is no such setting.
 **

ADDED   src/fossil.page.wcontent.js
Index: src/fossil.page.wcontent.js
==================================================================
--- /dev/null
+++ src/fossil.page.wcontent.js
@@ -0,0 +1,51 @@
+/* This script implements interactivity of checkboxes that
+ * toggle visibilitiy of user-defined classes of wikipage.
+ *
+ * For the sake of compatibility with ascetic browsers the code tries
+ * to avoid modern API and ECMAScript constructs. This makes it less
+ * readable and may be reconsidered in the future.
+*/
+window.addEventListener( 'load', function() {
+
+var tbody = document.querySelector(
+            "body.wiki div.content table.sortable > tbody");
+var prc = document.getElementById("page-reload-canary");
+if( !tbody || !prc ) return;
+
+var reloading = prc.checked;
+// console.log("Reloading:",reloading);
+
+var onChange = function(event){
+  var display = event.target.checked ? "" : "none";
+  var rows    = event.target.matchingRows;
+  for(var i=0; i<rows.length; i++)
+    rows[i].style.display = display;
+}
+var checkboxes = [];
+document.querySelectorAll(
+  "body.wiki .submenu > label.submenuckbox > input")
+  .forEach(function(cbx){ checkboxes.push(cbx); });
+
+for(var j=0; j<checkboxes.length; j++){
+  var cbx = checkboxes[j];
+  // see also https://caniuse.com/mdn-css_selectors_attribute
+  var attr = cbx.getAttribute("data-ctrl");
+  if( 'undefined' == typeof attr || !attr ) continue;
+  var ctrl = attr.toString();
+  var cname = cbx.parentElement.innerText.toString();
+  var hidden = ( ctrl == 'h' || ctrl == 'd' );
+  if( reloading )
+    hidden = !cbx.checked;
+  else
+    cbx.checked = !hidden;
+  cbx.matchingRows = [];
+  tbody.querySelectorAll("tr."+cname).forEach(function (tr){
+    tr.style.display = ( hidden ? "none" : "" );
+    cbx.matchingRows.push(tr);
+  });
+  cbx.addEventListener("change", onChange ); 
+  // console.log( cbx.matchingRows.length, cname, ctrl );
+}
+
+prc.checked = true;
+}); // window.addEventListener( 'load' ...

Index: src/main.mk
==================================================================
--- src/main.mk
+++ src/main.mk
@@ -231,10 +231,11 @@
   $(SRCDIR)/fossil.page.brlist.js \
   $(SRCDIR)/fossil.page.chat.js \
   $(SRCDIR)/fossil.page.fileedit.js \
   $(SRCDIR)/fossil.page.forumpost.js \
   $(SRCDIR)/fossil.page.pikchrshow.js \
+  $(SRCDIR)/fossil.page.wcontent.js \
   $(SRCDIR)/fossil.page.whistory.js \
   $(SRCDIR)/fossil.page.wikiedit.js \
   $(SRCDIR)/fossil.pikchr.js \
   $(SRCDIR)/fossil.popupwidget.js \
   $(SRCDIR)/fossil.storage.js \

Index: src/wiki.c
==================================================================
--- src/wiki.c
+++ src/wiki.c
@@ -21,10 +21,28 @@
 #include "config.h"
 #include <assert.h>
 #include <ctype.h>
 #include "wiki.h"
 
+#if INTERFACE
+
+/*
+** WikiClass struct holds information for matching a wiki page name.
+** It is constructed by load_wiki_classes() function and represents a
+** single well-formed line obtained from the 'wiki-classes' setting.
+*/
+struct WikiClass {
+  const char * zPattern; /* pattern to match against                    */
+  int   isCaseIns;       /* syntax flag: 0 for GLOB, 1 for LIKE         */
+  short isAltPat;        /* indicates an additional pattern for a class */
+
+  const char * zVisblty; /* visibility flag, one of: "s" "h" "d" "x"    */
+  const char * zLabel;   /* user-visible class name, same in HTML attrs */
+  const char * zParam;   /* checkbox attr, like in <input name="..." /> */
+};
+#endif
+
 /*
 ** Return true if the input string is a well-formed wiki page name.
 **
 ** Well-formed wiki page names do not begin or end with whitespace,
 ** and do not contain tabs or other control characters and do not
@@ -439,10 +457,126 @@
     case WIKITYPE_TAG: return "tag";
     case WIKITYPE_NORMAL:
     default: return "normal";
   }
 }
+
+/*
+** load_wiki_classes() loads and parses the value of the 'wiki-classes'
+** setting. Retrurns either NULL or a dynamically allocated array of
+** WikiClasses (thus fossil_free() for the returned value is advised).
+*/
+WikiClass* load_wiki_classes(
+  int *nWC,  /* number of well-formed elements in the returned array    */
+  Blob *wcs  /* holds a buffer for strings in the returned WikiClass'es */
+){
+
+  static const char *zPN[] = { /* no malloc() for the common cases */
+     "wc0", "wc1", "wc2", "wc3", "wc4", "wc5", "wc6", "wc7",
+     "wc8", "wc9","wc10","wc11","wc12","wc13","wc14","wc15",
+    "wc16","wc17","wc18","wc19","wc20","wc21","wc22","wc23"
+  };
+  WikiClass* aWC = 0;
+  int n = 0;
+  char *zWCS = db_get("wiki-classes",0);
+  if( zWCS && strlen(zWCS) >= 5 ){
+    Blob line  = empty_blob;
+    int nAlloc = 0;
+    blob_set_dynamic(wcs,zWCS);
+    while( blob_line(wcs,&line) > 0 ){
+      Blob vis = empty_blob;
+      Blob lbl = empty_blob;
+      Blob pat = empty_blob;
+      WikiClass * wc;
+      const char *z;
+      int cins = 0;
+      char v;
+      if( blob_token(&line,&vis) != 1 ){
+        continue;
+      }
+      v = vis.aData[0];
+      switch( v ){
+        case 'D':
+        case 'H':
+        case 'S':
+        case 'X':
+          cins = 1;
+          vis.aData[0] = (char)tolower(v);
+        case 'd':
+        case 'h':
+        case 's':
+        case 'x':
+          break;
+        default:
+          v = 0;
+      }
+      if( v == 0 ) continue;
+      if( blob_token(&line,&lbl) <= 0 ){
+        continue;
+      }
+      blob_tail(&line,&pat);
+      /* blob_to_lf_only(&pre); <-- this is redundant, isn't it ? */
+      blob_trim(&pat);
+      z = blob_terminate(&pat);
+      while(fossil_isspace(z[0])) z++;
+      if( z[0] == 0 ){
+        continue;
+      }
+      if( n >= nAlloc ){
+        nAlloc += count(zPN);
+        aWC = (WikiClass*)( aWC ?
+             fossil_realloc(aWC,sizeof(WikiClass)*nAlloc)  :
+             fossil_malloc_zero(sizeof(WikiClass)*nAlloc) );
+      }
+      wc = aWC + n;
+      wc->zPattern  = z;
+      wc->isCaseIns = cins;
+      wc->zVisblty  = blob_terminate(&vis);
+      wc->zLabel    = blob_terminate(&lbl);
+      wc->zParam    = ( n < count(zPN) ? zPN[n] : mprintf("wc%d",n) );
+      if( n > 0 && strcmp( wc->zLabel, wc[-1].zLabel ) == 0 ){
+        if( wc->zVisblty[0] != wc[-1].zVisblty[0] ||
+            strcmp( wc->zPattern, wc[-1].zPattern ) == 0 ){
+          continue;
+        }
+        wc->isAltPat = 1;
+      }else{
+        wc->isAltPat = 0;
+      }
+      n++;
+    }
+  }
+  if( nWC ) *nWC = n;
+  return aWC;
+}
+/*
+** Find and return a WikiClass that matches a name of a wiki page.
+** Returns 0 if "fallback" pattern was not provisioned.
+*/
+const WikiClass* resolve_wiki_class(
+  const char *zName,    /* name of a wiki page that should be classified */
+  const WikiClass *aWC, /* pointer to the array of WikiClass'es          */
+  int nWC               /* number of elements in the above array         */
+){
+  const WikiClass* fallback = 0;
+  if( aWC && zName ){
+    int i;
+    for( i=0; i<nWC; i++ ){
+      const WikiClass* wc = aWC + i;
+      if( wc->zPattern[0] == '*' && wc->zPattern[1] == 0 ){
+        if( !fallback ) fallback = wc;
+      }else if( wc->isCaseIns ){
+        if( sqlite3_strlike( wc->zPattern, zName, 0 ) == 0 )
+          return wc;
+      }else{
+        if( sqlite3_strglob( wc->zPattern, zName ) == 0 )
+          return wc;
+      }
+    }
+  }
+  return fallback;
+}
 
 /*
 ** Add an appropriate style_header() for either the /wiki or /wikiedit page
 ** for zPageName.  zExtra is an empty string for /wiki but has the text
 ** "Edit: " for /wikiedit.
@@ -1917,10 +2051,13 @@
 void wcontent_page(void){
   Stmt q;
   double rNow;
   int showAll = P("all")!=0;
   int showRid = P("showid")!=0;
+  Blob wcs = empty_blob;
+  int i, nWC = 0;
+  WikiClass* aWC;
 
   login_check_credentials();
   if( !g.perm.RdWiki ){ login_needed(g.anon.RdWiki); return; }
   style_set_current_feature("wiki");
   style_header("Available Wiki Pages");
@@ -1927,12 +2064,20 @@
   if( showAll ){
     style_submenu_element("Active", "%R/wcontent");
   }else{
     style_submenu_element("All", "%R/wcontent?all=1");
   }
+  aWC = load_wiki_classes(&nWC,&wcs);
+  for( i=0; i<nWC; i++ ){
+    const WikiClass * c = aWC + i;
+    if( c->isAltPat || c->zVisblty[0] == 'x' ) continue;
+    style_submenu_checkbox( c->zParam, c->zLabel,
+      c->zVisblty[0]=='d' ? STYLE_DISABLED : STYLE_NORMAL, c->zVisblty);
+  }
   wiki_standard_submenu(W_ALL_BUT(W_LIST));
   db_prepare(&q, listAllWikiPages/*works-like:""*/);
+  @ <input hidden="hidden" id="page-reload-canary" type="checkbox"/>
   @ <div class="brlist">
   @ <table class='sortable' data-column-types='tKN' data-init-sort='1'>
   @ <thead><tr>
   @ <th>Name</th>
   @ <th>Last Change</th>
@@ -1949,22 +2094,37 @@
     double rWmtime = db_column_double(&q, 3);
     sqlite3_int64 iMtime = (sqlite3_int64)(rWmtime*86400.0);
     char *zAge;
     int wcnt = db_column_int(&q, 4);
     char *zWDisplayName;
+    const WikiClass * wc = resolve_wiki_class(zWName,aWC,nWC);
+    if( wc && (wc->zVisblty[0] == 'x' || wc->zVisblty[0] == 'd') ){
+      continue;
+    }
 
-    if( sqlite3_strglob("checkin/*", zWName)==0 ){
+    if( sqlite3_strglob("checkin/*", zWName)==0 ){ /* --?--> strncmp() */
       zWDisplayName = mprintf("%.25s...", zWName);
     }else{
-      zWDisplayName = mprintf("%s", zWName);
+      zWDisplayName = mprintf("%s", zWName); /* --?--> fossil_strdup() */
     }
+
     if( wrid==0 ){
       if( !showAll ) continue;
-      @ <tr><td data-sortkey="%h(zSort)">\
+      if(wc){
+        @ <tr class="%h(wc->zLabel)">
+      }else{
+        @ <tr>
+      }
+      @ <td data-sortkey="%h(zSort)">\
       @ %z(href("%R/whistory?name=%T",zWName))<s>%h(zWDisplayName)</s></a></td>
     }else{
-      @ <tr><td data-sortkey="%h(zSort)">\
+      if(wc){
+        @ <tr class="%h(wc->zLabel)">
+      }else{
+        @ <tr>
+      }
+      @ <td data-sortkey="%h(zSort)">\
       @ %z(href("%R/wiki?name=%T&p",zWName))%h(zWDisplayName)</a></td>
     }
     zAge = human_readable_age(rNow - rWmtime);
     @ <td data-sortkey="%016llx(iMtime)">%s(zAge)</td>
     fossil_free(zAge);
@@ -1975,12 +2135,15 @@
     @ </tr>
     fossil_free(zWDisplayName);
   }
   @ </tbody></table></div>
   db_finalize(&q);
+  builtin_request_js("fossil.page.wcontent.js");
   style_table_sorter();
   style_finish_page();
+  if(aWC) fossil_free(aWC);
+  blob_reset(&wcs); /* FIXME: it's an analog of fossil_free(), isn't it? */
 }
 
 /*
 ** WEBPAGE: wfind
 **

Index: www/javascript.md
==================================================================
--- www/javascript.md
+++ www/javascript.md
@@ -595,10 +595,19 @@
 
 _Potential Workaround:_ A user can manually construct an appropriate
 regular expession and put it into the "Tag Filter" entry of the
 `/timeline` page (in its advanced mode).
 
+### <a id="wcontent"></a>Wiki content listing
+
+[Since](/timeline?r=wcontent-subsets) version 2.18 it is possible to
+add [configurable](/help?cmd=wiki-classes) checkbox controls to the
+submenu of [available wiki pages](/wcontent) for the interactive
+adjustment of a subset of wiki pages that are shown.
+Client-side script is used to toggle visibility of the corresponding
+rows according to the state of these checkboxes.
+
 ----
 
 ## <a id="future"></a>Future Plans for JavaScript in Fossil
 
 As of mid-2020, the informal provisional plan is to increase Fossil