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

use poper emacs namespace, move keys to dedicated minor mode

Browse source
This commit is contained in:
Maciej 2021-03-06 10:52:54 +02:00
parent 7f5f90ae4d
commit 76c7d665c7
Signed by: maciej
GPG key ID: 41D62D42D3B0D765
38 changed files with 337 additions and 221 deletions
Download patch file Download diff file Expand all files Collapse all files

73
init.el
View file

@ -22,46 +22,47 @@
(require 'use-package) (require 'use-package)
;; General configuration files. ;; General configuration files.
(require 'pkg/base "$HOME/.emacs.d/pkg/base.el") (require 'icejam-pkg-keys-mode "$HOME/.emacs.d/pkg/keys-mode.el")
(require 'pkg/sys-specific "$HOME/.emacs.d/pkg/sys-specific.el") (require 'icejam-pkg-base "$HOME/.emacs.d/pkg/base.el")
(require 'pkg/macros "$HOME/.emacs.d/pkg/macros.el") (require 'icejam-pkg-sys-specific "$HOME/.emacs.d/pkg/sys-specific.el")
(require 'pkg/ivy "$HOME/.emacs.d/pkg/ivy.el") (require 'icejam-pkg-macros "$HOME/.emacs.d/pkg/macros.el")
(require 'pkg/persp "$HOME/.emacs.d/pkg/persp.el") (require 'icejam-pkg-ivy "$HOME/.emacs.d/pkg/ivy.el")
(require 'pkg/hydra "$HOME/.emacs.d/pkg/hydra.el") (require 'icejam-pkg-persp "$HOME/.emacs.d/pkg/persp.el")
(require 'pkg/magit "$HOME/.emacs.d/pkg/magit.el") (require 'icejam-pkg-hydra "$HOME/.emacs.d/pkg/hydra.el")
(require 'pkg/prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require 'icejam-pkg-magit "$HOME/.emacs.d/pkg/magit.el")
(require 'pkg/company-yasnippet "$HOME/.emacs.d/pkg/company-yasnippet.el") (require 'icejam-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require 'pkg/flycheck "$HOME/.emacs.d/pkg/flycheck.el") (require 'icejam-pkg-company-yasnippet "$HOME/.emacs.d/pkg/company-yasnippet.el")
(require 'pkg/projectile "$HOME/.emacs.d/pkg/projectile.el") (require 'icejam-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el")
(require 'pkg/ctags "$HOME/.emacs.d/pkg/ctags.el") (require 'icejam-pkg-projectile "$HOME/.emacs.d/pkg/projectile.el")
(require 'pkg/ispell "$HOME/.emacs.d/pkg/ispell.el") (require 'icejam-pkg-ctags "$HOME/.emacs.d/pkg/ctags.el")
(require 'pkg/deft "$HOME/.emacs.d/pkg/deft.el") (require 'icejam-pkg-ispell "$HOME/.emacs.d/pkg/ispell.el")
(require 'pkg/lsp "$HOME/.emacs.d/pkg/lsp.el") (require 'icejam-pkg-deft "$HOME/.emacs.d/pkg/deft.el")
(require 'pkg/dashboard "$HOME/.emacs.d/pkg/dashboard.el") (require 'icejam-pkg-lsp "$HOME/.emacs.d/pkg/lsp.el")
(require 'pkg/undo-tree "$HOME/.emacs.d/pkg/undo-tree.el") (require 'icejam-pkg-dashboard "$HOME/.emacs.d/pkg/dashboard.el")
(require 'pkg/avy "$HOME/.emacs.d/pkg/avy.el") (require 'icejam-pkg-undo-tree "$HOME/.emacs.d/pkg/undo-tree.el")
(require 'icejam-pkg-avy "$HOME/.emacs.d/pkg/avy.el")
;; Themes ;; Themes
(require 'themes/themes "$HOME/.emacs.d/themes/themes.el") (require 'icejam-themes "$HOME/.emacs.d/themes/themes.el")
;; Actual supported languages and file syntax. ;; Actual supported languages and file syntax.
(require 'languages/elisp "$HOME/.emacs.d/languages/elisp.el") (require 'icejam-lang-elisp "$HOME/.emacs.d/lang/elisp.el")
(require 'languages/ruby "$HOME/.emacs.d/languages/ruby.el") (require 'icejam-lang-ruby "$HOME/.emacs.d/lang/ruby.el")
(require 'languages/web "$HOME/.emacs.d/languages/web.el") (require 'icejam-lang-web "$HOME/.emacs.d/lang/web.el")
(require 'languages/javascript "$HOME/.emacs.d/languages/javascript.el") (require 'icejam-lang-javascript "$HOME/.emacs.d/lang/javascript.el")
(require 'languages/elixir "$HOME/.emacs.d/languages/elixir.el") (require 'icejam-lang-elixir "$HOME/.emacs.d/lang/elixir.el")
(require 'languages/erlang "$HOME/.emacs.d/languages/erlang.el") (require 'icejam-lang-erlang "$HOME/.emacs.d/lang/erlang.el")
(require 'languages/fsharp "$HOME/.emacs.d/languages/fsharp.el") (require 'icejam-lang-fsharp "$HOME/.emacs.d/lang/fsharp.el")
(require 'languages/sh "$HOME/.emacs.d/languages/sh.el") (require 'icejam-lang-sh "$HOME/.emacs.d/lang/sh.el")
(require 'languages/rust "$HOME/.emacs.d/languages/rust.el") (require 'icejam-lang-rust "$HOME/.emacs.d/lang/rust.el")
(require 'languages/haskell "$HOME/.emacs.d/languages/haskell.el") (require 'icejam-lang-haskell "$HOME/.emacs.d/lang/haskell.el")
(require 'languages/clang "$HOME/.emacs.d/languages/clang.el") (require 'icejam-lang-clang "$HOME/.emacs.d/lang/clang.el")
(require 'languages/clojure "$HOME/.emacs.d/languages/clojure.el") (require 'icejam-lang-clojure "$HOME/.emacs.d/lang/clojure.el")
(require 'languages/ocaml "$HOME/.emacs.d/languages/ocaml.el") (require 'icejam-lang-ocaml "$HOME/.emacs.d/lang/ocaml.el")
(require 'languages/purescript "$HOME/.emacs.d/languages/purescript.el") (require 'icejam-lang-purescript "$HOME/.emacs.d/lang/purescript.el")
(require 'languages/php "$HOME/.emacs.d/languages/php.el") (require 'icejam-lang-php "$HOME/.emacs.d/lang/php.el")
(require 'languages/markdown "$HOME/.emacs.d/languages/markdown.el") (require 'icejam-lang-markdown "$HOME/.emacs.d/lang/markdown.el")
(require 'languages/other "$HOME/.emacs.d/languages/other.el") (require 'icejam-lang-other "$HOME/.emacs.d/lang/other.el")
(custom-set-variables (custom-set-variables
;; custom-set-variables was added by Custom. ;; custom-set-variables was added by Custom.

8
languages/clang.el → lang/clang.el
View file

@ -2,9 +2,9 @@
;;; Commentary: ;;; Commentary:
;;; Code: ;;; Code:
(require 'pkg/projectile "$HOME/.emacs.d/pkg/projectile.el") (require 'icejam-pkg-projectile "$HOME/.emacs.d/pkg/projectile.el")
(require 'pkg/ctags "$HOME/.emacs.d/pkg/ctags.el") (require 'icejam-pkg-ctags "$HOME/.emacs.d/pkg/ctags.el")
(require 'pkg/prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require 'icejam-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(defun activate-clang-mode () (defun activate-clang-mode ()
"Goodies for editing c files." "Goodies for editing c files."
@ -32,5 +32,5 @@
(add-hook 'c-mode-hook 'activate-clang-mode) (add-hook 'c-mode-hook 'activate-clang-mode)
(provide 'languages/clang) (provide 'icejam-lang-clang)
;;; clang.el ends here ;;; clang.el ends here

6
languages/clojure.el → lang/clojure.el
View file

@ -2,8 +2,8 @@
;;; Commentary: ;;; Commentary:
;;; Code: ;;; Code:
(require 'pkg/prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require 'icejam-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require 'pkg/hydra "$HOME/.emacs.d/pkg/hydra.el") (require 'icejam-pkg-hydra "$HOME/.emacs.d/pkg/hydra.el")
(use-package clojure-mode (use-package clojure-mode
:defer t :defer t
@ -63,5 +63,5 @@ _l_: Load buffer
(add-hook 'cider-repl-mode-hook 'my-clj-repl-config) (add-hook 'cider-repl-mode-hook 'my-clj-repl-config)
(add-hook 'cider-mode-hook #'cider-company-enable-fuzzy-completion) (add-hook 'cider-mode-hook #'cider-company-enable-fuzzy-completion)
(provide 'languages/clojure) (provide 'icejam-lang-clojure)
;;; clojure.el ends here ;;; clojure.el ends here

4
languages/elisp.el → lang/elisp.el
View file

@ -2,7 +2,7 @@
;;; Commentary: ;;; Commentary:
;;; Code: ;;; Code:
(require 'pkg/prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require 'icejam-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(defun activate-emacs-lisp-mode () (defun activate-emacs-lisp-mode ()
"Goodies for editing Emacs files." "Goodies for editing Emacs files."
@ -16,5 +16,5 @@
(add-hook 'emacs-lisp-mode-hook 'activate-emacs-lisp-mode) (add-hook 'emacs-lisp-mode-hook 'activate-emacs-lisp-mode)
(provide 'languages/elisp) (provide 'icejam-lang-elisp)
;;; elisp.el ends here ;;; elisp.el ends here

9
languages/elixir.el → lang/elixir.el
View file

@ -2,9 +2,9 @@
;;; Commentary: ;;; Commentary:
;;; Code: ;;; Code:
(require 'pkg/prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require 'icejam-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require 'pkg/flycheck "$HOME/.emacs.d/pkg/flycheck.el") (require 'icejam-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el")
(require 'pkg/hydra "$HOME/.emacs.d/pkg/hydra.el") (require 'icejam-pkg-hydra "$HOME/.emacs.d/pkg/hydra.el")
(use-package elixir-mode (use-package elixir-mode
:requires (lsp-mode lsp-ui) :requires (lsp-mode lsp-ui)
@ -29,6 +29,7 @@ _i_: Indent buffer _m_: iMenu
"All things Elixir." "All things Elixir."
(set-indent 2) (set-indent 2)
(column-enforce-n 98) (column-enforce-n 98)
(lsp)
(setq-local flycheck-check-syntax-automatically '(save mode-enabled)) (setq-local flycheck-check-syntax-automatically '(save mode-enabled))
(define-key elixir-mode-map (kbd "<f17>") 'elixir-format) (define-key elixir-mode-map (kbd "<f17>") 'elixir-format)
@ -43,5 +44,5 @@ _i_: Indent buffer _m_: iMenu
(add-hook 'elixir-mode-hook 'activate-elixir-mode) (add-hook 'elixir-mode-hook 'activate-elixir-mode)
(provide 'languages/elixir) (provide 'icejam-lang-elixir)
;;; elixir.el ends here ;;; elixir.el ends here

6
languages/erlang.el → lang/erlang.el
View file

@ -2,8 +2,8 @@
;;; Commentary: ;;; Commentary:
;;; Code: ;;; Code:
(require 'pkg/ctags "$HOME/.emacs.d/pkg/ctags.el") (require 'icejam-pkg-ctags "$HOME/.emacs.d/pkg/ctags.el")
(require 'pkg/prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require 'icejam-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(use-package erlang (use-package erlang
:defer t :defer t
@ -109,5 +109,5 @@
(add-hook 'erlang-mode-hook 'erlang/activate-erlang-mode) (add-hook 'erlang-mode-hook 'erlang/activate-erlang-mode)
(provide 'languages/erlang) (provide 'icejam-lang-erlang)
;;; erlang.el ends here ;;; erlang.el ends here

6
languages/fsharp.el → lang/fsharp.el
View file

@ -10,8 +10,8 @@
;;; Code: ;;; Code:
(require 'pkg/prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require 'icejam-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require 'pkg/flycheck "$HOME/.emacs.d/pkg/flycheck.el") (require 'icejam-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el")
(use-package fsharp-mode (use-package fsharp-mode
:requires (lsp-mode lsp-ui) :requires (lsp-mode lsp-ui)
@ -46,5 +46,5 @@ _i_: Indent buffer _m_: iMenu
(add-hook 'fsharp-mode-hook 'activate-fsharp-mode) (add-hook 'fsharp-mode-hook 'activate-fsharp-mode)
(provide 'languages/fsharp) (provide 'icejam-lang-fsharp)
;;; fsharp.el ends here ;;; fsharp.el ends here

8
languages/haskell.el → lang/haskell.el
View file

@ -10,9 +10,9 @@
;;; Code: ;;; Code:
(require 'pkg/prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require 'icejam-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require 'pkg/flycheck "$HOME/.emacs.d/pkg/flycheck.el") (require 'icejam-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el")
(require 'pkg/hydra "$HOME/.emacs.d/pkg/hydra.el") (require 'icejam-pkg-hydra "$HOME/.emacs.d/pkg/hydra.el")
(use-package haskell-mode (use-package haskell-mode
:ensure t :ensure t
@ -53,5 +53,5 @@ _i_: Indent buffer _m_: iMenu
(add-hook 'haskell-mode-hook 'activate-haskell-mode) (add-hook 'haskell-mode-hook 'activate-haskell-mode)
(provide 'languages/haskell) (provide 'icejam-lang-haskell)
;;; haskell.el ends here ;;; haskell.el ends here

10
languages/javascript.el → lang/javascript.el
View file

@ -2,9 +2,9 @@
;;; Commentary: ;;; Commentary:
;;; Code: ;;; Code:
(require 'pkg/prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require 'icejam-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require 'pkg/flycheck "$HOME/.emacs.d/pkg/flycheck.el") (require 'icejam-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el")
(require 'pkg/lsp "$HOME/.emacs.d/pkg/lsp.el") (require 'icejam-pkg-lsp "$HOME/.emacs.d/pkg/lsp.el")
(use-package js2-mode (use-package js2-mode
:requires (web-mode company-web lsp-mode lsp-ui) :requires (web-mode company-web lsp-mode lsp-ui)
@ -26,7 +26,7 @@
(set-indent 2) (set-indent 2)
(when (not (string-match-p ".json" (buffer-file-name))) (when (not (string-match-p ".json" (buffer-file-name)))
(lsp)) (lsp-deferred))
(column-enforce-n 80) (column-enforce-n 80)
(setq-local js2-basic-offset 2) (setq-local js2-basic-offset 2)
@ -45,5 +45,5 @@
(add-hook 'js2-mode-hook 'activate-js2-mode) (add-hook 'js2-mode-hook 'activate-js2-mode)
(add-hook 'vue-mode-hook 'lsp) (add-hook 'vue-mode-hook 'lsp)
(provide 'languages/javascript) (provide 'icejam-lang-javascript)
;;; javascript.el ends here ;;; javascript.el ends here

4
languages/markdown.el → lang/markdown.el
View file

@ -2,7 +2,7 @@
;;; Commentary: ;;; Commentary:
;;; Code: ;;; Code:
(require 'pkg/prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require 'icejam-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(use-package markdown-mode (use-package markdown-mode
:ensure t :ensure t
@ -23,5 +23,5 @@
(add-hook 'markdown-mode-hook 'activate-markdown-mode) (add-hook 'markdown-mode-hook 'activate-markdown-mode)
(provide 'languages/markdown) (provide 'icejam-lang-markdown)
;;; markdown.el ends here ;;; markdown.el ends here

11
languages/ocaml.el → lang/ocaml.el
View file

@ -54,6 +54,15 @@ _o_: Update opam env
;; OCaml setup ;; OCaml setup
(add-hook 'tuareg-mode-hook 'merlin-mode) (add-hook 'tuareg-mode-hook 'merlin-mode)
(add-hook 'tuareg-mode-hook 'load-ocaml-site-packages) (add-hook 'tuareg-mode-hook 'load-ocaml-site-packages)
(add-hook 'merlin-mode-hook (lambda ()
(unbind-key "C-c C-d" merlin-mode-map)
(unbind-key "C-c C-l" merlin-mode-map)
(unbind-key "C-c C-n" merlin-mode-map)
(unbind-key "C-c C-p" merlin-mode-map)
(unbind-key "C-c C-r" merlin-mode-map)
(unbind-key "C-c C-t" merlin-mode-map)
(unbind-key "C-c C-x" merlin-mode-map)
(unbind-key "C-c &" merlin-mode-map)))
;; Use tuareg-opam with lock files ;; Use tuareg-opam with lock files
(add-to-list 'auto-mode-alist '("\\.opam.locked\\'" . tuareg-opam-mode)) (add-to-list 'auto-mode-alist '("\\.opam.locked\\'" . tuareg-opam-mode))
@ -83,5 +92,5 @@ _o_: Update opam env
(add-hook 'reason-mode-hook 'my-reason-mode) (add-hook 'reason-mode-hook 'my-reason-mode)
(add-hook 'reason-mode-hook 'merlin-mode) (add-hook 'reason-mode-hook 'merlin-mode)
(provide 'languages/ocaml) (provide 'icejam-lang-ocaml)
;;; ocaml.el ends here ;;; ocaml.el ends here

2
languages/other.el → lang/other.el
View file

@ -25,5 +25,5 @@
:hook ((gitignore-mode . whitespace-mode) :hook ((gitignore-mode . whitespace-mode)
(before-save . whitespace-cleanup))) (before-save . whitespace-cleanup)))
(provide 'languages/other) (provide 'icejam-lang-other)
;;; other.el ends here ;;; other.el ends here

8
languages/php.el → lang/php.el
View file

@ -10,9 +10,9 @@
;;; Code: ;;; Code:
(require 'pkg/prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require 'icejam-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require 'pkg/flycheck "$HOME/.emacs.d/pkg/flycheck.el") (require 'icejam-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el")
(require 'pkg/hydra "$HOME/.emacs.d/pkg/hydra.el") (require 'icejam-pkg-hydra "$HOME/.emacs.d/pkg/hydra.el")
(use-package php-mode (use-package php-mode
:requires (lsp-mode lsp-ui) :requires (lsp-mode lsp-ui)
@ -45,5 +45,5 @@ _i_: Indent buffer _m_: iMenu
(add-hook 'php-mode-hook 'activate-php-mode) (add-hook 'php-mode-hook 'activate-php-mode)
(provide 'languages/php) (provide 'icejam-lang-php)
;;; php.el ends here ;;; php.el ends here

2
languages/purescript.el → lang/purescript.el
View file

@ -27,5 +27,5 @@
(add-hook 'purescript-mode-hook 'activate-purescript-mode) (add-hook 'purescript-mode-hook 'activate-purescript-mode)
(provide 'languages/purescript) (provide 'icejam-lang-purescript)
;;; purescript.el ends here ;;; purescript.el ends here

13
languages/ruby.el → lang/ruby.el
View file

@ -2,9 +2,9 @@
;;; Commentary: ;;; Commentary:
;;; Code: ;;; Code:
(require 'pkg/prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require 'icejam-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require 'pkg/projectile "$HOME/.emacs.d/pkg/projectile.el") (require 'icejam-pkg-projectile "$HOME/.emacs.d/pkg/projectile.el")
(require 'pkg/ctags "$HOME/.emacs.d/pkg/ctags.el") (require 'icejam-pkg-ctags "$HOME/.emacs.d/pkg/ctags.el")
(use-package rspec-mode :ensure t :defer t) (use-package rspec-mode :ensure t :defer t)
(use-package ruby-end :ensure t :defer t) (use-package ruby-end :ensure t :defer t)
@ -18,11 +18,6 @@
"All things for ruby mode." "All things for ruby mode."
(set-indent 2) (set-indent 2)
;; Set column enforcement at 80 for normal projects, and at 100 for work
(if (string-match-p "internetee" (buffer-file-name))
(column-enforce-n 100)
(column-enforce-n 80))
;; Disable reek syntax checking permanently ;; Disable reek syntax checking permanently
(add-to-list (make-local-variable 'flycheck-disabled-checkers) 'ruby-reek) (add-to-list (make-local-variable 'flycheck-disabled-checkers) 'ruby-reek)
@ -45,5 +40,5 @@
'(rspec-install-snippets)) '(rspec-install-snippets))
(add-hook 'enh-ruby-mode-hook 'activate-ruby-mode) (add-hook 'enh-ruby-mode-hook 'activate-ruby-mode)
(provide 'languages/ruby) (provide 'icejam-lang-ruby)
;;; ruby.el ends here ;;; ruby.el ends here

6
languages/rust.el → lang/rust.el
View file

@ -2,8 +2,8 @@
;;; Commentary: ;;; Commentary:
;;; Code: ;;; Code:
(require 'pkg/prog-mode "$HOME/.emacs.d/pkg/prog-mode.el") (require 'icejam-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require 'pkg/flycheck "$HOME/.emacs.d/pkg/flycheck.el") (require 'icejam-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el")
(use-package rust-mode (use-package rust-mode
:ensure t :ensure t
@ -36,5 +36,5 @@
(add-hook 'rust-mode-hook 'flycheck-rust-setup) (add-hook 'rust-mode-hook 'flycheck-rust-setup)
(add-hook 'rust-mode-hook 'racer-mode) (add-hook 'rust-mode-hook 'racer-mode)
(provide 'languages/rust) (provide 'icejam-lang-rust)
;;; rust.el ends here ;;; rust.el ends here

2
languages/sh.el → lang/sh.el
View file

@ -6,5 +6,5 @@
(add-to-list 'auto-mode-alist '("\\zshrc\\'" . sh-mode)) (add-to-list 'auto-mode-alist '("\\zshrc\\'" . sh-mode))
(add-to-list 'auto-mode-alist '("\\.zshrc\\'" . sh-mode)) (add-to-list 'auto-mode-alist '("\\.zshrc\\'" . sh-mode))
(provide 'languages/sh) (provide 'icejam-lang-sh)
;;; sh.el ends here ;;; sh.el ends here

6
languages/web.el → lang/web.el
View file

@ -2,8 +2,8 @@
;;; Commentary: ;;; Commentary:
;;; Code: ;;; Code:
(require 'pkg/lsp "$HOME/.emacs.d/pkg/lsp.el") (require 'icejam-pkg-lsp "$HOME/.emacs.d/pkg/lsp.el")
(require 'pkg/flycheck "$HOME/.emacs.d/pkg/flycheck.el") (require 'icejam-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el")
(use-package web-mode (use-package web-mode
:requires (lsp-mode flycheck) :requires (lsp-mode flycheck)
@ -47,5 +47,5 @@
(add-hook 'web-mode-hook 'activate-web-mode) (add-hook 'web-mode-hook 'activate-web-mode)
(provide 'languages/web) (provide 'icejam-lang-web)
;;; web.el ends here ;;; web.el ends here

2
pkg/avy.el
View file

@ -14,5 +14,5 @@
:ensure t :ensure t
:defer t) :defer t)
(provide 'pkg/avy) (provide 'icejam-pkg-avy)
;;; avy.el ends here ;;; avy.el ends here

48
pkg/base.el
View file

@ -38,39 +38,6 @@
;;;;;;;;; Emacs bindings ;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;; Emacs bindings ;;;;;;;;;;;;;;;;;;;;;
(global-set-key (kbd "RET") 'newline) (global-set-key (kbd "RET") 'newline)
(define-key global-map [home] 'beginning-of-line)
(define-key global-map [end] 'end-of-line)
;;; Helpful key bindings
(global-set-key (kbd "C-c \\") 'split-window-right) ;; Split window to the right
(global-set-key (kbd "C-c /") 'split-window-below) ;; Split window to the bottom
;; Move between windows key bindings
(global-set-key (kbd "C-c <left>") 'windmove-left)
(global-set-key (kbd "C-c <right>") 'windmove-right)
(global-set-key (kbd "C-c <up>") 'windmove-up)
(global-set-key (kbd "C-c <down>") 'windmove-down)
;; The same, but without using arrow keys
(global-set-key (kbd "C-c [") 'windmove-left)
(global-set-key (kbd "C-c ]") 'windmove-right)
(global-set-key (kbd "C-c {") 'windmove-up)
(global-set-key (kbd "C-c }") 'windmove-down)
;; Switch to previous and next buffer
(global-set-key (kbd "C-c s <left>") 'previous-buffer)
(global-set-key (kbd "C-c s <right>") 'next-buffer)
;; The same, but without arrow keys.
(global-set-key (kbd "C-c s [") 'previous-buffer)
(global-set-key (kbd "C-c s ]") 'next-buffer)
;; Kill current buffer and window
(global-set-key (kbd "C-c q") 'kill-buffer-and-window)
;; List buffers
(global-set-key (kbd "C-c b") 'ibuffer)
;; Move buffers around with buffer keys ;; Move buffers around with buffer keys
(use-package buffer-move (use-package buffer-move
@ -81,19 +48,6 @@
("C-c m {" . buf-move-up) ("C-c m {" . buf-move-up)
("C-c m }" . buf-move-down)) ("C-c m }" . buf-move-down))
;; Revert without asking
(defun revert-buffer-no-confirm ()
"Revert buffer without confirmation."
(interactive) (revert-buffer t t))
(global-set-key (kbd "C-c r") 'revert-buffer-no-confirm)
;; Create new terminal
(global-set-key (kbd "<f12>") (lambda ()
(interactive)
(ansi-term "/bin/zsh" "ANSI-Term : Zsh")))
;; #====================== Backup config #============================== ;; #====================== Backup config #==============================
(setq backup-directory-alist (setq backup-directory-alist
`((".*" . "~/.emacs_backups/auto-save-list"))) `((".*" . "~/.emacs_backups/auto-save-list")))
@ -166,5 +120,5 @@
(which-key-mode t) (which-key-mode t)
(provide 'pkg/base) (provide 'icejam-pkg-base)
;;; base.el ends here ;;; base.el ends here

8
pkg/company-yasnippet.el
View file

@ -9,7 +9,11 @@
(use-package yasnippet-snippets (use-package yasnippet-snippets
:ensure t :ensure t
:defer t) :defer t
:config
(unbind-key "C-c & C-n" yas-minor-mode-map)
(unbind-key "C-c & C-s" yas-minor-mode-map)
(unbind-key "C-c & C-v" yas-minor-mode-map))
(use-package company (use-package company
:commands (company-indent-or-complete-common company-yasnippet) :commands (company-indent-or-complete-common company-yasnippet)
@ -71,5 +75,5 @@
(define-key text-mode-map (kbd "<f13>") 'insert-space-and-complete) (define-key text-mode-map (kbd "<f13>") 'insert-space-and-complete)
(define-key text-mode-map (kbd "TAB") 'company-indent-or-complete-common) (define-key text-mode-map (kbd "TAB") 'company-indent-or-complete-common)
(provide 'pkg/company-yasnippet) (provide 'icejam-pkg-company-yasnippet)
;;; company-yasnippet.el ends here ;;; company-yasnippet.el ends here

2
pkg/ctags.el
View file

@ -54,5 +54,5 @@
(add-to-list (make-local-variable 'ctags/major-modes-to-update-on-save) mode)) (add-to-list (make-local-variable 'ctags/major-modes-to-update-on-save) mode))
(add-hook 'after-save-hook 'ctags/update-tags-on-save) (add-hook 'after-save-hook 'ctags/update-tags-on-save)
(provide 'pkg/ctags) (provide 'icejam-pkg-ctags)
;;; ctags.el ends here ;;; ctags.el ends here

2
pkg/dashboard.el
View file

@ -23,5 +23,5 @@
;; (registers . 5) ;; (registers . 5)
(projects . 5))) (projects . 5)))
(provide 'pkg/dashboard) (provide 'icejam-pkg-dashboard)
;;; dashboard.el ends here ;;; dashboard.el ends here

6
pkg/deft.el
View file

@ -3,6 +3,8 @@
;;; Notational velocity, backed by OneDrive. ;;; Notational velocity, backed by OneDrive.
;;; Code: ;;; Code:
(require 'icejam-pkg-keys-mode "$HOME/.emacs.d/pkg/keys-mode.el")
(use-package deft (use-package deft
:ensure t :ensure t
:defer t :defer t
@ -11,7 +13,7 @@
deft-default-extension "md" deft-default-extension "md"
deft-auto-save-interval 30.0)) deft-auto-save-interval 30.0))
(global-set-key (kbd "C-c d d") 'deft) (define-key icejam-keys-mode-map (kbd "C-c d d") 'deft)
(provide 'pkg/deft) (provide 'icejam-pkg-deft)
;;; deft.el ends here ;;; deft.el ends here

20
pkg/flycheck.el
View file

@ -7,7 +7,23 @@
:commands flycheck-define-checker :commands flycheck-define-checker
:ensure t :ensure t
:defer t :defer t
:config (global-flycheck-mode t)) :config (global-flycheck-mode t)
(unbind-key "C-c ! C-c" flycheck-mode-map)
(unbind-key "C-c ! C-w" flycheck-mode-map)
(unbind-key "C-c ! ?" flycheck-mode-map)
(unbind-key "C-c ! C" flycheck-mode-map)
(unbind-key "C-c ! H" flycheck-mode-map)
(unbind-key "C-c ! V" flycheck-mode-map)
(unbind-key "C-c ! c" flycheck-mode-map)
(unbind-key "C-c ! e" flycheck-mode-map)
(unbind-key "C-c ! h" flycheck-mode-map)
(unbind-key "C-c ! i" flycheck-mode-map)
(unbind-key "C-c ! l" flycheck-mode-map)
(unbind-key "C-c ! n" flycheck-mode-map)
(unbind-key "C-c ! p" flycheck-mode-map)
(unbind-key "C-c ! s" flycheck-mode-map)
(unbind-key "C-c ! v" flycheck-mode-map)
(unbind-key "C-c ! x" flycheck-mode-map))
(provide 'pkg/flycheck) (provide 'icejam-pkg-flycheck)
;;; flycheck.el ends here ;;; flycheck.el ends here

14
pkg/hydra.el
View file

@ -12,8 +12,8 @@
^Ivy^ ^Perspectives^ ^Projectile^ ^Magit^ ^Ivy^ ^Perspectives^ ^Projectile^ ^Magit^
^^^^^^^^------------------------------------------------------------------------------------- ^^^^^^^^-------------------------------------------------------------------------------------
_a_: Grep in buffer _S_: Switch perspective _s_: Switch project _m_: Git status _a_: Grep in buffer _p_: Switch perspective _s_: Switch project _m_: Git status
_b_: Buffer list _B_: Switch buffer _f_: Find file in project _C_: Git checkout _B_: Buffer list _b_: buffers in perspective _f_: Find file in project _C_: Git checkout
_t_: Find file _K_: Kill perspective _g_: Grep in current project _M_: Git blame _t_: Find file _K_: Kill perspective _g_: Grep in current project _M_: Git blame
_d_: Deft _c_: Invalidate cache _d_: Deft _c_: Invalidate cache
_w_: Avy goto word _n_: New project _w_: Avy goto word _n_: New project
@ -24,15 +24,15 @@ _:_: Avy goto char
("q" nil "cancel" :color blue) ("q" nil "cancel" :color blue)
("a" counsel-rg) ("a" counsel-rg)
("b" ibuffer) ("B" ibuffer)
("t" counsel-find-file) ("t" counsel-find-file)
("d" deft) ("d" deft)
("w" avy-goto-word-0) ("w" avy-goto-word-0)
("l" avy-goto-line) ("l" avy-goto-line)
(":" avy-goto-char) (":" avy-goto-char)
("S" persp-switch) ("p" persp-switch)
("B" persp-ibuffer) ("b" persp-ibuffer)
("K" persp-kill) ("K" persp-kill)
("s" counsel-projectile-switch-project) ("s" counsel-projectile-switch-project)
@ -55,7 +55,7 @@ _:_: Avy goto char
_c_: Comment line _y_: Yasnippet _c_: Comment line _y_: Yasnippet
_r_: Regex replace _m_: Company _r_: Regex replace _m_: Company
_i_: Indent region _u_: Undo tree _i_: Indent region _u_: Undo tree
_a_: Align regexp _a_: Align to regex
_e_: Eval region _e_: Eval region
_s_: Swiper _s_: Swiper
" "
@ -121,5 +121,5 @@ _i_: Indent buffer _m_: iMenu
("C-c w" . hydra-window-menu/body) ("C-c w" . hydra-window-menu/body)
("C-c l" . hydra-language-context-menu/body)) ("C-c l" . hydra-language-context-menu/body))
(provide 'pkg/hydra) (provide 'icejam-pkg-hydra)
;;; hydra.el ends here ;;; hydra.el ends here

9
pkg/ispell.el
View file

@ -10,5 +10,12 @@
'("--run-together" "--run-together-limit=5" "--run-together-min=2")) '("--run-together" "--run-together-limit=5" "--run-together-min=2"))
:hook ((prog-mode text-mode) . flyspell-mode)) :hook ((prog-mode text-mode) . flyspell-mode))
(provide 'pkg/ispell) (add-hook 'flyspell-mode-hook (lambda ()
(unbind-key "C-," flyspell-mode-map)
(unbind-key "C-." flyspell-mode-map)
(unbind-key "C-;" flyspell-mode-map)
(unbind-key "C-c $" flyspell-mode-map)
(unbind-key "C-M-i" flyspell-mode-map)))
(provide 'icejam-pkg-ispell)
;;; ispell.el ends here ;;; ispell.el ends here

23
pkg/ivy.el
View file

@ -3,6 +3,8 @@
;;; Counsel, Swiper and Ivy. ;;; Counsel, Swiper and Ivy.
;;; Code: ;;; Code:
(require 'icejam-pkg-keys-mode "$HOME/.emacs.d/pkg/keys-mode.el")
(use-package counsel :ensure t :defer t) (use-package counsel :ensure t :defer t)
(use-package swiper :ensure t :defer t) (use-package swiper :ensure t :defer t)
(use-package helpful :ensure t :defer t) (use-package helpful :ensure t :defer t)
@ -21,18 +23,17 @@
(setq counsel-describe-function-function #'helpful-callable) (setq counsel-describe-function-function #'helpful-callable)
(setq counsel-describe-variable-function #'helpful-variable) (setq counsel-describe-variable-function #'helpful-variable)
(global-set-key (kbd "C-c a") 'counsel-rg) (define-key icejam-keys-mode-map (kbd "C-c a") 'counsel-rg)
(global-set-key (kbd "C-c t") 'counsel-find-file) (define-key icejam-keys-mode-map (kbd "C-c t") 'counsel-find-file)
(global-set-key (kbd "C-c C-s") 'swiper) ;; Find things by regexp (define-key icejam-keys-mode-map (kbd "C-c C-s") 'swiper) ;; Find things by regexp
(global-set-key (kbd "M-x") 'counsel-M-x) ;; M-x on steroids (define-key icejam-keys-mode-map (kbd "M-x") 'counsel-M-x) ;; M-x on steroids
;; List all key bindings there are. ;; List all key bindings there are.
;; (global-set-key (kbd "<f1> b") 'describe-bindings) (define-key icejam-keys-mode-map (kbd "<f1> f") 'counsel-describe-function)
(global-set-key (kbd "<f1> f") 'counsel-describe-function) (define-key icejam-keys-mode-map (kbd "<f1> v") 'counsel-describe-variable)
(global-set-key (kbd "<f1> v") 'counsel-describe-variable) (define-key icejam-keys-mode-map (kbd "<f1> l") 'counsel-find-library)
(global-set-key (kbd "<f1> l") 'counsel-find-library) (define-key icejam-keys-mode-map (kbd "<f2> i") 'counsel-info-lookup-symbol)
(global-set-key (kbd "<f2> i") 'counsel-info-lookup-symbol) (define-key icejam-keys-mode-map (kbd "<f2> u") 'counsel-unicode-char)
(global-set-key (kbd "<f2> u") 'counsel-unicode-char)
(provide 'pkg/ivy) (provide 'icejam-pkg-ivy)
;;; ivy.el ends here ;;; ivy.el ends here

70
pkg/keys-mode.el Normal file
View file

@ -0,0 +1,70 @@
;;; keys-mode.el --- summary
;; Author: Maciej Szlosarczyk
;; Maintainer: Maciej Szlosarczyk
;; Version: 0.1-snapshot
;;; Commentary:
;; My global mode, to house my custom keys.
;;; Code:
(define-minor-mode icejam-keys-mode
"Minor mode for all of my personal key bindings"
:global t
:keymap (make-sparse-keymap))
;; Globally enable my minor mode
(icejam-keys-mode)
;;; Helpful key bindings
(define-key icejam-keys-mode-map (kbd "C-c \\") 'split-window-right) ;; Split window to the right
(define-key icejam-keys-mode-map (kbd "C-c /") 'split-window-below) ;; Split window to the bottom
;; Move between windows key bindings
(define-key icejam-keys-mode-map (kbd "C-c <left>") 'windmove-left)
(define-key icejam-keys-mode-map (kbd "C-c <right>") 'windmove-right)
(define-key icejam-keys-mode-map (kbd "C-c <up>") 'windmove-up)
(define-key icejam-keys-mode-map (kbd "C-c <down>") 'windmove-down)
;; The same, but without using arrow keys
(define-key icejam-keys-mode-map (kbd "C-c [") 'windmove-left)
(define-key icejam-keys-mode-map (kbd "C-c ]") 'windmove-right)
(define-key icejam-keys-mode-map (kbd "C-c {") 'windmove-up)
(define-key icejam-keys-mode-map (kbd "C-c }") 'windmove-down)
;; Switch to previous and next buffer
(define-key icejam-keys-mode-map (kbd "C-c s <left>") 'previous-buffer)
(define-key icejam-keys-mode-map (kbd "C-c s <right>") 'next-buffer)
;; The same, but without arrow keys.
(define-key icejam-keys-mode-map (kbd "C-c s [") 'previous-buffer)
(define-key icejam-keys-mode-map (kbd "C-c s ]") 'next-buffer)
;; Kill current buffer and window
(define-key icejam-keys-mode-map (kbd "C-c q") 'kill-buffer-and-window)
;; List buffers
(define-key icejam-keys-mode-map (kbd "C-c b") 'ibuffer)
;; Create new terminal
(defun start-zsh-term ()
"Start ZSH terminal session."
(ansi-term "/bin/zsh" "Zsh"))
(define-key icejam-keys-mode-map (kbd "<f12>") 'start-zsh-term)
;; Revert without asking
(defun revert-buffer-no-confirm ()
"Revert buffer without confirmation."
(interactive) (revert-buffer t t))
(define-key icejam-keys-mode-map (kbd "C-c r") 'revert-buffer-no-confirm)
;;;;;;;;; Emacs bindings ;;;;;;;;;;;;;;;;;;;;;
(define-key icejam-keys-mode-map [home] 'beginning-of-line)
(define-key icejam-keys-mode-map [end] 'end-of-line)
(provide 'icejam-pkg-keys-mode)
;;; keys-mode.el ends here

46
pkg/lsp.el
View file

@ -7,17 +7,51 @@
:ensure t :ensure t
:defer t :defer t
:requires (company) :requires (company)
:config (setq-default lsp-file-watch-threshold 10000 :config
(setq-default lsp-file-watch-threshold 10000
lsp-restart 'auto-restart lsp-restart 'auto-restart
lsp-prefer-capf t lsp-prefer-capf t
lsp-completion-provider :capf lsp-completion-provider :capf
lsp-server-trace nil lsp-server-trace nil
read-process-output-max (* 1024 1024 2) read-process-output-max (* 1024 1024 2)
lsp-enable-file-watchers nil) lsp-enable-file-watchers nil)
:hook ((typescript-mode . lsp-deferred) (unbind-key "s-l =" lsp-mode-map)
(elixir-mode . lsp) (unbind-key "s-l G" lsp-mode-map)
(purescript-mode . lsp-deferred) (unbind-key "s-l T" lsp-mode-map)
(js2-mode . lsp-deferred))) (unbind-key "s-l a" lsp-mode-map)
(unbind-key "s-l g" lsp-mode-map)
(unbind-key "s-l r" lsp-mode-map)
(unbind-key "C-S-SPC" lsp-mode-map)
(unbind-key "s-l G g" lsp-mode-map)
(unbind-key "s-l G r" lsp-mode-map)
(unbind-key "s-l G s" lsp-mode-map)
(unbind-key "s-l h g" lsp-mode-map)
(unbind-key "s-l h h" lsp-mode-map)
(unbind-key "s-l h s" lsp-mode-map)
(unbind-key "s-l g a" lsp-mode-map)
(unbind-key "s-l g e" lsp-mode-map)
(unbind-key "s-l g g" lsp-mode-map)
(unbind-key "s-l g h" lsp-mode-map)
(unbind-key "s-l g r" lsp-mode-map)
(unbind-key "s-l T D" lsp-mode-map)
(unbind-key "s-l T L" lsp-mode-map)
(unbind-key "s-l T S" lsp-mode-map)
(unbind-key "s-l T T" lsp-mode-map)
(unbind-key "s-l T b" lsp-mode-map)
(unbind-key "s-l T d" lsp-mode-map)
(unbind-key "s-l T f" lsp-mode-map)
(unbind-key "s-l T l" lsp-mode-map)
(unbind-key "s-l T s" lsp-mode-map)
(unbind-key "s-l F a" lsp-mode-map)
(unbind-key "s-l F b" lsp-mode-map)
(unbind-key "s-l F r" lsp-mode-map)
(unbind-key "s-l = =" lsp-mode-map)
(unbind-key "s-l s D" lsp-mode-map)
(unbind-key "s-l s d" lsp-mode-map)
(unbind-key "s-l s q" lsp-mode-map)
(unbind-key "s-l s r" lsp-mode-map)
(unbind-key "s-l s s" lsp-mode-map)
:hook ((typescript-mode . lsp-deferred)))
(use-package lsp-ui (use-package lsp-ui
:ensure t :ensure t
@ -37,5 +71,5 @@
:defer t :defer t
:requires (lsp-mode lsp-ui)) :requires (lsp-mode lsp-ui))
(provide 'pkg/lsp) (provide 'icejam-pkg-lsp)
;;; lsp.el ends here ;;; lsp.el ends here

2
pkg/macros.el
View file

@ -9,5 +9,5 @@
(setq result (append (list (car form) result) (setq result (append (list (car form) result)
(cdr form)))))) (cdr form))))))
(provide 'pkg/macros) (provide 'icejam-pkg-macros)
;;; macros ends here ;;; macros ends here

2
pkg/magit.el
View file

@ -11,5 +11,5 @@
(:map magit-blame-mode-map (:map magit-blame-mode-map
("<f5> b" . 'magit-blame-quit))) ("<f5> b" . 'magit-blame-quit)))
(provide 'pkg/magit) (provide 'icejam-pkg-magit)
;;; magit.el ends here ;;; magit.el ends here

23
pkg/persp.el
View file

@ -9,7 +9,24 @@
;; Perspectives ;; Perspectives
;;; Code: ;;; Code:
(use-package perspective :config (persp-mode)) (use-package perspective
:config (persp-mode)
(unbind-key "C-x x" persp-mode-map)
(unbind-key "C-x x C-l" persp-mode-map)
(unbind-key "C-x x C-s" persp-mode-map)
(unbind-key "C-x x A" persp-mode-map)
(unbind-key "C-x x a" persp-mode-map)
(unbind-key "C-x x b" persp-mode-map)
(unbind-key "C-x x c" persp-mode-map)
(unbind-key "C-x x i" persp-mode-map)
(unbind-key "C-x x k" persp-mode-map)
(unbind-key "C-x x n" persp-mode-map)
(unbind-key "C-x x p" persp-mode-map)
(unbind-key "C-x x r" persp-mode-map)
(unbind-key "C-x x s" persp-mode-map)
(unbind-key "C-x x <left>" persp-mode-map)
(unbind-key "C-x x <right>" persp-mode-map)
(unbind-key "C-x x C-x x" persp-mode-map))
(provide 'pkg/persp) (provide 'icejam-pkg-persp)
;;; pkg/persp.el ends here ;;; persp.el ends here

2
pkg/prog-mode.el
View file

@ -79,5 +79,5 @@
:ensure t :ensure t
:defer t) :defer t)
(provide 'pkg/prog-mode) (provide 'icejam-pkg-prog-mode)
;;; prog-mode ends here ;;; prog-mode ends here

2
pkg/projectile.el
View file

@ -20,5 +20,5 @@
(projectile-mode t) (projectile-mode t)
(provide 'pkg/projectile) (provide 'icejam-pkg-projectile)
;;; projectile.el ends here ;;; projectile.el ends here

61
pkg/sys-specific.el
View file

@ -6,6 +6,8 @@
(defconst IS-MAC (eq system-type 'darwin)) (defconst IS-MAC (eq system-type 'darwin))
(defconst IS-BSD (eq system-type 'berkeley-unix)) (defconst IS-BSD (eq system-type 'berkeley-unix))
(require 'icejam-pkg-keys-mode "$HOME/.emacs.d/pkg/keys-mode.el")
;;;;;;;;; Mac-specific config ;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;; Mac-specific config ;;;;;;;;;;;;;;;;;;;;;
(if IS-MAC (if IS-MAC
(progn (progn
@ -24,21 +26,24 @@
(setq mac-command-modifier 'meta)))) (setq mac-command-modifier 'meta))))
;;;;;;;;; Mac binding (fix) ;;;;;;;;;;;;;;;;;; ;;;;;;;;; Mac binding (fix) ;;;;;;;;;;;;;;;;;;
(global-set-key (kbd "H-<right>") 'end-of-line) (define-key icejam-keys-mode-map (kbd "H-<right>") 'end-of-line)
(global-set-key (kbd "H-<left>") 'beginning-of-line) (define-key icejam-keys-mode-map (kbd "H-<left>") 'beginning-of-line)
(global-set-key (kbd "H-<up>") 'scroll-down) ; WTF is this reverse, I dunno (define-key icejam-keys-mode-map (kbd "H-<up>") 'scroll-down) ; WTF is this reverse, I dunno
(global-set-key (kbd "H-<down>") 'scroll-up) (define-key icejam-keys-mode-map (kbd "H-<down>") 'scroll-up)
(global-set-key [(hyper a)] 'mark-whole-buffer) (defun delete-window-mac ()
(global-set-key [(hyper v)] 'yank) "Kill a window on mac"
(global-set-key [(hyper x)] 'kill-region) (interactive) (delete-window))
(global-set-key [(hyper c)] 'kill-ring-save)
(global-set-key [(hyper s)] 'save-buffer) (define-key icejam-keys-mode-map [(hyper a)] 'mark-whole-buffer)
(global-set-key [(hyper l)] 'goto-line) (define-key icejam-keys-mode-map [(hyper v)] 'yank)
(global-set-key [(hyper w)] (define-key icejam-keys-mode-map [(hyper x)] 'kill-region)
(lambda () (interactive) (delete-window))) (define-key icejam-keys-mode-map [(hyper c)] 'kill-ring-save)
(global-set-key [(hyper z)] 'undo) (define-key icejam-keys-mode-map [(hyper s)] 'save-buffer)
(global-set-key [(hyper q)] 'kill-emacs) (define-key icejam-keys-mode-map [(hyper l)] 'goto-line)
(define-key icejam-keys-mode-map [(hyper w)] 'delete-window-mac)
(define-key icejam-keys-mode-map [(hyper z)] 'undo)
(define-key icejam-keys-mode-map [(hyper q)] 'kill-emacs)
;; Disable meta on right alt (useful for Polish characters) ;; Disable meta on right alt (useful for Polish characters)
(setq mac-right-option-modifier nil))) (setq mac-right-option-modifier nil)))
@ -46,21 +51,21 @@
;;;;;;;;; BSD-specific config ;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;; BSD-specific config ;;;;;;;;;;;;;;;;;;;;;
(if IS-BSD (if IS-BSD
(progn (progn
(global-set-key (kbd "A-<right>") 'end-of-line) (define-key icejam-keys-mode-map (kbd "A-<right>") 'end-of-line)
(global-set-key (kbd "A-<left>") 'beginning-of-line) (define-key icejam-keys-mode-map (kbd "A-<left>") 'beginning-of-line)
(global-set-key (kbd "A-<up>") 'scroll-down) ; WTF is this reverse, I dunno (define-key icejam-keys-mode-map (kbd "A-<up>") 'scroll-down) ; WTF is this reverse, I dunno
(global-set-key (kbd "A-<down>") 'scroll-up) (define-key icejam-keys-mode-map (kbd "A-<down>") 'scroll-up)
(global-set-key (kbd "A-a") 'mark-whole-buffer) (define-key icejam-keys-mode-map (kbd "A-a") 'mark-whole-buffer)
(global-set-key (kbd "A-v") 'yank) (define-key icejam-keys-mode-map (kbd "A-v") 'yank)
(global-set-key (kbd "A-x") 'kill-region) (define-key icejam-keys-mode-map (kbd "A-x") 'kill-region)
(global-set-key (kbd "A-c") 'kill-ring-save) (define-key icejam-keys-mode-map (kbd "A-c") 'kill-ring-save)
(global-set-key (kbd "A-s") 'save-buffer) (define-key icejam-keys-mode-map (kbd "A-s") 'save-buffer)
(global-set-key (kbd "A-l") 'goto-line) (define-key icejam-keys-mode-map (kbd "A-l") 'goto-line)
(global-set-key (kbd "A-w") (define-key icejam-keys-mode-map (kbd "A-w")
(lambda () (interactive) (delete-window))) (lambda () (interactive) (delete-window)))
(global-set-key (kbd "A-z") 'undo) (define-key icejam-keys-mode-map (kbd "A-z") 'undo)
(global-set-key (kbd "A-q") 'kill-emacs))) (define-key icejam-keys-mode-map (kbd "A-q") 'kill-emacs)))
(provide 'pkg/sys-specific) (provide 'icejam-pkg-sys-specific)
;;; sys-specific.el ends here ;;; sys-specific.el ends here

2
pkg/undo-tree.el
View file

@ -22,5 +22,5 @@
(global-undo-tree-mode t) (global-undo-tree-mode t)
(provide 'pkg/undo-tree) (provide 'icejam-pkg-undo-tree)
;;; undo-tree.el ends here ;;; undo-tree.el ends here

2
themes/themes.el
View file

@ -71,5 +71,5 @@
:foreground (face-foreground 'default) :foreground (face-foreground 'default)
:background (face-background 'default)) :background (face-background 'default))
(provide 'themes/themes) (provide 'icejam-themes)
;;; themes.el ends here ;;; themes.el ends here