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

Add f7 and f8 key bindings

Browse source
This commit is contained in:
Maciej 2017-11-10 23:35:51 +02:00
parent 79a7451546
commit acf05dc06a
Signed by: maciej
GPG key ID: 41D62D42D3B0D765
6 changed files with 23 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

2
config/key-bindings.el
View file

@ -11,6 +11,8 @@
(global-set-key (kbd "s-<left>") 'beginning-of-line)
(global-set-key (kbd "s-<up>") 'scroll-down) ; WTF is this reverse, I dunno
(global-set-key (kbd "s-<down>") 'scroll-up)
(global-set-key (kbd "<f8>") 'purpose-big-screen)
(global-set-key (kbd "<f7>") 'purpose-small-screen)
(require 'evil-leader)
;;;;;;;;; EVIL Leader ;;;;;;;;;;;;;;;;;;;;;;;;

10
config/packages.el
View file

@ -193,11 +193,8 @@
(unless (package-installed-p 'haskell-mode)
(package-install 'haskell-mode))
(unless (package-installed-p 'scion)
(package-install 'scion))
(unless (package-installed-p 'company-ghci)
(package-install 'company-ghci))
(unless (package-installed-p 'company-ghc)
(package-install 'company-ghc))
;; Scala
(unless (package-installed-p 'scala-mode)
@ -216,6 +213,9 @@
(unless (package-installed-p 'toml-mode)
(package-install 'toml-mode))
(unless (package-installed-p 'flycheck-rust)
(package-install 'flycheck-rust))
;; Python
(unless (package-installed-p 'elpy)
(package-install 'elpy))

16
config/windows.el
View file

@ -34,12 +34,14 @@
(add-to-list 'purpose-user-mode-purposes '(elixir-mode . code))
(add-to-list 'purpose-user-mode-purposes '(rust-mode . code))
(add-to-list 'purpose-user-mode-purposes '(haskell-mode . code))
(add-to-list 'purpose-user-mode-purposes '(haskell-cabal-mode . code))
(add-to-list 'purpose-user-mode-purposes '(web-mode . code))
(add-to-list 'purpose-user-mode-purposes '(java-mode . code))
(add-to-list 'purpose-user-mode-purposes '(python-mode . code))
(add-to-list 'purpose-user-mode-purposes '(js-mode . code))
(add-to-list 'purpose-user-mode-purposes '(emacs-lisp-mode . code))
(add-to-list 'purpose-user-mode-purposes '(sql-mode . code))
(add-to-list 'purpose-user-mode-purposes '(yaml-mode . code))
;; Other files that fall into 'code'
(add-to-list 'purpose-user-mode-purposes '(xml-mode . code))
@ -57,8 +59,14 @@
(setq purpose-use-default-configuration nil)
(purpose-compile-user-configuration)
;; Load configuration by default
(if (display-graphic-p)
(progn
(purpose-load-window-layout "coding_with_magit")))
;; Functions for changing layout
(defun purpose-big-screen ()
"Load coding_with_magit."
(interactive)
(purpose-load-window-layout "coding_with_magit"))
(defun purpose-small-screen ()
"Load small_screen."
(interactive)
(purpose-load-window-layout "small_screen"))
;;; windows.el ends here