fix(dev): repair hunk jump, F4 hook leak, async clone, and nil guards

- vc-config: C-; v d matched literal +/- source text via consult-line, not gutter hunks. It now completes over git-gutter's hunk list and jumps to the chosen line.
- vc-config: clipboard clone ran git synchronously, freezing every frame for the whole clone. It now runs async with a sentinel that opens the clone on success and surfaces the process buffer on failure.
- vc-config: magit-blame bound D and S to the same command. D is now difftastic-magit-diff, matching the transient.
- vc-config: dropped the :commands autoload for git-timemachine-show-selected-revision, a function the package never defined. The phantom appeared in M-x and errored.
- dev-fkeys: both F4 chained-compile handlers armed a hook on the global compilation-finish-functions before their compile ran, so a quit left it live and the next unrelated compile fired the chain. The one-shot hook now installs buffer-locally in the compilation buffer, same shape as the projectile cache-revert hooks.
- test-runner: outside a project with no global test directory, three commands crashed with wrong-type-argument on a nil path. Discovery now returns nil and the commands signal user-error.
- diff-config: removed the global "-w" ediff default, which made every session ignore whitespace (indentation-only changes compared as identical). Whitespace-ignore stays available as ediff's per-session toggle.
- restclient-config: the C-; R bindings went through raw global-set-key, silently depending on keybindings.el loading first. They now use a prefix keymap registered like the other C-; prefixes.
- httpd-config: simple-httpd loaded on a 1s timer and created www/ on every startup. It now defers until impatient-mode needs it, and the doc root is created at package load.

1 files changed, 9 insertions, 4 deletions

diff --git a/modules/test-runner.el b/modules/test-runner.el
index 7f157f1c..6cb35275 100644
--- a/modules/test-runner.el
+++ b/modules/test-runner.el
@@ -139,9 +139,11 @@ if not found or not in a project."
 		 (t cj/test-global-directory))))))
 
 (defun cj/test--get-test-files ()
-  "Return list of test file names (without path) in test directory."
+  "Return list of test file names (without path) in test directory.
+Returns nil when no test directory is available (outside a project
+with `cj/test-global-directory' unset)."
   (let ((dir (cj/test--get-test-directory)))
-	(when (file-directory-p dir)
+	(when (and dir (file-directory-p dir))
 	  (mapcar #'file-name-nondirectory
 			  (directory-files dir t "^test-.*\\.el$")))))
 
@@ -169,6 +171,8 @@ Returns: (cons \\='success loaded-count) on success,
   (interactive)
   (cj/test--ensure-test-dir-in-load-path)
   (let ((dir (cj/test--get-test-directory)))
+	(unless dir
+	  (user-error "No test directory: not in a project and cj/test-global-directory is unset"))
 	(unless (file-directory-p dir)
 	  (user-error "Test directory %s does not exist" dir))
 	(let ((test-files (directory-files dir t "^test-.*\\.el$")))
@@ -200,11 +204,12 @@ Returns: \\='success if added successfully,
   (cj/test--ensure-test-dir-in-load-path)
   (let* ((focused-files (cj/test--current-focused-files))
          (dir (cj/test--get-test-directory))
-		 (available-files (when (file-directory-p dir)
+		 (available-files (when (and dir (file-directory-p dir))
 							(mapcar #'file-name-nondirectory
 									(directory-files dir t "^test-.*\\.el$")))))
 	(if (null available-files)
-		(user-error "No test files found in %s" dir)
+		(user-error "No test files found in %s"
+					(or dir "any test directory (not in a project)"))
 	  (let* ((unfocused-files (cl-set-difference available-files
 												 focused-files
 												 :test #'string=))