You know we love updating with a horrendous commit message

1 files changed, 35 insertions, 35 deletions

diff --git a/src/gizmo/wasp-biblicality.el b/src/gizmo/wasp-biblicality.el
index 317e87f7..db169337 100644
--- a/src/gizmo/wasp-biblicality.el
+++ b/src/gizmo/wasp-biblicality.el
@@ -14,17 +14,18 @@
 (defun w/bible-canonize (user)
   "Add USER to the bible 1000 times."
   (w/append-file
-   (s-concat "\n" (s-repeat 1000 (s-concat user " ")))
-   (w/asset "bible.txt"))
+    (s-concat "\n" (s-repeat 1000 (s-concat user " ")))
+    (w/asset "bible.txt"))
   (ht-set! w/bible-table user 1000))
 
 (defun w/populate-bible-table ()
   "Populate `w/bible-table' from the Bible text file."
   (unless w/bible-table
-    (let* ((bible-string (s-downcase (w/slurp (w/asset "bible.txt"))))
-           (bible-string-nosyms (replace-regexp-in-string "[^[:alpha:]]" " " bible-string))
-           (bible-words (s-split-words bible-string-nosyms))
-           (ret (ht-create)))
+    ;; (let* ((bible-string (s-downcase (w/slurp (w/asset "bible.txt"))))
+    (let* ((bible-string (s-downcase (w/slurp (w/asset "medical.txt"))))
+            (bible-string-nosyms (replace-regexp-in-string "[^[:alpha:]]" " " bible-string))
+            (bible-words (s-split-words bible-string-nosyms))
+            (ret (ht-create)))
       (--each bible-words
         (let ((old (ht-get ret it)))
           (ht-set! ret it (+ 1 (or old 0)))))
@@ -33,47 +34,46 @@
 (defun w/bible-word-score (word)
   "Return a number between 0.0 and 1.0 representing how biblical WORD is."
   (if (-contains? '("Sam" "Altman") word)
-      -666.0
+    -666.0
     (let ((occs (ht-get w/bible-table (downcase (s-trim word))))
-          (thresh 0.6))
+           (thresh 0.6))
       (if occs
-          ;; (+ thresh (/ (min occs 1000.0) (/ 1000.0 (- 1.0 thresh))))
-          (+ thresh (/ (min occs 10.0) (/ 10.0 (- 1.0 thresh))))
+        (+ thresh (/ (min occs 1000.0) (/ 1000.0 (- 1.0 thresh))))
         0.0))))
 
 (defun w/bible-word-color (word)
   "Given a WORD, return an appropriate color string."
   (let* ((score (w/bible-word-score word))
-         (others (truncate (+ 128.0 (* 127.0 score)))))
-         ;; (others (- 255 (truncate (+ 128.0 (* 127.0 score))))))
+          (others (truncate (+ 128.0 (* 127.0 score)))))
+    ;; (others (- 255 (truncate (+ 128.0 (* 127.0 score))))))
     (format "#ff%02x%02x" others others)))
-    ;; (format "#00%02x%02x" others others)))
+;; (format "#00%02x%02x" others others)))
 
 (defun w/bible-colorize-sentence (sen)
   "Propertize SEN with colors representing word biblicality."
   (if w/bible-table
-      (let ((ret-score-total 0.0)
-            (ret-score-count 0))
-        (save-excursion
-          (with-temp-buffer
-            (insert sen)
-            (goto-char (point-min))
-            (while (not (eobp))
-              (let ((at-word (bounds-of-thing-at-point 'word)))
-                (when at-word
-                  (let* ((word (buffer-substring (car at-word) (cdr at-word)))
-                         (score (w/bible-word-score word))
-                         (color (w/bible-word-color word)))
-                    (setq ret-score-total (+ ret-score-total score))
-                    (cl-incf ret-score-count)
-                    (add-text-properties
-                     (car at-word) (cdr at-word)
-                     `(face (:foreground ,color))
-                     )
-                    (goto-char (cdr at-word))))
-                (when (not (eobp))
-                  (forward-char 1))))
-            (cons (buffer-string) (/ ret-score-total ret-score-count)))))
+    (let ((ret-score-total 0.0)
+           (ret-score-count 0))
+      (save-excursion
+        (with-temp-buffer
+          (insert sen)
+          (goto-char (point-min))
+          (while (not (eobp))
+            (let ((at-word (bounds-of-thing-at-point 'word)))
+              (when at-word
+                (let* ((word (buffer-substring (car at-word) (cdr at-word)))
+                        (score (w/bible-word-score word))
+                        (color (w/bible-word-color word)))
+                  (setq ret-score-total (+ ret-score-total score))
+                  (cl-incf ret-score-count)
+                  (add-text-properties
+                    (car at-word) (cdr at-word)
+                    `(face (:foreground ,color))
+                    )
+                  (goto-char (cdr at-word))))
+              (when (not (eobp))
+                (forward-char 1))))
+          (cons (buffer-string) (/ ret-score-total ret-score-count)))))
     (cons sen 0.0)))
 
 (provide 'wasp-biblicality)