move elpaca eldoc seq fix to obsolete.el

This commit is contained in:
Miranda Marquez 2024-05-25 20:45:06 -08:00
parent 89b33c3eb6
commit 7dcc262d39
2 changed files with 25 additions and 23 deletions

23
init.el
View File

@ -333,29 +333,6 @@ If the current window occupies the whole frame, split it."
`(use-package--orig ,@(-replace :git use-package-git-keyword args))))
;; (use-package lua-mode :git nil)
;; see https://www.reddit.com/r/emacs/comments/1937vaz/emacs_291_on_windows_install_magit_requires_seq/?rdt=48529
;; ;; seq version workaround
;; (defun +elpaca-unload-seq (e)
;; (and (featurep 'seq) (unload-feature 'seq t))
;; (elpaca--continue-build e))
;; (defun +elpaca-seq-build-steps ()
;; (append (butlast (if (file-exists-p (expand-file-name "seq" elpaca-builds-directory))
;; elpaca--pre-built-steps elpaca-build-steps))
;; (list '+elpaca-unload-seq 'elpaca--activate-package)))
;; (elpaca seq :build (+elpaca-seq-build-steps))
;; ;; eldoc version workarounds...
;; (defun global-eldoc-mode (&rest args)
;; "Placeholder function. Do nothing and return nil."
;; nil)
;; (defun +elpaca-unload-eldoc (e)
;; (and (featurep 'eldoc) (unload-feature 'eldoc t))
;; (elpaca--continue-build e))
;; (defun +elpaca-eldoc-build-steps ()
;; (append (butlast (if (file-exists-p (expand-file-name "eldoc" elpaca-builds-directory))
;; elpaca--pre-built-steps elpaca-build-steps))
;; (list '+elpaca-unload-eldoc 'elpaca--activate-package)))
;; (elpaca eldoc :build (+elpaca-eldoc-build-steps))
(use-package compat)
(use-package marginalia :init (marginalia-mode))
;; (elpaca gcmh (gcmh-mode))

View File

@ -26,6 +26,31 @@
;;; Code:
(error "Please don't load `obsolete.el', it's obsolete.")
;; elpaca eldoc stuff, probably not good anymore
;; see https://www.reddit.com/r/emacs/comments/1937vaz/emacs_291_on_windows_install_magit_requires_seq/?rdt=48529
;; seq version workaround
(defun +elpaca-unload-seq (e)
(and (featurep 'seq) (unload-feature 'seq t))
(elpaca--continue-build e))
(defun +elpaca-seq-build-steps ()
(append (butlast (if (file-exists-p (expand-file-name "seq" elpaca-builds-directory))
elpaca--pre-built-steps elpaca-build-steps))
(list '+elpaca-unload-seq 'elpaca--activate-package)))
(elpaca seq :build (+elpaca-seq-build-steps))
;; eldoc version workarounds...
(defun global-eldoc-mode (&rest args)
"Placeholder function. Do nothing and return nil."
nil)
(defun +elpaca-unload-eldoc (e)
(and (featurep 'eldoc) (unload-feature 'eldoc t))
(elpaca--continue-build e))
(defun +elpaca-eldoc-build-steps ()
(append (butlast (if (file-exists-p (expand-file-name "eldoc" elpaca-builds-directory))
elpaca--pre-built-steps elpaca-build-steps))
(list '+elpaca-unload-eldoc 'elpaca--activate-package)))
(elpaca eldoc :build (+elpaca-eldoc-build-steps))
;; scribble SVGs in org buffers like it's 2005 (idk I was a baby then)
(use-package edraw
:elpaca (:repo "https://github.com/misohena/el-easydraw")