diff options
author | bd <bdunahu@gmail.com> | 2024-01-05 20:52:16 -0700 |
---|---|---|
committer | bd <bdunahu@gmail.com> | 2024-01-05 20:52:16 -0700 |
commit | 553a287b4ff7d8129870075acfb8422882dc3395 (patch) | |
tree | 6d0c5ba518bb4f813fd2e34c33021786beed15b1 /.config/emacs | |
parent | b05329a5092fa19e69fd623548e83dd43eb18e5e (diff) |
Eshell correct path, auto-cleanup files, and more
Diffstat (limited to '.config/emacs')
-rw-r--r-- | .config/emacs/bd-default.el | 10 | ||||
-rw-r--r-- | .config/emacs/bd-development.el | 6 | ||||
-rw-r--r-- | .config/emacs/bd-shells.el | 3 | ||||
-rw-r--r-- | .config/emacs/bd-wm.el | 7 |
4 files changed, 18 insertions, 8 deletions
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 |