From: Ward Cunningham <ward@c2.com>
Date: Sat, 30 Nov 2024 15:54:20 +0000 (-0800)
Subject: report similar idioms
X-Git-Url: https://dreyeck.freedombox.rocks/gitweb/idiomatic.git/commitdiff_plain/da0744c9c33ae9440765aecde2faf00f7187032f?ds=sidebyside;hp=ef2285e8811ba79f54986e32767aa75a87191f86

report similar idioms
---

diff --git a/index.js b/index.js
index ff1804c..76c9158 100644
--- a/index.js
+++ b/index.js
@@ -80,7 +80,6 @@ app.get('/usage', (req,res) => {
       <td>${sxpr(stack[width ?? 2], depth ?? 3)}`)
   }
   visitor.walk(mods,doit)
-  const vis = row => row.split(/\n/)[3].trim().replaceAll(/<.*?>/g,'').replaceAll(/\.\.+/g,'..')
   list.sort((a,b) => vis(a)>vis(b) ? 1 : -1)
   const q = (id,delta) => Object.entries(req.query)
     .map(([k,v]) => k == id ? `${k}=${+v+delta}` : `${k}=${v}`)
@@ -102,7 +101,7 @@ app.get('/nesting', (req,res) => {
     if(stack.at(-1)==file && branch.type==type && branch.start==start && branch.end==end) {
       const path = stack.slice(0,-1).map((n,i) => `
         <tr>
-        <td><a title=${file} href=/similar?pos=${`${file}-${start}-${end}`}&depth=${i}>${n.type}</a>:
+        <td><a title=${file} href=/similar?${query(req.query)}&nest=${i}>${n.type}</a>:
         <td>${sxpr(n,3,null,stack[i-1])}`).reverse()
       const hit = stack[1]
       result.push(`
@@ -114,6 +113,26 @@ app.get('/nesting', (req,res) => {
   res.send(style('nesting',key)+`${result.join("<hr>")}`)
 })
 
+app.get('/similar', (req,res) => {
+  const {file,type,key,start,end,nest} = req.query
+  let nested
+  visitor.walk(mods,(branch,stack) => {
+    if(stack.at(-1)==file && branch.type==type && branch.start==start && branch.end==end)
+      nested = stack[nest]
+  })
+  const norm = node => vis(`\n\n\n${sxpr(node,3,null)}`)
+  const source = (file,node) => mods.find(mod => mod.file == file).text.substring(+node.start,+node.end)
+  const want = norm(nested)
+  const result = []
+  visitor.walk(mods,(branch,stack) => {
+    if(norm(branch) == want) result.push(`<pre>${escape(source(stack.at(-1),branch))}</pre><hr>`)
+  })
+  res.send(style('similar',key)+
+    `<p>${want}<hr>` +
+    result.join("\n")
+    )
+})
+
 
 // H E L P E R S
 
@@ -185,4 +204,17 @@ function elipsis(obj) {
   return `(<span title="${bytes} bytes">${dots}</span>)`
 }
 
+function vis(row) {
+  return row.split(/\n/)[3].trim()
+    .replaceAll(/<.*?>/g,'')
+    .replaceAll(/\.\.+/g,'..')
+}
+
+
+function query(obj,adj={}) {
+  return Object.entries(obj)
+    .map(([k,v]) => k in adj ? `${k}=${adj[k](v)}` : `${k}=${v}`)
+    .join('&')
+}
+
 app.listen(1954)
\ No newline at end of file