From c71413d540ef87d82e86726781da348057aca526 Mon Sep 17 00:00:00 2001
From: MitchMarq42 <dr.m.perseos@gmail.com>
Date: Tue, 16 Jan 2024 20:37:53 -0900
Subject: [PATCH] do a bunch of stuff idk

---
 lisp/mitch-packages.el | 43 +++++++++++++++++++++++-------------------
 1 file changed, 24 insertions(+), 19 deletions(-)

diff --git a/lisp/mitch-packages.el b/lisp/mitch-packages.el
index 4b42aa9..dea0b43 100644
--- a/lisp/mitch-packages.el
+++ b/lisp/mitch-packages.el
@@ -185,7 +185,7 @@
   :custom
   (eshell-scroll-to-bottom-on-input t)
   (eshell-hist-ignoredups t)
-  (eshell-history-file-name nil)
+  (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))
@@ -303,19 +303,19 @@ If the current window occupies the whole frame, split it."
   :elpaca (:host gitlab
 		 :repo "xgqt/emacs-ansilove")
   :commands ansilove)
-(use-package gitstatus
-  :elpaca (:host github
-		 :repo "igorepst/gitstatus-el")
-  :after eshell
-  :init
-  (setq system-architecture (car (split-string system-configuration "-")))
-  (setq gitstatusd-exe (format "~/.cache/gitstatus/gitstatusd-linux-%s"
-			  system-architecture))
-  (add-hook 'eshell-before-prompt-hook #'gitstatus-eshell-start))
+;; (use-package gitstatus
+;;   :elpaca (:host github
+;; 		 :repo "igorepst/gitstatus-el")
+;;   :after eshell
+;;   :init
+;;   (setq system-architecture (car (split-string system-configuration "-")))
+;;   (setq gitstatusd-exe (format "~/.cache/gitstatus/gitstatusd-linux-%s"
+;; 			  system-architecture))
+;;   (add-hook 'eshell-before-prompt-hook #'gitstatus-eshell-start))
 (use-package p11k
   :elpaca (:repo "https://git.mitchmarq42.xyz/mitch/p11k-el")
   :after eshell
-  :hook (eshell-mode . p11k-mode))
+  :hook (eshell-first-time-mode . p11k-mode))
 
 ;; File manager. Only breaks when you brag about how it doesn't.
 (use-package all-the-icons
@@ -534,7 +534,9 @@ targets."
   (airline-shortened-directory-length 20)
   :custom-face
   (mode-line
-   ((t (:box (:style released-button :line-width (0.5 . 0.5))))))
+   ((t (:box (:style released-button
+		     ;; :line-width (0.5 . 0.5)
+		     )))))
   ;; :config (load-theme 'airline-kolor t)
   )
 ;; see https://github.com/dbordak/telephone-line/issues/126
@@ -1206,13 +1208,14 @@ This is redefined for use with `hypop' library because multiple Emacs frames may
   :hook (after-init . dtache-setup))
 
 (if (display-graphic-p)
-    (progn
-      (add-to-list 'load-path "~/.local/src/holo-layer")
-      (require 'holo-layer)
-      (setq holo-layer-enable-cursor-animation t)
-      (setq holo-layer-cursor-color (face-attribute 'cursor :background))
-      (setq holo-layer-cursor-animation-duration 100)
-      (holo-layer-enable)))
+    (unless (string= (getenv "XDG_SESSION_DESKTOP") "hyprland")
+      (progn
+	(add-to-list 'load-path "~/.local/src/holo-layer")
+	(require 'holo-layer)
+	(setq holo-layer-enable-cursor-animation t)
+	(setq holo-layer-cursor-color (face-attribute 'cursor :background))
+	(setq holo-layer-cursor-animation-duration 100)
+	(holo-layer-enable))))
 
 (use-package oauth
   :elpaca (:fetcher codeberg
@@ -1247,5 +1250,7 @@ This is redefined for use with `hypop' library because multiple Emacs frames may
 ;;   :elpaca (:host github :repo "alphapapa/prism.el")
 ;;   :custom (prism-colors '()))
 
+(use-package lua-mode)
+
 (provide 'mitch-packages)
 ;;; mitch-packages.el ends here