diff options
| -rw-r--r-- | .config/emacs/modules/bd--emms.el | 25 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--essential-windowing.el | 3 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--shells.el | 25 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--themes.el | 3 |
4 files changed, 30 insertions, 26 deletions
diff --git a/.config/emacs/modules/bd--emms.el b/.config/emacs/modules/bd--emms.el index 40acf36..fe06cc8 100644 --- a/.config/emacs/modules/bd--emms.el +++ b/.config/emacs/modules/bd--emms.el @@ -1,14 +1,12 @@ ;; -*- lexical-binding: t; -*- -(defun emms-open-playlist-buffer () - "Opens the current playlist in the right -side window." - (interactive) - (if (get-buffer emms-playlist-buffer-name) - (progn (display-buffer-in-side-window (get-buffer emms-playlist-buffer-name) '((side . right))) - (select-window (get-buffer-window emms-playlist-buffer-name))) - (message "The Ainur cannot hear you..."))) +(add-to-list 'display-buffer-alist + `(,emms-playlist-buffer-name + (display-buffer-in-side-window) + (side . right) + (window-width . 45))) + (defun emms-quickstart () "Queues a shuffled playlist and starts @@ -21,13 +19,18 @@ playback." (emms-shuffle)) (use-package emms - :bind (("C-z C-m" . 'emms-open-playlist-buffer) - ("C-z C-p" . 'emms-play-playlist) - ("C-z C-s" . 'emms-quickstart)) + :bind (("C-z C-s" . 'emms-quickstart) + ("C-z C-p" . 'emms-play-playlist)) :config (emms-all) (add-to-list 'emms-info-functions 'emms-info-functions 'emms-info-mpd) (add-to-list 'emms-player-list 'emms-player-mpd) + (keymap-global-set "C-z C-m" (lambda () + (interactive) + (if (get-buffer emms-playlist-buffer-name) + (progn (display-buffer emms-playlist-buffer-name) + (select-window (get-buffer-window emms-playlist-buffer-name))) + (message "The Ainur cannot hear you...")))) :custom ;; make sure mpd is configured similarly (emms-player-mpd-server-name "localhost") diff --git a/.config/emacs/modules/bd--essential-windowing.el b/.config/emacs/modules/bd--essential-windowing.el index bba3dee..c96bad0 100644 --- a/.config/emacs/modules/bd--essential-windowing.el +++ b/.config/emacs/modules/bd--essential-windowing.el @@ -11,6 +11,9 @@ (tool-bar-mode -1) (scroll-bar-mode -1) +;; no fringe +(fringe-mode '(0 . 0)) + ;; allow one side window per side of frame (setopt window-sides-slots '(1 1 1 1)) diff --git a/.config/emacs/modules/bd--shells.el b/.config/emacs/modules/bd--shells.el index 1ca8bb0..4396ae1 100644 --- a/.config/emacs/modules/bd--shells.el +++ b/.config/emacs/modules/bd--shells.el @@ -33,19 +33,20 @@ status, and path." ;;;; shell -(defun shell-open-buffer () - "Opens eshell in the bottom -side window." - (interactive) - (let ((curr-buffer (current-buffer)) - (shell (shell))) - (switch-to-buffer curr-buffer) - (display-buffer-in-side-window (get-buffer shell) '((side . top))) - (switch-to-buffer-other-window shell))) - - (require 'shell) -(keymap-global-set "C-z C-e" 'shell-open-buffer) +(add-to-list 'display-buffer-alist + `("\\*shell\\*" + (display-buffer-in-side-window) + (side . top) + (window-height . 20))) + +(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 diff --git a/.config/emacs/modules/bd--themes.el b/.config/emacs/modules/bd--themes.el index 9321e15..1372ea4 100644 --- a/.config/emacs/modules/bd--themes.el +++ b/.config/emacs/modules/bd--themes.el @@ -1,9 +1,6 @@ ;; -*- lexical-binding: t; -*- -;; no fringe -(fringe-mode '(0 . 0)) - (defun modus-themes-custom-faces () (modus-themes-with-colors (custom-set-faces |