pop-os/emacs: Remove comment

1 files changed, 0 insertions, 49 deletions

diff --git a/oni/home/config/pop-os/emacs.el b/oni/home/config/pop-os/emacs.el
index cb3fbba..d627053 100644
--- a/oni/home/config/pop-os/emacs.el
+++ b/oni/home/config/pop-os/emacs.el
@@ -260,55 +260,6 @@ Optional argument STOPP means stop on any defect."
    (list (oni-read-brand)))
   (artisan-run-test-at-point name t))
 
-;; (defun artisan--test-internal (pick name ignore fail test-at-point-p)
-;;   (let* ((default-directory (expand-file-name name (project-root (project-current))))
-;;          (buffer-name (format "*%s Tests*" (capitalize name)))
-;;          (buffer (get-buffer-create buffer-name))
-;;          (state ((with-current-buffer buffer
-;;                    artisan--test-last-state)))
-;;          (filter (or (map-elt state 'filter)
-;;                      (when test-at-point-p (which-function))))
-;;          (files (unless (map-elt state 'file)
-;;                   (cons '("all" . "")
-;;                         (mapcar (lambda (dir) (cons (file-name-nondirectory dir) dir))
-;;                                 (directory-files-recursively "../" (rx "Test.php") nil (lambda (subdir) (not (or (string-suffix-p "vendor" subdir)
-;;                                                                                                                  (string-suffix-p "data" subdir)
-;;                                                                                                                  (string-suffix-p "cdk.out" subdir)
-;;                                                                                                                  (string-suffix-p ignore subdir)))))))))
-;;          (file (or (and (not pick)
-;;                         (map-elt state 'file))
-;;                    (and test-at-point-p
-;;                         (concat "../" (file-relative-name (buffer-file-name) (project-root (project-current)))))
-;;                    (map-elt files (completing-read "File: " files nil t))))
-;;          (command (with-current-buffer buffer
-;;                     (format "../../chanced-scripts/test %s %s %s %s"
-;;                             name
-;;                             (if fail "--stop-on-failure" "")
-;;                             (if filter (format "--filter=%s" filter) "")
-;;                             file)))
-;;          (compilation-scroll-output t))
-;;     (cl-letf (((symbol-function 'compilation-buffer-name)
-;;                (lambda (&rest _) buffer-name)))
-;;       (compile command))
-;;     (with-current-buffer buffer
-;;       (setq artisan--test-last-state
-;;             `((file . ,file)
-;;               (filter . ,filter)))
-;;       (local-set-key (kbd "g")
-;;                      (lambda ()
-;;                        (interactive)
-;;                        (artisan--test-internal nil name ignore fail)))
-;;       (local-set-key (kbd "q") #'bury-buffer)
-;;       (local-set-key (kbd "s") (lambda () (interactive) (interrupt-process)))
-;;       (local-set-key (kbd "M-p") (lambda ()
-;;                                    (interactive)
-;;                                    (forward-line -1)
-;;                                    (search-backward "  •")))
-;;       (local-set-key (kbd "M-n") (lambda ()
-;;                                    (interactive)
-;;                                    (forward-line)
-;;                                    (search-forward "  •"))))))
-
 (transient-define-prefix artisan-make-migration-transient ()
   "Make migration."