colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[Emacs] Only use frames that are currently visible to display buffers

Browse Source
This commit is contained in:
Ivan Malison 2017-04-17 17:08:53 -07:00
parent c967998d2b
commit 9416902f09
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
dotfiles/emacs.d/README.org
View File

@ -1258,12 +1258,12 @@ it on by default. Its probably safe to turn it on when in a programming mode.
(message "Using other frame: %s" (message "Using other frame: %s"
imalison:use-new-frame-or-window-next-command)) imalison:use-new-frame-or-window-next-command))
(defun imalison:use-other-frame-or-window (&rest args) (defun imalison:should-use-other-frame-or-window (&rest args)
(or imalison:use-new-frame-or-window-next-command (or imalison:use-new-frame-or-window-next-command
imalison:use-new-frame-or-window)) imalison:use-new-frame-or-window))
(defun imalison:display-buffer (&rest args) (defun imalison:display-buffer (&rest args)
(if (imalison:use-other-frame-or-window args) (if (imalison:should-use-other-frame-or-window args)
(apply 'imalison:display-buffer-other-frame-or-window args) (apply 'imalison:display-buffer-other-frame-or-window args)
(apply 'display-buffer-same-window args))) (apply 'display-buffer-same-window args)))
@ -1287,6 +1287,20 @@ it on by default. Its probably safe to turn it on when in a programming mode.
(defun imalison:set-use-new-frame-to-default (&rest args) (defun imalison:set-use-new-frame-to-default (&rest args)
(setq imalison:use-new-frame-or-window-next-command nil)) (setq imalison:use-new-frame-or-window-next-command nil))
(defun imalison:is-frame-viewable (frame)
(s-contains-p "IsViewable"
(shell-command-to-string
(format "xwininfo -id %s" (frame-parameter frame 'window-id)))))
(defun imalison:display-some-frame-predicate (frame)
(and
(not (eq frame (selected-frame)))
(not (window-dedicated-p
(or
(get-lru-window frame)
(frame-first-window frame))))
(imalison:is-frame-viewable frame)))
(advice-add 'display-buffer :after 'imalison:set-use-new-frame-to-default) (advice-add 'display-buffer :after 'imalison:set-use-new-frame-to-default)
(when imalison:use-frames-only (when imalison:use-frames-only
@ -1296,7 +1310,10 @@ it on by default. Its probably safe to turn it on when in a programming mode.
(bind-key "C-x 3" 'imalison:split-window-right) (bind-key "C-x 3" 'imalison:split-window-right)
(bind-key "C-x O" (lambda () (interactive) (imalison:other-window -1))) (bind-key "C-x O" (lambda () (interactive) (imalison:other-window -1)))
(setq display-buffer-alist (setq display-buffer-alist
'(("\\*Flycheck errors\\*" . ((display-buffer-use-some-frame) ((inhibit-same-window t)))) '(("\\*Flycheck errors\\*" . ((display-buffer-use-some-frame
display-buffer-pop-up-frame) .
((inhibit-same-window . t)
(frame-predicate . imalison:display-some-frame-predicate))))
(".*popup\*" . (display-buffer-pop-up-window)) (".*popup\*" . (display-buffer-pop-up-window))
(".*magit-diff.*" . ((display-buffer-pop-up-window) (".*magit-diff.*" . ((display-buffer-pop-up-window)
((reusable-frames . 0) ((reusable-frames . 0)
@ -1305,15 +1322,16 @@ it on by default. Its probably safe to turn it on when in a programming mode.
("\\*helm.*" . (display-buffer-same-window ("\\*helm.*" . (display-buffer-same-window
dispaly-buffer-pop-up-window)) dispaly-buffer-pop-up-window))
("\\*Register Preview\\*" . ((display-buffer-pop-up-window))) ("\\*Register Preview\\*" . ((display-buffer-pop-up-window)))
(imalison:use-other-frame-or-window (imalison:should-use-other-frame-or-window
. .
((display-buffer-use-some-frame display-buffer-pop-up-frame) ((display-buffer-use-some-frame display-buffer-pop-up-frame)
((inhibit-same-window . t) ((inhibit-same-window . t)
(reusable-frames . t)))) (reusable-frames . t))))
(".*" . ((display-buffer-same-window (".*" . ((display-buffer-same-window
display-buffer-use-some-frame display-buffer-use-some-frame
display-buffer-pop-up-frame) display-buffer-pop-up-frame) .
((reusable-frames . t))))))) ((reusable-frames . t)
(frame-predicate . imalison:display-some-frame-predicate)))))))
#+END_SRC #+END_SRC
** Fill Setup ** Fill Setup
Get rid of nags about requiring setences to end with two spaces. Get rid of nags about requiring setences to end with two spaces.