fix: Don't autoload ielm'

This commit is contained in:
Madeleine Sydney
2025-01-30 04:47:58 -07:00
parent d6c5e321c8
commit d4c686ab65
2 changed files with 4 additions and 18 deletions

View File

@@ -92,7 +92,6 @@ to this commmand."
:around #'doom-popup--dont-select-me-a)) :around #'doom-popup--dont-select-me-a))
;;;###package compile
(with-eval-after-load 'compile (with-eval-after-load 'compile
(defun doom-popup--compilation-goto-locus-a (fn &rest args) (defun doom-popup--compilation-goto-locus-a (fn &rest args)
(cl-letf ((pop-to-buffer (symbol-function #'pop-to-buffer))) (cl-letf ((pop-to-buffer (symbol-function #'pop-to-buffer)))
@@ -107,7 +106,6 @@ to this commmand."
:around #'doom-popup--compilation-goto-locus-a)) :around #'doom-popup--compilation-goto-locus-a))
;;;###package eshell
(with-eval-after-load 'eshell (with-eval-after-load 'eshell
(setq eshell-destroy-buffer-when-process-dies t) (setq eshell-destroy-buffer-when-process-dies t)
@@ -123,7 +121,6 @@ to this commmand."
(advice-add #'eshell-exec-visual (advice-add #'eshell-exec-visual
:around #'doom-popup--eshell-undedicate-popup)) :around #'doom-popup--eshell-undedicate-popup))
;;;###package evil
(with-eval-after-load 'evil (with-eval-after-load 'evil
(defun doom-popup--evil-command-window-execute-a nil (defun doom-popup--evil-command-window-execute-a nil
"Execute the command under the cursor in the appropriate buffer, rather than "Execute the command under the cursor in the appropriate buffer, rather than
@@ -193,7 +190,6 @@ the command buffer."
(doom-popup--switch-from-popup (find-function-search-for-symbol fun 'defface file))))) (doom-popup--switch-from-popup (find-function-search-for-symbol fun 'defface file)))))
;;;###package helpful
(with-eval-after-load 'helpful (with-eval-after-load 'helpful
(defadvice! doom-popup--helpful-open-in-origin-window-a (button) (defadvice! doom-popup--helpful-open-in-origin-window-a (button)
"Open links in non-popup, originating window rather than helpful's window." "Open links in non-popup, originating window rather than helpful's window."
@@ -211,8 +207,6 @@ the command buffer."
(select-window origin)))) (select-window origin))))
;;;###package helm
;;;###package helm-ag
(with-eval-after-load 'helm (with-eval-after-load 'helm
(setq helm-default-display-buffer-functions '(doom-popup-display-buffer-stacked-side-window-fn)) (setq helm-default-display-buffer-functions '(doom-popup-display-buffer-stacked-side-window-fn))
@@ -243,7 +237,6 @@ the command buffer."
(delete-window win))))) (delete-window win)))))
;;;###package Info
(with-eval-after-load 'Info (with-eval-after-load 'Info
(defadvice! doom-popup--switch-to-info-window-a (&rest _) (defadvice! doom-popup--switch-to-info-window-a (&rest _)
:after #'info-lookup-symbol :after #'info-lookup-symbol
@@ -252,7 +245,6 @@ the command buffer."
(select-window win))))) (select-window win)))))
;;;###package latex
(with-eval-after-load 'latex (with-eval-after-load 'latex
(defadvice! doom-popup--use-popup-window-for-reftex-citation-a (fn &rest args) (defadvice! doom-popup--use-popup-window-for-reftex-citation-a (fn &rest args)
:around #'reftex-do-citation :around #'reftex-do-citation
@@ -354,7 +346,6 @@ Ugh, such an ugly hack."
(advice-add #'org-edit-src-exit (advice-add #'org-edit-src-exit
:around #'doom-popup--org-edit-src-exit-a)) :around #'doom-popup--org-edit-src-exit-a))
;;;###package org-journal
(with-eval-after-load 'org-journal (with-eval-after-load 'org-journal
(defadvice! doom-popup--use-popup-window-a (fn &rest args) (defadvice! doom-popup--use-popup-window-a (fn &rest args)
:around #'org-journal--search-by-string :around #'org-journal--search-by-string
@@ -362,7 +353,6 @@ Ugh, such an ugly hack."
(apply fn args)))) (apply fn args))))
;;;###package persp-mode
(with-eval-after-load 'persp-mode (with-eval-after-load 'persp-mode
(defadvice! doom-popup--persp-mode-restore-popups-a (&rest _) (defadvice! doom-popup--persp-mode-restore-popups-a (&rest _)
"Restore popup windows when loading a perspective from file." "Restore popup windows when loading a perspective from file."
@@ -386,7 +376,6 @@ Ugh, such an ugly hack."
(inhibit-same-window . t)))) (inhibit-same-window . t))))
;;;###package profiler
(with-eval-after-load 'profiler (with-eval-after-load 'profiler
(defadvice! doom-popup--profiler-report-find-entry-in-other-window-a (fn function) (defadvice! doom-popup--profiler-report-find-entry-in-other-window-a (fn function)
:around #'profiler-report-find-entry :around #'profiler-report-find-entry
@@ -394,7 +383,6 @@ Ugh, such an ugly hack."
(funcall fn function)))) (funcall fn function))))
;;;###package undo-tree
(with-eval-after-load 'undo-tree (with-eval-after-load 'undo-tree
(defadvice! doom-popup--use-popup-window-for-undo-tree-visualizer-a (fn &rest args) (defadvice! doom-popup--use-popup-window-for-undo-tree-visualizer-a (fn &rest args)
"TODO" "TODO"
@@ -404,13 +392,11 @@ Ugh, such an ugly hack."
(letf! ((#'switch-to-buffer-other-window #'pop-to-buffer)) (letf! ((#'switch-to-buffer-other-window #'pop-to-buffer))
(apply fn args))))) (apply fn args)))))
;;;###package wdired
(with-eval-after-load 'wdired (with-eval-after-load 'wdired
;; close the popup after you're done with a wdired buffer ;; close the popup after you're done with a wdired buffer
(advice-add #'wdired-abort-changes :after #'doom-popup-close-a) (advice-add #'wdired-abort-changes :after #'doom-popup-close-a)
(advice-add #'wdired-finish-edit :after #'doom-popup-close-a)) (advice-add #'wdired-finish-edit :after #'doom-popup-close-a))
;;;###package wgrep
(with-eval-after-load 'wgrep (with-eval-after-load 'wgrep
;; close the popup after you're done with a wgrep buffer ;; close the popup after you're done with a wgrep buffer
(advice-add #'wgrep-abort-changes :after #'doom-popup-close-a) (advice-add #'wgrep-abort-changes :after #'doom-popup-close-a)
@@ -433,7 +419,6 @@ Ugh, such an ugly hack."
(which-key--show-buffer-side-window act-popup-dim)))))) (which-key--show-buffer-side-window act-popup-dim))))))
;;;###package windmove
;; Users should be able to hop into popups easily, but Elisp shouldn't. ;; Users should be able to hop into popups easily, but Elisp shouldn't.
(with-eval-after-load 'windmove (with-eval-after-load 'windmove
(defun doom-popup--ignore-window-parameters-a (fn &rest args) (defun doom-popup--ignore-window-parameters-a (fn &rest args)

View File

@@ -2,9 +2,10 @@
(require 'syd-handle-repl) (require 'syd-handle-repl)
(use-package ielm ;; Don't `use-package' `ielm', since it's loaded by Emacs. You'll get weird
:commands ielm ;; autoload errors if you do.
:hook (emacs-lisp-mode) ;; https://www.reddit.com/r/emacs/comments/q7fjbi/comment/lml127d
(use-package emacs
:custom ((ielm-history-file-name ; Stay out of my config dir! :custom ((ielm-history-file-name ; Stay out of my config dir!
(file-name-concat syd-cache-dir "ielm-history.eld")))) (file-name-concat syd-cache-dir "ielm-history.eld"))))