Configured basic 'popper.el' at usable level.

8 files changed, 48 insertions, 20 deletions

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index c6744d5..c418d0e 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -54,4 +54,5 @@
 (require 'bd--roam)
 (require 'bd--emms)
 (require 'bd--modeline)
+(require 'bd--popper)
 (require 'bd--exwm-windowing)
diff --git a/.config/emacs/modules/bd--emms.el b/.config/emacs/modules/bd--emms.el
index f7828ea..8ee2b34 100644
--- a/.config/emacs/modules/bd--emms.el
+++ b/.config/emacs/modules/bd--emms.el
@@ -1,14 +1,6 @@
 ;; -*- lexical-binding: t; -*-
 
 
-(require 'emms)
-(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
 playback."
@@ -19,6 +11,7 @@ playback."
   (emms-play-directory-tree (expand-file-name "~/Personal/mpd/music/"))
   (emms-shuffle))
 
+
 (use-package emms
   :bind (("C-z C-s" . 'emms-quickstart)
          ("C-z C-p" . 'emms-play-playlist))
@@ -47,5 +40,11 @@ playback."
   (emms-mode-line-icon-before-format (format "%s" (all-the-icons-fileicon "owl")))
   (emms-mode-line-icon-enabled-p t))
 
+(add-to-list 'display-buffer-alist
+             `(,emms-playlist-buffer-name
+               (display-buffer-in-side-window)
+               (side . right)
+               (window-width . 45)))
+
 
 (provide 'bd--emms)
diff --git a/.config/emacs/modules/bd--essential-windowing.el b/.config/emacs/modules/bd--essential-windowing.el
index c96bad0..9917a93 100644
--- a/.config/emacs/modules/bd--essential-windowing.el
+++ b/.config/emacs/modules/bd--essential-windowing.el
@@ -14,9 +14,6 @@
 ;; no fringe
 (fringe-mode '(0 . 0))
 
-;; allow one side window per side of frame
-(setopt window-sides-slots '(1 1 1 1))
-
 ;; alpha
 (defun bd/clamp (lower-bound upper-bound value)
   (max lower-bound (min value upper-bound)))
diff --git a/.config/emacs/modules/bd--essentials.el b/.config/emacs/modules/bd--essentials.el
index 2054bc3..1ea77de 100644
--- a/.config/emacs/modules/bd--essentials.el
+++ b/.config/emacs/modules/bd--essentials.el
@@ -33,9 +33,6 @@
 ;;;; buffers
 (global-auto-revert-mode 1)
 (winner-mode 1)
-;; do not show async command buffers by default
-(add-to-list 'display-buffer-alist
-             (cons "\\*Async Shell Command\\*.*" (cons #'display-buffer-no-window nil)))
 (setopt scroll-up-aggressively '0.65
         scroll-down-aggressively '0.65)
 
diff --git a/.config/emacs/modules/bd--exwm-windowing.el b/.config/emacs/modules/bd--exwm-windowing.el
index 8d95c1c..dc9d8c4 100644
--- a/.config/emacs/modules/bd--exwm-windowing.el
+++ b/.config/emacs/modules/bd--exwm-windowing.el
@@ -106,6 +106,7 @@ select a line from a file."
      ?\C-g
      ?\C-h
      ?\C-z
+     ?\C-`
      ?\M-x
      ?\M-`
      ?\M-&
diff --git a/.config/emacs/modules/bd--minibuffer.el b/.config/emacs/modules/bd--minibuffer.el
index ae108d5..9f1dc32 100644
--- a/.config/emacs/modules/bd--minibuffer.el
+++ b/.config/emacs/modules/bd--minibuffer.el
@@ -4,6 +4,7 @@
 (setopt use-short-answers t
         vc-follow-symlinks t
         completion-ignore-case t
+        read-buffer-completion-ignore-case t
         ;; required for exwm (pass) but
         ;; always useful
         enable-recursive-minibuffers t)
diff --git a/.config/emacs/modules/bd--popper.el b/.config/emacs/modules/bd--popper.el
new file mode 100644
index 0000000..6b4d83b
--- /dev/null
+++ b/.config/emacs/modules/bd--popper.el
@@ -0,0 +1,38 @@
+;; -*- lexical-binding: t; -*-
+
+
+;;;; popper
+(use-package popper
+  :bind (("C-`" . 'popper-toggle-latest)
+         ("M-`" . 'popper-cycle)
+         ("C-M-`" . popper-toggle-type))
+  :config
+  (popper-mode)
+  (popper-echo-mode)
+  :custom
+  (popper-reference-buffers
+   '(("Output\\*$" . hide)
+     ("\\*Async Shell Command\\*.*" . hide)
+     "^\\*shell.*\\*$" shell-mode
+     "^\\*eshell.*\\*$" eshell-mode
+     "^\\*term.*\\*$" term-mode
+     messages-buffer-mode
+     help-mode
+     Info-mode
+     occur-mode
+     compilatin-mode
+     emms-playlist-mode
+     emms-browser-mode))
+  ;; (popper-display-control 'user)
+  (popper-mode-line '(:eval (propertize " P" 'face 'mode-line-emphasis))))
+
+
+;;;; buffer defaults for default buffers
+(add-to-list 'display-buffer-alist
+             `(,(regexp-opt'("*shell*" "*eshell*" "*term*"))
+               (display-buffer-in-side-window)
+               (side . top)
+               (window-height . 20)))
+
+
+(provide 'bd--popper)
diff --git a/.config/emacs/modules/bd--shells.el b/.config/emacs/modules/bd--shells.el
index 4396ae1..67415e9 100644
--- a/.config/emacs/modules/bd--shells.el
+++ b/.config/emacs/modules/bd--shells.el
@@ -34,12 +34,6 @@ status, and path."
 
 ;;;; shell
 (require 'shell)
-(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))