From 1ae1bfe0021b51a9877943a3713ebdb3d9c52b8f Mon Sep 17 00:00:00 2001
From: bd <bdunahu@colostate.edu>
Date: Sun, 24 Mar 2024 18:29:28 -0600
Subject: Partial changes to make eshell more usable, Popper.el standard

---
 .config/emacs/modules/bd--shells.el | 30 ++++++++++++++----------------
 .config/guix/modules/shell.scm      |  7 +++----
 2 files changed, 17 insertions(+), 20 deletions(-)

diff --git a/.config/emacs/modules/bd--shells.el b/.config/emacs/modules/bd--shells.el
index ae34bbe..c857f4c 100644
--- a/.config/emacs/modules/bd--shells.el
+++ b/.config/emacs/modules/bd--shells.el
@@ -8,6 +8,20 @@
 (with-eval-after-load "term" (defalias 'term 'ansi-term))
 
 ;;;; eshell
+;; path
+(add-to-list 'exec-path "/home/bdunahu/Personal/scripts")
+
+;; alias
+
+;; completions
+(require 'esh-mode)
+(keymap-set eshell-mode-map "<tab>" 'completion-at-point)
+(setopt eshell-prompt-function 'bd/eshell-prompt
+        eshell-prompt-regexp "^> "
+        eshell-scroll-to-bottom-on-input 'this
+        eshell-banner-message (concat "\n" (propertize " " 'display (create-image (expand-file-name "~/.config/emacs/images/raven.png") 'png nil :scale 0.2 :align-to "center")) "\n"))
+
+;; prompt
 (defun bd/get-prompt-path ()
   (abbreviate-file-name (eshell/pwd)))
 
@@ -23,24 +37,8 @@ status, and path."
    (propertize "\n> " 'face `(:foreground "#c33027"))))
 
 
-(require 'esh-mode)
-(keymap-set eshell-mode-map "<tab>" 'completion-at-point)
-(setopt eshell-prompt-function 'bd/eshell-prompt
-        eshell-prompt-regexp "^> "
-        eshell-scroll-to-bottom-on-input 'this
-        eshell-banner-message (concat "\n" (propertize " " 'display (create-image (expand-file-name "~/.config/emacs/images/raven.png") 'png nil :scale 0.2 :align-to "center")) "\n"))
-
-
 ;;;; shell
 (require 'shell)
-(keymap-global-set "C-z C-e" (lambda ()
-                               (interactive)
-                               (let ((curr-buffer (current-buffer))
-                                     (shell (shell)))
-                                 (switch-to-buffer curr-buffer)
-                                 (display-buffer (get-buffer shell))
-                                 (switch-to-buffer-other-window shell))))
-(keymap-set eshell-mode-map "C-q" 'delete-window) ; mostly for side window
 (keymap-set shell-mode-map "C-c C-k" #'comint-clear-buffer)
 (setopt shell-command-prompt-show-cwd t
         shell-highlight-undef-enable t
diff --git a/.config/guix/modules/shell.scm b/.config/guix/modules/shell.scm
index 03db4fb..69303bd 100644
--- a/.config/guix/modules/shell.scm
+++ b/.config/guix/modules/shell.scm
@@ -21,7 +21,6 @@
                         ("rm" . "rm -i")
                         ("vi" . "vim")
                         ("ytta" . "yt-dlp --extract-audio --format bestaudio/best")
-                        ("yttv" . "yt-dlp -f b")))))
-   (simple-service 'my-env-vars-service
-                   home-environment-variables-service-type
-                   `(("BROWSER" . "icecat")))))
+                        ("yttv" . "yt-dlp -f b")))
+             (environment-variables
+              '(("BROWSER" . "icecat")))))))
-- 
cgit v1.2.3