refactor: retire unreferenced modules to an archive directory

A reachability sweep from init.el found eight .el files that nothing in the config loads or references. I moved them under archive/ (off the load-path, still tracked in git) so they stay readable and restorable rather than deleted. archive/README.org records the rule (every .el outside archive/ should be actively used) and why each file was retired.

I retired show-kill-ring, duet-config, and mu4e-org-contacts-setup from modules/, and eplot, profile-dotemacs, titlecase, titlecase-data, and edit-indirect from custom/. Retiring show-kill-ring also removed the orphaned M-K -> M-S-k translation in keyboard-compat, which had left M-K a dead key. Its tests now assert seventeen translations and guard M-K's absence.

2 files changed, 8 insertions, 79 deletions

diff --git a/tests/test-keyboard-compat-setup.el b/tests/test-keyboard-compat-setup.el
index a3e6f441..a23e24e1 100644
--- a/tests/test-keyboard-compat-setup.el
+++ b/tests/test-keyboard-compat-setup.el
@@ -79,18 +79,20 @@ without the arrow-key decodings.  The GUI half already frame-scopes itself."
        ,@body)))
 
 (defconst test-kbc--meta-shift-letters
-  '(?o ?m ?y ?f ?w ?e ?l ?r ?v ?h ?t ?z ?u ?d ?i ?c ?b ?k)
-  "The 18 letters whose M-<UPPER> form is translated to M-S-<lower> in GUI mode.")
+  '(?o ?m ?y ?f ?w ?e ?l ?r ?v ?h ?t ?z ?u ?d ?i ?c ?b)
+  "The 17 letters whose M-<UPPER> form is translated to M-S-<lower> in GUI mode.")
 
 (ert-deftest test-keyboard-compat-gui-setup-translates-spot-checks ()
-  "Normal: in GUI mode, M-O -> M-S-o and M-K -> M-S-k (sampled)."
+  "Normal: in GUI mode, M-O -> M-S-o and M-B -> M-S-b (sampled).
+M-K is no longer translated: show-kill-ring, its only consumer, was retired."
   (test-kbc--gui t
     (cj/keyboard-compat-gui-setup)
     (should (equal (lookup-key key-translation-map (kbd "M-O")) (kbd "M-S-o")))
-    (should (equal (lookup-key key-translation-map (kbd "M-K")) (kbd "M-S-k")))
-    (should (equal (lookup-key key-translation-map (kbd "M-D")) (kbd "M-S-d")))))
+    (should (equal (lookup-key key-translation-map (kbd "M-B")) (kbd "M-S-b")))
+    (should (equal (lookup-key key-translation-map (kbd "M-D")) (kbd "M-S-d")))
+    (should-not (lookup-key key-translation-map (kbd "M-K")))))
 
-(ert-deftest test-keyboard-compat-gui-setup-translates-all-eighteen ()
+(ert-deftest test-keyboard-compat-gui-setup-translates-all-seventeen ()
   "Normal: every documented M-<UPPER> maps to its M-S-<lower> form."
   (test-kbc--gui t
     (cj/keyboard-compat-gui-setup)
diff --git a/tests/test-show-kill-ring--insert-item.el b/tests/test-show-kill-ring--insert-item.el
deleted file mode 100644
index a29ca75e..00000000
--- a/tests/test-show-kill-ring--insert-item.el
+++ /dev/null
@@ -1,73 +0,0 @@
-;;; test-show-kill-ring--insert-item.el --- Tests for show-kill-insert-item -*- lexical-binding: t -*-
-
-;;; Commentary:
-;; Tests for `show-kill-insert-item' in show-kill-ring.el — inserts a
-;; kill-ring entry into the current buffer, truncating to
-;; `show-kill-max-item-size' with an ellipsis when too long.  The ellipsis
-;; sits inline for short items and on its own line for items wider than the
-;; frame.  Frame width is read at runtime so the test is environment-stable.
-
-;;; Code:
-
-(require 'ert)
-(require 'show-kill-ring)
-
-;;; Normal Cases
-
-(ert-deftest test-show-kill-ring-insert-item-short-verbatim ()
-  "Normal: an item shorter than the max is inserted unchanged."
-  (let ((show-kill-max-item-size 1000))
-    (with-temp-buffer
-      (show-kill-insert-item "hello")
-      (should (string= (buffer-string) "hello")))))
-
-(ert-deftest test-show-kill-ring-insert-item-inline-ellipsis ()
-  "Normal: an over-max item narrower than the frame gets an inline ellipsis."
-  (let* ((show-kill-max-item-size 5)
-         (len (/ (frame-width) 2))        ; > max, < (frame-width - 5)
-         (item (make-string len ?b)))
-    (with-temp-buffer
-      (show-kill-insert-item item)
-      (should (string= (buffer-string) "bbbbb...")))))
-
-;;; Boundary Cases
-
-(ert-deftest test-show-kill-ring-insert-item-length-equals-max-truncates ()
-  "Boundary: length exactly equal to max truncates — the guard is (< len max)."
-  (let ((show-kill-max-item-size 5))
-    (with-temp-buffer
-      (show-kill-insert-item "hello")     ; length 5, equals max
-      (should (string= (buffer-string) "hello...")))))
-
-(ert-deftest test-show-kill-ring-insert-item-wide-newline-ellipsis ()
-  "Boundary: an item wider than the frame puts the ellipsis on its own line."
-  (let* ((show-kill-max-item-size 5)
-         (item (make-string (+ (frame-width) 10) ?a)))
-    (with-temp-buffer
-      (show-kill-insert-item item)
-      (should (string= (buffer-string) "aaaaa\n...")))))
-
-(ert-deftest test-show-kill-ring-insert-item-max-nil-verbatim ()
-  "Boundary: a non-numeric max disables truncation."
-  (let ((show-kill-max-item-size nil))
-    (with-temp-buffer
-      (show-kill-insert-item "anything long enough to exceed nothing")
-      (should (string= (buffer-string)
-                       "anything long enough to exceed nothing")))))
-
-(ert-deftest test-show-kill-ring-insert-item-max-negative-verbatim ()
-  "Boundary: a negative max disables truncation."
-  (let ((show-kill-max-item-size -1))
-    (with-temp-buffer
-      (show-kill-insert-item "abc")
-      (should (string= (buffer-string) "abc")))))
-
-(ert-deftest test-show-kill-ring-insert-item-empty-string ()
-  "Boundary: an empty item inserts nothing and does not error."
-  (let ((show-kill-max-item-size 1000))
-    (with-temp-buffer
-      (show-kill-insert-item "")
-      (should (string= (buffer-string) "")))))
-
-(provide 'test-show-kill-ring--insert-item)
-;;; test-show-kill-ring--insert-item.el ends here