seq.el and eldoc version hack. only has to run once?

idk about this one. it seemed necessary but now it just takes time

init.el

@@ -10,6 +10,8 @@
 
 ;;; Code:
 
+(setq gc-cons-threshold (* 8 5000 5000))
+
 (setq load-prefer-newer t) ; why ever use stale code, ever?
 ;; Load the files that I put my settings in...
 (defvar mir-directory
@@ -27,7 +29,8 @@
 
 ;; do the things
 (add-hook 'server-after-make-frame-hook #'mir/graphical-setup)
-(if (display-graphic-p) (mir/graphical-setup))
+(if (display-graphic-p)
+    (add-hook 'elpaca-after-init-hook #'mir/graphical-setup))
 
 ;; Control backups/swapfiles
 (defvar backup-directory
@@ -58,6 +61,209 @@
 ;; https://andrewjamesjohnson.com/suppressing-ad-handle-definition-warnings-in-emacs/
 (setq ad-redefinition-action 'accept)
 
+;; we be moving packages here to see what's slow elsewhere
+(use-package emacs
+  :custom
+  ;; (scroll-margin 2)
+  (scroll-conservatively 100)
+  ;; (scroll-up-aggressively 0.01)
+  ;; (scroll-down-aggressively 0.01)
+  (auto-window-vscroll nil)
+  :init
+  (global-visual-line-mode t)
+  (set-language-environment "UTF-8")
+  (global-prettify-symbols-mode 1)
+  (auto-insert-mode))
+
+(use-package epg
+  :after tramp
+  :custom ;; these are ripped from `custom-file' which was auto-generated
+  (auth-sources '("~/.authinfo.gpg"))
+  (epg-pinentry-mode 'loopback))
+
+;; save minibuffer history, see Vertico below
+(use-package savehist
+  :init (savehist-mode)
+  :custom (savehist-file
+	   (expand-file-name "minibuffer-history" backup-directory)))
+;; save place in all files
+(use-package saveplace
+  :init (save-place-mode t)
+  :custom
+  (save-place-file
+   (expand-file-name "file-position-save" backup-directory)))
+(use-package image-mode
+  :hook
+  (image-mode . turn-off-line-numbers)
+  (image-mode . (lambda () (blink-cursor-mode -1))))
+;; Visualize whitespace. In a very chill and invisible way.
+(use-package whitespace
+  :diminish (whitespace-mode ;; org-indent-mode 
+	     ;; org-vw-mode 
+	     auto-fill-mode)
+  :custom
+  (whitespace-style '(face lines-tail))
+  (whitespace-line-column 80)
+  (fill-column 80)
+  :hook
+  (prog-mode . whitespace-mode)
+  ;; (org-mode . auto-fill-mode)
+  )
+
+;; ...and finally, sync files with disk changes
+(use-package autorevert
+  :diminish auto-revert-mode
+  :config (global-auto-revert-mode))
+(use-package xwidget
+  :if (featurep 'xwidget)
+  :commands xwidget-webkit-browse-url
+  :config
+  (defun mir/webkit-isearch ()
+    (interactive)
+    (xwidget-webkit-search
+     (setq isearch-string
+	   (read-from-minibuffer "Find in page: "))
+     (car xwidget-list)
+     'insensitive nil t))
+  (defun mir/webkit-isearch-next ()
+    (interactive)
+    (xwidget-webkit-search isearch-string
+			   (car xwidget-list) 'insensitive nil t))
+  (defun mir/webkit-isearch-prev ()
+    (interactive)
+    (xwidget-webkit-search isearch-string
+			   (car xwidget-list) 'insensitive t t))
+  ;; (posframe-show ) ;; need posframe package
+  :bind (
+	 ("/" . 'mir/webkit-isearch)
+	 ("n" . 'mir/webkit-isearch-next)
+	 ("N" . 'mir/webkit-isearch-prev)
+	 ))
+
+;; built in spell checker, for losers
+(use-package flyspell
+  :diminish
+  :custom
+  (flyspell-auto-correct-word t)
+  :hook
+  (org-mode . flyspell-mode))
+
+;; unique buffer names
+(use-package uniquify
+  :custom (uniquify-buffer-name-style 'forward))
+
+;; cache file cleanup
+(use-package kkc
+  :custom (kkc-init-file-name (expand-file-name "kkcrc" backup-directory)))
+
+;; https://laurencewarne.github.io/emacs/programming/2022/12/26/exploring-proced.html
+(use-package proced
+  :commands proced
+  :custom
+  (proced-auto-update-flag t)
+  (proced-goal-attribute nil)
+  (proced-show-remote-processes t)
+  (proced-enable-color-flag t)
+  (proced-format 'custom)
+  :config
+  (add-to-list
+   'proced-format-alist
+   '(custom user pid ppid sess tree pcpu pmem rss start time state
+	    (args comm))))
+
+(use-package gnus
+  :hook
+  (gnus-summary-mode . hl-line-mode)
+  (gnus-summary-prepare . gnus-summary-sort-by-most-recent-date)
+  )
+
+(use-package tramp
+  :defer 2
+  :custom (tramp-persistency-file-name
+	   (expand-file-name "tramp-history" backup-directory))
+  :config
+  (defun find-current-file-sudo (&rest throwaway)
+    ;; (interactive)
+    (if buffer-file-name
+	(unless (or (file-writable-p buffer-file-name)
+		    (file-directory-p buffer-file-name))
+	  (find-alternate-file (format "/sudo::%s" buffer-file-name)))))
+  (advice-add #'find-file :after #'find-current-file-sudo))
+
+;; eshell. Pretty good actually.
+(use-package eshell
+  :after tramp
+  ;; :commands (eshell/emacs eshell/man)
+  ;; :init
+  ;; (defun eshell-banner-initialize ()
+  ;;   "Run Neofetch in eshell."
+  ;;   (eshell/ls nil))
+  :custom
+  (eshell-scroll-to-bottom-on-input t)
+  (eshell-hist-ignoredups t)
+  (eshell-history-file-name (expand-file-name "zsh/histfile" "~/.local/share/"))
+  (eshell-history-size nil)
+  (eshell-banner-message "")
+  (eshell-expand-input-functions '(eshell-expand-history-references))
+  :config
+  (add-to-list 'tramp-remote-path "/bedrock/bin" 'append)
+  (add-to-list 'eshell-modules-list 'eshell-rebind)
+  (add-to-list 'eshell-modules-list 'eshell-hist)
+  (add-to-list 'eshell-modules-list 'eshell-tramp)
+  (add-hook 'kill-emacs-hook (lambda ()
+			       (if (fboundp #'eshell-save-some-history)
+				   (eshell-save-some-history))))
+  (defun eshell-evil-insert-line (count &optional vcount)
+    (interactive "p")
+    (eshell-bol)
+    (evil-insert count vcount))
+  (defun mir/edit-file-or-lib (name)
+    "Edit library called NAME if it exists, otherwise edit FILE.
+
+If the current window occupies the whole frame, split it."
+    (let* ((old-buffer (current-buffer))
+	   (old-default-dir default-directory) ; needed to preserve environment
+	   find-fun lib-fun		; scope these so we can bind them later
+	   (openfun (lambda (arg)
+		      "Implicit function for opening a file or library."
+		      (let ((arg-file-name (expand-file-name arg))
+			    (arg-lib-name (locate-library arg)))
+			(if (file-exists-p arg-file-name)
+			    (funcall find-fun arg-file-name)
+			  (if arg-lib-name
+			      (funcall lib-fun arg)
+			    (funcall find-fun arg-file-name)))))))
+      (if (one-window-p)
+	  (setq find-fun #'find-file-other-window
+		lib-fun #'find-library-other-window)
+	(setq find-fun #'find-file
+	      lib-fun #'find-library))
+      (let ((result (funcall openfun name)))
+	(with-current-buffer old-buffer
+	  (setq default-directory old-default-dir))
+	result)))
+  (defun eshell/emacs (&rest args)
+    "run external Emacs."
+    (eshell-eval-using-options		; this is somewhat broken but works okay
+     "emacs" args
+     '(
+       (nil  "batch"      nil batch       "Non-interactive")
+       (nil  "chdir"      t   change-dir  "change to directory DIR")
+       ("nw" nil	  nil no-window   "open in terminal mode, no window")
+       ("fs" "fullscreen" nil full-screen "Open in full screen")
+       :external "emacs"
+       :usage "[FILE] etc placeholder text...")
+     (mapcar #'mir/edit-file-or-lib
+	     (eshell-stringify-list (flatten-tree (reverse args))))))
+  (defun mir/eshell-setup-keys ()
+    (evil-collection-define-key
+      'normal
+      'eshell-mode-map
+      (kbd "I") 'eshell-evil-insert-line
+      (kbd "RET") 'hkey-either))
+  (advice-add 'evil-collection-eshell-setup-keys
+	      :after 'mir/eshell-setup-keys))
+
 ;; straight.el: the better package manager?
 ;; minified bootstrap (split lines if you want) (or not)
 ;; (defvar bootstrap-version) (let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory)) (bootstrap-version 5)) (unless (file-exists-p bootstrap-file) (with-current-buffer (url-retrieve-synchronously "https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el" 'silent 'inhibit-cookies) (goto-char (point-max)) (eval-print-last-sexp))) (load bootstrap-file nil 'nomessage)) (straight-use-package 'use-package) (setq straight-use-package-by-default t)
@@ -74,16 +280,41 @@
     (re-search-forward (rx "### Installer\n"))
     (let ((start (1+ (re-search-forward "```emacs-lisp")))
           (end (- (re-search-forward "\n```") 3)))
-      (write-region start end elpaca-bootstrap-file)
+      (write-region start end elpaca-bootstrap-file))))
-      )))
 (load-file elpaca-bootstrap-file)
 
