Added git-grep and git-diff

2026-08-12 22:28:27 +02:00
parent e4e37d2214
commit aebd420c3c
5 changed files with 179 additions and 40 deletions
@@ -0,0 +1,55 @@
+#lang racket/base
+
+(require net/sendurl
+         json
+         xml
+         racket/string
+         )
+
+(provide diff->html)
+
+(define (make-js . args)
+  (string-join args "\n"))
+
+(define (diff->html diff)
+  (let ((highlight-css "https://cdnjs.cloudflare.com/ajax/libs/highlight.js/11.8.0/styles/github.min.css")
+        (diff2html-min-css "https://cdn.jsdelivr.net/npm/diff2html/bundles/css/diff2html.min.css")
+        (diff2html-ui-min-js "https://cdn.jsdelivr.net/npm/diff2html/bundles/js/diff2html-ui.min.js"))
+    (let ((html `(html
+                  (head
+                   (meta ((charset "utf-8")))
+                   (link ((rel "stylesheet") (href ,highlight-css)))
+                   (link ((rel "stylesheet") (href ,diff2html-min-css)))
+                   (script ((src ,diff2html-ui-min-js)) "")
+                   (script ,(format
+                             (make-js
+                              "window.do_diff = function() {"
+                              "const diff = ~a;"
+                              "const ui = new Diff2HtmlUI("
+                              "                   document.getElementById('diff'),"
+                              "                   diff,"
+                              "                   {"
+                              "                     drawFileList: true,"
+                              "                     matching: 'lines',"
+                              "                     outputFormat: 'side-by-side',"
+                              "                   });"
+                              "ui.draw();"
+                              "ui.highlightCode();"
+                              "};"
+                              )
+                             (jsexpr->string diff))
+                           )
+                   )
+                  (body
+                   (div ((id "diff")))
+                   (script ((type "text/javascript"))
+                           "window.do_diff();")
+                   ))))
+      (let ((tmp-file (build-path (find-system-path 'temp-dir) "racket-git-diff.html")))
+        (call-with-output-file tmp-file #:exists 'truncate
+          (λ (out)
+            (display (xexpr->string html) out)))
+        (send-url/file tmp-file)))))
+      
+      
+