From e36e3bd66c5cb9b9d3a604017c75e356e2678abd Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Mon, 14 Oct 2024 00:43:26 +0100
Subject: 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.
---
 Emacs/.config/emacs/elisp/eshell-prompt.el         |  1 -
 .../emacs/elisp/personal-solarized-theme.el        | 23 +++++++++++-----------
 Emacs/.config/emacs/elisp/search.el                |  2 +-
 3 files changed, 13 insertions(+), 13 deletions(-)

(limited to 'Emacs/.config/emacs/elisp')

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"
-- 
cgit v1.2.3-13-gbd6f