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

Namespace packages

Browse source
This commit is contained in:
Maciej 2021-03-07 18:24:10 +02:00
parent a09b7edebe
commit 185c112890
Signed by: maciej
GPG key ID: 41D62D42D3B0D765
41 changed files with 177 additions and 177 deletions
Download patch file Download diff file Expand all files Collapse all files

80
init.el
View file

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

8
lang/clang.el
View file

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

6
lang/clojure.el
View file

@ -2,8 +2,8 @@
;;; Commentary:
;;; Code:
(require 'icejam-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require 'icejam-pkg-hydra "$HOME/.emacs.d/pkg/hydra.el")
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-hydra "$HOME/.emacs.d/pkg/hydra.el")
(use-package clojure-mode
:defer t
@ -62,5 +62,5 @@ Cider: _j_: Jack in _t_: Test
(add-hook 'cider-repl-mode-hook 'my-clj-repl-config)
(add-hook 'cider-mode-hook #'cider-company-enable-fuzzy-completion)
(provide 'icejam-lang-clojure)
(provide '+custom-lang-clojure)
;;; clojure.el ends here

4
lang/elisp.el
View file

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

8
lang/elixir.el
View file

@ -2,9 +2,9 @@
;;; Commentary:
;;; Code:
(require 'icejam-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require 'icejam-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el")
(require 'icejam-pkg-hydra "$HOME/.emacs.d/pkg/hydra.el")
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el")
(require '+custom-pkg-hydra "$HOME/.emacs.d/pkg/hydra.el")
(use-package elixir-mode
:requires (lsp-mode lsp-ui)
@ -43,5 +43,5 @@ Other: _m_: iMenu
(add-hook 'elixir-mode-hook 'activate-elixir-mode)
(provide 'icejam-lang-elixir)
(provide '+custom-lang-elixir)
;;; elixir.el ends here

6
lang/erlang.el
View file

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

6
lang/fsharp.el
View file

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

2
lang/gleam.el
View file

@ -14,5 +14,5 @@
:straight `(gleam-mode :type git :host github :repo "gleam-lang/gleam-mode")
:mode "\\.gleam\\'")
(provide 'icejam-lang-gleam)
(provide '+custom-lang-gleam)
;;; gleam.el ends here

8
lang/haskell.el
View file

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

8
lang/javascript.el
View file

@ -2,9 +2,9 @@
;;; Commentary:
;;; Code:
(require 'icejam-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require 'icejam-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el")
(require 'icejam-pkg-lsp "$HOME/.emacs.d/pkg/lsp.el")
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-flycheck "$HOME/.emacs.d/pkg/flycheck.el")
(require '+custom-pkg-lsp "$HOME/.emacs.d/pkg/lsp.el")
(use-package js2-mode
:requires (web-mode company-web lsp-mode lsp-ui)
@ -45,5 +45,5 @@
(add-hook 'js2-mode-hook 'activate-js2-mode)
(add-hook 'vue-mode-hook 'lsp)
(provide 'icejam-lang-javascript)
(provide '+custom-lang-javascript)
;;; javascript.el ends here

4
lang/markdown.el
View file

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

4
lang/ocaml.el
View file

@ -2,7 +2,7 @@
;;; Commentary:
;;; Code:
(require 'icejam-pkg-hydra "$HOME/.emacs.d/pkg/hydra.el")
(require '+custom-pkg-hydra "$HOME/.emacs.d/pkg/hydra.el")
(use-package tuareg
:defer t
@ -95,5 +95,5 @@ _o_: Update opam env
(add-hook 'reason-mode-hook 'my-reason-mode)
(add-hook 'reason-mode-hook 'merlin-mode)
(provide 'icejam-lang-ocaml)
(provide '+custom-lang-ocaml)
;;; ocaml.el ends here

2
lang/other.el
View file

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

8
lang/php.el
View file

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

2
lang/purescript.el
View file

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

8
lang/ruby.el
View file

@ -2,9 +2,9 @@
;;; Commentary:
;;; Code:
(require 'icejam-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require 'icejam-pkg-projectile "$HOME/.emacs.d/pkg/projectile.el")
(require 'icejam-pkg-ctags "$HOME/.emacs.d/pkg/ctags.el")
(require '+custom-pkg-prog-mode "$HOME/.emacs.d/pkg/prog-mode.el")
(require '+custom-pkg-projectile "$HOME/.emacs.d/pkg/projectile.el")
(require '+custom-pkg-ctags "$HOME/.emacs.d/pkg/ctags.el")
(use-package rspec-mode :straight t :defer t)
(use-package ruby-end :straight t :defer t)
@ -40,5 +40,5 @@
'(rspec-install-snippets))
(add-hook 'enh-ruby-mode-hook 'activate-ruby-mode)
(provide 'icejam-lang-ruby)
(provide '+custom-lang-ruby)
;;; ruby.el ends here

6
lang/rust.el
View file

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

2
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))
(provide 'icejam-lang-sh)
(provide '+custom-lang-sh)
;;; sh.el ends here

6
lang/web.el
View file

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

2
pkg/avy.el
View file

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

2
pkg/base.el
View file

@ -120,5 +120,5 @@
(which-key-mode t)
(provide 'icejam-pkg-base)
(provide '+custom-pkg-base)
;;; base.el ends here

2
pkg/company-yasnippet.el
View file

@ -75,5 +75,5 @@
(define-key text-mode-map (kbd "<f13>") 'insert-space-and-complete)
(define-key text-mode-map (kbd "TAB") 'company-indent-or-complete-common)
(provide 'icejam-pkg-company-yasnippet)
(provide '+custom-pkg-company-yasnippet)
;;; company-yasnippet.el ends here

4
pkg/ctags.el
View file

@ -2,7 +2,7 @@
;;; Commentary:
;;; Old and rudimental completion framework.
;;; Code:
(require 'icejam-pkg-projectile "$HOME/.emacs.d/pkg/projectile.el")
(require '+custom-pkg-projectile "$HOME/.emacs.d/pkg/projectile.el")
(setq tags-add-tables nil)
@ -52,5 +52,5 @@
(add-hook 'after-save-hook 'ctags/update-tags-on-save)
(provide 'icejam-pkg-ctags)
(provide '+custom-pkg-ctags)
;;; ctags.el ends here

2
pkg/dashboard.el
View file

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

8
pkg/deft.el
View file

@ -3,8 +3,8 @@
;;; Notational velocity, backed by OneDrive.
;;; Code:
(require 'icejam-pkg-keys-mode "$HOME/.emacs.d/pkg/keys-mode.el")
(require 'icejam-pkg-hydra "$HOME/.emacs.d/pkg/hydra.el")
(require '+custom-pkg-keys-mode "$HOME/.emacs.d/pkg/keys-mode.el")
(require '+custom-pkg-hydra "$HOME/.emacs.d/pkg/hydra.el")
(use-package deft
:straight t
@ -19,7 +19,7 @@
("d" deft "Deft")
("q" cancel "quit"))
(define-key icejam-keys-mode-map (kbd "C-c d") '+hydra-deft-menu/body)
(define-key +custom-keys-mode-map (kbd "C-c d") '+hydra-deft-menu/body)
(provide 'icejam-pkg-deft)
(provide '+custom-pkg-deft)
;;; deft.el ends here

2
pkg/diminish.el
View file

@ -23,5 +23,5 @@
(eval-after-load "whitespace" '(diminish 'whitespace-mode))
(eval-after-load "auto-revert-mode" '(diminish 'auto-revert-mode))
(provide 'icejam-pkg-diminish)
(provide '+custom-pkg-diminish)
;;; diminish.el ends here

2
pkg/flycheck.el
View file

@ -25,5 +25,5 @@
(unbind-key "C-c ! v" flycheck-mode-map)
(unbind-key "C-c ! x" flycheck-mode-map))
(provide 'icejam-pkg-flycheck)
(provide '+custom-pkg-flycheck)
;;; flycheck.el ends here

4
pkg/hydra.el
View file

@ -3,7 +3,7 @@
;;; Global hydra definitions.
;;; Code:
(require 'icejam-pkg-avy "$HOME/.emacs.d/pkg/avy.el")
(require '+custom-pkg-avy "$HOME/.emacs.d/pkg/avy.el")
(defun mark-and-indent-whole-buffer ()
"Mark and indent whole buffer."
@ -151,5 +151,5 @@ Other: _m_: iMenu
("C-c m" . +hydra-bufmove/body)
("C-c l" . +hydra-language-context-menu/body))
(provide 'icejam-pkg-hydra)
(provide '+custom-pkg-hydra)
;;; hydra.el ends here

2
pkg/ispell.el
View file

@ -17,5 +17,5 @@
(unbind-key "C-c $" flyspell-mode-map)
(unbind-key "C-M-i" flyspell-mode-map)))
(provide 'icejam-pkg-ispell)
(provide '+custom-pkg-ispell)
;;; ispell.el ends here

22
pkg/ivy.el
View file

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

36
pkg/keys-mode.el
View file

@ -10,46 +10,46 @@
;;; Code:
(define-minor-mode icejam-keys-mode
(define-minor-mode +custom-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)
(+custom-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
(define-key +custom-keys-mode-map (kbd "C-c \\") 'split-window-right) ;; Split window to the right
(define-key +custom-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)
(define-key +custom-keys-mode-map (kbd "C-c <left>") 'windmove-left)
(define-key +custom-keys-mode-map (kbd "C-c <right>") 'windmove-right)
(define-key +custom-keys-mode-map (kbd "C-c <up>") 'windmove-up)
(define-key +custom-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)
(define-key +custom-keys-mode-map (kbd "C-c [") 'windmove-left)
(define-key +custom-keys-mode-map (kbd "C-c ]") 'windmove-right)
(define-key +custom-keys-mode-map (kbd "C-c {") 'windmove-up)
(define-key +custom-keys-mode-map (kbd "C-c }") 'windmove-down)
;; Kill current buffer and window
(define-key icejam-keys-mode-map (kbd "C-c q") 'kill-buffer-and-window)
(define-key +custom-keys-mode-map (kbd "C-c q") 'kill-buffer-and-window)
;; List buffers
(define-key icejam-keys-mode-map (kbd "C-c b") 'ibuffer)
(define-key +custom-keys-mode-map (kbd "C-c b") 'ibuffer)
;; 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)
(define-key +custom-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)
(define-key +custom-keys-mode-map [home] 'beginning-of-line)
(define-key +custom-keys-mode-map [end] 'end-of-line)
(provide 'icejam-pkg-keys-mode)
(provide '+custom-pkg-keys-mode)
;;; keys-mode.el ends here

2
pkg/lsp.el
View file

@ -71,5 +71,5 @@
:defer t
:requires (lsp-mode lsp-ui))
(provide 'icejam-pkg-lsp)
(provide '+custom-pkg-lsp)
;;; lsp.el ends here

2
pkg/macros.el
View file

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

2
pkg/magit.el
View file

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

2
pkg/persp.el
View file

@ -29,5 +29,5 @@
(unbind-key "C-x x <right>" persp-mode-map)
(unbind-key "C-x x C-x x" persp-mode-map))
(provide 'icejam-pkg-persp)
(provide '+custom-pkg-persp)
;;; persp.el ends here

2
pkg/prog-mode.el
View file

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

2
pkg/projectile.el
View file

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

66
pkg/sys-specific.el
View file

@ -7,9 +7,9 @@
(defconst IS-BSD (eq system-type 'berkeley-unix))
(defconst IS-GNU (eq system-type 'gnu/linux))
(require 'icejam-pkg-keys-mode "$HOME/.emacs.d/pkg/keys-mode.el")
(require '+custom-pkg-keys-mode "$HOME/.emacs.d/pkg/keys-mode.el")
(defun icejam-delete-window ()
(defun +custom-function-delete-window ()
"Kill a window."
(interactive) (delete-window))
@ -31,20 +31,20 @@
(setq mac-command-modifier 'meta))))
;;;;;;;;; Mac binding (fix) ;;;;;;;;;;;;;;;;;;
(define-key icejam-keys-mode-map (kbd "H-<right>") 'end-of-line)
(define-key icejam-keys-mode-map (kbd "H-<left>") 'beginning-of-line)
(define-key icejam-keys-mode-map (kbd "H-<up>") 'scroll-down) ; WTF is this reverse, I dunno
(define-key icejam-keys-mode-map (kbd "H-<down>") 'scroll-up)
(define-key +custom-keys-mode-map (kbd "H-<right>") 'end-of-line)
(define-key +custom-keys-mode-map (kbd "H-<left>") 'beginning-of-line)
(define-key +custom-keys-mode-map (kbd "H-<up>") 'scroll-down) ; WTF is this reverse, I dunno
(define-key +custom-keys-mode-map (kbd "H-<down>") 'scroll-up)
(define-key icejam-keys-mode-map [(hyper a)] 'mark-whole-buffer)
(define-key icejam-keys-mode-map [(hyper v)] 'yank)
(define-key icejam-keys-mode-map [(hyper x)] 'kill-region)
(define-key icejam-keys-mode-map [(hyper c)] 'kill-ring-save)
(define-key icejam-keys-mode-map [(hyper s)] 'save-buffer)
(define-key icejam-keys-mode-map [(hyper l)] 'goto-line)
(define-key icejam-keys-mode-map [(hyper w)] 'icejam-delete-window)
(define-key icejam-keys-mode-map [(hyper z)] 'undo)
(define-key icejam-keys-mode-map [(hyper q)] 'kill-emacs)
(define-key +custom-keys-mode-map [(hyper a)] 'mark-whole-buffer)
(define-key +custom-keys-mode-map [(hyper v)] 'yank)
(define-key +custom-keys-mode-map [(hyper x)] 'kill-region)
(define-key +custom-keys-mode-map [(hyper c)] 'kill-ring-save)
(define-key +custom-keys-mode-map [(hyper s)] 'save-buffer)
(define-key +custom-keys-mode-map [(hyper l)] 'goto-line)
(define-key +custom-keys-mode-map [(hyper w)] '+delete-window)
(define-key +custom-keys-mode-map [(hyper z)] 'undo)
(define-key +custom-keys-mode-map [(hyper q)] 'kill-emacs)
;; Disable meta on right alt (useful for Polish characters)
(setq mac-right-option-modifier nil)))
@ -53,28 +53,28 @@
(if IS-GNU
(progn
;;;;;;;;; Linux Ergo bindings (fix) ;;;;;;;;;;;;;;;;;;
(define-key icejam-keys-mode-map (kbd "C-<right>") 'end-of-line)
(define-key icejam-keys-mode-map (kbd "C-<left>") 'beginning-of-line)
(define-key icejam-keys-mode-map (kbd "C-<up>") 'scroll-down) ; WTF is this reverse, I dunno
(define-key icejam-keys-mode-map (kbd "C-<down>") 'scroll-up)))
(define-key +custom-keys-mode-map (kbd "C-<right>") 'end-of-line)
(define-key +custom-keys-mode-map (kbd "C-<left>") 'beginning-of-line)
(define-key +custom-keys-mode-map (kbd "C-<up>") 'scroll-down) ; WTF is this reverse, I dunno
(define-key +custom-keys-mode-map (kbd "C-<down>") 'scroll-up)))
;;;;;;;;; BSD-specific config ;;;;;;;;;;;;;;;;;;;;;
(if IS-BSD
(progn
(define-key icejam-keys-mode-map (kbd "A-<right>") 'end-of-line)
(define-key icejam-keys-mode-map (kbd "A-<left>") 'beginning-of-line)
(define-key icejam-keys-mode-map (kbd "A-<up>") 'scroll-down) ; WTF is this reverse, I dunno
(define-key icejam-keys-mode-map (kbd "A-<down>") 'scroll-up)
(define-key +custom-keys-mode-map (kbd "A-<right>") 'end-of-line)
(define-key +custom-keys-mode-map (kbd "A-<left>") 'beginning-of-line)
(define-key +custom-keys-mode-map (kbd "A-<up>") 'scroll-down) ; WTF is this reverse, I dunno
(define-key +custom-keys-mode-map (kbd "A-<down>") 'scroll-up)
(define-key icejam-keys-mode-map (kbd "A-a") 'mark-whole-buffer)
(define-key icejam-keys-mode-map (kbd "A-v") 'yank)
(define-key icejam-keys-mode-map (kbd "A-x") 'kill-region)
(define-key icejam-keys-mode-map (kbd "A-c") 'kill-ring-save)
(define-key icejam-keys-mode-map (kbd "A-s") 'save-buffer)
(define-key icejam-keys-mode-map (kbd "A-l") 'goto-line)
(define-key icejam-keys-mode-map (kbd "A-w" 'icejam-delete-window)
(define-key icejam-keys-mode-map (kbd "A-z") 'undo)
(define-key icejam-keys-mode-map (kbd "A-q") 'kill-emacs))))
(define-key +custom-keys-mode-map (kbd "A-a") 'mark-whole-buffer)
(define-key +custom-keys-mode-map (kbd "A-v") 'yank)
(define-key +custom-keys-mode-map (kbd "A-x") 'kill-region)
(define-key +custom-keys-mode-map (kbd "A-c") 'kill-ring-save)
(define-key +custom-keys-mode-map (kbd "A-s") 'save-buffer)
(define-key +custom-keys-mode-map (kbd "A-l") 'goto-line)
(define-key +custom-keys-mode-map (kbd "A-w" '+delete-window)
(define-key +custom-keys-mode-map (kbd "A-z") 'undo)
(define-key +custom-keys-mode-map (kbd "A-q") 'kill-emacs))))
(provide 'icejam-pkg-sys-specific)
(provide '+custom-pkg-sys-specific)
;;; sys-specific.el ends here

6
pkg/term.el
View file

@ -9,7 +9,7 @@
;; Proper terminal in Emacs
;;; Code:
(require 'icejam-pkg-keys-mode "$HOME/.emacs.d/pkg/keys-mode.el")
(require '+custom-pkg-keys-mode "$HOME/.emacs.d/pkg/keys-mode.el")
(use-package vterm :straight t :defer t)
@ -19,7 +19,7 @@
(interactive)
(vterm))
(define-key icejam-keys-mode-map (kbd "<f12>") 'start-term)
(define-key +custom-keys-mode-map (kbd "<f12>") 'start-term)
(provide 'icejam-pkg-term)
(provide '+custom-pkg-term)
;;; term.el ends here

2
pkg/undo-tree.el
View file

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

2
themes/themes.el
View file

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