Changes to Emacs config (can't explain because moving to elpaca)

I'm having issues with freezing the new versions of stuff in straight
for Emacs 30.  Moving to elpaca to hopefully get out of that.

3 files changed, 13 insertions, 13 deletions

diff --git a/Emacs/.config/emacs/elisp/eshell-prompt.el b/Emacs/.config/emacs/elisp/eshell-prompt.el
index b2cf131..f2fe41e 100644
--- a/Emacs/.config/emacs/elisp/eshell-prompt.el
+++ b/Emacs/.config/emacs/elisp/eshell-prompt.el
@@ -98,7 +98,6 @@ form (BRANCH-NAME<CHANGES>[REMOTE-STATUS])."
      (lambda (item)
        (if (listp item)
            (propertize (car item)
-                       'read-only t
                        'font-lock-face (cdr item)
                        'front-sticky   '(font-lock-face read-only)
                        'rear-nonsticky '(font-lock-face read-only))
diff --git a/Emacs/.config/emacs/elisp/personal-solarized-theme.el b/Emacs/.config/emacs/elisp/personal-solarized-theme.el
index f22662e..cf34c19 100644
--- a/Emacs/.config/emacs/elisp/personal-solarized-theme.el
+++ b/Emacs/.config/emacs/elisp/personal-solarized-theme.el
@@ -18,6 +18,7 @@
  '(escape-glyph ((t (:foreground "cyan"))))
  '(eshell-ls-directory ((t (:foreground "DeepSkyBlue3" :weight bold))))
  '(eshell-prompt ((t (:foreground "turquoise3" :weight bold))))
+ '(evil-goggles-default-face ((t (:background "#004065"))))
  '(evil-mc-cursor-default-face ((t (:foreground "black" :background "white"))))
  '(evil-mc-region-face ((t (:extend t :background "grey50"))))
  '(fill-column-indicator ((t (:inherit shadow :foreground "gray23" :background "gray23" :weight thin))))
@@ -80,21 +81,21 @@
  '(org-hide ((t (:foreground "black"))))
  '(org-quote ((t (:slant italic))))
  '(org-verbatim ((t (:foreground "red3"))))
- '(outline-1 ((t (:inherit default :height 1.3
+ '(outline-1 ((t (:inherit default
                   :foreground "#db5823"))))
- '(outline-2 ((t (:inherit default :height 1.2
+ '(outline-2 ((t (:inherit default
                   :foreground "#93a61a"))))
- '(outline-3 ((t (:inherit default :height 1.1
+ '(outline-3 ((t (:inherit default
                   :foreground "#3c98e0"))))
- '(outline-4 ((t (:inherit default :height 1.05
+ '(outline-4 ((t (:inherit default
                   :foreground "#c49619"))))
- '(outline-5 ((t (:inherit default :height 1.02
+ '(outline-5 ((t (:inherit default
                   :foreground "#3cafa5"))))
- '(outline-6 ((t (:inherit default :height 1.02
+ '(outline-6 ((t (:inherit default
                   :foreground "#93a61a"))))
- '(outline-7 ((t (:inherit default :height 1.02
+ '(outline-7 ((t (:inherit default
                   :foreground "#ec423a"))))
- '(outline-8 ((t (:inherit default :height 1.02
+ '(outline-8 ((t (:inherit default
                   :foreground "#3c98e0"))))
  '(outline-minor-0 ((t (:extend t :weight bold :background "#01323d"))))
  '(outline-minor-1 ((t (:extend t :inherit (outline-minor-0 outline-1) :background "#1e9d310d32a3"))))
@@ -122,8 +123,8 @@
  '(tooltip ((t (:foreground "black" :background "lightyellow" :inherit (variable-pitch)))))
  '(trailing-whitespace ((t (:background "red1"))))
  '(whitespace-line ((t (:background "black" :foreground "violet"))))
- '(whitespace-space ((t (:background "#0a0a0a" :foreground "black"))))
- '(whitespace-tab ((t (:background "grey5" :foreground "grey20"))))
+ '(whitespace-space ((t (:background "#171717" :foreground "black"))))
+ '(whitespace-tab ((t (:background "#171717" :foreground "grey40"))))
  `(font-lock-constant-face ((t (:foreground ,personal-solarized-name-colour :weight bold))))
  `(font-lock-function-name-face ((t (:box nil :foreground ,personal-solarized-name-colour))))
  `(font-lock-preprocessor-face ((t (:foreground ,personal-solarized-name-colour))))
@@ -131,6 +132,6 @@
  '(default ((t (:family "RecMonoDuotone Nerd Font Propo" :foundry "ADBO" :width normal
                 :weight normal :slant normal :underline nil :overline nil
                 :extend nil :strike-through nil :box nil :inverse-video nil
-                :foreground "#b6b6b6" :background "black" :stipple nil :inherit nil)))))
+                :foreground "#b6b6b6" :background "#0a0a0a" :stipple nil :inherit nil)))))
 
 (provide-theme 'personal-solarized)
diff --git a/Emacs/.config/emacs/elisp/search.el b/Emacs/.config/emacs/elisp/search.el
index 0afa2b3..c55d3c1 100644
--- a/Emacs/.config/emacs/elisp/search.el
+++ b/Emacs/.config/emacs/elisp/search.el
@@ -60,7 +60,7 @@ Returns a list of files with the directory preprended to them."
 
 (defun +search/search-all ()
   (interactive)
-  (let ((term (read-string "Search for: "))
+  (let ((term (read-string "Search for: " (thing-at-point 'symbol)))
         (candidates (+search/-format-grep-candidates)))
     (grep
      (format "grep --color=auto -nIHZe \"%s\" -- %s"