From 553a287b4ff7d8129870075acfb8422882dc3395 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@gmail.com>
Date: Fri, 5 Jan 2024 20:52:16 -0700
Subject: Eshell correct path, auto-cleanup files, and more

---
 .config/emacs/bd-default.el     | 10 ++++++++++
 .config/emacs/bd-development.el |  6 ------
 .config/emacs/bd-shells.el      |  3 ++-
 .config/emacs/bd-wm.el          |  7 ++++++-
 4 files changed, 18 insertions(+), 8 deletions(-)

(limited to '.config/emacs')

diff --git a/.config/emacs/bd-default.el b/.config/emacs/bd-default.el
index 7d86347..8891822 100644
--- a/.config/emacs/bd-default.el
+++ b/.config/emacs/bd-default.el
@@ -15,6 +15,12 @@
 
 
 ;;;; functions
+(defun cleanup-buffer ()
+  (interactive)
+  (delete-trailing-whitespace)
+  (untabify (point-min) (point-max))
+  (indent-region (point-min) (point-max)))
+
 (defun clamp (lower-bound upper-bound value)
   (max lower-bound (min value upper-bound)))
 
@@ -59,6 +65,10 @@ open URL at point."
 (global-auto-revert-mode 1)
 (winner-mode 1)
 
+;; messy editing + cleanup buffers on save
+(setopt next-line-add-newlines t)
+(add-hook 'before-save-hook 'cleanup-buffer)
+
 ;; prompts
 (setopt use-short-answers t)
 (setopt vc-follow-symlinks t)
diff --git a/.config/emacs/bd-development.el b/.config/emacs/bd-development.el
index 478dc18..4958644 100644
--- a/.config/emacs/bd-development.el
+++ b/.config/emacs/bd-development.el
@@ -1,11 +1,5 @@
 ;; -*- lexical-binding: t; -*-
 
-(defun cleanup-buffer ()
-  (interactive)
-  (delete-trailing-whitespace)
-  (untabify (point-min) (point-max))
-  (indent-region (point-min) (point-max)))
-
 (defun remote-shell ()
   (interactive)
   (let ((default-directory "/ssh:bdunahu@perch.cs.colostate.edu:"))
diff --git a/.config/emacs/bd-shells.el b/.config/emacs/bd-shells.el
index 9f0b919..9628c66 100644
--- a/.config/emacs/bd-shells.el
+++ b/.config/emacs/bd-shells.el
@@ -32,11 +32,12 @@ status, and path."
 
 (use-package eshell
   :init
-  (require 'magit)
   :bind (("C-z C-e" . 'eshell-open-buffer)
          :map eshell-mode-map
          ("C-q" . 'delete-window) ; mostly for side window
          ("<tab>" . completion-at-point))
+  :config
+  (eshell/addpath "~/Personal/scripts/")
   :custom
   (eshell-prompt-function 'bd/eshell-prompt)
   (eshell-prompt-regexp "^> ")
diff --git a/.config/emacs/bd-wm.el b/.config/emacs/bd-wm.el
index c4468e4..021decb 100644
--- a/.config/emacs/bd-wm.el
+++ b/.config/emacs/bd-wm.el
@@ -1,5 +1,6 @@
 ;; -*- lexical-binding: t; -*-
 
+
 (defun bd/exwm-update-class ()
   "Changes the buffer name to reflect the class name for
 that buffer."
@@ -20,9 +21,13 @@ dedicated buffer will never be automatically orphaned."
              (if dedicated "no longer " "")
              (buffer-name))))
 
+
 (use-package pinentry
   :init
-  (pinentry-start))
+  (pinentry-start)
+  :custom
+  (pinentry-popup-prompt-window nil))
+
 
 (use-package exwm
   :config
-- 
cgit v1.2.3