+;; 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))
+
 (elpaca elpaca-use-package
   (elpaca-use-package-mode)
   (setq elpaca-use-package-by-default t))
-(elpaca-wait)
+
+;; (message "%s" elpaca--queues)
+(elpaca-process-queues)
 
 (require 'mir-packages)
+;; (setq esup-depth 0)
 
 ;; Absolute line numbers. Relative ones are an annoyance to set up, sadly.
 ;; (global-display-line-numbers-mode)
@@ -93,7 +324,7 @@
 (setq debug-on-error nil)
 
 ;; lower gc threshold again
-(setq gc-cons-threshold (* 2 1000 1000))
+(setq gc-cons-threshold (* 2 100 1000))
 ;; (add-function :before #'after-focus-change-function #'garbage-collect)
 
 ;;; init.el ends here

lisp/mir-packages.el

@@ -6,95 +6,11 @@
 ;; -----------------------------------------------------------------------------
 ;;; Code:
 
-(use-package emacs
-  :elpaca nil
-  :custom
-  ;; (scroll-margin 2)
-  (scroll-conservatively 100)
-  ;; (scroll-up-aggressively 0.01)
-  ;; (scroll-down-aggressively 0.01)
-  (auto-window-vscroll nil)
-  :init
-  (global-visual-line-mode t)
-  (set-language-environment "UTF-8")
-  (global-prettify-symbols-mode 1)
-  (auto-insert-mode))
-
-;; seq version workaround, see https://www.reddit.com/r/emacs/comments/1937vaz/emacs_291_on_windows_install_magit_requires_seq/?rdt=48529
-(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)))
-(use-package seq :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)))
-(use-package eldoc
-  :elpaca `(eldoc :build ,(+elpaca-eldoc-build-steps))
-  :init 
-  )
-
 (elpaca-wait)
 ;; (use-package no-littering) ;a bad start, and we need more
 
-(use-package epg
-  :elpaca nil
-  :after tramp
-  :custom ;; these are ripped from `custom-file' which was auto-generated
-  (auth-sources '("~/.authinfo.gpg"))
-  (epg-pinentry-mode 'loopback))
-
 (use-package compat)
 
-;; save minibuffer history, see Vertico below
-(use-package savehist
-  :elpaca nil
-  :init (savehist-mode)
-  ;; :custom (savehist-file ; taken care of by `no-littering'
-  ;; 	   (expand-file-name "minibuffer-history" backup-directory))
-  )
-
-;; save place in all files
-(use-package saveplace
-  :elpaca nil
-  :init (save-place-mode t)
-  :custom
-  (save-place-file
-   (expand-file-name "file-position-save" backup-directory)))
-
-(use-package tramp
-  :elpaca nil
-  ;; :after eshell
-  :custom (tramp-persistency-file-name
-	   (expand-file-name "tramp-history" backup-directory))
-  :config
-  (defun find-current-file-sudo (&rest throwaway)
-    ;; (interactive)
-    (if buffer-file-name
-	(unless (or (file-writable-p buffer-file-name)
-		    (file-directory-p buffer-file-name))
-	  (find-alternate-file (format "/sudo::%s" buffer-file-name)))))
-  (advice-add #'find-file :after #'find-current-file-sudo))
-
-;; Visualize whitespace. In a very chill and invisible way.
-(use-package image-mode
-  :elpaca nil
-  :config
-  (turn-off-line-numbers)
-  (blink-cursor-mode -1))
-
 ;; diminish
 (use-package diminish
   :config (diminish 'visual-line-mode))
@@ -104,37 +20,16 @@
   :demand t
   :custom (default-input-method "japanese")
   :config (mir/general-config))
-
+(elpaca-wait)
 (use-package gcmh
   :diminish
   :init (gcmh-mode))
 
-(elpaca-wait)
-
 (use-package eldoc-box
   :after eldoc
   :diminish (eldoc-mode eldoc-box-hover-at-point-mode)
   :hook (prog-mode . eldoc-box-hover-at-point-mode))
 
-(use-package whitespace
-  :elpaca nil
-  :diminish (whitespace-mode ;; org-indent-mode 
-			     ;; org-vw-mode 
-			     auto-fill-mode)
-  :custom
-  (whitespace-style '(face lines-tail))
-  (whitespace-line-column 80)
-  (fill-column 80)
-  :hook
-  (prog-mode . whitespace-mode)
-  ;; (org-mode . auto-fill-mode)
-  )
-
-;; ...and finally, sync files with disk changes
-(use-package autorevert
-  :elpaca nil
-  :diminish auto-revert-mode
-  :config (global-auto-revert-mode))
 ;; (use-package use-package-ensure-system-package)
 
 ;; load evil or meow
@@ -202,79 +97,6 @@
    [remap evil-window-decrease-height] 'edwina-dec-mfact
    [remap balance-windows] 'edwina-arrange))
 
-;; eshell. Pretty good actually.
-(use-package eshell
-  :elpaca nil
-  ;; :commands (eshell/emacs eshell/man)
-  ;; :init
-  ;; (defun eshell-banner-initialize ()
-  ;;   "Run Neofetch in eshell."
-  ;;   (eshell/ls nil))
-  :custom
-  (eshell-scroll-to-bottom-on-input t)
-  (eshell-hist-ignoredups t)
-  (eshell-history-file-name (expand-file-name "zsh/histfile" "~/.local/share/"))
-  (eshell-history-size nil)
-  (eshell-banner-message "")
-  (eshell-expand-input-functions '(eshell-expand-history-references))
-  :config
-  (add-to-list 'tramp-remote-path "/bedrock/bin" 'append)
-  (add-to-list 'eshell-modules-list 'eshell-rebind)
-  (add-to-list 'eshell-modules-list 'eshell-hist)
-  (add-to-list 'eshell-modules-list 'eshell-tramp)
-  (add-hook 'kill-emacs-hook (lambda ()
-			       (if (fboundp #'eshell-save-some-history)
-				   (eshell-save-some-history))))
-  (defun eshell-evil-insert-line (count &optional vcount)
-    (interactive "p")
-    (eshell-bol)
-    (evil-insert count vcount))
-  (defun mir/edit-file-or-lib (name)
-    "Edit library called NAME if it exists, otherwise edit FILE.
-
-If the current window occupies the whole frame, split it."
-    (let* ((old-buffer (current-buffer))
-	   (old-default-dir default-directory) ; needed to preserve environment
-	   find-fun lib-fun		; scope these so we can bind them later
-	   (openfun (lambda (arg)
-		      "Implicit function for opening a file or library."
-		      (let ((arg-file-name (expand-file-name arg))
-			    (arg-lib-name (locate-library arg)))
-			(if (file-exists-p arg-file-name)
-			    (funcall find-fun arg-file-name)
-			  (if arg-lib-name
-			      (funcall lib-fun arg)
-			    (funcall find-fun arg-file-name)))))))
-      (if (one-window-p)
-	  (setq find-fun #'find-file-other-window
-		lib-fun #'find-library-other-window)
-	(setq find-fun #'find-file
-	      lib-fun #'find-library))
-      (let ((result (funcall openfun name)))
-	(with-current-buffer old-buffer
-	  (setq default-directory old-default-dir))
-	result)))
-  (defun eshell/emacs (&rest args)
-    "run external Emacs."
-    (eshell-eval-using-options		; this is somewhat broken but works okay
-     "emacs" args
-     '(
-       (nil  "batch"      nil batch       "Non-interactive")
-       (nil  "chdir"      t   change-dir  "change to directory DIR")
-       ("nw" nil	  nil no-window   "open in terminal mode, no window")
-       ("fs" "fullscreen" nil full-screen "Open in full screen")
-       :external "emacs"
-       :usage "[FILE] etc placeholder text...")
-     (mapcar #'mir/edit-file-or-lib
-	     (eshell-stringify-list (flatten-tree (reverse args))))))
-  (defun mir/eshell-setup-keys ()
-    (evil-collection-define-key
-      'normal
-      'eshell-mode-map
-      (kbd "I") 'eshell-evil-insert-line
-      (kbd "RET") 'hkey-either))
-  (advice-add 'evil-collection-eshell-setup-keys
-	      :after 'mir/eshell-setup-keys))
 ;; show command that caused last scrollback in eshell etc
 (use-package sticky-shell
   :elpaca (sticky-shell
@@ -795,7 +617,9 @@ Return nil if DIR is not in a hugo project at all."
 
 ;; Emacs startup profiling -- may not work with chemacs2
 (use-package esup
-  :commands esup)
+  :commands esup
+  :custom (esup-depth 0))
+;; (esup buffer-file-name) ;useless
 
 ;; Blingy laggy minimap on the right
 (use-package minimap
@@ -981,35 +805,6 @@ Return nil if DIR is not in a hugo project at all."
 ;;     (require 'exwm-config)
 ;;     (exwm-config-example)))
 
-(elpaca nil
-  (use-package xwidget
-    :elpaca nil
-    :if (featurep 'xwidget)
-    :commands xwidget-webkit-browse-url
-    :config
-    (defun mir/webkit-isearch ()
-      (interactive)
-      (xwidget-webkit-search
-       (setq isearch-string
-	     (read-from-minibuffer "Find in page: "))
-       (car xwidget-list)
-       'insensitive nil t))
-    (defun mir/webkit-isearch-next ()
-      (interactive)
-      (xwidget-webkit-search isearch-string
-			     (car xwidget-list) 'insensitive nil t))
-    (defun mir/webkit-isearch-prev ()
-      (interactive)
-      (xwidget-webkit-search isearch-string
-			     (car xwidget-list) 'insensitive t t))
-    ;; (posframe-show ) ;; need posframe package
-    :general (general-define-key
-	      :states 'normal
-	      :keymaps 'xwidget-webkit-mode-map
-	      "/" 'mir/webkit-isearch
-	      "n" 'mir/webkit-isearch-next
-	      "N" 'mir/webkit-isearch-prev)))
-
 ;; (use-package ani-el
 ;;   :elpaca (ani-el
 ;; 	   :repo "https://git.mirmarq42.xyz/mir/ani-el"
@@ -1021,15 +816,6 @@ Return nil if DIR is not in a hugo project at all."
   :custom (inferior-lisp-program "sbcl")
   :config (load (expand-file-name "~/quicklisp/slime-helper.el")))
 
-;; built in spell checker, for losers
-(use-package flyspell
-  :elpaca nil
-  :diminish
-  :custom
-  (flyspell-auto-correct-word t)
-  :hook
-  (org-mode . flyspell-mode))
-
 ;; Java never looked so useful...
 (use-package clojure-mode
   :mode "\\.cljs\\'")
@@ -1039,39 +825,12 @@ Return nil if DIR is not in a hugo project at all."
 (use-package cider
   :after clojure-mode)
 
-;; unique buffer names
-(use-package uniquify
-  :elpaca nil
-  :custom (uniquify-buffer-name-style 'forward))
-
-;; cache file cleanup
-(use-package kkc
-  :elpaca nil
-  :custom (kkc-init-file-name (expand-file-name "kkcrc" backup-directory)))
-
 (use-package dwim-shell-command
   :elpaca (dwim-shell-command
 	   :files (:defaults "dwim-shell-commands.el"))
   :config (require 'dwim-shell-commands)
   :commands dwim-shell-commands-kill-process)
 
-;; https://laurencewarne.github.io/emacs/programming/2022/12/26/exploring-proced.html
-(elpaca nil
-  (use-package proced
-    :elpaca nil
-    :commands proced
-    :custom
-    (proced-auto-update-flag t)
-    (proced-goal-attribute nil)
-    (proced-show-remote-processes t)
-    (proced-enable-color-flag t)
-    (proced-format 'custom)
-    :config
-    (add-to-list
-     'proced-format-alist
-     '(custom user pid ppid sess tree pcpu pmem rss start time state
-	      (args comm)))))
-
 (use-package youtube-sub-extractor
   :elpaca (youtube-sub-extractor
 	   :host github
@@ -1150,13 +909,6 @@ Taken from https://howardism.org/Technical/Emacs/eshell-why.html"
   :custom (notibox-corner 'topright)
   :config (notibox/setup-timer))
 
-(use-package gnus
-  :elpaca nil
-  :hook
-  (gnus-summary-mode . hl-line-mode)
-  (gnus-summary-prepare . gnus-summary-sort-by-most-recent-date)
-  )
-
 ;; (use-package hl-column ; disabled because visual yuck
 ;;   :if (display-graphic-p)
 ;;   :config