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

2
init.el
View file

@ -27,7 +27,7 @@
;; If there is more than one, they won't work right.
'(package-selected-packages
(quote
(company-ghci scion hlinum etags-select nvm tide yaml-mode window-purpose web-mode ujelly-theme toml-mode smart-mode-line scala-mode rvm ruby-end rspec-mode robe rainbow-mode rainbow-delimiters racer pyenv-mode noctilux-theme monokai-theme markdown-mode less-css-mode json-reformat jade-mode indent-guide helm-themes helm-projectile helm-ag haskell-mode haml-mode groovy-mode flymake-ruby flymake-cursor flycheck flatui-theme exec-path-from-shell evil-nerd-commenter evil-magit evil-leader elpy dumb-jump dockerfile-mode diff-hl dash-at-point company-tern company-racer company-jedi column-enforce-mode color-theme-approximate base16-theme atom-one-dark-theme alchemist aggressive-indent ag)))
(flycheck-rust company-ghc company-ghci scion hlinum etags-select nvm tide yaml-mode window-purpose web-mode ujelly-theme toml-mode smart-mode-line scala-mode rvm ruby-end rspec-mode robe rainbow-mode rainbow-delimiters racer pyenv-mode noctilux-theme monokai-theme markdown-mode less-css-mode json-reformat jade-mode indent-guide helm-themes helm-projectile helm-ag haskell-mode haml-mode groovy-mode flymake-ruby flymake-cursor flycheck flatui-theme exec-path-from-shell evil-nerd-commenter evil-magit evil-leader elpy dumb-jump dockerfile-mode diff-hl dash-at-point company-tern company-racer company-jedi column-enforce-mode color-theme-approximate base16-theme atom-one-dark-theme alchemist aggressive-indent ag)))
'(safe-local-variable-values (quote ((encoding . utf-8)))))
(custom-set-faces
;; custom-set-faces was added by Custom.

4
languages/haskell.el
View file

@ -15,7 +15,7 @@
(flycheck-mode 1)
(flymake-mode 1)
(set (make-local-variable 'company-backends)
'((company-ghci company-capf company-etags company-dabbrev-code
'((company-ghc company-capf company-etags company-dabbrev-code
company-yasnippet company-files))))
:;========== Scion mode ============================
@ -24,7 +24,7 @@
;; (scion-mode 1))
;;========== Hooks =================================
(add-hook 'haskell-mode-hook 'edito-config-haskell)
(add-hook 'haskell-mode-hook 'editor-config-haskell)
(add-hook 'haskell-mode-hook 'completion-config-haskell)
;; (add-hook 'haskell-mode-hook 'scion-config-haskell)

1
languages/rust.el
View file

@ -16,6 +16,7 @@
(company-mode 1)
(flycheck-mode 1)
(flymake-mode 1)
(flycheck-rust-setup)
(set (make-local-variable 'company-backends)
'((company-racer company-capf company-dabbrev-code company-yasnippet
company-files))))