[Emacs] Add my own frames oriented mode
This commit is contained in:
parent
cd8c0a4f3f
commit
3ee4cffd9c
@ -1125,14 +1125,57 @@ programming mode.
|
|||||||
#+END_SRC
|
#+END_SRC
|
||||||
*** display-buffer-alist
|
*** display-buffer-alist
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
;; (defun imalison:display-buffer-reuse-window ()
|
(defvar imalison:use-frames-only nil)
|
||||||
;; )
|
|
||||||
|
|
||||||
;; (setq display-buffer-alist
|
(defun imalison:use-frames-only ()
|
||||||
;; '((".*" (display-buffer-reuse-window
|
(or imalison:use-frames-only
|
||||||
;; display-buffer-same-window
|
(member (getenv "XDG_CURRENT_DESKTOP") '("XMonad"))))
|
||||||
;; display-buffer-pop-up-frame)
|
|
||||||
;; (reusable-frames . t))))
|
(defvar imalison:use-new-frame-or-window nil)
|
||||||
|
|
||||||
|
(defvar imalison:use-new-frame-next-command nil)
|
||||||
|
|
||||||
|
(defun imalison:new-frame-next-command ()
|
||||||
|
(interactive)
|
||||||
|
(setq imalison:use-new-frame-next-command t))
|
||||||
|
|
||||||
|
(defun imalison:use-new-frame-or-window (&rest args)
|
||||||
|
(or
|
||||||
|
(when imalison:use-new-frame-next-command
|
||||||
|
(setq imalison:use-new-frame-next-command nil)
|
||||||
|
t)
|
||||||
|
imalison:use-new-frame-or-window))
|
||||||
|
|
||||||
|
(defun imalison:display-buffer (&rest args)
|
||||||
|
(if (imalison:use-new-frame-or-window args)
|
||||||
|
(imalison:new-frame-or-window args)
|
||||||
|
(apply 'display-buffer-same-window args)))
|
||||||
|
|
||||||
|
(defun imalison:display-new-frame-or-window (&rest args)
|
||||||
|
(if (imalison:use-frames-only)
|
||||||
|
(apply 'display-buffer-pop-up-frame args)
|
||||||
|
(apply 'display-buffer-pop-up-window args)))
|
||||||
|
|
||||||
|
(defun imalison:split-window-right ()
|
||||||
|
(interactive)
|
||||||
|
(if (imalison:use-frames-only)
|
||||||
|
(new-frame)
|
||||||
|
(split-window-right)))
|
||||||
|
|
||||||
|
(defun imalison:other-window (&rest args)
|
||||||
|
(interactive
|
||||||
|
(list 1))
|
||||||
|
(if (imalison:use-frames-only)
|
||||||
|
(apply 'other-frame args)
|
||||||
|
(apply 'other-window args)))
|
||||||
|
|
||||||
|
(bind-key "C-x o" 'imalison:other-window)
|
||||||
|
(bind-key "C-x 3" 'imalison:split-window-right)
|
||||||
|
|
||||||
|
(setq display-buffer-alist
|
||||||
|
'("COMMIT_MESSAGE"
|
||||||
|
(".*" (imalison:display-buffer)
|
||||||
|
(reusable-frames . t))))
|
||||||
#+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.
|
||||||
|
Loading…
Reference in New Issue
Block a user