Emacs: Add keybindings for window-purpose layouts.
Also add help-mode and info-mode to help-buffers purpose.
This commit is contained in:
parent
cddca99f44
commit
86ee413aa8
|
@ -1,6 +1,6 @@
|
||||||
;;; buffers.el --- Default settings for buffers. -*- lexical-binding: t; -*-
|
;;; buffers.el --- Default settings for buffers. -*- lexical-binding: t; -*-
|
||||||
|
|
||||||
;; Time-stamp: <2020-01-27T02:35:31+0100>
|
;; Time-stamp: <2020-01-27T08:21:57+0100>
|
||||||
|
|
||||||
;;; Commentary:
|
;;; Commentary:
|
||||||
;; * Setup scratch buffer.
|
;; * Setup scratch buffer.
|
||||||
|
@ -81,10 +81,11 @@
|
||||||
(add-to-list 'purpose-user-mode-purposes '(c++-mode . cpp))
|
(add-to-list 'purpose-user-mode-purposes '(c++-mode . cpp))
|
||||||
(add-to-list 'purpose-user-mode-purposes '(emacs-lisp-mode . elisp))
|
(add-to-list 'purpose-user-mode-purposes '(emacs-lisp-mode . elisp))
|
||||||
(add-to-list 'purpose-user-mode-purposes '(Man-mode . help-buffers))
|
(add-to-list 'purpose-user-mode-purposes '(Man-mode . help-buffers))
|
||||||
(purpose-compile-user-configuration)
|
(add-to-list 'purpose-user-mode-purposes '(help-mode . help-buffers))
|
||||||
|
(add-to-list 'purpose-user-mode-purposes '(info-mode . help-buffers))
|
||||||
(add-to-list 'purpose-special-action-sequences
|
(add-to-list 'purpose-special-action-sequences
|
||||||
'(help-buffers
|
'(help-buffers purpose-display-reuse-window-buffer))
|
||||||
purpose-display-reuse-window-buffer))
|
(purpose-compile-user-configuration)
|
||||||
|
|
||||||
(require 'window-purpose-x)
|
(require 'window-purpose-x)
|
||||||
(purpose-x-magit-single-on) ; All Magit buffers have the same purpose.
|
(purpose-x-magit-single-on) ; All Magit buffers have the same purpose.
|
||||||
|
@ -93,6 +94,8 @@
|
||||||
:bind
|
:bind
|
||||||
("<f2>" . purpose-toggle-window-purpose-dedicated)
|
("<f2>" . purpose-toggle-window-purpose-dedicated)
|
||||||
("C-<f2>" . purpose-toggle-window-buffer-dedicated)
|
("C-<f2>" . purpose-toggle-window-buffer-dedicated)
|
||||||
|
("<f12>" . purpose-load-window-layout)
|
||||||
|
("C-<f12>" . purpose-load-window-layout)
|
||||||
)
|
)
|
||||||
|
|
||||||
(provide 'basics/buffers)
|
(provide 'basics/buffers)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user