diff options
| author | bd <bdunahu@operationnull.com> | 2024-12-19 01:51:27 -0500 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-12-19 01:51:27 -0500 |
| commit | d3a3ef635e147d20e2f4b967d969967019ee333d (patch) | |
| tree | 8f1463e4c3639b3c3ac63553924ccb63cdd615d7 /.config/emacs | |
| parent | 6ace355721c76ca3dc91819079809178a5b75822 (diff) | |
Minor fixes to new modeline
Diffstat (limited to '.config/emacs')
| -rw-r--r-- | .config/emacs/modules/bd--buffers.el | 13 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--exwm-windowing.el | 2 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--modeline.el | 6 |
3 files changed, 4 insertions, 17 deletions
diff --git a/.config/emacs/modules/bd--buffers.el b/.config/emacs/modules/bd--buffers.el index c7d0a1e..45a161f 100644 --- a/.config/emacs/modules/bd--buffers.el +++ b/.config/emacs/modules/bd--buffers.el @@ -3,19 +3,6 @@ ;;; Code: -;; dedication -(defun toggle-current-window-dedication () - "Adds or revokes dedicated window status from a buffer. A -dedicated buffer will never be automatically orphaned." - (interactive) - (let* ((window (selected-window)) - (dedicated (window-dedicated-p window))) - (set-window-dedicated-p window (not dedicated)) - (message "Window %sdedicated to %s" - (if dedicated "no longer " "") - (buffer-name)))) - -;; reading mode (defun split-and-follow () (interactive) (delete-other-windows) diff --git a/.config/emacs/modules/bd--exwm-windowing.el b/.config/emacs/modules/bd--exwm-windowing.el index 184c16e..ef4aa0f 100644 --- a/.config/emacs/modules/bd--exwm-windowing.el +++ b/.config/emacs/modules/bd--exwm-windowing.el @@ -118,7 +118,7 @@ that buffer." ([?\s-O] . bd/visit-bookmark) ([?\s-P] . bd/password) ([?\s-r] . exwm-reset) - ([?\s-d] . toggle-current-window-dedication) + ([?\s-d] . toggle-window-dedicated) ([?\s-q] . kill-current-buffer) ([?\s-x] . (lambda (command) (interactive (list (read-shell-command "s-x "))) diff --git a/.config/emacs/modules/bd--modeline.el b/.config/emacs/modules/bd--modeline.el index 4101feb..567a752 100644 --- a/.config/emacs/modules/bd--modeline.el +++ b/.config/emacs/modules/bd--modeline.el @@ -29,8 +29,7 @@ (defvar-local bd/project-mode-line '(:eval (when-let ((project (project-current)) - ;; TODO remove; see what happens - (exwm? (not (equal major-mode 'exwm-mode)))) + (file? (buffer-file-name))) (let ((last-coding-system-used last-coding-system-used)) (format "%s " (propertize @@ -69,7 +68,7 @@ (put construct 'risky-local-variable t)) -(setopt mode-line-right-align-edge 'right-margin) +(setopt mode-line-right-align-edge 'window) (setq-default mode-line-format '("%e" mode-line-front-space @@ -84,6 +83,7 @@ bd/vc-mode-line mode-line-mule-info mode-line-modified + mode-line-front-space )) |