Add with-simulated-input

Author: xendk

init.el

@@ -1048,6 +1048,12 @@ set (i.e., OPERATION is \\='set).  This excludes, e.g., let bindings."
   (:with-function +assess-maybe-require
     (:hook-into emacs-lisp-mode)))
 
+(setup with-simulated-input
+  (:elpaca t)
+  (:require +with-simulated-input)
+  (:with-function +with-simulated-input-maybe-require
+    (:hook-into emacs-lisp-mode)))
+
 (setup ecukes
   (:elpaca t))
 

lisp/+assess.el

@@ -1,11 +1,11 @@
-;;; +buttercup.el --- Assess support                 -*- lexical-binding: t; -*-
+;;; +assess.el --- Assess support                 -*- lexical-binding: t; -*-
 
 ;;; Commentary:
 
 ;;; Code:
 
 (defun +assess-maybe-require ()
-  "Enable buttercup-minor-mode in current buffer if buttercup is required."
+  "Require assess if it is required by file."
   (save-excursion
     (goto-char (point-min))
     (when (search-forward "(require 'assess)" 100 t)

lisp/+with-simulated-input.el

@@ -0,0 +1,15 @@
+;;; +with-simulated-input.el --- Assess support                 -*- lexical-binding: t; -*-
+
+;;; Commentary:
+
+;;; Code:
+
+(defun +with-simulated-input-maybe-require ()
+  "Require with-simulated-input if it is required by file."
+  (save-excursion
+    (goto-char (point-min))
+    (when (search-forward "(require 'with-simulated-input)" 100 t)
+      (require 'with-simulated-input))))
+
+(provide '+with-simulated-input)
+;;; +with-simulated-input.el ends here