maciej/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add desktop saving on exit, set up windows

Browse source
This commit is contained in:
Maciej Szlosarczyk 2017-08-25 23:09:43 +03:00
parent 52d60d1297
commit 1228134db5
No known key found for this signature in database
GPG key ID: 0D4EEACF63D4262E
10 changed files with 126 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

31
windows.el
View file

@ -2,25 +2,30 @@
;;; Commentary:
;;; Windows management things, mostly with purpose
;;; Code:
(require 'window-purpose)
(purpose-mode t)
;; Ruby specific
(add-to-list 'purpose-user-regexp-purposes '("_spec.rb\\(<.*>\\)?$" . test))
(add-to-list 'purpose-user-mode-purposes '(ruby-mode . edit))
(add-to-list 'purpose-user-mode-purposes '(yaml-mode . edit))
(add-to-list 'purpose-user-mode-purposes '(emacs-lisp-mode . edit))
(add-to-list 'purpose-user-mode-purposes '(web-mode . edit))
(add-to-list 'purpose-user-mode-purposes '(html-mode . edit))
(add-to-list 'purpose-user-mode-purposes '(scss-mode . test))
(add-to-list 'purpose-user-mode-purposes '(css-mode . test))
(add-to-list 'purpose-user-mode-purposes '(javascript-mode . edit))
(add-to-list 'purpose-user-mode-purposes '(magit-mode . tr))
(add-to-list 'purpose-user-mode-purposes '(dired-mode . tr))
(add-to-list 'purpose-user-mode-purposes '(compilation-mode . tr))
(add-to-list 'purpose-user-mode-purposes '(help-mode . br))
(add-to-list 'purpose-user-mode-purposes '(special-mode . br))
(add-to-list 'purpose-user-regexp-purposes
'("COMMIT_EDITMSG\\(<.*>\\)?$" . code))
(add-to-list 'purpose-user-mode-purposes '(ruby-mode . code))
(add-to-list 'purpose-user-mode-purposes '(yaml-mode . code))
;; Tools
(add-to-list 'purpose-user-mode-purposes '(magit-mode . tools))
(add-to-list 'purpose-user-mode-purposes '(help-mode . tools))
(add-to-list 'purpose-user-mode-purposes '(helm-mode . tools))
(add-to-list 'purpose-user-mode-purposes '(compilation-mode . tools))
;; Markdown
(add-to-list 'purpose-user-mode-purposes '(markdown-mode . code))
;; Elisp
(add-to-list 'purpose-user-mode-purposes '(emacs-lisp-mode . code))
(setq purpose-use-default-configuration nil)
(purpose-compile-user-configuration)
(purpose-load-window-layout 'coding_with_magit)
;;; windows.el ends here