diff options
| author | Simon Parri <simonparri@ganzeria.com> | 2025-11-22 12:04:10 -0600 |
|---|---|---|
| committer | Simon Parri <simonparri@ganzeria.com> | 2025-11-22 12:04:10 -0600 |
| commit | badc40d9c35328fbb5176b416ca64c034a10fe77 (patch) | |
| tree | 483929a421c0cfd0eb6383e4aae2e4b30400c8c0 | |
| parent | ea20a3ff63e334cc979c2a17d164f7a9459f9d52 (diff) | |
| download | dotfiles-badc40d9c35328fbb5176b416ca64c034a10fe77.tar.gz dotfiles-badc40d9c35328fbb5176b416ca64c034a10fe77.zip | |
Emacs/Mobile-Device: Pop up pulsemixer in `mobile-device-volume-mode'
| -rw-r--r-- | common/.emacs.d/init.el | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/common/.emacs.d/init.el b/common/.emacs.d/init.el index 67aaecc..0b1d0ec 100644 --- a/common/.emacs.d/init.el +++ b/common/.emacs.d/init.el @@ -4072,10 +4072,20 @@ instead." :global t :lighter " Navig") + (defvar mobile-device-volume--buffer nil) (define-minor-mode mobile-device-volume-mode "Minor mode to change volume for tablet/phone UI." :global t - :lighter " ChVol")) + :lighter " ChVol" + (when mobile-device-volume--buffer + (let ((kill-buffer-query-functions ())) + (kill-buffer mobile-device-volume--buffer)) + (setq mobile-device-volume--buffer nil)) + (when mobile-device-volume-mode + (setq mobile-device-volume--buffer + (with-current-buffer (eat "pulsemixer" t) + (rename-buffer "*volume*") + (current-buffer)))))) (progn ;; term (defun spawn-term (&optional dir) |